593 lines
15 KiB
ObjectPascal
593 lines
15 KiB
ObjectPascal
unit U_CPManage_TP;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
|
||
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin,
|
||
StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
|
||
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
|
||
cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
|
||
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
|
||
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
|
||
IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, RM_BarCode,
|
||
cxButtonEdit, cxTextEdit,jpeg,U_SLT_TP,U_SLT,Math, Menus, cxCalendar;
|
||
|
||
type
|
||
TfrmCPManage_TP = class(TForm)
|
||
ADOQueryTemp: TADOQuery;
|
||
ADOQueryCmd: TADOQuery;
|
||
cxGridPopupMenu1: TcxGridPopupMenu;
|
||
cxSplitter1: TcxSplitter;
|
||
DataSource2: TDataSource;
|
||
ADOQueryMain: TADOQuery;
|
||
CDS_Main: TClientDataSet;
|
||
RM1: TRMGridReport;
|
||
RMDB_Main: TRMDBDataSet;
|
||
ODPat: TOpenDialog;
|
||
IdFTP1: TIdFTP;
|
||
SaveDialog1: TSaveDialog;
|
||
DSCYNO: TDataSource;
|
||
CDS_CYNO: TClientDataSet;
|
||
RMBarCodeObject1: TRMBarCodeObject;
|
||
Panel3: TPanel;
|
||
adoqueryPicture: TADOQuery;
|
||
Panel6: TPanel;
|
||
Label23: TLabel;
|
||
LBCPAP: TLabel;
|
||
BTLP: TButton;
|
||
BTNP: TButton;
|
||
TCBNOR: TComboBox;
|
||
Label16: TLabel;
|
||
RMDB_Sub: TRMDBDataSet;
|
||
RM2: TRMGridReport;
|
||
ADOQuery2: TADOQuery;
|
||
ADOQuery3: TADOQuery;
|
||
ADOQuery4: TADOQuery;
|
||
ADOQuery5: TADOQuery;
|
||
ADOQuery6: TADOQuery;
|
||
ADOQuery7: TADOQuery;
|
||
ADOQuery8: TADOQuery;
|
||
Panel8: TPanel;
|
||
cxDBTreeList1: TcxDBTreeList;
|
||
cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn;
|
||
ToolBar1: TToolBar;
|
||
TBRafresh: TToolButton;
|
||
TBClose: TToolButton;
|
||
ADOQuery9: TADOQuery;
|
||
DataSource1: TDataSource;
|
||
ADOQueryTree: TADOQuery;
|
||
cxStyleRepository1: TcxStyleRepository;
|
||
cxStyle1: TcxStyle;
|
||
GroupBox1: TGroupBox;
|
||
ScrollBox1: TScrollBox;
|
||
ToolButton5: TToolButton;
|
||
Order_Tree: TClientDataSet;
|
||
ToolBar2: TToolBar;
|
||
SKLB: TToolButton;
|
||
procedure FormDestroy(Sender: TObject);
|
||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure TBCloseClick(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure cxDBTreeList1DblClick(Sender: TObject);
|
||
procedure TBRafreshClick(Sender: TObject);
|
||
procedure ToolButton2Click(Sender: TObject);
|
||
procedure ToolButton5Click(Sender: TObject);
|
||
procedure CYMFChange(Sender: TObject);
|
||
procedure BTLPClick(Sender: TObject);
|
||
procedure BTNPClick(Sender: TObject);
|
||
procedure TCBNORChange(Sender: TObject);
|
||
procedure FormCreate(Sender: TObject);
|
||
procedure ToolButton12Click(Sender: TObject);
|
||
procedure ToolButton13Click(Sender: TObject);
|
||
procedure N1Click(Sender: TObject);
|
||
procedure N2Click(Sender: TObject);
|
||
procedure SKLBClick(Sender: TObject);
|
||
private
|
||
{ Private declarations }
|
||
CPID:string;
|
||
LP,CP,NP,AP,RN:Integer;
|
||
PState:Integer;
|
||
FCPID,FTopID:String;
|
||
canshu1:string;
|
||
FPrint:string;
|
||
FZGao:integer;
|
||
procedure InitTree();
|
||
// procedure InitGrid();
|
||
procedure ReadINIFile();
|
||
procedure InitImage();
|
||
procedure initsub();
|
||
procedure InitImage1();
|
||
procedure initImage10(k:Integer;FPanel:TScrollbox;fstr1,FSKID:string);
|
||
procedure InitGrid(CP,NOR:Integer);
|
||
procedure setBtn(CP:Integer);
|
||
procedure setstatus();
|
||
procedure Printdata();
|
||
procedure MXPrintdata();
|
||
public
|
||
{ Public declarations }
|
||
end;
|
||
|
||
var
|
||
frmCPManage_TP: TfrmCPManage_TP;
|
||
Mach: array of TfrmSlt_TP;
|
||
Mach1: array of array of TfrmSlt;
|
||
implementation
|
||
uses
|
||
U_DataLink,U_Fun,U_CPAdd,U_FileUp,U_YPCR, U_YPTypeHelp,U_CPAdd_ZLR,U_RTFun,U_FileUp_TP,U_CPType_TP,U_SKTP_DJ;
|
||
|
||
{$R *.dfm}
|
||
procedure TfrmCPManage_TP.initsub();
|
||
begin
|
||
|
||
end;
|
||
|
||
procedure TfrmCPManage_TP.initImage10(k:Integer; FPanel:TScrollbox;fstr1,FSKID:string);
|
||
var
|
||
i,j,x,p:integer;
|
||
jpg:TJpegImage;
|
||
myStream: TADOBlobStream;
|
||
begin
|
||
try
|
||
with ADOQuery7 do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add(' select A.TFID,A.WBID,A.FilesOther,B.FileName,C.* from TP_File A ');
|
||
sql.Add(' inner join XD_File B on A.WBID=B.CYID ');
|
||
sql.Add(' left join SH_Base C on A.WBID=C.WBID ');
|
||
SQL.Add('where B.CYNO='+quotedstr(trim(fstr1)));
|
||
//ShowMessage(SQL.Text);
|
||
open;
|
||
end;
|
||
j:=ADOQuery7.RecordCount;
|
||
if j<1 then exit;
|
||
jpg:=TJpegImage.Create();
|
||
ADOQuery7.DisableControls;
|
||
ADOQuery7.First;
|
||
// SetLength(Mach1,k,j);
|
||
x:=0; //<2F><>
|
||
p:=0; //<2F><>
|
||
for i:=0 to j-1 do
|
||
begin
|
||
if trim(ADOQuery7.fieldbyname('FilesOther').AsString)<>'' then
|
||
begin
|
||
myStream:=tadoblobstream.Create(tblobfield(ADOQuery7.fieldbyname('FilesOther')),bmread);
|
||
jpg.LoadFromStream(myStream);
|
||
if i<5*(p+1) then
|
||
begin
|
||
|
||
end
|
||
else
|
||
begin
|
||
p:=p+1;
|
||
Mach[k].Height:=Mach[k].Height+130;
|
||
FZGao:=FZGao+130;
|
||
end;
|
||
Mach1[K,i]:=TfrmSlt.Create(Self);
|
||
Mach1[k,i].Name:=trim(ADOQuery7.fieldbyname('TFID').AsString)+inttostr(k)+inttostr(i);
|
||
Mach1[k,i].Parent :=FPanel;
|
||
Mach1[k,I].Left:=0+(x-5*p)*185;
|
||
Mach1[k,I].Top:=p*143;
|
||
Mach1[k,i].SKID:=trim(FSKID);
|
||
if ADOQuery7.fieldbyname('SHID').AsString='' then
|
||
begin
|
||
Mach1[k,I].ColorNo.Text:=inttostr(i+1);
|
||
Mach1[k,i].WBID.Text:=trim(ADOQuery7.fieldbyname('WBID').AsString);
|
||
end
|
||
else
|
||
begin
|
||
SCSHDataNew(ADOQuery7,Mach1[k,I].Panel1,2);
|
||
end;
|
||
Mach1[k,i].Init(ADOQuery7.fieldbyname('TFID').AsString,ADOQuery7.fieldbyname('FileName').AsString,jpg);
|
||
end;
|
||
x:=x+1;
|
||
ADOQuery7.Next;
|
||
end;
|
||
ADOQuery7.EnableControls;
|
||
finally
|
||
jpg.free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCPManage_TP.InitImage1();
|
||
var
|
||
i,j:integer;
|
||
jpg:TJpegImage;
|
||
myStream: TADOBlobStream;
|
||
begin
|
||
j:=length(Mach1);
|
||
IF j>0 then
|
||
begin
|
||
for i:=0 to 98 do
|
||
begin
|
||
for j:=0 to 98 do
|
||
Mach1[i,j].free;
|
||
end;
|
||
//Finalize(Mach1);
|
||
end;
|
||
j:=length(Mach);
|
||
if j>0 then
|
||
begin
|
||
for i:=0 to j-1 do
|
||
begin
|
||
Mach[i].free;
|
||
end;
|
||
//Finalize(Mach);
|
||
end;
|
||
SetLength(Mach, 0);
|
||
SetLength(Mach1,99,99);
|
||
{}
|
||
IF Order_Tree.IsEmpty then exit;
|
||
FZGao:=0;
|
||
try
|
||
with adoqueryPicture do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add(' select A.TFID,A.WBID,A.FilesOther,B.FileName,C.* from SK_Base C ');
|
||
SQL.Add(' left join TP_File_TP A on C.WBID=A.WBID ');
|
||
sql.Add(' left join XD_File_TP B on A.WBID =B.CYID');
|
||
sql.Add(' where C.CPID='+quotedstr(trim(Order_Tree.fieldbyname('CPID').AsString)));
|
||
//ShowMessage(sql.Text);
|
||
open;
|
||
end;
|
||
j:=adoqueryPicture.RecordCount;
|
||
if j<1 then exit;
|
||
adoqueryPicture.DisableControls;
|
||
adoqueryPicture.First;
|
||
SetLength(Mach, j);
|
||
with adoqueryPicture do
|
||
begin
|
||
First;
|
||
i:=0;
|
||
while not eof do
|
||
begin
|
||
if triM(adoqueryPicture.fieldbyname('TFID').AsString)<>'' then
|
||
begin
|
||
jpg:=TJpegImage.Create();
|
||
myStream:=tadoblobstream.Create(tblobfield(adoqueryPicture.fieldbyname('FilesOther')),bmread);
|
||
jpg.LoadFromStream(myStream);
|
||
end;
|
||
Mach[i] := TfrmSlt_TP.Create(Self);
|
||
Mach[i].Name:=trim(adoqueryPicture.fieldbyname('SKID').AsString);
|
||
Mach[i].Parent := ScrollBox1;
|
||
Mach[I].Left:=0;
|
||
Mach[I].Top:=350*i+FZGao;
|
||
// Mach[I].Panel1.Name:='Panel'+inttostr(i+1);
|
||
SCSHDataNew(adoqueryPicture,Mach[I].Panel0,2);
|
||
if triM(adoqueryPicture.fieldbyname('TFID').AsString)<>'' then
|
||
begin
|
||
Mach[I].FMXCPID:=trim(adoqueryPicture.fieldbyname('TFID').AsString);
|
||
Mach[i].Init(adoqueryPicture.fieldbyname('TFID').AsString,adoqueryPicture.fieldbyname('FileName').AsString,jpg);
|
||
end;
|
||
initImage10(i,Mach[i].ScrollBox2,adoqueryPicture.fieldbyname('SKID').AsString,adoqueryPicture.fieldbyname('SKID').AsString);
|
||
i:=i+1;
|
||
Next;
|
||
end;
|
||
end;
|
||
adoqueryPicture.EnableControls;
|
||
finally
|
||
jpg.free;
|
||
//application.ProcessMessages;
|
||
end;
|
||
end;
|
||
|
||
|
||
procedure TfrmCPManage_TP.setstatus();
|
||
begin
|
||
|
||
end;
|
||
|
||
procedure TfrmCPManage_TP.InitImage();
|
||
begin
|
||
|
||
end;
|
||
|
||
procedure TfrmCPManage_TP.InitTree();
|
||
var
|
||
i:Integer;
|
||
begin
|
||
with ADOQueryTree do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
SQL.Add('select * from CP_TypeSK order by CPlevel,CPOrder,CPName');
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOQueryTree,Order_Tree);
|
||
SInitCDSData20(ADOQueryTree,Order_Tree);
|
||
cxDBTreeList1.Items[0].Expand(True);
|
||
end;
|
||
|
||
procedure TfrmCPManage_TP.InitGrid(CP,NOR:Integer);
|
||
begin
|
||
BTLP.Enabled:=False;
|
||
BTNP.Enabled:=False;
|
||
try
|
||
ADOQueryMain.DisableControls;
|
||
LP:= CP-1;
|
||
NP:= CP+1;
|
||
With ADOQueryMain do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add(' exec P_Select_YPTP :CYType,:CP,:RON,:WSql,:Stats');
|
||
Parameters.ParamByName('CYType').Value:=Trim(ADOQueryTree.fieldbyname('CPID').AsString);
|
||
Parameters.ParamByName('CP').Value:=CP;
|
||
Parameters.ParamByName('RON').Value:=NOR;
|
||
Parameters.ParamByName('WSql').Value:='';
|
||
Parameters.ParamByName('Stats').Value:=1;
|
||
Open;
|
||
end;
|
||
LBCPAP.Caption:= IntToStr(CP)+'/'+ IntToStr(Ceil(ADOQueryMain.FieldByName('AR').AsInteger/RN));
|
||
AP:= Ceil(ADOQueryMain.FieldByName('AR').AsInteger/RN);
|
||
Label16.Caption:='<27><><EFBFBD><EFBFBD> '+IntToStr(ADOQueryMain.FieldByName('AR').AsInteger)+' <20><><EFBFBD><EFBFBD>¼';
|
||
if CP>1 then
|
||
begin
|
||
BTLP.Enabled:=true;
|
||
end;
|
||
if CP<Ceil(ADOQueryMain.FieldByName('AR').AsInteger/RN) then
|
||
begin
|
||
BTNP.Enabled:=true;
|
||
end;
|
||
with ADOQueryMain do
|
||
begin
|
||
Close;
|
||
Filtered:=False;
|
||
sql.Clear;
|
||
sql.Add(' exec P_Select_YPTP :CYType,:CP,:RON,:WSql,:Stats ');
|
||
Parameters.ParamByName('CYType').Value:=Trim(ADOQueryTree.fieldbyname('CPID').AsString);
|
||
Parameters.ParamByName('CP').Value:=CP;
|
||
Parameters.ParamByName('RON').Value:=NOR;
|
||
Parameters.ParamByName('WSql').Value:='';
|
||
Parameters.ParamByName('Stats').Value:=2;
|
||
Open;
|
||
end;
|
||
InitImage1();
|
||
finally
|
||
ADOQueryMain.EnableControls;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCPManage_TP.FormDestroy(Sender: TObject);
|
||
begin
|
||
frmCPManage_TP:=nil;
|
||
|
||
end;
|
||
|
||
procedure TfrmCPManage_TP.FormClose(Sender: TObject; var Action: TCloseAction);
|
||
var
|
||
i,j:integer;
|
||
jpg:TJpegImage;
|
||
myStream: TADOBlobStream;
|
||
begin
|
||
Finalize(Mach1);
|
||
Finalize(Mach);
|
||
Action:=caFree;
|
||
end;
|
||
|
||
procedure TfrmCPManage_TP.TBCloseClick(Sender: TObject);
|
||
|
||
begin
|
||
if DirectoryExists(ExtractFileDir('D:\Right1209')) then
|
||
winexec('cmd /c rd /s /q D:\Right1209',sw_hide);
|
||
Close;
|
||
end;
|
||
|
||
procedure TfrmCPManage_TP.FormShow(Sender: TObject);
|
||
begin
|
||
InitTree();
|
||
Label16.Caption:='';
|
||
RN:=StrToInt(Trim(TCBNOR.Text));
|
||
setstatus();
|
||
//InitGrid();
|
||
end;
|
||
|
||
procedure TfrmCPManage_TP.cxDBTreeList1DblClick(Sender: TObject);
|
||
begin
|
||
CP:=1;
|
||
//InitGrid(1,RN);
|
||
//Finalize(Mach1);
|
||
//Finalize(Mach);
|
||
InitImage1();
|
||
end;
|
||
|
||
procedure TfrmCPManage_TP.TBRafreshClick(Sender: TObject);
|
||
begin
|
||
ToolBar1.SetFocus;
|
||
TBRafresh.Enabled:=false;
|
||
//InitTree();
|
||
//InitGrid(1,RN);
|
||
InitImage1();
|
||
TBRafresh.Enabled:=True;
|
||
end;
|
||
|
||
procedure TfrmCPManage_TP.ToolButton2Click(Sender: TObject);
|
||
begin
|
||
ToolBar1.SetFocus;
|
||
InitGrid(1,RN);
|
||
end;
|
||
|
||
procedure TfrmCPManage_TP.ToolButton5Click(Sender: TObject);
|
||
begin
|
||
FrmSKTP_DJ:=TFrmSKTP_DJ.create(self);
|
||
with FrmSKTP_DJ do
|
||
begin
|
||
FCPID:=Trim(Order_Tree.Fieldbyname('CPID').AsString);
|
||
if ShowModal=1 then
|
||
begin
|
||
InitImage1();
|
||
end;
|
||
Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCPManage_TP.ReadINIFile();
|
||
var
|
||
programIni:Tinifile; //<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>
|
||
FileName:string;
|
||
begin
|
||
FileName:=ExtractFilePath(Paramstr(0))+'SYSTEMSET.INI';
|
||
programIni:=Tinifile.create(FileName);
|
||
server:=programIni.ReadString('SERVER','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ','127.0.0.1');
|
||
programIni.Free;
|
||
end;
|
||
|
||
procedure TfrmCPManage_TP.CYMFChange(Sender: TObject);
|
||
begin
|
||
if Length(Trim(TEdit(Sender).Text))<2 then Exit;
|
||
InitGrid(1,RN);
|
||
end;
|
||
|
||
procedure TfrmCPManage_TP.BTLPClick(Sender: TObject);
|
||
begin
|
||
CP:=LP;
|
||
InitGrid(CP,RN);
|
||
end;
|
||
|
||
procedure TfrmCPManage_TP.BTNPClick(Sender: TObject);
|
||
begin
|
||
CP:=NP;
|
||
InitGrid(CP,RN);
|
||
end;
|
||
|
||
procedure TfrmCPManage_TP.setBtn(CP:Integer);
|
||
begin
|
||
if (CP=null) or (CP=1) then
|
||
begin
|
||
CP:=1;
|
||
BTLP.Enabled:=False;
|
||
end else
|
||
begin
|
||
BTLP.Enabled:=True;
|
||
end;
|
||
if NP>AP then
|
||
begin
|
||
BTNP.Enabled:=False;
|
||
end
|
||
else
|
||
begin
|
||
BTNP.Enabled:=True;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCPManage_TP.TCBNORChange(Sender: TObject);
|
||
begin
|
||
RN:=StrToInt(TCBNOR.Text);
|
||
InitGrid(1,RN);
|
||
end;
|
||
|
||
procedure TfrmCPManage_TP.Printdata();
|
||
begin
|
||
|
||
end;
|
||
|
||
procedure TfrmCPManage_TP.MXPrintdata();
|
||
begin
|
||
|
||
end;
|
||
|
||
procedure TfrmCPManage_TP.FormCreate(Sender: TObject);
|
||
begin
|
||
canshu1:=Trim(DParameters1);
|
||
end;
|
||
|
||
procedure TfrmCPManage_TP.ToolButton12Click(Sender: TObject);
|
||
begin
|
||
if Order_Tree.IsEmpty then exit;
|
||
try
|
||
frmFileUp:=TfrmFileUp.Create(Application);
|
||
with frmFileUp do
|
||
begin
|
||
Code.Text:=Trim(Self.Order_Tree.fieldbyname('CPID').AsString);
|
||
CYID:=Trim(Self.Order_Tree.fieldbyname('CPID').AsString);
|
||
if ShowModal=1 then
|
||
begin
|
||
Self.InitGrid(NP-1,RN);
|
||
Self.Order_Tree.Locate('CPID',CYID,[]);
|
||
end;
|
||
end;
|
||
finally
|
||
frmFileUp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCPManage_TP.ToolButton13Click(Sender: TObject);
|
||
var
|
||
fHandle:THandle;
|
||
FInt:Integer;
|
||
FFName,FPath:String;
|
||
begin
|
||
if Order_Tree.IsEmpty then exit;
|
||
with ADOQueryTemp do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select * from XD_File where CYNO='''+Trim(Order_Tree.fieldbyname('CYNO').AsString)+'''');
|
||
Open;
|
||
if IsEmpty then
|
||
begin
|
||
Application.MessageBox('<27><>ƷͼƬδ<C6AC>ϴ<EFBFBD><CFB4><EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end;
|
||
try
|
||
ReadINIFile();
|
||
server:=ReadINIFileStr('SYSTEMSET.INI','SERVER','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ','127.0.0.1');
|
||
if Length(server)<6 then
|
||
begin
|
||
server:='127.0.0.1';
|
||
end;
|
||
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;
|
||
FPath:='D:\Right1209\';
|
||
if not DirectoryExists(ExtractFileDir(FPath)) then
|
||
CreateDir(ExtractFileDir(FPath));
|
||
FFName:=Trim(ADOQueryTemp.fieldbyname('FileName').AsString);
|
||
FFName:=FPath+FFName;
|
||
if FileExists(FFName) then
|
||
begin
|
||
FInt:=1;
|
||
end;
|
||
if FInt<>1 then
|
||
IdFTP1.Get(UserDataFlag+'YP\'+Trim(ADOQueryTemp.fieldbyname('FileName').AsString),
|
||
FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString)
|
||
);
|
||
if IdFTP1.Connected then IdFTP1.Quit;
|
||
ShellExecute(Handle, 'open',PChar(FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString)),'', '', SW_SHOWNORMAL);
|
||
end;
|
||
|
||
procedure TfrmCPManage_TP.N1Click(Sender: TObject);
|
||
begin
|
||
SelOKNo(CDS_Main,true);
|
||
end;
|
||
|
||
procedure TfrmCPManage_TP.N2Click(Sender: TObject);
|
||
begin
|
||
SelOKNo(CDS_Main,false);
|
||
end;
|
||
|
||
procedure TfrmCPManage_TP.SKLBClick(Sender: TObject);
|
||
begin
|
||
frmCPType_TP:=TfrmCPType_TP.Create(self);
|
||
with frmCPType_TP do
|
||
begin
|
||
if ShowModal=1 then
|
||
begin
|
||
InitTree();
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
end.
|