1946 lines
53 KiB
ObjectPascal
1946 lines
53 KiB
ObjectPascal
unit U_MLManage_XHLR1;
|
||
|
||
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_YH_SX,
|
||
IdComponent, IdTCPConnection, IdTCPClient, IdFTP,IniFiles,ShellAPI;
|
||
|
||
type
|
||
TfrmMLManage_XHLR1 = 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;
|
||
N6: TMenuItem;
|
||
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 N2Click(Sender: TObject);
|
||
procedure TSaveClick(Sender: TObject);
|
||
procedure ADOClick(Sender: TObject);
|
||
procedure N4Click(Sender: TObject);
|
||
procedure HXTypeBtnClick(Sender: TObject);
|
||
procedure TJColBtnClick(Sender: TObject);
|
||
procedure TJGYNameBtnClick(Sender: TObject);
|
||
procedure MLXXGYNameBtnClick(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 Button6Click(Sender: TObject);
|
||
procedure Button7Click(Sender: TObject);
|
||
procedure N6Click(Sender: TObject);
|
||
private
|
||
lstPat,lstPat2: TStringList;
|
||
Fint,my,mz:Integer;
|
||
FangXiang1,FangXiang2:String;
|
||
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
|
||
FCYID,FCYCode,FCPID,FCPNO,FBPID,FGYName,FML,FGYLX,FGSNo,FHXBPID,FGSName,FSKID,FBPIDSH,formid:String;
|
||
FGYLXName,PatFile,FTJCoNo,FPTID,FileName,FileName1:string;
|
||
//viewFlag:Boolean;
|
||
procedure initimageSH();
|
||
procedure imagePL(FFF:Integer);
|
||
procedure ShowImage();
|
||
procedure SaveImage1(maxnoWB:string);
|
||
{ Public declarations }
|
||
end;
|
||
|
||
var
|
||
frmMLManage_XHLR1: TfrmMLManage_XHLR1;
|
||
Mach1: array of TfrmSLT_YH_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_RSSel,
|
||
U_BPZdy_PanelCX, U_BPZdy_YT,U_BPZdy_Panel,U_BPZdy_LRTJ,U_FileUp_TPSH,U_MLMangeRS_Sel,U_BPZdy_Panel_M,U_BPZdy_LRTJ1,
|
||
U_BPZdy_TJHXK_M3_Sel,U_MLManage_LRRS,U_ZDYHelp,U_MLManage_LRRS_Col,U_RTPTColor,U_ZDYHelp_Col,U_HXKTJ_Type,
|
||
U_SCPerson,U_BPZdy_ColTJ,U_BPZdy_LRYH,U_ZHCPList_BJCX, U_BPZdy_LRXH;
|
||
|
||
{$R *.dfm}
|
||
|
||
procedure TfrmMLManage_XHLR1.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_XHLR1.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_XHLR1.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_XHLR1.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_XHLR1.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_XHLR1.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/20);
|
||
LBCPAP.Caption:=IntToStr(my)+'/'+inttostr(mz);
|
||
end;
|
||
|
||
procedure TfrmMLManage_XHLR1.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:='XH';
|
||
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<20*my) and (i>=20*(my-1)) then
|
||
begin
|
||
jpg:=TJpegImage.Create();
|
||
myStream:=tadoblobstream.Create(tblobfield(adoqueryPicture.fieldbyname('ImageFile')),bmread);
|
||
jpg.LoadFromStream(myStream);
|
||
if (i-20*(my-1))<10*(p+1) then
|
||
begin
|
||
|
||
end
|
||
else
|
||
begin
|
||
p:=p+1;
|
||
end;
|
||
Mach1[i]:=TfrmSLT_YH_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);
|
||
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_XHLR1.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_XHLR1.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_XHLR1.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_XHLR1.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''');
|
||
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('XH');
|
||
Fieldbyname('Valid').value:=Trim('Y');
|
||
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('TJTPID').Value:=Trim(TJTPID.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_XHLR1.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 formid='3' then
|
||
begin
|
||
FCYID:='';
|
||
TJML.Text:='';
|
||
TJNo.Text:='';
|
||
end;
|
||
TSave.Caption:='<27><><EFBFBD><EFBFBD>';
|
||
end;
|
||
|
||
function TfrmMLManage_XHLR1.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><E5BBA8><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><E5BBA8><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD>','<27><>ʾ');
|
||
exit;
|
||
end;
|
||
with ScrollBox2 do
|
||
begin
|
||
for j:=0 to ControlCount-1 do
|
||
begin
|
||
if Controls[j] is TfrmSLT_YH_SX then
|
||
begin
|
||
with TfrmSLT_YH_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_XHLR1.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_XHLR1.imagePL(FFF:Integer);
|
||
begin
|
||
|
||
end;
|
||
|
||
procedure TfrmMLManage_XHLR1.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_XHLR1.MLNameChange(Sender: TObject);
|
||
begin
|
||
if Trim(FCYID)<>'' then
|
||
begin
|
||
TSave.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMLManage_XHLR1.MLMFChange(Sender: TObject);
|
||
begin
|
||
if Trim(FCYID)<>'' then
|
||
begin
|
||
TSave.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMLManage_XHLR1.FormClose(Sender: TObject;
|
||
var Action: TCloseAction);
|
||
begin
|
||
Finalize(Mach1);
|
||
Finalize(Mach);
|
||
end;
|
||
|
||
procedure TfrmMLManage_XHLR1.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_XHLR1.FormCreate(Sender: TObject);
|
||
begin
|
||
lstPat := TStringList.Create;
|
||
lstPat2 := TStringList.Create;
|
||
end;
|
||
|
||
procedure TfrmMLManage_XHLR1.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_XHLR1.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_XHLR1.ToolButton10Click(Sender: TObject);
|
||
begin
|
||
if CDS_Sub.IsEmpty=false then
|
||
begin
|
||
CDS_Sub.Delete;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMLManage_XHLR1.N2Click(Sender: TObject);
|
||
begin
|
||
try
|
||
frmMLManage_LRRS_Col:=TfrmMLManage_LRRS_Col.Create(Application);
|
||
with frmMLManage_LRRS_Col do
|
||
begin
|
||
FCYID:=Trim(Self.MBPID.Text);
|
||
FGYName:='Ⱦɫ';
|
||
viewFlag:=True;
|
||
if ShowModal=1 then
|
||
begin
|
||
MLXXCol.Text:=Trim(OrdBP_SH.fieldbyname('ColNameKH').AsString);
|
||
MLXXColNo.Text:=Trim(OrdBP_SH.fieldbyname('ColNo').AsString);
|
||
self.PTID.Text:=Trim(OrdBP_SH.fieldbyname('PTID').AsString);
|
||
if Trim(PTID.Text)<>'' then
|
||
begin
|
||
InitColor();
|
||
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(MLTPID.Text)+''' and Valid=''Y'')');
|
||
sql.Add('delete from Image_Info ');
|
||
sql.Add(' where WBID='''+Trim(MLTPID.Text)+''' and Valid=''Y''');
|
||
ExecSQL;
|
||
end;
|
||
MLTPID.Text:='';
|
||
ShowImage1();
|
||
Button1.Visible:=false;
|
||
end;
|
||
end;
|
||
finally
|
||
frmMLManage_LRRS_Col.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMLManage_XHLR1.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(MLXXCol.Text)='' then
|
||
begin
|
||
Application.MessageBox('<27><>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
if Trim(MLXXColNo.Text)='' then
|
||
begin
|
||
Application.MessageBox('ɫ<>Ų<EFBFBD><C5B2><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,'XH','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_XHLR1.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_XHLR1.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);
|
||
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_XHLR1.HXTypeBtnClick(Sender: TObject);
|
||
begin
|
||
frmSCPerson:=TfrmSCPerson.Create(Application);
|
||
with frmSCPerson do
|
||
begin
|
||
FlagStr:='XHHXZDYType';
|
||
if ShowModal=1 then
|
||
begin
|
||
HXType.Text:=Trim(FSDPerson);
|
||
TJCPID.Text:='CP1910290001';
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMLManage_XHLR1.TJColBtnClick(Sender: TObject);
|
||
begin
|
||
frmZDYHelp_Col:=TfrmZDYHelp_Col.create(self);
|
||
with frmZDYHelp_Col do
|
||
begin
|
||
flag:='TJCol';
|
||
flagname:='<27>廨<EFBFBD><E5BBA8>ɫ';
|
||
fnote:=true;
|
||
V1Note.Caption:='ɫ<><C9AB>';
|
||
V1Name.Caption:='<27>廨<EFBFBD><E5BBA8>ɫ';
|
||
if showmodal=1 then
|
||
begin
|
||
TJCol.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
TJColNo.Text:=Trim(ClientDataSet1.fieldbyname('Note').AsString);
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMLManage_XHLR1.TJGYNameBtnClick(Sender: TObject);
|
||
var FGYName:string;
|
||
begin
|
||
frmBPZdy_LRXH:=TfrmBPZdy_LRXH.Create(Application);
|
||
with frmBPZdy_LRXH do
|
||
begin
|
||
flag:='XHName';
|
||
flagName:='<27>廨';
|
||
cxGrid3.Visible:=true;
|
||
ViewFlag:=True;
|
||
Panel4.Visible:=true;
|
||
if ShowModal=1 then
|
||
begin
|
||
with ML_GX do
|
||
begin
|
||
first;
|
||
while not eof do
|
||
begin
|
||
if FGYName='' then
|
||
begin
|
||
FGYName:=Trim(ML_GX.fieldbyname('GYName').AsString);
|
||
end
|
||
else
|
||
begin
|
||
FGYName:=FGYName+'+'+Trim(ML_GX.fieldbyname('GYName').AsString)
|
||
end;
|
||
next;
|
||
end;
|
||
end;
|
||
TJGYName.Text:=FGYName;
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMLManage_XHLR1.MLXXGYNameBtnClick(Sender: TObject);
|
||
begin
|
||
frmMLMangeRS_Sel:=TfrmMLMangeRS_Sel.Create(self);
|
||
with frmMLMangeRS_Sel do
|
||
begin
|
||
MLNo.Text:=trim(MLXXNO.Text);
|
||
if ShowModal=1 then
|
||
begin
|
||
MLXXGYName.Text:=Trim(CDS_Main.fieldbyname('GYLXName').AsString);
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMLManage_XHLR1.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_XHLR1.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_XHLR1.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_XHLR1.MLCFBtnClick(Sender: TObject);
|
||
begin
|
||
frmZDYHelp:=TfrmZDYHelp.create(self);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='XHCF';
|
||
flagname:='<27>ɷ<EFBFBD>';
|
||
if showmodal=1 then
|
||
begin
|
||
MLCF.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMLManage_XHLR1.MLMFBtnClick(Sender: TObject);
|
||
begin
|
||
frmZDYHelp:=TfrmZDYHelp.create(self);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='XHMF';
|
||
flagname:='<27>ŷ<EFBFBD>';
|
||
if showmodal=1 then
|
||
begin
|
||
MLMF.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMLManage_XHLR1.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_XHLR1.BTLPClick(Sender: TObject);
|
||
begin
|
||
if my<=1 then exit;
|
||
my:=my-1;
|
||
LBCPAP.Caption:=IntToStr(my)+'/'+inttostr(mz);
|
||
initimageSH();
|
||
end;
|
||
|
||
procedure TfrmMLManage_XHLR1.BTNPClick(Sender: TObject);
|
||
begin
|
||
if my>=mz then exit;
|
||
my:=my+1;
|
||
LBCPAP.Caption:=IntToStr(my)+'/'+inttostr(mz);
|
||
initimageSH();
|
||
end;
|
||
|
||
procedure TfrmMLManage_XHLR1.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_XHLR1.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><E5BBA8><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,'XH','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;
|
||
if TJTPID.Text<>'' then
|
||
begin
|
||
if lstPat2.Count=1 then
|
||
begin
|
||
SaveImage1(Trim(TJTPID.Text));
|
||
initimageSH();
|
||
ColYC();
|
||
end;
|
||
end;
|
||
Panel7.Visible:=True;
|
||
end;
|
||
|
||
procedure TfrmMLManage_XHLR1.Button3Click(Sender: TObject);
|
||
begin
|
||
SClearData(Panel6,2);
|
||
Panel6.Visible:=False;
|
||
Panel7.Visible:=True;
|
||
end;
|
||
|
||
procedure TfrmMLManage_XHLR1.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_XHLR1.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);
|
||
Panel6.Visible:=true;
|
||
Image11.Picture:=nil;
|
||
Image2.Picture:=nil;
|
||
Panel7.Visible:=false;
|
||
end;
|
||
|
||
procedure TfrmMLManage_XHLR1.Button5Click(Sender: TObject);
|
||
begin
|
||
frmZDYHelp:=TfrmZDYHelp.create(self);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='XHKZ';
|
||
flagname:='<27><><EFBFBD><EFBFBD>';
|
||
if showmodal=1 then
|
||
begin
|
||
MLKZ.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMLManage_XHLR1.Button6Click(Sender: TObject);
|
||
begin
|
||
frmMLMangeRS_Sel:=TfrmMLMangeRS_Sel.Create(self);
|
||
with frmMLMangeRS_Sel do
|
||
begin
|
||
if ShowModal=1 then
|
||
begin
|
||
Self.MLXXNO.Text:=Trim(CDS_Main.fieldbyname('MLNo').AsString);
|
||
Self.MLCF.Text:=Trim(CDS_Main.fieldbyname('MLCF').AsString);
|
||
Self.MLMF.Text:=Trim(CDS_Main.fieldbyname('MLMF').AsString);
|
||
Self.MLKZ.Text:=Trim(CDS_Main.fieldbyname('MLKZ').AsString);
|
||
Self.MBPID.Text:=Trim(CDS_Main.fieldbyname('MLID').AsString);
|
||
Self.MLXXName.Text:=CDS_Main.fieldbyname('MLName').AsString;
|
||
self.MLXXGYName.Text:=Trim(CDS_Main.fieldbyname('GYLXName').AsString);
|
||
Self.MLXXMF.Text:=CDS_Main.fieldbyname('MLMF').AsString;
|
||
Self.MLXXKZ.Text:=CDS_Main.fieldbyname('MLKZ').AsString;
|
||
Self.MLName.Text:=CDS_Main.fieldbyname('MLName').AsString+'<27>廨';
|
||
Self.MLNo.Text:='Y'+copy(Trim(CDS_Main.fieldbyname('MLNo').AsString),2,Length(Trim(CDS_Main.fieldbyname('MLNo').AsString)));
|
||
Self.FSKID:=CDS_Main.fieldbyname('SKID').AsString;
|
||
end;
|
||
free;
|
||
end;
|
||
try
|
||
frmMLManage_LRRS_Col:=TfrmMLManage_LRRS_Col.Create(Application);
|
||
with frmMLManage_LRRS_Col do
|
||
begin
|
||
FCYID:=Trim(Self.MBPID.Text);
|
||
FGYName:='Ⱦɫ';
|
||
viewFlag:=True;
|
||
if ShowModal=1 then
|
||
begin
|
||
MLXXCol.Text:=Trim(OrdBP_SH.fieldbyname('ColNameKH').AsString);
|
||
MLXXColNo.Text:=Trim(OrdBP_SH.fieldbyname('ColNo').AsString);
|
||
self.PTID.Text:=Trim(OrdBP_SH.fieldbyname('PTID').AsString);
|
||
if Trim(PTID.Text)<>'' then
|
||
begin
|
||
InitColor();
|
||
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(MLTPID.Text)+''' and Valid=''Y'')');
|
||
sql.Add('delete from Image_Info ');
|
||
sql.Add(' where WBID='''+Trim(MLTPID.Text)+''' and Valid=''Y''');
|
||
ExecSQL;
|
||
end;
|
||
MLTPID.Text:='';
|
||
ShowImage1();
|
||
Button1.Visible:=false;
|
||
end;
|
||
end;
|
||
finally
|
||
frmMLManage_LRRS_Col.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMLManage_XHLR1.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><>ʾ');
|
||
initimageSH();
|
||
end;
|
||
|
||
procedure TfrmMLManage_XHLR1.N6Click(Sender: TObject);
|
||
var
|
||
FZIID,FLeiBie,FZIIDYS,fsj:String;
|
||
begin
|
||
frmZHCPList_BJCX:=TfrmZHCPList_BJCX.create(self);
|
||
with frmZHCPList_BJCX do
|
||
begin
|
||
if ShowModal=1 then
|
||
begin
|
||
TJNote.Text:='<27><><EFBFBD>ţ<EFBFBD>'+Trim(Order_Main.fieldbyname('ZIID').AsString)+#13#13
|
||
+'<27>ŷ<EFBFBD><C5B7><EFBFBD>'+Trim(Order_Main.fieldbyname('ZIMF').AsString)+#13#13
|
||
+'<27><><EFBFBD>أ<EFBFBD>'+Trim(Order_Main.fieldbyname('ZIKZ').AsString)+#13#13
|
||
+'<27>ɷݣ<C9B7>'+Trim(Order_Main.fieldbyname('ZICF').AsString)+#13#13
|
||
+'Ʒ<><C6B7><EFBFBD><EFBFBD>'+Trim(Order_Main.fieldbyname('ZIName').AsString)+#13#13
|
||
+'<27><><EFBFBD>գ<EFBFBD>'+Trim(Order_Main.fieldbyname('ZIGY').AsString)+#13#13;
|
||
//Image11.Picture:=Order_Main.fieldbyname('ImageFileTP');
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
end.
|