D7myYunxiang/云翔生产管理(MYSC.dll)/U_MLManage_LRTJ2.pas

unit U_MLManage_LRTJ2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
  cxEdit, DB, cxDBData, ADODB, DBClient, cxGridLevel, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
  cxGrid, ComCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, cxContainer,
  cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar, StdCtrls, ExtCtrls,
  BtnEdit, cxButtonEdit, jpeg, U_SLT, Math, Menus, RM_Common, RM_Class,
  RM_GridReport, RM_System, RM_Dataset, U_SLT_PBSK, U_BPZdy_LRSHK,
  IdBaseComponent, U_SLT_TJ_SX, IdComponent, IdTCPConnection, IdTCPClient, IdFTP,
  IniFiles, ShellAPI, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator;

type
  TfrmMLManage_LRTJ2 = class(TForm)
    CDS_Sub: TClientDataSet;
    ADOQueryMain: TADOQuery;
    ADOQueryCmd: TADOQuery;
    ADOQueryTemp: TADOQuery;
    cxGridPopupMenu1: TcxGridPopupMenu;
    Panel1: TPanel;
    Order_GX: TClientDataSet;
    DataSource1: TDataSource;
    OrdBP_SH: TClientDataSet;
    GSNo: TLabel;
    Ord_HX: TClientDataSet;
    GYName: TLabel;
    Panel9: TPanel;
    Label2: TLabel;
    MLKZ: TEdit;
    Label1: TLabel;
    Label3: TLabel;
    adoqueryPicture: TADOQuery;
    RMDB_Main: TRMDBDataSet;
    RM1: TRMGridReport;
    ADOQueryPrint: TADOQuery;
    CDS_Print: TClientDataSet;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    SaveDialog1: TSaveDialog;
    ODPat: TOpenDialog;
    IdFTP1: TIdFTP;
    PopupMenu2: TPopupMenu;
    MenuItem1: TMenuItem;
    Ord_ZB: TClientDataSet;
    Panel2: TPanel;
    Ord_Col: TClientDataSet;
    DataSource2: TDataSource;
    ADOQueryCol: TADOQuery;
    TJName: TLabel;
    TJGYMX: TLabel;
    Panel14: TPanel;
    PopupMenu3: TPopupMenu;
    N2: TMenuItem;
    Panel39: TPanel;
    Label11: TLabel;
    cxGrid1: TcxGrid;
    TV1: TcxGridDBTableView;
    V1Ssel: TcxGridDBColumn;
    V1BPCode: TcxGridDBColumn;
    V1BPName: TcxGridDBColumn;
    V1BPMF: TcxGridDBColumn;
    V1BPKZ: TcxGridDBColumn;
    V1BPJS: TcxGridDBColumn;
    v1BPMiDu: TcxGridDBColumn;
    cxGrid1Level1: TcxGridLevel;
    ToolBar4: TToolBar;
    Panel12: TPanel;
    Panel42: TPanel;
    Label79: TLabel;
    Label80: TLabel;
    MLXXNO: TEdit;
    MLXXMF: TEdit;
    MLXXKZ: TEdit;
    MLXXColNo: TEdit;
    Label5: TLabel;
    MLXXCol: TEdit;
    MLXXGYName: TBtnEditA;
    MLName: TEdit;
    MLNo: TEdit;
    ToolBar3: TToolBar;
    TSave: TToolButton;
    Panel3: TPanel;
    Label8: TLabel;
    PopupMenu4: TPopupMenu;
    N4: TMenuItem;
    Panel4: TPanel;
    ScrollBox2: TScrollBox;
    MLXXNote: TMemo;
    Panel5: TPanel;
    Label4: TLabel;
    Label12: TLabel;
    MBPID: TEdit;
    PTID: TEdit;
    Image1: TImage;
    MLTPID: TEdit;
    Image12: TImage;
    ADOQuery1: TADOQuery;
    ADOCmd: TADOQuery;
    Panel16: TPanel;
    MLCF: TBtnEditA;
    MLMF: TBtnEditA;
    Button1: TButton;
    ScrollBox3: TPanel;
    LBCPAP: TLabel;
    BTLP: TButton;
    BTNP: TButton;
    Panel6: TPanel;
    Label6: TLabel;
    Panel10: TPanel;
    Label14: TLabel;
    Label15: TLabel;
    Image2: TImage;
    Image11: TImage;
    TJNote: TMemo;
    TJColNo: TEdit;
    TJCol: TBtnEditA;
    TJNo: TEdit;
    TJPTID: TEdit;
    TJCPID: TEdit;
    TJTPID: TEdit;
    Button2: TButton;
    Button3: TButton;
    Label7: TLabel;
    N3: TMenuItem;
    HXType: TBtnEditA;
    TJGYName: TBtnEditA;
    Panel7: TPanel;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    MLXXName: TEdit;
    Button7: TButton;
    TJML: TEdit;
    GYLX: TEdit;
    procedure FormShow(Sender: TObject);
    procedure MLNameChange(Sender: TObject);
    procedure MLMFChange(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure MenuItem1Click(Sender: TObject);
    procedure ToSelPBClick(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure TSaveClick(Sender: TObject);
    procedure ADOClick(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure HXTypeBtnClick(Sender: TObject);
    procedure TJGYNameBtnClick(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure Image12DblClick(Sender: TObject);
    procedure Image11DblClick(Sender: TObject);
    procedure MLCFBtnClick(Sender: TObject);
    procedure MLMFBtnClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BTLPClick(Sender: TObject);
    procedure BTNPClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure MLXXNameChange(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
    Fint, my, mz: Integer;
    procedure InitSubGrid();
    function SaveData(): Boolean;
    procedure InitColor();
    procedure BHCZhu();
    procedure ReadINIFile10();
    procedure SavePrint(var CP, TP: string);
    procedure CreThumb(AJPeg: TJPEGImage; Image1: TImage; Width, Height: Integer);
    procedure ShowImage1();
    procedure InitColor1();
    procedure SaveImage(maxnoWB: string);
    procedure initFY();
    procedure ColYC();
    { Private declarations }
  public
    lstPat, lstPat2: TStringList;
    FCYID, FCYCode, FCPID, FCPNO, FBPID, FGYName, FML, FGYLX, FGSNo, FHXBPID, FGSName, FSKID, FBPIDSH, formid: string;
    FGYLXName, PatFile, FTJCoNo, FPTID, FileName, FileName1: string;
    FangXiang1, FangXiang2: string;
    //viewFlag:Boolean;
    procedure initimageSH();
    procedure imagePL(FFF: Integer);
    procedure ShowImage();
    procedure SaveImage1(maxnoWB: string);
    { Public declarations }
  end;

var
  frmMLManage_LRTJ2: TfrmMLManage_LRTJ2;
  Mach1: array of TfrmSLT_TJ_SX;
  Mach: array of TfrmSLT_PBSK;

implementation

uses
  U_DataLink, U_Fun, U_BPZdy_SH, U_MLMange_ADDCX, U_BPZdy_HXK, U_BPZdy_LRPB,
  U_BPZdy_LRGX, U_BPZdy_PanelCX, U_BPZdy_YT, U_BPZdy_Panel, U_BPZdy_LRTJ,
  U_FileUp_TPSH, U_MLManage_LRRS, U_ZDYHelp, U_RTPTColor, U_SCPerson;  //RzBmpBtn

{$R *.dfm}

procedure TfrmMLManage_LRTJ2.ShowImage1();
var
  jpg: TJpegImage;
  myStream: TADOBlobStream;
begin
  with adoqueryPicture do
  begin
    Close;
    sql.Clear;
    sql.Add('select * from Image_Info A');
    sql.Add(' inner join Image_File B on A.IMID=B.IMID');
    sql.Add(' and A.WBID=''' + Trim(MLTPID.Text) + '''');
    sql.Add(' and A.Valid=''Y'' ');
    //ShowMessage(sql.Text);
    Open;
  end;
  if adoqueryPicture.IsEmpty = False then
  begin
    FileName := Trim(adoqueryPicture.fieldbyname('ImagePath').AsString);
    jpg := TJpegImage.Create();
    myStream := tadoblobstream.Create(tblobfield(adoqueryPicture.fieldbyname('ImageFile')), bmread);
    jpg.LoadFromStream(myStream);
    Image12.Picture.Assign(jpg);
    Image12.Width := adoqueryPicture.fieldbyname('ImageWidth').Value;
    Image12.Height := adoqueryPicture.fieldbyname('ImageHeight').Value;
    if Trim(adoqueryPicture.fieldbyname('FangXiang').AsString) = '<27><>ֱ' then
    begin
      Image12.Top := 1;
      Image12.Left := Round((Panel6.Width - Image12.Width) / 2);
    end
    else
    begin
      Image12.Left := 1;
      Image12.Top := Round((Panel6.Height - Image12.Height) / 2);
    end;
    Image12.Visible := True;
  end;
end;

procedure TfrmMLManage_LRTJ2.ShowImage();
var
  jpg: TJpegImage;
  myStream: TADOBlobStream;
begin
  with adoqueryPicture do
  begin
    Close;
    sql.Clear;
    sql.Add('select * from Image_Info A');
    sql.Add(' inner join Image_File B on A.IMID=B.IMID');
    sql.Add(' and A.WBID=''' + Trim(TJTPID.Text) + '''');
    sql.Add(' and A.Valid=''Y'' ');
    //ShowMessage(sql.Text);
    Open;
  end;
  if adoqueryPicture.IsEmpty = False then
  begin
    FileName1 := Trim(adoqueryPicture.fieldbyname('ImagePath').AsString);
    jpg := TJpegImage.Create();
    myStream := tadoblobstream.Create(tblobfield(adoqueryPicture.fieldbyname('ImageFile')), bmread);
    jpg.LoadFromStream(myStream);
    Image11.Picture.Assign(jpg);
    Image11.Width := adoqueryPicture.fieldbyname('ImageWidth').Value;
    Image11.Height := adoqueryPicture.fieldbyname('ImageHeight').Value;
    if Trim(adoqueryPicture.fieldbyname('FangXiang').AsString) = '<27><>ֱ' then
    begin
      Image11.Top := 1;
      Image11.Left := Round((Panel6.Width - Image11.Width) / 2);
    end
    else
    begin
      Image11.Left := 1;
      Image11.Top := Round((Panel6.Height - Image11.Height) / 2);
    end;
    Image11.Visible := True;
  end;
end;

procedure TfrmMLManage_LRTJ2.InitColor1();
var
  fsj: string;
begin
  with ADOQueryTemp do
  begin
    Close;
    sql.Clear;
    sql.Add('select * from RT_PTColor where PTID=''' + Trim(Self.TJPTID.Text) + '''');
    Open;
  end;
  fsj := Trim(ADOQueryTemp.fieldbyname('ColDaiMa').AsString);
  if ADOQueryTemp.IsEmpty = False then
    Panel10.Color := StrToInt('$' + Trim(fsj));
end;

procedure TfrmMLManage_LRTJ2.ReadINIFile10();
var
  programIni: Tinifile;  //<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>
  FileName5: string;
begin
  FileName5 := ExtractFilePath(Paramstr(0)) + 'SYSTEMSET.INI';
  programIni := Tinifile.create(FileName5);
  server := programIni.ReadString('SERVER', '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ', '127.0.0.1');
  programIni.Free;
end;

procedure TfrmMLManage_LRTJ2.InitColor();
var
  fsj: string;
begin
  with ADOQueryTemp do
  begin
    Close;
    sql.Clear;
    sql.Add('select * from RT_PTColor where PTID=''' + Trim(Self.PTID.Text) + '''');
    //ShowMessage(sql.Text);
    Open;
  end;
  fsj := Trim(ADOQueryTemp.fieldbyname('ColDaiMa').AsString);
  if ADOQueryTemp.IsEmpty = False then
    Panel42.Color := StrToInt('$' + Trim(fsj));
end;

procedure TfrmMLManage_LRTJ2.initFY();
begin
  with adoqueryPicture do
  begin
    close;
    sql.Clear;
    sql.Add('select Count(IMID) GS from Image_Info ');
    sql.Add('where TJML=''' + trim(TJML.Text) + '''');
    Open;
  end;
  my := 1;
  mz := Ceil(adoqueryPicture.fieldbyname('GS').AsInteger / 30);
  LBCPAP.Caption := IntToStr(my) + '/' + inttostr(mz);
end;

procedure TfrmMLManage_LRTJ2.initimageSH();
var
  i, j, p, x: integer;
  jpg: TJpegImage;
  myStream: TADOBlobStream;
  Fstr: string;
begin
  Fstr := ' and TJML=''' + trim(TJML.Text) + ''' and TJGYName=''' + trim(TJGYName.Text) + '''';
  j := length(Mach1);
  if j > 0 then
  begin
    for i := 0 to j - 1 do
    begin
      Mach1[i].free;
    end;
  end;
  SetLength(Mach1, 0);
  try
    with adoqueryPicture do
    begin
      close;
      sql.Clear;
      sql.Add(' exec P_View_Image :WBID,:ImageType,:IFType,:Ye,:YeQty,:WPS  ');
      Parameters.ParamByName('WBID').Value := 'CP1910290001';
      Parameters.ParamByName('ImageType').Value := 'TJ';
      Parameters.ParamByName('IFType').Value := 'С';
      Parameters.ParamByName('Ye').Value := my;
      Parameters.ParamByName('YeQty').Value := 100;
      Parameters.ParamByName('WPS').Value := Trim(Fstr);
      open;
    end;
    j := adoqueryPicture.RecordCount;
    if j < 1 then
      exit;
    TJNo.Text := Trim(TJML.Text) + '-' + inttostr(j + 1);
    adoqueryPicture.DisableControls;
    adoqueryPicture.First;
    SetLength(Mach1, j);
    with adoqueryPicture do
    begin
      First;
      i := 0;
      x := 0;    //<2F><>
      p := 0;    //<2F><>
      while not eof do
      begin
        if (i < 30 * my) and (i >= 30 * (my - 1)) then
        begin
          jpg := TJpegImage.Create();
          myStream := tadoblobstream.Create(tblobfield(adoqueryPicture.fieldbyname('ImageFile')), bmread);
          jpg.LoadFromStream(myStream);
          if (i - 30 * (my - 1)) < 10 * (p + 1) then
          begin

          end
          else
          begin
            p := p + 1;
          end;
          Mach1[i] := TfrmSLT_TJ_SX.Create(Self);
          Mach1[i].Name := trim(adoqueryPicture.fieldbyname('IMID').AsString);
          Mach1[i].FImagePath := trim(adoqueryPicture.fieldbyname('ImagePath').AsString);
          Mach1[i].Parent := ScrollBox2;
          Mach1[i].Left := 0 + (x - 10 * p) * 135;
          Mach1[i].Top := p * 190;
          Mach1[i].FIMID := trim(adoqueryPicture.fieldbyname('IMID').AsString);
          Mach1[i].FTJHX := trim(adoqueryPicture.fieldbyname('TJHX').AsString);
          Mach1[i].YW.Caption := trim(adoqueryPicture.fieldbyname('TJHX').AsString);
          Mach1[i].TJMLNo.Caption := trim(adoqueryPicture.fieldbyname('TJMLNo').AsString);
          Mach1[i].ZW.Caption := trim(adoqueryPicture.fieldbyname('TJCol').AsString);
          Mach1[i].SH.Caption := trim(adoqueryPicture.fieldbyname('TJColNo').AsString);
          Mach1[i].FIMNO := trim(adoqueryPicture.fieldbyname('IMNO').AsString);
          Mach1[i].FWBID := Trim(TJCPID.Text);
          Mach1[i].FTJTPID := Trim(adoqueryPicture.fieldbyname('WBID').AsString);
          if self.formid = '2' then
          begin
            Mach1[i].Memo1.Visible := true;
          end;
          if triM(adoqueryPicture.fieldbyname('IMID').AsString) <> '' then
          begin
            Mach1[i].Init('', adoqueryPicture.fieldbyname('ImagePath').AsString, jpg);
          end;
          Mach1[i].cxImage1.Visible := True;
          Mach1[i].cxImage1.Properties.Stretch := True;
          x := x + 1;
        end;
        i := i + 1;
        Next;
      end;
    end;
    adoqueryPicture.EnableControls;
  finally
    jpg.free;
  end;
end;

procedure TfrmMLManage_LRTJ2.SavePrint(var CP, TP: string);
var
  maxno, MaxSub: string;
  fPrintFile, Txt, fImagePath: string;
  Porderno: string;
  i, j: Integer;
  Moudle: THandle;
  Makebar: TMakebar;
  Mixtext: TMixtext;
begin
  with ADOQueryCmd do
  begin
    close;
    sql.Clear;
    SQL.Add('select * from BP_DY ');
    sql.Add('where MLID=''' + trim(CP) + '''');
    sql.Add(' and TFID=''' + trim(TP) + '''');
    Open;
  end;
  if ADOQueryCmd.IsEmpty then
  begin
    if GetLSNo(ADOQueryTemp, maxno, 'DY', 'BP_DY', 3, 1) = False then
    begin
      Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
      Exit;
    end;
  end
  else
  begin
    maxno := Trim(ADOQueryCmd.fieldbyname('DYID').AsString);
  end;
  with ADOQueryCmd do
  begin
    if IsEmpty then
    begin
      Append;
      FieldByName('filler').Value := Trim(DName);
      FieldByName('DYID').Value := Trim(maxno);
    end
    else
    begin
      edit;
      FieldByName('laster').Value := Trim(DName);
      FieldByName('lasttime').Value := SGetServerDate(ADOQueryTemp);
    end;
    FieldByName('MLID').Value := Trim(CP);
    FieldByName('TFID').Value := Trim(TP);
    post;
  end;
  //////////<2F><>¼
  if GetLSNo(ADOQueryTemp, MaxSub, 'JL', 'BP_DY_JL', 3, 1) = False then
  begin
    Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
    Exit;
  end;
  with ADOQueryCmd do
  begin
    close;
    sql.Clear;
    SQL.Add('select * from BP_DY_JL ');
    sql.Add('where 1=2');
    Open;
  end;
  with ADOQueryCmd do
  begin
    Append;
    FieldByName('filler').Value := Trim(DName);
    FieldByName('JLID').Value := Trim(MaxSub);
    FieldByName('DYID').Value := Trim(maxno);
    FieldByName('MLID').Value := Trim(CP);
    FieldByName('TFID').Value := Trim(TP);
    post;
  end;
  //<2F><>ӡ
  fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\<5C><><EFBFBD><EFBFBD><EFBFBD>ϱ<EFBFBD>ǩȾɫ.rmf';
  with ADOQueryPrint do
  begin
    Close;
    sql.Clear;
    sql.Add('select A.*,B.*,C.DYID from BP_DY C ');
    sql.Add('inner join ML_Manage A on A.MLID=C.MLID ');
    sql.Add('inner join XD_File D on D.XFID=C.TFID ');
    sql.Add('inner join SH_Base B on B.WBID=D.CYID ');
    sql.Add(' Where C.DYID=''' + Trim(maxno) + '''');
    Open;
  end;
  SCreateCDS20(ADOQueryPrint, CDS_Print);
  SInitCDSData20(ADOQueryPrint, CDS_Print);
  try
    Moudle := LoadLibrary('MakeQRBarcode.dll');
    @Makebar := GetProcAddress(Moudle, 'Make');
    @Mixtext := GetProcAddress(Moudle, 'MixText');
    Txt := Trim(CDS_Print.fieldbyname('DYID').AsString);
    fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
    if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
      CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
    if FileExists(fImagePath) then
      DeleteFile(fImagePath);
    Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
  except
    application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
    exit;
  end;
  if FileExists(fPrintFile) then
  begin
    RMVariables['QRBARCODE'] := fImagePath;
    RM1.LoadFromFile(fPrintFile);
    //RM1.ShowReport;
    RM1.PrintReport;
  end
  else
  begin
    Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>' + ExtractFilePath(Application.ExeName) + 'Report\<5C><><EFBFBD><EFBFBD><EFBFBD>ϱ<EFBFBD>ǩȾɫ.rmf'), '<27><>ʾ', 0);
    exit;
  end;
end;

procedure TfrmMLManage_LRTJ2.InitSubGrid();
var
  FTPID, FTJNo: string;
begin
  try
    ADOQueryMain.DisableControls;
    with ADOQueryMain do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select A.* from ML_Manage A ');
      sql.Add('where MLID=''' + trim(FCYID) + '''');
      Open;
    end;
    SCreateCDS20(ADOQueryMain, Ord_ZB);
    SInitCDSData20(ADOQueryMain, Ord_ZB);
    if ADOQueryMain.IsEmpty = false then
    begin
      GSNo.Caption := Trim(ADOQueryMain.FieldByName('GSNo').asstring);
      GYName.Caption := Trim(ADOQueryMain.FieldByName('GYName').asstring);
      MLNo.Text := Trim(ADOQueryMain.FieldByName('MLNo').asstring);
      SCSHDataNew(ADOQueryMain, Panel1, 2);
      SCSHDataNew(ADOQueryMain, Panel9, 2);
      SCSHDataNew(ADOQueryMain, Panel39, 2);
      FBPID := Trim(ADOQueryMain.FieldByName('MBPID').Value);
      FSKID := Trim(ADOQueryMain.FieldByName('MLDLNo').AsString);
      FTJCoNo := Trim(ADOQueryMain.FieldByName('TJColID').AsString);
      FCPID := Trim(ADOQueryMain.FieldByName('CPID').asstring);
      TJGYName.Text := Trim(ADOQueryMain.FieldByName('TJGYName').asstring);
      HXType.Text := Trim(ADOQueryMain.FieldByName('HXType').asstring);
      TJCPID.Text := 'CP1910290001';
      if Trim(DParameters1) <> '<27><>Ȩ<EFBFBD><C8A8>' then
      begin
        MLXXNO.Enabled := False;
        MLXXName.Enabled := false;
        MLXXNO.Color := clSkyBlue;
        MLXXName.Color := clSkyBlue;
      end
      else
      begin
        MLXXNO.Enabled := true;
        MLXXName.Enabled := true;
      end;
    end
    else
    begin

    end;
    with ADOQueryMain do
    begin
      Close;
      sql.Clear;
      ;
      sql.Add('select cast('''' as varchar(50)) RSGYMX,cast('''' as varchar(50)) RSSH,cast('''' as varchar(50)) TJGYMX,cast('''' as varchar(50)) TJSeHao');
      sql.Add(' from RT_PTColor A ');
      sql.Add('where 1=2');
      Open;
    end;
    SCreateCDS20(ADOQueryMain, Ord_Col);
    SInitCDSData20(ADOQueryMain, Ord_Col);
  finally
    ADOQueryMain.EnableControls;
  end;
end;

procedure TfrmMLManage_LRTJ2.SaveImage(maxnoWB: string);
var
  ImagePath, ImagName, MaxNo, MaxNoFile: string;
  AJpeg: TJPEGImage;
  myStream: TADOBlobStream;
begin
  try
    ImagePath := Trim(maxnoWB);
    ImagName := Trim(maxnoWB);
    AJpeg := TJpegImage.Create();
    with ADOCmd do
    begin
      Close;
      sql.Clear;
      SQL.Add('UPdate Image_File Set Valid=''N'' ');
      sql.Add(' where IMID=(select IMID from Image_Info');
      Sql.Add(' where WBID=''' + Trim(maxnoWB) + ''' and Valid=''Y'')');
      ExecSQL;
    end;
    with ADOCmd do
    begin
      Close;
      sql.Clear;
      SQL.Add('UPdate Image_Info Set Editer=''' + Trim(DName) + ''',EditerCode=''' + Trim(DCode) + ''',EditTime=getdate()');
      sql.Add(',Valid=''N''  where WBID=''' + Trim(maxnoWB) + ''' and Valid=''Y''  ');
      ExecSQL;
    end;
    if GetLSNo(ADOCmd, MaxNo, 'IM', 'Image_Info', 4, 1) = False then
    begin
      ADOCmd.Connection.RollbackTrans;
      Application.MessageBox('ȡͼƬ<CDBC><C6AC>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
      Exit;
    end;
    with ADOCmd do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from Image_Info where 1=2');
      Open;
    end;
    with ADOCmd do
    begin
      Append;
      FieldByName('IMID').Value := Trim(MaxNo);
      FieldByName('WBID').Value := Trim(maxnoWB);
      FieldByName('ImageName').Value := Trim(ImagName);
      FieldByName('ImagePath').Value := Trim(MaxNo) + Trim(ImagName);
      FieldByName('ImageDate').Value := SGetServerDate(ADOQueryTemp);
      Fieldbyname('ImageType').value := Trim('YP');
      Fieldbyname('Valid').value := Trim('Y');
      Post;
    end;
    if GetLSNo(ADOCmd, MaxNoFile, 'IF', 'Image_File', 4, 1) = False then
    begin
      ADOCmd.Connection.RollbackTrans;
      Application.MessageBox('ȡͼƬ<CDBC>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
      Exit;
    end;
    with ADOCmd do
    begin
      close;
      sql.Clear;
      sql.Add(' select *  from Image_File where 1=2');
      open;
    end;
    with ADOCmd do
    begin
      Append;
      FieldByName('IMID').Value := Trim(MaxNo);
      FieldByName('IFID').Value := Trim(MaxNoFile);
      Fieldbyname('Valid').value := Trim('Y');
      FieldByName('ImageWidth').Value := Image12.Width;
      FieldByName('ImageHeight').Value := Image12.Height;
      FieldByName('FangXiang').Value := FangXiang1;
      FieldByName('IFType').Value := 'С';
      myStream := TADOBlobStream.Create(TBlobField(ADOCmd.FieldByName('ImageFile')), bmWrite);
      AJpeg.Assign(Image12.Picture.Graphic);
      AJpeg.SaveToStream(myStream);
      myStream.Free;
      Post;
    end;
    if lstPat.Count = 1 then
    begin
      try
        ReadINIFile10();
        server := ReadINIFileStr('SYSTEMSET.INI', 'SERVER', '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ', '127.0.0.1');
        IdFTP1.Host := server; //PicSvr;
        IdFTP1.Username := 'three';
        IdFTP1.Password := '641010';
        IdFTP1.Connect();
      except
        IdFTP1.Quit;
        Application.MessageBox('<27>޷<EFBFBD><DEB7><EFBFBD><EFBFBD>ӵ<EFBFBD><D3B5>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>飡', '<27><>ʾ', MB_ICONWARNING);
        Exit;
      end;
      if IdFTP1.Connected then
      begin
        IdFTP1.Put(lstPat[0], 'YP' + '\' + Trim(MaxNo) + Trim(ImagName));
      end;
      if IdFTP1.Connected then
        IdFTP1.Quit;
    end;
  except
    ADOCmd.Connection.RollbackTrans;
    Application.MessageBox('ͼƬ<CDBC><C6AC><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
  end;
end;

procedure TfrmMLManage_LRTJ2.SaveImage1(maxnoWB: string);
var
  ImagePath, ImagName, MaxNo, MaxNoFile: string;
  AJpeg: TJPEGImage;
  myStream: TADOBlobStream;
begin
  try
    ImagePath := Trim(maxnoWB);
    ImagName := Trim(maxnoWB);
    AJpeg := TJpegImage.Create();
    with ADOCmd do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from Image_Info ');
      sql.Add('where WBID=''' + trim(maxnoWB) + ''' and Valid=''Y''');
      //ShowMessage(sql.Text);
      Open;
    end;
    if ADOCmd.IsEmpty then
    begin
      if GetLSNo(ADOQueryTemp, MaxNo, 'IM', 'Image_Info', 4, 1) = False then
      begin
        ADOCmd.Connection.RollbackTrans;
        Application.MessageBox('ȡͼƬ<CDBC><C6AC>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
        Exit;
      end;
    end
    else
    begin
      MaxNo := Trim(ADOCmd.fieldbyname('IMID').AsString);
    end;
    with ADOCmd do
    begin
      if IsEmpty then
      begin
        Append;
        FieldByName('IMID').Value := Trim(MaxNo);
        FieldByName('WBID').Value := Trim(maxnoWB);
        FieldByName('TJML').Value := Trim(TJML.Text);
        FieldByName('ImageName').Value := Trim(ImagName);
        FieldByName('ImagePath').Value := Trim(MaxNo) + Trim(ImagName);
        FieldByName('ImageDate').Value := SGetServerDate(ADOQueryTemp);
        Fieldbyname('ImageType').value := Trim('TJ');
        Fieldbyname('Valid').value := Trim('Y');
        FieldByName('TJTPID').Value := Trim(maxnoWB);
      end
      else
        edit;
      FieldByName('CPID').Value := Trim(TJCPID.Text);
      FieldByName('TJHX').Value := Trim(TJNo.Text);
      FieldByName('TJCol').Value := Trim(TJCol.Text);
      FieldByName('TJColNo').Value := Trim(TJColNo.Text);
      FieldByName('TJHXType').Value := Trim(HXType.Text);
      FieldByName('TJMLNo').Value := Trim(MLXXNO.Text);
      FieldByName('TJGYName').Value := Trim(TJGYName.Text);
      FieldByName('TJPTID').Value := Trim(TJPTID.Text);
      FieldByName('TJCPID').Value := Trim(TJCPID.Text);
      FieldByName('TJNote').Value := Trim(TJNote.Text);
      Post;
    end;

    with ADOCmd do
    begin
      close;
      sql.Clear;
      sql.Add('select *  from Image_File ');
      sql.Add('where IMID=''' + trim(MaxNo) + ''' and Valid=''Y''');
      open;
    end;
    if ADOCmd.IsEmpty then
    begin
      if GetLSNo(ADOQuery1, MaxNoFile, 'IF', 'Image_File', 4, 1) = False then
      begin
        ADOCmd.Connection.RollbackTrans;
        Application.MessageBox('ȡͼƬ<CDBC>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
        Exit;
      end;
    end
    else
    begin
      MaxNoFile := Trim(ADOCmd.fieldbyname('IFID').AsString);
    end;
    with ADOCmd do
    begin
      if IsEmpty then
      begin
        Append;
        FieldByName('IMID').Value := Trim(MaxNo);
        FieldByName('IFID').Value := Trim(MaxNoFile);
        Fieldbyname('Valid').value := Trim('Y');
        FieldByName('ImageWidth').Value := Image11.Width;
        FieldByName('ImageHeight').Value := Image11.Height;
        FieldByName('FangXiang').Value := FangXiang1;
        FieldByName('IFType').Value := 'С';
      end
      else
        edit;
      FieldByName('CPID').Value := Trim(TJCPID.Text);
      myStream := TADOBlobStream.Create(TBlobField(ADOCmd.FieldByName('ImageFile')), bmWrite);
      AJpeg.Assign(Image11.Picture.Graphic);
      AJpeg.SaveToStream(myStream);
      myStream.Free;
      Post;
    end;
    if lstPat2.Count = 1 then
    begin
      try
        ReadINIFile10();
        server := ReadINIFileStr('SYSTEMSET.INI', 'SERVER', '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ', '127.0.0.1');
        IdFTP1.Host := server; //PicSvr;
        IdFTP1.Username := 'three';
        IdFTP1.Password := '641010';
        IdFTP1.Connect();
      except
        IdFTP1.Quit;
        Application.MessageBox('<27>޷<EFBFBD><DEB7><EFBFBD><EFBFBD>ӵ<EFBFBD><D3B5>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>飡', '<27><>ʾ', MB_ICONWARNING);
        Exit;
      end;
      if IdFTP1.Connected then
      begin
        IdFTP1.Put(lstPat2[0], 'TJ' + '\' + Trim(MaxNo) + Trim(ImagName));
      end;
      if IdFTP1.Connected then
        IdFTP1.Quit;
    end;
  except
    ADOCmd.Connection.RollbackTrans;
    Application.MessageBox('ͼƬ<CDBC><C6AC><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
  end;
end;

procedure TfrmMLManage_LRTJ2.FormShow(Sender: TObject);
var
  fsj: string;
begin
  InitSubGrid();
  if formid = '1' then
  begin
    ColYC();
  end;
  initFY();
  if formid = '3' then
  begin
    Image11.Picture := nil;
    Image2.Picture := nil;
  end
  else
    initimageSH();
  InitColor();
  InitColor1();
  {if TJTPID.Text<>'' then
  ShowImage();}
  if MLTPID.Text <> '' then
    ShowImage1();
  if formid = '2' then
  begin
    ColYC();
    panel9.Enabled := true;
    MLCF.Enabled := False;
    MLMF.Enabled := False;
    MLKZ.Enabled := False;
    HXType.Enabled := false;
    TJGYName.Color := clWindow;
    FCYID := '';
  end;
  if DParameters1 <> '<27><>Ȩ<EFBFBD><C8A8>' then
  begin
    Button7.Visible := false;
  end
  else
  begin
    Button7.Visible := true;
  end;
  if formid = '3' then
  begin
    FCYID := '';
    TJML.Text := '';
    TJNo.Text := '';
  end;
  TSave.Caption := '<27><><EFBFBD><EFBFBD>';
end;

function TfrmMLManage_LRTJ2.SaveData(): Boolean;
var
  maxId, maxno, FXDID, FTJNo: string;
  i, j, c: Integer;
begin
  try
    ADOQueryCmd.Connection.BeginTrans;
    if FCYID = '' then
    begin
      if GetLSNo(ADOQueryCmd, maxno, 'ML', 'ML_Manage', 3, 1) = False then
      begin
        ADOQueryCmd.Connection.RollbackTrans;
        Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
        Exit;
      end;
      if PatFile <> '' then
      begin
        if GetLSNo(ADOQueryCmd, FXDID, 'YT', 'XD_File', 4, 1) = False then
        begin
          ADOQueryCmd.Connection.RollbackTrans;
          Application.MessageBox('ȡͼƬ<CDBC><C6AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
          Exit;
        end;
      end;
    end
    else
    begin
      maxno := Trim(FCYID);
    end;
    with ADOQueryCmd do
    begin
      Close;
      sql.Clear;
      SQL.Add('select * from ML_Manage where TJML=''' + Trim(TJML.Text) + '''');
      sql.Add(' and TJGYName=''' + trim(TJGYName.Text) + '''');
      Open;
    end;
    with ADOQueryCmd do
    begin
      if isempty then
      begin
        Append;
        fieldbyname('GYType').Value := Trim(FGYName);
        FieldByName('GYTypeJC').Value := Trim(FML);
        FieldByName('TJNo').Value := Trim(FTJNo);
      end
      else
      begin
        Edit;
      end;
      FieldByName('MLID').Value := Trim(maxno);
      FieldByName('MBPID').Value := Trim(FBPID);
      FieldByName('MLType').Value := '<27>̽<EFBFBD><CCBD><EFBFBD><EFBFBD><EFBFBD>';
      FieldByName('GSNo').Value := Trim(GSNo.Caption);
      FieldByName('GYName').Value := Trim(GYName.Caption);
      FieldByName('MLNo').Value := Trim(MLNo.Text);
      RTSetsavedata(ADOQueryCmd, 'ML_Manage', panel1, 2);
      RTSetsavedata(ADOQueryCmd, 'ML_Manage', panel9, 2);
      RTSetsavedata(ADOQueryCmd, 'ML_Manage', panel39, 2);
      FieldByName('PTID').Value := Trim(PTID.Text);
      FieldByName('TJPTID').Value := Trim(TJPTID.Text);
      FieldByName('MLTPID').Value := Trim(MLTPID.Text);
      FieldByName('TJTPID').Value := Trim(TJTPID.Text);
      FieldByName('MLDLNo').Value := Trim(FSKID);
      FieldByName('TJColID').Value := Trim(FTJCoNo);
      FieldByName('CPID').Value := Trim(FCPID);
      FieldByName('TJGYName').Value := Trim(TJGYName.Text);
      FieldByName('HXType').Value := Trim(HXType.Text);
      Post;
    end;
    FCYID := Trim(maxno);
    with ADOQueryCmd do
    begin
      Close;
      sql.Clear;
      SQL.Add('select * from ML_Manage where TJML=''' + Trim(TJML.Text) + '''');
      sql.Add(' and TJGYName=''' + trim(TJGYName.Text) + '''');
      Open;
    end;
    if ADOQueryCmd.RecordCount > 1 then
    begin
      ADOQueryCmd.Connection.RollbackTrans;
      application.MessageBox('<27>̽<EFBFBD><CCBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD>', '<27><>ʾ');
      exit;
    end;
    with ScrollBox2 do
    begin
      for j := 0 to ControlCount - 1 do
      begin
        if Controls[j] is TfrmSLT_TJ_SX then
        begin
          with TfrmSLT_TJ_SX(Controls[j]) do
          begin
            for c := 0 to ControlCount - 1 do
            begin
              if Controls[c] is TMemo then
              begin
                if TMemo(Controls[c]).Text <> '' then
                begin
                  with ADOQueryTemp do
                  begin
                    close;
                    sql.Clear;
                    sql.Add('update Image_Info set TJGYName=''' + trim(TJGYName.Text) + ''' ');
                    sql.Add('where IMID=''' + trim(FIMID) + '''');
                    execsql;
                  end;
                end;
              end;
            end;
          end;
        end;
      end;
    end;
    if MLTPID.Text <> '' then
    begin
      if lstPat.Count = 1 then
      begin
        SaveImage(Trim(MLTPID.Text));
      end;
    end;
    ADOQueryCmd.Connection.CommitTrans;
    Result := True;
  except
    ;
    Result := True;
    ADOQueryCmd.Connection.RollbackTrans;
    Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
  end;
end;

procedure TfrmMLManage_LRTJ2.BHCZhu();
var
  FBH, FCP, FLX, FLL: string;
  FBHName, FLXName, FLLName: string;
begin
  CDS_Sub.DisableControls;
  with CDS_Sub do
  begin
    First;
    while not eof do
    begin
      FBH := FBH + trim(CDS_Sub.fieldbyname('BPCode').AsString);
      FBHName := FBHName + trim(CDS_Sub.fieldbyname('BPName').AsString);
      Next;
    end;
  end;
  CDS_Sub.EnableControls;
  FCP := FML + FBH;
  Order_GX.DisableControls;
  with Order_GX do
  begin
    First;
    while not eof do
    begin
      FLL := FLL + trim(Order_GX.fieldbyname('GYCode').AsString);
      FLLName := FLLName + trim(Order_GX.fieldbyname('GYName').AsString);
      if FLX = '' then
        FLX := trim(Order_GX.fieldbyname('GYCode').AsString)
      else
        FLX := FLX + '+' + trim(Order_GX.fieldbyname('GYCode').AsString);
      if FLXName = '' then
        FLXName := trim(Order_GX.fieldbyname('GYName').AsString)
      else
        FLXName := FLXName + '+' + trim(Order_GX.fieldbyname('GYName').AsString);
      Next;
    end;
  end;
  Order_GX.EnableControls;
  GSNo.Caption := FBH + Trim(FLL);
  GYName.Caption := FBHName + Trim(FLLName);
  MLNo.Text := Trim(FCP);
end;

procedure TfrmMLManage_LRTJ2.imagePL(FFF: Integer);
begin

end;

procedure TfrmMLManage_LRTJ2.CreThumb(AJPeg: TJPEGImage; Image1: TImage; Width, Height: Integer);
var
  Bitmap: TBitmap;
  Ratio: Double;
  ARect: TRect;
  AHeight, AHeightOffset: Integer;
  AWidth, AWidthOffset: Integer;
begin
  Bitmap := TBitmap.Create;
  try
    Ratio := AJPeg.Width / AJPeg.Height;
    if Ratio > 1.333 then
    begin
      AHeight := Round(Width / Ratio);
      AHeightOffset := (Height - AHeight) div 2;
      AWidth := Width;
      AWidthOffset := 0;
    end
    else
    begin
      AWidth := Round(Height * Ratio);
      AWidthOffset := (Width - AWidth) div 2;
      AHeight := Height;
      AHeightOffset := 0;
    end;
    Bitmap.Width := Width;
    Bitmap.Height := Height;
    Bitmap.Canvas.Brush.Color := clBtnFace;
    Bitmap.Canvas.FillRect(Rect(0, 0, Width, Height));
    ARect := Rect(AWidthOffset, AHeightOffset, AWidth + AWidthOffset, AHeight + AHeightOffset);
    Bitmap.Canvas.StretchDraw(ARect, AJPeg);
    Image1.Picture.Assign(Bitmap);
  finally
    Bitmap.Free;
  end;
end;

procedure TfrmMLManage_LRTJ2.MLNameChange(Sender: TObject);
begin
  if Trim(FCYID) <> '' then
  begin
    TSave.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
  end;
end;

procedure TfrmMLManage_LRTJ2.MLMFChange(Sender: TObject);
begin
  if Trim(FCYID) <> '' then
  begin
    TSave.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
  end;
end;

procedure TfrmMLManage_LRTJ2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Finalize(Mach1);
  Finalize(Mach);
end;

procedure TfrmMLManage_LRTJ2.N1Click(Sender: TObject);
var
  i: Integer;
begin
  //ShowMessage(FPT);
  FrmBPZdy_YT := TFrmBPZdy_YT.create(Self);
  with FrmBPZdy_YT do
  begin
    Panel1.Color := StrToInt('$' + OrdBP_SH.fieldbyname('ColDaiMa').Value);
    Label1.Caption := Trim(OrdBP_SH.fieldbyname('PTID').AsString);
    Label2.Caption := Trim(OrdBP_SH.fieldbyname('ColNameEng').AsString);
    Label3.Caption := Trim(OrdBP_SH.fieldbyname('ColName').AsString);
    Label4.Caption := Trim(OrdBP_SH.fieldbyname('ColNameKH').AsString);
    Label5.Visible := true;
    Label5.Caption := Trim(OrdBP_SH.fieldbyname('ColNo').AsString);
    if showmodal = 1 then
    begin

    end;
    free;
  end;
end;

procedure TfrmMLManage_LRTJ2.FormCreate(Sender: TObject);
begin
  lstPat := TStringList.Create;
  lstPat2 := TStringList.Create;
end;

procedure TfrmMLManage_LRTJ2.MenuItem1Click(Sender: TObject);
var
  i: Integer;
begin
  FrmBPZdy_YT := TFrmBPZdy_YT.create(Self);
  with FrmBPZdy_YT do
  begin
    Panel1.Color := StrToInt('$' + Ord_ZB.fieldbyname('ColDaiMa').Value);
    Label1.Caption := Trim(Ord_ZB.fieldbyname('PTID').AsString);
    Label2.Caption := Trim(Ord_ZB.fieldbyname('ColNameEng').AsString);
    Label3.Caption := Trim(Ord_ZB.fieldbyname('ColName').AsString);
    Label4.Caption := Trim(Ord_ZB.fieldbyname('ColNameKH').AsString);
    Label5.Visible := true;
    Label5.Caption := Trim(Ord_ZB.fieldbyname('ColNo').AsString);
    if showmodal = 1 then
    begin

    end;
    free;
  end;
end;

procedure TfrmMLManage_LRTJ2.ToSelPBClick(Sender: TObject);
begin
  if CDS_Sub.IsEmpty = false then
  begin
    CDS_Sub.Delete;
    //Application.MessageBox('<27>Ѵ<EFBFBD><D1B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ','<27><>ʾ');
   // exit;
  end;

end;

procedure TfrmMLManage_LRTJ2.ToolButton10Click(Sender: TObject);
begin
  if CDS_Sub.IsEmpty = false then
  begin
    CDS_Sub.Delete;
  end;
end;

procedure TfrmMLManage_LRTJ2.TSaveClick(Sender: TObject);
var
  FBH, FTJNo: string;
begin
  if Trim(MLName.Text) = '' then
  begin
    Application.MessageBox('Ʒ<><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
    Exit;
  end;
  if Trim(MLXXGYName.Text) = '' then
  begin
    Application.MessageBox('<27><><EFBFBD>ղ<EFBFBD><D5B2><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
    Exit;
  end;
  if trim(TJGYName.Text) = '' then
  begin
    Application.MessageBox('<27>̽<EFBFBD><CCBD><EFBFBD><EFBFBD>ղ<EFBFBD><D5B2><EFBFBD>Ϊ<EFBFBD><CEAA>', '<27><>ʾ');
    exit;
  end;
  if TJML.Text = '' then
  begin
    if GetLSNo(ADOQueryCmd, FTJNo, 'TG', 'ML_Manage', 4, 0) = False then
    begin
      Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
      Exit;
    end;
    TJNo.Text := Trim(FTJNo) + '-1';
    TJML.Text := Trim(FTJNo);
  end;
  if SaveData() then
  begin
    Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ', 0);
    Finalize(Mach1);
    Finalize(Mach);
    ModalResult := 1;
  end;
end;

procedure TfrmMLManage_LRTJ2.ADOClick(Sender: TObject);
begin
  try
    frmRTPTColor := TfrmRTPTColor.Create(Application);
    with frmRTPTColor do
    begin
      if ShowModal = 1 then
      begin
        Self.TJPTID.Text := Trim(frmRTPTColor.FPTID);
        Self.TJColNo.Text := Trim(frmRTPTColor.FColName);
        Self.TJCol.Text := Trim(frmRTPTColor.FColNameKH);
      end;
    end;
  finally
    frmRTPTColor.Free;
  end;
  if Trim(TJPTID.Text) <> '' then
  begin
    InitColor1();
  end;
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    sql.Add('delete from Image_File where ');
    sql.Add('IMID in (select IMID from Image_Info where WBID=''' + Trim(TJTPID.Text) + ''' and Valid=''Y'')');
    sql.Add('delete from Image_Info ');
    sql.Add(' where WBID=''' + Trim(TJTPID.Text) + ''' and Valid=''Y''');
    ExecSQL;
  end;
  TJTPID.Text := '';
  ShowImage();
end;

procedure TfrmMLManage_LRTJ2.N4Click(Sender: TObject);
var
  AJpeg: TJPEGImage;
  Bitmap, Bitmap11: TBitmap;
  ARect, ARect11: TRect;
  TPHeight, AHeightOffset: Integer;
  TPWidth, AWidthOffset: Integer;
  WZShuiPing, WZChuiZhi: Integer;
  WZFlag: string;
  FHFStr: string;
begin
  lstPat2.Clear;
  if ODPat.Execute then
  begin
    lstPat2.AddStrings(ODPat.Files);
  end
  else
  begin
    Exit;
  end;
  if lstPat2.Count > 1 then
  begin
    lstPat2.Clear;
    Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD><CFB4><EFBFBD><EFBFBD><EFBFBD>ͼƬ!', '<27><>ʾ', 0);
    Exit;
  end
  else if lstPat2.Count < 1 then
  begin
    Exit;
  end;
  AJpeg := TJpegImage.Create();
  AJpeg.LoadFromFile(ExtractFileName(ODPat.FileName));
  Image2.Hint := ExtractFileName(ODPat.FileName);
  if TJTPID.Text = '' then
    TJTPID.Text := FormatDateTime('yyMMddhhmmss', now);
  FileName := Trim(ExtractFileName(ODPat.FileName));
  TPWidth := AJpeg.Width;
  TPHeight := AJpeg.Height;
  Bitmap := TBitmap.Create;
  Bitmap11 := TBitmap.Create;
  Bitmap.Width := Panel10.Width - 2;
  Bitmap.Height := Round(Panel10.Width / TPWidth * TPHeight);
  if Bitmap.Height > Panel10.Height then
  begin
    WZFlag := '<27><>ֱ';
    Bitmap.Height := Panel10.Height - 2;
    Bitmap.Width := Round(Panel10.Height / TPHeight * TPWidth);
  end;
  Bitmap11.Width := Bitmap.Width * 2;
  Bitmap11.Height := Bitmap.Height * 2;
  Bitmap.Canvas.FillRect(Rect(0, 0, Bitmap.Width, Bitmap.Height));
  ARect := Rect(0, 0, Bitmap.Width, Bitmap.Height);
  Bitmap.Canvas.StretchDraw(ARect, AJpeg);
  Image2.Height := Bitmap.Height;
  Image2.Width := Bitmap.Width;
  Image2.Picture.Assign(Bitmap);
  if Trim(WZFlag) = '<27><>ֱ' then
  begin
    Image2.Top := 1;
    Image2.Left := Round((Panel10.Width - Image2.Width) / 2);
  end
  else
  begin
    Image2.Left := 1;
    Image2.Top := Round((Panel10.Height - Image2.Height) / 2);
  end;
  FangXiang1 := WZFlag;
  Image2.Visible := True;
  Bitmap11.Canvas.FillRect(Rect(0, 0, Bitmap11.Width, Bitmap11.Height));
  ARect11 := Rect(0, 0, Bitmap11.Width, Bitmap11.Height);
  Bitmap11.Canvas.StretchDraw(ARect11, AJpeg);
  Image11.Height := Bitmap11.Height;
  Image11.Width := Bitmap11.Width;
  Image11.Picture.Assign(Bitmap11);
  TJPTID.Text := '';
  Panel10.Color := clBtnFace;
end;

procedure TfrmMLManage_LRTJ2.HXTypeBtnClick(Sender: TObject);
begin
  frmSCPerson := TfrmSCPerson.Create(Application);
  with frmSCPerson do
  begin
    FlagStr := 'HXZDYType';
    if ShowModal = 1 then
    begin
      HXType.Text := Trim(FSDPerson);
      TJCPID.Text := 'CP1910290001';
    end;
    free;
  end;
end;

procedure TfrmMLManage_LRTJ2.TJGYNameBtnClick(Sender: TObject);
var
  FGYName, FGYNo: string;
begin

end;

procedure TfrmMLManage_LRTJ2.N5Click(Sender: TObject);
var
  AJpeg: TJPEGImage;
  Bitmap, Bitmap11: TBitmap;
  ARect, ARect11: TRect;
  TPHeight, AHeightOffset: Integer;
  TPWidth, AWidthOffset: Integer;
  WZShuiPing, WZChuiZhi: Integer;
  WZFlag: string;
  FHFStr: string;
begin
  lstPat.Clear;
  if ODPat.Execute then
  begin
    lstPat.AddStrings(ODPat.Files);
  end
  else
  begin
    Exit;
  end;
  if lstPat.Count > 1 then
  begin
    lstPat.Clear;
    Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD><CFB4><EFBFBD><EFBFBD><EFBFBD>ͼƬ!', '<27><>ʾ', 0);
    Exit;
  end
  else if lstPat.Count < 1 then
  begin
    Exit;
  end;
  AJpeg := TJpegImage.Create();
  AJpeg.LoadFromFile(ExtractFileName(ODPat.FileName));
  Image1.Hint := ExtractFileName(ODPat.FileName);
  MLTPID.Text := FormatDateTime('yyMMddhhmmss', now);
  FileName1 := Trim(ExtractFileName(ODPat.FileName));
  TPWidth := AJpeg.Width;
  TPHeight := AJpeg.Height;
  Bitmap := TBitmap.Create;
  Bitmap11 := TBitmap.Create;
  Bitmap.Width := Panel42.Width - 2;
  Bitmap.Height := Round(Panel42.Width / TPWidth * TPHeight);
  if Bitmap.Height > Panel42.Height then
  begin
    WZFlag := '<27><>ֱ';
    Bitmap.Height := Panel42.Height - 2;
    Bitmap.Width := Round(Panel42.Height / TPHeight * TPWidth);
  end;
  Bitmap11.Width := Bitmap.Width * 2;
  Bitmap11.Height := Bitmap.Height * 2;
  Bitmap.Canvas.FillRect(Rect(0, 0, Bitmap.Width, Bitmap.Height));
  ARect := Rect(0, 0, Bitmap.Width, Bitmap.Height);
  Bitmap.Canvas.StretchDraw(ARect, AJpeg);
  Image1.Height := Bitmap.Height;
  Image1.Width := Bitmap.Width;
  Image1.Picture.Assign(Bitmap);
  if Trim(WZFlag) = '<27><>ֱ' then
  begin
    Image1.Top := 1;
    Image1.Left := Round((Panel42.Width - Image1.Width) / 2);
  end
  else
  begin
    Image1.Left := 1;
    Image1.Top := Round((Panel42.Height - Image1.Height) / 2);
  end;
  FangXiang2 := WZFlag;
  Image1.Visible := True;
  Bitmap11.Canvas.FillRect(Rect(0, 0, Bitmap11.Width, Bitmap11.Height));
  ARect11 := Rect(0, 0, Bitmap11.Width, Bitmap11.Height);
  Bitmap11.Canvas.StretchDraw(ARect11, AJpeg);
  Image12.Height := Bitmap11.Height;
  Image12.Width := Bitmap11.Width;
  Image12.Picture.Assign(Bitmap11);
  PTID.Text := '';
  Panel42.Color := clBtnFace;
  MLXXCol.Text := '';
  MLXXColNo.Text := '';
  Button1.Visible := true;
end;

procedure TfrmMLManage_LRTJ2.Image12DblClick(Sender: TObject);
var
  IdFTP1: TIdFTP;
  FPath, FFName: string;
  FInt: integer;
  maxno: string;
  j, i: Integer;
  fPrintFile, fFileName: string;
begin
  if Application.MessageBox('ԭͼ<D4AD><CDBC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ҫ<EFBFBD>ȴ<EFBFBD>ʱ<EFBFBD>䣬ȷ<E4A3AC><C8B7>Ҫ<EFBFBD>鿴ԭͼ<D4AD><CDBC><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
    Exit;
  try
    ReadINIFile10();
    server := ReadINIFileStr('SYSTEMSET.INI', 'SERVER', '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ', '127.0.0.1');
    IdFTP1 := TIdFTP.Create(self);
    IdFTP1.Host := server;
    IdFTP1.Username := 'three';
    IdFTP1.Password := '641010';
    IdFTP1.Connect();
  except
    IdFTP1.Quit;
    IdFTP1.Free;
    Application.MessageBox('<27>޷<EFBFBD><DEB7><EFBFBD><EFBFBD>ӵ<EFBFBD><D3B5>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>飡', '<27><>ʾ', MB_ICONWARNING);
    Exit;
  end;
  Panel16.Visible := true;
  Panel16.Refresh;
  fPrintFile := ExtractFilePath(Application.ExeName) + 'Photo\';
  if not DirectoryExists(ExtractFileDir(fPrintFile)) then
    CreateDir(ExtractFileDir(fPrintFile));
  FFName := Trim(FileName);
  FFName := fPrintFile + FFName + '.jpg';
  if not FileExists(FFName) then
  begin
    IdFTP1.Get('YP\' + FileName, FFName);
  end;
  if IdFTP1.Connected then
  begin
    IdFTP1.Quit;
    IdFTP1.Free;
  end;
  Panel16.Visible := false;
  ShellExecute(Handle, 'open', PChar(FFName), '', '', SW_SHOWNORMAL);
end;

procedure TfrmMLManage_LRTJ2.Image11DblClick(Sender: TObject);
var
  IdFTP1: TIdFTP;
  FPath, FFName: string;
  FInt: integer;
  maxno: string;
  j, i: Integer;
  fPrintFile, fFileName: string;
begin
  if Application.MessageBox('ԭͼ<D4AD><CDBC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ҫ<EFBFBD>ȴ<EFBFBD>ʱ<EFBFBD>䣬ȷ<E4A3AC><C8B7>Ҫ<EFBFBD>鿴ԭͼ<D4AD><CDBC><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
    Exit;
  try
    ReadINIFile10();
    server := ReadINIFileStr('SYSTEMSET.INI', 'SERVER', '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ', '127.0.0.1');
    IdFTP1 := TIdFTP.Create(self);
    IdFTP1.Host := server;
    IdFTP1.Username := 'three';
    IdFTP1.Password := '641010';
    IdFTP1.Connect();
  except
    IdFTP1.Quit;
    IdFTP1.Free;
    Application.MessageBox('<27>޷<EFBFBD><DEB7><EFBFBD><EFBFBD>ӵ<EFBFBD><D3B5>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>飡', '<27><>ʾ', MB_ICONWARNING);
    Exit;
  end;
  Panel16.Visible := true;
  Panel16.Refresh;
  fPrintFile := ExtractFilePath(Application.ExeName) + 'Photo\';
  if not DirectoryExists(ExtractFileDir(fPrintFile)) then
    CreateDir(ExtractFileDir(fPrintFile));
  FFName := Trim(FileName1);
  FFName := fPrintFile + FFName + '.jpg';
  if not FileExists(FFName) then
  begin
    IdFTP1.Get('TJ\' + FileName1, FFName);
  end;
  if IdFTP1.Connected then
  begin
    IdFTP1.Quit;
    IdFTP1.Free;
  end;
  Panel16.Visible := false;
  ShellExecute(Handle, 'open', PChar(FFName), '', '', SW_SHOWNORMAL);
end;

procedure TfrmMLManage_LRTJ2.MLCFBtnClick(Sender: TObject);
begin
  frmZDYHelp := TfrmZDYHelp.create(self);
  with frmZDYHelp do
  begin
    flag := 'MLCF';
    flagname := '<27>ɷ<EFBFBD>';
    if showmodal = 1 then
    begin
      MLCF.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
    end;
    free;
  end;
end;

procedure TfrmMLManage_LRTJ2.MLMFBtnClick(Sender: TObject);
begin
  frmZDYHelp := TfrmZDYHelp.create(self);
  with frmZDYHelp do
  begin
    flag := 'MLMF';
    flagname := '<27>ŷ<EFBFBD>';
    if showmodal = 1 then
    begin
      MLMF.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
    end;
    free;
  end;
end;

procedure TfrmMLManage_LRTJ2.Button1Click(Sender: TObject);
begin
  frmZDYHelp := TfrmZDYHelp.create(self);
  with frmZDYHelp do
  begin
    flag := 'MLXXCol';
    flagname := '<27><>ɫ';
    if showmodal = 1 then
    begin
      MLXXCol.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
    end;
    free;
  end;
end;

procedure TfrmMLManage_LRTJ2.BTLPClick(Sender: TObject);
begin
  if my <= 1 then
    exit;
  my := my - 1;
  LBCPAP.Caption := IntToStr(my) + '/' + inttostr(mz);
  initimageSH();
end;

procedure TfrmMLManage_LRTJ2.BTNPClick(Sender: TObject);
begin
  if my >= mz then
    exit;
  my := my + 1;
  LBCPAP.Caption := IntToStr(my) + '/' + inttostr(mz);
  initimageSH();
end;

procedure TfrmMLManage_LRTJ2.ColYC();
begin
  Panel6.Visible := false;
  MLXXNO.Enabled := False;
  MLXXName.Enabled := false;
  MLXXNO.Color := clScrollBar;
  MLXXName.Color := clScrollBar;
  Panel9.Enabled := false;
  MLCF.Color := clScrollBar;
  MLMF.Color := clScrollBar;
  MLKZ.Color := clScrollBar;
  Panel39.Enabled := false;
  Button1.Visible := false;
  MLXXCol.Color := clScrollBar;
  MLXXColNo.Color := clScrollBar;
  MLXXMF.Color := clScrollBar;
  MLXXKZ.Color := clScrollBar;
  MLXXGYName.Color := clScrollBar;
  MLXXNote.Color := clScrollBar;
  HXType.Color := clScrollBar;
  TJGYName.Color := clScrollBar;
  TJNote.Color := clScrollBar;
end;

procedure TfrmMLManage_LRTJ2.Button2Click(Sender: TObject);
var
  FTJNo: string;
begin
  if HXType.Text = '' then
  begin
    Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ͳ<EFBFBD><CDB2><EFBFBD>Ϊ<EFBFBD><CEAA>', '<27><>ʾ');
    exit;
  end;
  if TJGYName.Text = '' then
  begin
    Application.MessageBox('<27>̽<EFBFBD><CCBD><EFBFBD><EFBFBD>ղ<EFBFBD><D5B2><EFBFBD>Ϊ<EFBFBD><CEAA>', '<27><>ʾ');
    exit;
  end;
  if TJTPID.Text = '' then
  begin
    Application.MessageBox('ͼƬ<CDBC><C6AC><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>', '<27><>ʾ');
    exit;
  end;
  if Trim(MLName.Text) = '' then
  begin
    Application.MessageBox('Ʒ<><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
    Exit;
  end;
  if Trim(MLXXGYName.Text) = '' then
  begin
    Application.MessageBox('<27><><EFBFBD>ղ<EFBFBD><D5B2><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
    Exit;
  end;
  if TJML.Text = '' then
  begin
    if GetLSNo(ADOQueryCmd, FTJNo, 'TG', 'ML_Manage', 4, 0) = False then
    begin
      Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
      Exit;
    end;
    TJNo.Text := Trim(FTJNo) + '-1';
    TJML.Text := Trim(FTJNo);
    SaveData();
  end
  else
  begin
    if TJNo.Text = '' then
      TJNo.Text := Trim(TJML.Text) + '-1';
  end;
  if TJTPID.Text <> '' then
  begin
    if lstPat2.Count = 1 then
    begin
      SaveImage1(Trim(TJTPID.Text));
      initimageSH();
      TJTPID.Text := '';
      ColYC();
    end;
  end;
  Panel7.Visible := True;
end;

procedure TfrmMLManage_LRTJ2.Button3Click(Sender: TObject);
begin
  SClearData(Panel6, 2);
  Panel6.Visible := False;
  Panel7.Visible := True;
end;

procedure TfrmMLManage_LRTJ2.N3Click(Sender: TObject);
begin
  try
    frmRTPTColor := TfrmRTPTColor.Create(Application);
    with frmRTPTColor do
    begin
      if ShowModal = 1 then
      begin
        Self.PTID.Text := Trim(frmRTPTColor.FPTID);
        Self.MLXXCol.Text := Trim(frmRTPTColor.FColNameKH);
        Self.MLXXColNo.Text := Trim(frmRTPTColor.FColName);
      end;
    end;
  finally
    frmRTPTColor.Free;
  end;
  if Trim(PTID.Text) <> '' then
  begin
    InitColor();
  end;
end;

procedure TfrmMLManage_LRTJ2.Button4Click(Sender: TObject);
begin
  if Trim(MLMF.Text) = '' then
  begin
    Application.MessageBox('<27>ŷ<EFBFBD><C5B7><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
    Exit;
  end;
  if Trim(MLKZ.Text) = '' then
  begin
    Application.MessageBox('<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
    Exit;
  end;
  if MLXXNO.Text = '' then
  begin
    Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>', '<27><>ʾ');
    exit;
  end;
  SClearData(Panel6, 2);
  TJTPID.Text := '';
  Panel6.Visible := true;
  Image11.Picture := nil;
  Image2.Picture := nil;
  Panel7.Visible := false;
end;

procedure TfrmMLManage_LRTJ2.Button5Click(Sender: TObject);
begin
  frmZDYHelp := TfrmZDYHelp.create(self);
  with frmZDYHelp do
  begin
    flag := 'MLKZ';
    flagname := '<27><><EFBFBD><EFBFBD>';
    if showmodal = 1 then
    begin
      MLKZ.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
    end;
    free;
  end;
end;

procedure TfrmMLManage_LRTJ2.MLXXNameChange(Sender: TObject);
begin
  //MLName.Text:=MLXXName.Text+'<27>̽<EFBFBD>';
end;

procedure TfrmMLManage_LRTJ2.Button7Click(Sender: TObject);
begin
  if application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼƬ<CDBC><C6AC>', '<27><>ʾ', 1) = 2 then
    Exit;
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    sql.Add('delete from Image_File where ');
    sql.Add('IMID in (select IMID from Image_Info where TJML=''' + Trim(TJML.Text) + ''' and Valid=''Y'')');
    sql.Add('delete from Image_Info ');
    sql.Add(' where TJML=''' + Trim(TJML.Text) + ''' and Valid=''Y''');
    ExecSQL;
  end;
  Application.MessageBox('ɾ<><C9BE><EFBFBD>ɹ<EFBFBD>', '<27><>ʾ');
  TJTPID.Text := '';
  initimageSH();
end;

end.