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

unit U_ZHCPBigTP;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
  cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
  cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
  cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
  StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
  cxDropDownEdit, jpeg, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdFTP, cxPC, cxGridCustomPopupMenu, cxGridPopupMenu, cxGroupBox,
  cxCheckBox, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport,
  IniFiles, ShellAPI;

type
  TfrmZHCPBigTP = class(TForm)
    ToolBar1: TToolBar;
    TBClose: TToolButton;
    ADOTemp: TADOQuery;
    ADOCmd: TADOQuery;
    ADOQuery1: TADOQuery;
    Label26: TLabel;
    CDS_Print: TClientDataSet;
    RM1: TRMGridReport;
    Panel3: TPanel;
    Panel6: TPanel;
    ODPat: TOpenDialog;
    Image1: TImage;
    IdFTP1: TIdFTP;
    SaveDialog1: TSaveDialog;
    adoqueryPicture: TADOQuery;
    Panel16: TPanel;
    procedure TBCloseClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Image1DblClick(Sender: TObject);
  private
    procedure InitData();
    procedure ReadINIFile10();
    { Private declarations }
  public
    FMainId, FIMNO, FileName: string;
    { Public declarations }
  end;

var
  frmZHCPBigTP: TfrmZHCPBigTP;

implementation

uses
  U_DataLink, U_ZDYHelp, U_RTFun;

{$R *.dfm}

procedure TfrmZHCPBigTP.TBCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmZHCPBigTP.InitData();
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(FMainId) + '''');
    if Trim(FIMNO) <> '' then
      sql.Add(' and isnull(A.IMNo,''ͼƬ'')=''' + Trim(FIMNO) + '''and A.Valid=''Y'' and B.IFType=''<27><>'' and B.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);
    Image1.Picture.Assign(jpg);
    Image1.Width := adoqueryPicture.fieldbyname('ImageWidth').Value;
    Image1.Height := adoqueryPicture.fieldbyname('ImageHeight').Value;
    if Trim(adoqueryPicture.fieldbyname('FangXiang').AsString) = '<27><>ֱ' then
    begin
      Image1.Top := 1;
      Image1.Left := Round((Panel6.Width - Image1.Width) / 2);
    end
    else
    begin
      Image1.Left := 1;
      Image1.Top := Round((Panel6.Height - Image1.Height) / 2);
    end;
    Image1.Visible := True;
  end;
  if Image1.Width > Self.Width then
  begin
    Self.Width := Image1.Width + 25;
  end;
end;

procedure TfrmZHCPBigTP.FormShow(Sender: TObject);
begin
  InitData();
end;

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

procedure TfrmZHCPBigTP.Image1DblClick(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;
  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;

end.