Group_99/D7myYunxiang
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
e5a0893d5d
D7myYunxiang/样品新云翔(YPGLBOM.dll)/U_MLManage_LRTJ.pas

1950 lines
52 KiB
ObjectPascal
Raw Normal View History

1
2025-01-20 13:04:03 +08:00
unit U_MLManage_LRTJ;
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;
type
TfrmMLManage_LRTJ = 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 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 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_LRTJ: TfrmMLManage_LRTJ;
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_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; //RzBmpBtn
{$R *.dfm}
procedure TfrmMLManage_LRTJ.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_LRTJ.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_LRTJ.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_LRTJ.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_LRTJ.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_LRTJ.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_LRTJ.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_LRTJ.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_LRTJ.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_LRTJ.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_LRTJ.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_LRTJ.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_LRTJ.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_LRTJ.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_LRTJ.imagePL(FFF:Integer);
begin
end;
procedure TfrmMLManage_LRTJ.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_LRTJ.MLNameChange(Sender: TObject);
begin
if Trim(FCYID)<>'' then
begin
TSave.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
end;
end;
procedure TfrmMLManage_LRTJ.MLMFChange(Sender: TObject);
begin
if Trim(FCYID)<>'' then
begin
TSave.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
end;
end;
procedure TfrmMLManage_LRTJ.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Finalize(Mach1);
Finalize(Mach);
end;
procedure TfrmMLManage_LRTJ.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_LRTJ.FormCreate(Sender: TObject);
begin
lstPat := TStringList.Create;
lstPat2 := TStringList.Create;
end;
procedure TfrmMLManage_LRTJ.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_LRTJ.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_LRTJ.ToolButton10Click(Sender: TObject);
begin
if CDS_Sub.IsEmpty=false then
begin
CDS_Sub.Delete;
end;
end;
procedure TfrmMLManage_LRTJ.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_LRTJ.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_LRTJ.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_LRTJ.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_LRTJ.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_LRTJ.TJColBtnClick(Sender: TObject);
begin
frmZDYHelp_Col:=TfrmZDYHelp_Col.create(self);
with frmZDYHelp_Col do
begin
flag:='TJCol';
flagname:='<27>̽<EFBFBD><CCBD><EFBFBD>ɫ';
fnote:=true;
V1Note.Caption:='ɫ<><C9AB>';
V1Name.Caption:='<27>̽<EFBFBD><CCBD><EFBFBD>ɫ';
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_LRTJ.TJGYNameBtnClick(Sender: TObject);
var FGYName,FGYNo:string;
begin
frmBPZDY_LRTJ1:=TfrmBPZDY_LRTJ1.Create(Application);
with frmBPZDY_LRTJ1 do
begin
flag:='TJName';
flagName:='<27>̽<EFBFBD>';
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;
if FGYNo='' then
begin
FGYNo:=Trim(ML_GX.fieldbyname('GYCode').AsString);
end
else
begin
FGYNo:=FGYNo+'+'+Trim(ML_GX.fieldbyname('GYCode').AsString)
end;
next;
end;
end;
TJGYName.Text:=FGYName;
GYLX.Text:=FGYNo;
end;
free;
end;
end;
procedure TfrmMLManage_LRTJ.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_LRTJ.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_LRTJ.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_LRTJ.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_LRTJ.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_LRTJ.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_LRTJ.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_LRTJ.BTLPClick(Sender: TObject);
begin
if my<=1 then exit;
my:=my-1;
LBCPAP.Caption:=IntToStr(my)+'/'+inttostr(mz);
initimageSH();
end;
procedure TfrmMLManage_LRTJ.BTNPClick(Sender: TObject);
begin
if my>=mz then exit;
my:=my+1;
LBCPAP.Caption:=IntToStr(my)+'/'+inttostr(mz);
initimageSH();
end;
procedure TfrmMLManage_LRTJ.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_LRTJ.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_LRTJ.Button3Click(Sender: TObject);
begin
SClearData(Panel6,2);
Panel6.Visible:=False;
Panel7.Visible:=True;
end;
procedure TfrmMLManage_LRTJ.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_LRTJ.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_LRTJ.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_LRTJ.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.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>̽<EFBFBD>';
Self.MLNo.Text:='T'+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_LRTJ.MLXXNameChange(Sender: TObject);
begin
//MLName.Text:=MLXXName.Text+'<27>̽<EFBFBD>';
end;
procedure TfrmMLManage_LRTJ.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.
Reference in New Issue Copy Permalink