1191 lines
34 KiB
ObjectPascal
1191 lines
34 KiB
ObjectPascal
|
unit U_GetDllForm;
|
|||
|
|
|
|||
|
|
interface
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
Windows, Messages, forms, OleCtnrs, DateUtils, SysUtils, ADODB, dxCore,
|
|||
|
|
ActiveX;
|
|||
|
|
|
|||
|
|
function GetDllForm(App: Tapplication; FormH: hwnd; FormID: integer; Language: integer; WinStyle: integer; GCode: Pchar; GName: Pchar; DataBase: Pchar; Title: PChar; Parameters1: PChar; Parameters2: PChar; Parameters3: PChar; Parameters4: PChar; Parameters5: PChar; Parameters6: PChar; Parameters7: PChar; Parameters8: PChar; Parameters9: PChar; Parameters10: PChar; DataBaseStr: PChar): hwnd; export; stdcall;
|
|||
|
|
|
|||
|
|
function ConnData(): Boolean;
|
|||
|
|
|
|||
|
|
implementation
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
U_DataLink, U_Fun, U_YFCRSave, U_FKCRSave, U_YFMXlist, U_YFFPSave, U_YSCRSave,
|
|||
|
|
U_SKCRSave, U_YSSKList, U_YSMXlist, U_ZZYSCRSave, U_ZZSKCRSave, U_ZZYSSKList,
|
|||
|
|
U_ZZYSMXTaiToulist, U_YSFPSave, U_ZZYSSKYFFKList, U_OtherFeeSave,
|
|||
|
|
U_OtherFeeSaveMenShi, U_YFFKListTaiTou, U_YFMXlistTaiTou, U_YSSKListTaiTou,
|
|||
|
|
U_YSMXlistTaiTou, U_YSCRSaveQC, U_XSPriceChk, U_XSQtyeChk, U_KHSKList,
|
|||
|
|
U_YSSKListRMBMJ, U_YSMXlistMonDay, U_KHSKChkList, U_BankMoneyQCList,
|
|||
|
|
U_BankMoneyKHList, U_CGPriceChk, U_YFCRSaveQC, U_GYSFKList, U_GYSFKChkList,
|
|||
|
|
U_YFFKList, U_YFMXlistMonDay, U_YFMXlistMonDayGQX, U_YFFKListDZ,
|
|||
|
|
U_YSSKListRMBMJDZ, U_BankMoneyGYSList, U_YSSKListRMBMJDZEY, U_YFFKListDZEY,
|
|||
|
|
U_YWJSList, U_CaiWuHuilV, U_FuFeeList, U_GYSRFList, U_KHTop, U_YWYTop,
|
|||
|
|
U_WorkerPayListB, U_TJWorkerPayListB;
|
|||
|
|
|
|||
|
|
|
|||
|
|
/////////////////////////////////////////////////////////////////
|
|||
|
|
// <20><><EFBFBD><EFBFBD>˵<EFBFBD><CBB5>:ȡDll<6C>еô<D0B5><C3B4><EFBFBD> //
|
|||
|
|
// <20><><EFBFBD><EFBFBD>˵<EFBFBD><CBB5><EFBFBD><EFBFBD>App>><3E><><EFBFBD><EFBFBD>Ӧ<EFBFBD>ó<EFBFBD><C3B3><EFBFBD><EFBFBD><EFBFBD> //
|
|||
|
|
// FormH>><3E><><EFBFBD>ô<EFBFBD><C3B4>ھ<EFBFBD><DABE><EFBFBD> <20><> //
|
|||
|
|
// FormID>><3E><><EFBFBD>ں<EFBFBD>; //
|
|||
|
|
// Language>><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>; //
|
|||
|
|
// WinStyle>><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͣ<EFBFBD> //
|
|||
|
|
/////////////////////////////////////////////////////////////////
|
|||
|
|
var
|
|||
|
|
frmOtherFeeSaveLR, frmOtherFeeSaveCX: TfrmOtherFeeSave;
|
|||
|
|
frmOtherFeeSaveMenShiLRGY, frmOtherFeeSaveMenShiLRXN, frmOtherFeeSaveMenShiLRLX: TfrmOtherFeeSaveMenShi;
|
|||
|
|
frmOtherFeeSaveMenShiLRGYCX, frmOtherFeeSaveMenShiLRXNCX, frmOtherFeeSaveMenShiLRLXCX: TfrmOtherFeeSaveMenShi;
|
|||
|
|
frmOtherFeeSaveMenShiCX: TfrmOtherFeeSaveMenShi;
|
|||
|
|
frmBankMoneyKHListLR, frmBankMoneyKHListGL: TfrmBankMoneyKHList;
|
|||
|
|
frmBankMoneyGYSListLR, frmBankMoneyGYSListGL: TfrmBankMoneyGYSList;
|
|||
|
|
frmYSSKListRMBMJDZEY, frmYSSKListRMBMJDZEYCX: TfrmYSSKListRMBMJDZEY;
|
|||
|
|
frmYFFKListDZEY, frmYFFKListDZEYCX: TfrmYFFKListDZEY;
|
|||
|
|
frmYWJSListLR, frmYWJSListGL: TfrmYWJSList;
|
|||
|
|
frmFuFeeListLR, frmFuFeeListGL: TfrmFuFeeList;
|
|||
|
|
frmGYSRFListLR, frmGYSRFListGL: TfrmGYSRFList;
|
|||
|
|
frmWorkerPayListBGL, frmWorkerPayListBCX: TfrmWorkerPayListB;
|
|||
|
|
|
|||
|
|
function GetDllForm(App: Tapplication; FormH: hwnd; FormID: integer; Language: integer; WinStyle: integer; GCode: Pchar; GName: Pchar; DataBase: Pchar; Title: PChar; Parameters1: PChar; Parameters2: PChar; Parameters3: PChar; Parameters4: PChar; Parameters5: PChar; Parameters6: PChar; Parameters7: PChar; Parameters8: PChar; Parameters9: PChar; Parameters10: PChar; DataBaseStr: PChar): hwnd;
|
|||
|
|
var
|
|||
|
|
i: Integer;
|
|||
|
|
bFound: Boolean;
|
|||
|
|
mnewHandle: hwnd;
|
|||
|
|
mstyle: TFormStyle; // 0:<3A>Ӵ<EFBFBD><D3B4><EFBFBD>; 1<><31><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD>
|
|||
|
|
mstate: TWindowState;
|
|||
|
|
mborderstyle: TFormBorderStyle;
|
|||
|
|
begin
|
|||
|
|
mnewHandle := 0;
|
|||
|
|
DName := GName;
|
|||
|
|
DCode := GCode;
|
|||
|
|
DdataBase := DataBase;
|
|||
|
|
DTitCaption := Title;
|
|||
|
|
DParameters1 := Parameters1;
|
|||
|
|
DParameters2 := Parameters2;
|
|||
|
|
DParameters3 := Parameters3;
|
|||
|
|
DParameters4 := Parameters4;
|
|||
|
|
DParameters5 := Parameters5;
|
|||
|
|
DParameters6 := Parameters6;
|
|||
|
|
DParameters7 := Parameters7;
|
|||
|
|
DParameters8 := Parameters8;
|
|||
|
|
DParameters9 := Parameters9;
|
|||
|
|
DParameters10 := Parameters10;
|
|||
|
|
|
|||
|
|
MainApplication := App;
|
|||
|
|
DCurHandle := FormH;
|
|||
|
|
IsDelphiLanguage := Language;
|
|||
|
|
|
|||
|
|
Application := TApplication(App);
|
|||
|
|
DCurHandle := 0;
|
|||
|
|
|
|||
|
|
|
|||
|
|
//<2F><>ֵ<EFBFBD><D6B5><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD>
|
|||
|
|
SetLength(server, 255);
|
|||
|
|
SetLength(dtbase, 255);
|
|||
|
|
SetLength(user, 255);
|
|||
|
|
SetLength(pswd, 255);
|
|||
|
|
|
|||
|
|
server := '106.14.113.234,7781';
|
|||
|
|
dtbase := 'yunxiangData';
|
|||
|
|
user := 'sa';
|
|||
|
|
pswd := 'rightsoft@123';
|
|||
|
|
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
|
|||
|
|
// DConString := DataBaseStr;
|
|||
|
|
//DName:='<27><><EFBFBD><EFBFBD>'; DCode:='LM';
|
|||
|
|
|
|||
|
|
if not ConnData() then
|
|||
|
|
begin
|
|||
|
|
result := 0;
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
{ if IsINIFile() then
|
|||
|
|
ReadINIFile()
|
|||
|
|
else
|
|||
|
|
WriteINIFile ;}
|
|||
|
|
// <20><><EFBFBD>崰<EFBFBD><E5B4B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>״̬
|
|||
|
|
if WinStyle = 0 then
|
|||
|
|
begin
|
|||
|
|
mstyle := fsMDIChild;
|
|||
|
|
mstate := wsMaximized;
|
|||
|
|
mborderstyle := bsSizeable;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
mstyle := fsNormal;
|
|||
|
|
mstate := wsNormal;
|
|||
|
|
mborderstyle := bsSizeable;
|
|||
|
|
end;
|
|||
|
|
////////////////////
|
|||
|
|
{ GetSWLDZ('192.168.1.246');
|
|||
|
|
if IpCall<>0 then
|
|||
|
|
begin
|
|||
|
|
Result:=0;
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>粻ͨ<E7B2BB><CDA8><EFBFBD><EFBFBD>','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
if Trim(IpWLDZStr)<>'D4:AE:52:BE:9F:02' then
|
|||
|
|
begin
|
|||
|
|
Result:=0;
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݿ<EFBFBD><DDBF><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD>','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end; }
|
|||
|
|
/////////////////////
|
|||
|
|
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ģ<EFBFBD>鴰<EFBFBD><E9B4B0>
|
|||
|
|
case FormID of
|
|||
|
|
|
|||
|
|
-101: //<2F>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>а<EFBFBD>
|
|||
|
|
begin
|
|||
|
|
if frmKHTop = nil then
|
|||
|
|
begin
|
|||
|
|
frmKHTop := TfrmKHTop.Create(application.MainForm);
|
|||
|
|
with frmKHTop do
|
|||
|
|
begin
|
|||
|
|
caption := Trim(Title);
|
|||
|
|
FormStyle := mstyle;
|
|||
|
|
windowState := mstate;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmKHTop.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mnewHandle := frmKHTop.Handle;
|
|||
|
|
end;
|
|||
|
|
-102: //ҵ<><D2B5>Ա<EFBFBD><D4B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>а<EFBFBD>
|
|||
|
|
begin
|
|||
|
|
if frmYWYTop = nil then
|
|||
|
|
begin
|
|||
|
|
frmYWYTop := TfrmYWYTop.Create(application.MainForm);
|
|||
|
|
with frmYWYTop do
|
|||
|
|
begin
|
|||
|
|
caption := Trim(Title);
|
|||
|
|
FormStyle := mstyle;
|
|||
|
|
windowState := mstate;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYWYTop.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mnewHandle := frmYWYTop.Handle;
|
|||
|
|
end;
|
|||
|
|
-1103: //Ա<><D4B1><EFBFBD><EFBFBD><EFBFBD>ʻ<EFBFBD><CABB>ܲ<EFBFBD>ѯ
|
|||
|
|
begin
|
|||
|
|
if frmTJWorkerPayListB = nil then
|
|||
|
|
begin
|
|||
|
|
frmTJWorkerPayListB := TfrmTJWorkerPayListB.Create(application.MainForm);
|
|||
|
|
with frmTJWorkerPayListB do
|
|||
|
|
begin
|
|||
|
|
caption := Trim(Title);
|
|||
|
|
FormStyle := mstyle;
|
|||
|
|
windowState := mstate;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmTJWorkerPayListB.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mnewHandle := frmTJWorkerPayListB.Handle;
|
|||
|
|
end;
|
|||
|
|
-103: //<2F>̶<EFBFBD><CCB6><EFBFBD><EFBFBD>ʹ<EFBFBD><CAB9><EFBFBD>*
|
|||
|
|
begin
|
|||
|
|
bFound := FALSE;
|
|||
|
|
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
|
|||
|
|
begin
|
|||
|
|
if App.MainForm.MDIChildren[i].Caption = '<27>̶<EFBFBD><CCB6><EFBFBD><EFBFBD>ʹ<EFBFBD><CAB9><EFBFBD>*' then
|
|||
|
|
begin
|
|||
|
|
BringWindowToTop(frmWorkerPayListBGL.Handle);
|
|||
|
|
bFound := TRUE;
|
|||
|
|
Break;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
if not bFound then
|
|||
|
|
//if frmBaoGuanListBGZL=nil then
|
|||
|
|
begin
|
|||
|
|
frmWorkerPayListBGL := TfrmWorkerPayListB.Create(application.MainForm);
|
|||
|
|
with frmWorkerPayListBGL do
|
|||
|
|
begin
|
|||
|
|
Title := '<27>̶<EFBFBD><CCB6><EFBFBD><EFBFBD>ʹ<EFBFBD><CAB9><EFBFBD>*';
|
|||
|
|
caption := Trim(Title);
|
|||
|
|
FormStyle := mstyle;
|
|||
|
|
windowState := mstate;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmWorkerPayListBGL.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mnewHandle := frmWorkerPayListBGL.Handle;
|
|||
|
|
end;
|
|||
|
|
-104: //<2F>̶<EFBFBD><CCB6><EFBFBD><EFBFBD>ʲ<EFBFBD>ѯ*
|
|||
|
|
begin
|
|||
|
|
bFound := FALSE;
|
|||
|
|
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
|
|||
|
|
begin
|
|||
|
|
if App.MainForm.MDIChildren[i].Caption = '<27>̶<EFBFBD><CCB6><EFBFBD><EFBFBD>ʲ<EFBFBD>ѯ*' then
|
|||
|
|
begin
|
|||
|
|
BringWindowToTop(frmWorkerPayListBCX.Handle);
|
|||
|
|
bFound := TRUE;
|
|||
|
|
Break;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
if not bFound then
|
|||
|
|
//if frmBaoGuanListBGZL=nil then
|
|||
|
|
begin
|
|||
|
|
frmWorkerPayListBCX := TfrmWorkerPayListB.Create(application.MainForm);
|
|||
|
|
with frmWorkerPayListBCX do
|
|||
|
|
begin
|
|||
|
|
Title := '<27>̶<EFBFBD><CCB6><EFBFBD><EFBFBD>ʲ<EFBFBD>ѯ*';
|
|||
|
|
caption := Trim(Title);
|
|||
|
|
FormStyle := mstyle;
|
|||
|
|
windowState := mstate;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmWorkerPayListBCX.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mnewHandle := frmWorkerPayListBCX.Handle;
|
|||
|
|
end;
|
|||
|
|
-1: //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
begin
|
|||
|
|
if frmCaiWuHuiLV = nil then
|
|||
|
|
begin
|
|||
|
|
frmCaiWuHuiLV := TfrmCaiWuHuiLV.Create(application.MainForm);
|
|||
|
|
with frmCaiWuHuiLV do
|
|||
|
|
begin
|
|||
|
|
caption := Trim(Title);
|
|||
|
|
FormStyle := mstyle;
|
|||
|
|
windowState := mstate;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmCaiWuHuiLV.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mnewHandle := frmCaiWuHuiLV.Handle;
|
|||
|
|
end;
|
|||
|
|
0: //<2F>ڳ<EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD> <20>б<EFBFBD><D0B1>水ť
|
|||
|
|
begin
|
|||
|
|
if frmYFCRSaveQC = nil then
|
|||
|
|
begin
|
|||
|
|
frmYFCRSaveQC := TfrmYFCRSaveQC.Create(application.MainForm);
|
|||
|
|
with frmYFCRSaveQC do
|
|||
|
|
begin
|
|||
|
|
caption := Trim(Title);
|
|||
|
|
FormStyle := mstyle;
|
|||
|
|
windowState := mstate;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYFCRSaveQC.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mnewHandle := frmYFCRSaveQC.Handle;
|
|||
|
|
end;
|
|||
|
|
402: //Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*
|
|||
|
|
begin
|
|||
|
|
bFound := FALSE;
|
|||
|
|
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
|
|||
|
|
begin
|
|||
|
|
if App.MainForm.MDIChildren[i].Caption = 'Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*' then
|
|||
|
|
begin
|
|||
|
|
BringWindowToTop(frmYFFKListDZEY.Handle);
|
|||
|
|
bFound := TRUE;
|
|||
|
|
Break;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
if not bFound then
|
|||
|
|
//if frmBaoGuanListBGZL=nil then
|
|||
|
|
begin
|
|||
|
|
frmYFFKListDZEY := TfrmYFFKListDZEY.Create(application.MainForm);
|
|||
|
|
with frmYFFKListDZEY do
|
|||
|
|
begin
|
|||
|
|
Title := 'Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*';
|
|||
|
|
caption := Trim(Title);
|
|||
|
|
FormStyle := mstyle;
|
|||
|
|
windowState := mstate;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYFFKListDZEY.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mnewHandle := frmYFFKListDZEY.Handle;
|
|||
|
|
end;
|
|||
|
|
4: //<2F><>Ӧ<EFBFBD>̶<EFBFBD><CCB6>˵<EFBFBD><CBB5><EFBFBD>ѯ*
|
|||
|
|
begin
|
|||
|
|
bFound := FALSE;
|
|||
|
|
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
|
|||
|
|
begin
|
|||
|
|
if App.MainForm.MDIChildren[i].Caption = '<27><>Ӧ<EFBFBD>̶<EFBFBD><CCB6>˵<EFBFBD><CBB5><EFBFBD>ѯ*' then
|
|||
|
|
begin
|
|||
|
|
BringWindowToTop(frmYFFKListDZEYCX.Handle);
|
|||
|
|
bFound := TRUE;
|
|||
|
|
Break;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
if not bFound then
|
|||
|
|
//if frmBaoGuanListBGZL=nil then
|
|||
|
|
begin
|
|||
|
|
frmYFFKListDZEYCX := TfrmYFFKListDZEY.Create(application.MainForm);
|
|||
|
|
with frmYFFKListDZEYCX do
|
|||
|
|
begin
|
|||
|
|
Title := '<27><>Ӧ<EFBFBD>̶<EFBFBD><CCB6>˵<EFBFBD><CBB5><EFBFBD>ѯ*';
|
|||
|
|
caption := Trim(Title);
|
|||
|
|
FormStyle := mstyle;
|
|||
|
|
windowState := mstate;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYFFKListDZEYCX.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mnewHandle := frmYFFKListDZEYCX.Handle;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
501: //<2F>ڳ<EFBFBD>Ӧ<EFBFBD>տ<EFBFBD><D5BF>Ǽ<EFBFBD> <20>б<EFBFBD><D0B1>水ť
|
|||
|
|
begin
|
|||
|
|
if frmYSCRSaveQC = nil then
|
|||
|
|
begin
|
|||
|
|
frmYSCRSaveQC := TfrmYSCRSaveQC.Create(application.MainForm);
|
|||
|
|
with frmYSCRSaveQC do
|
|||
|
|
begin
|
|||
|
|
caption := Trim(Title);
|
|||
|
|
FormStyle := mstyle;
|
|||
|
|
windowState := mstate;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYSCRSaveQC.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mnewHandle := frmYSCRSaveQC.Handle;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
602: //Ӧ<>տ<EFBFBD><D5BF><EFBFBD><EFBFBD><EFBFBD>*
|
|||
|
|
begin
|
|||
|
|
bFound := FALSE;
|
|||
|
|
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
|
|||
|
|
begin
|
|||
|
|
if App.MainForm.MDIChildren[i].Caption = 'Ӧ<>տ<EFBFBD><D5BF><EFBFBD><EFBFBD><EFBFBD>*' then
|
|||
|
|
begin
|
|||
|
|
BringWindowToTop(frmYSSKListRMBMJDZEY.Handle);
|
|||
|
|
bFound := TRUE;
|
|||
|
|
Break;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
if not bFound then
|
|||
|
|
//if frmBaoGuanListBGZL=nil then
|
|||
|
|
begin
|
|||
|
|
frmYSSKListRMBMJDZEY := TfrmYSSKListRMBMJDZEY.Create(application.MainForm);
|
|||
|
|
with frmYSSKListRMBMJDZEY do
|
|||
|
|
begin
|
|||
|
|
Title := 'Ӧ<>տ<EFBFBD><D5BF><EFBFBD><EFBFBD><EFBFBD>*';
|
|||
|
|
caption := Trim(Title);
|
|||
|
|
FormStyle := mstyle;
|
|||
|
|
windowState := mstate;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYSSKListRMBMJDZEY.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mnewHandle := frmYSSKListRMBMJDZEY.Handle;
|
|||
|
|
end;
|
|||
|
|
7: //<2F>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>ѯ*
|
|||
|
|
begin
|
|||
|
|
bFound := FALSE;
|
|||
|
|
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
|
|||
|
|
begin
|
|||
|
|
if App.MainForm.MDIChildren[i].Caption = '<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>ѯ*' then
|
|||
|
|
begin
|
|||
|
|
BringWindowToTop(frmYSSKListRMBMJDZEYCX.Handle);
|
|||
|
|
bFound := TRUE;
|
|||
|
|
Break;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
if not bFound then
|
|||
|
|
//if frmBaoGuanListBGZL=nil then
|
|||
|
|
begin
|
|||
|
|
frmYSSKListRMBMJDZEYCX := TfrmYSSKListRMBMJDZEY.Create(application.MainForm);
|
|||
|
|
with frmYSSKListRMBMJDZEYCX do
|
|||
|
|
begin
|
|||
|
|
Title := '<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>ѯ*';
|
|||
|
|
caption := Trim(Title);
|
|||
|
|
FormStyle := mstyle;
|
|||
|
|
windowState := mstate;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYSSKListRMBMJDZEYCX.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mnewHandle := frmYSSKListRMBMJDZEYCX.Handle;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
9: //<2F>˻<EFBFBD><CBBB>ڳ<EFBFBD><DAB3><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>
|
|||
|
|
begin
|
|||
|
|
if frmBankMoneyQCList = nil then
|
|||
|
|
begin
|
|||
|
|
frmBankMoneyQCList := TfrmBankMoneyQCList.Create(application.MainForm);
|
|||
|
|
with frmBankMoneyQCList do
|
|||
|
|
begin
|
|||
|
|
caption := Trim(Title);
|
|||
|
|
FormStyle := mstyle;
|
|||
|
|
windowState := mstate;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmBankMoneyQCList.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mnewHandle := frmBankMoneyQCList.Handle;
|
|||
|
|
end;
|
|||
|
|
10: //<2F>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>*
|
|||
|
|
begin
|
|||
|
|
bFound := FALSE;
|
|||
|
|
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
|
|||
|
|
begin
|
|||
|
|
if App.MainForm.MDIChildren[i].Caption = '<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>*' then
|
|||
|
|
begin
|
|||
|
|
BringWindowToTop(frmBankMoneyKHListLR.Handle);
|
|||
|
|
bFound := TRUE;
|
|||
|
|
Break;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
if not bFound then
|
|||
|
|
//if frmBaoGuanListBGZL=nil then
|
|||
|
|
begin
|
|||
|
|
frmBankMoneyKHListLR := TfrmBankMoneyKHList.Create(application.MainForm);
|
|||
|
|
with frmBankMoneyKHListLR do
|
|||
|
|
begin
|
|||
|
|
Title := '<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>*';
|
|||
|
|
caption := Trim(Title);
|
|||
|
|
FormStyle := mstyle;
|
|||
|
|
windowState := mstate;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmBankMoneyKHListLR.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mnewHandle := frmBankMoneyKHListLR.Handle;
|
|||
|
|
end;
|
|||
|
|
11: //<2F>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>ù<EFBFBD><C3B9><EFBFBD>*
|
|||
|
|
begin
|
|||
|
|
bFound := FALSE;
|
|||
|
|
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
|
|||
|
|
begin
|
|||
|
|
if App.MainForm.MDIChildren[i].Caption = '<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>ù<EFBFBD><C3B9><EFBFBD>*' then
|
|||
|
|
begin
|
|||
|
|
BringWindowToTop(frmBankMoneyKHListGL.Handle);
|
|||
|
|
bFound := TRUE;
|
|||
|
|
Break;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
if not bFound then
|
|||
|
|
//if frmBaoGuanListBGZL=nil then
|
|||
|
|
begin
|
|||
|
|
frmBankMoneyKHListGL := TfrmBankMoneyKHList.Create(application.MainForm);
|
|||
|
|
with frmBankMoneyKHListGL do
|
|||
|
|
begin
|
|||
|
|
Title := '<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>ù<EFBFBD><C3B9><EFBFBD>*';
|
|||
|
|
caption := Trim(Title);
|
|||
|
|
FormStyle := mstyle;
|
|||
|
|
windowState := mstate;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmBankMoneyKHListGL.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mnewHandle := frmBankMoneyKHListGL.Handle;
|
|||
|
|
end;
|
|||
|
|
1101: //<2F>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>ø<EFBFBD><C3B8><EFBFBD>¼<EFBFBD><C2BC>*
|
|||
|
|
begin
|
|||
|
|
bFound := FALSE;
|
|||
|
|
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
|
|||
|
|
begin
|
|||
|
|
if App.MainForm.MDIChildren[i].Caption = '<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>ø<EFBFBD><C3B8><EFBFBD>¼<EFBFBD><C2BC>*' then
|
|||
|
|
begin
|
|||
|
|
BringWindowToTop(frmFuFeeListLR.Handle);
|
|||
|
|
bFound := TRUE;
|
|||
|
|
Break;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
if not bFound then
|
|||
|
|
//if frmBaoGuanListBGZL=nil then
|
|||
|
|
begin
|
|||
|
|
frmFuFeeListLR := TfrmFuFeeList.Create(application.MainForm);
|
|||
|
|
with frmFuFeeListLR do
|
|||
|
|
begin
|
|||
|
|
Title := '<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>ø<EFBFBD><C3B8><EFBFBD>¼<EFBFBD><C2BC>*';
|
|||
|
|
caption := Trim(Title);
|
|||
|
|
FormStyle := mstyle;
|
|||
|
|
windowState := mstate;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmFuFeeListLR.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mnewHandle := frmFuFeeListLR.Handle;
|
|||
|
|
end;
|
|||
|
|
1102: //<2F>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>ø<EFBFBD><C3B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*
|
|||
|
|
begin
|
|||
|
|
bFound := FALSE;
|
|||
|
|
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
|
|||
|
|
begin
|
|||
|
|
if App.MainForm.MDIChildren[i].Caption = '<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>ø<EFBFBD><C3B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*' then
|
|||
|
|
begin
|
|||
|
|
BringWindowToTop(frmFuFeeListGL.Handle);
|
|||
|
|
bFound := TRUE;
|
|||
|
|
Break;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
if not bFound then
|
|||
|
|
//if frmBaoGuanListBGZL=nil then
|
|||
|
|
begin
|
|||
|
|
frmFuFeeListGL := TfrmFuFeeList.Create(application.MainForm);
|
|||
|
|
with frmFuFeeListGL do
|
|||
|
|
begin
|
|||
|
|
Title := '<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>ø<EFBFBD><C3B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*';
|
|||
|
|
caption := Trim(Title);
|
|||
|
|
FormStyle := mstyle;
|
|||
|
|
windowState := mstate;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmFuFeeListGL.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mnewHandle := frmFuFeeListGL.Handle;
|
|||
|
|
end;
|
|||
|
|
12: //<2F><>Ӧ<EFBFBD>̷<EFBFBD><CCB7><EFBFBD>¼<EFBFBD><C2BC>*
|
|||
|
|
begin
|
|||
|
|
bFound := FALSE;
|
|||
|
|
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
|
|||
|
|
begin
|
|||
|
|
if App.MainForm.MDIChildren[i].Caption = '<27><>Ӧ<EFBFBD>̷<EFBFBD><CCB7><EFBFBD>¼<EFBFBD><C2BC>*' then
|
|||
|
|
begin
|
|||
|
|
BringWindowToTop(frmBankMoneyGYSListLR.Handle);
|
|||
|
|
bFound := TRUE;
|
|||
|
|
Break;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
if not bFound then
|
|||
|
|
//if frmBaoGuanListBGZL=nil then
|
|||
|
|
begin
|
|||
|
|
frmBankMoneyGYSListLR := TfrmBankMoneyGYSList.Create(application.MainForm);
|
|||
|
|
with frmBankMoneyGYSListLR do
|
|||
|
|
begin
|
|||
|
|
Title := '<27><>Ӧ<EFBFBD>̷<EFBFBD><CCB7><EFBFBD>¼<EFBFBD><C2BC>*';
|
|||
|
|
caption := Trim(Title);
|
|||
|
|
FormStyle := mstyle;
|
|||
|
|
windowState := mstate;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmBankMoneyGYSListLR.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mnewHandle := frmBankMoneyGYSListLR.Handle;
|
|||
|
|
end;
|
|||
|
|
13: //<2F><>Ӧ<EFBFBD>̷<EFBFBD><CCB7>ù<EFBFBD><C3B9><EFBFBD>*
|
|||
|
|
begin
|
|||
|
|
bFound := FALSE;
|
|||
|
|
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
|
|||
|
|
begin
|
|||
|
|
if App.MainForm.MDIChildren[i].Caption = '<27><>Ӧ<EFBFBD>̷<EFBFBD><CCB7>ù<EFBFBD><C3B9><EFBFBD>*' then
|
|||
|
|
begin
|
|||
|
|
BringWindowToTop(frmBankMoneyGYSListGL.Handle);
|
|||
|
|
bFound := TRUE;
|
|||
|
|
Break;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
if not bFound then
|
|||
|
|
//if frmBaoGuanListBGZL=nil then
|
|||
|
|
begin
|
|||
|
|
frmBankMoneyGYSListGL := TfrmBankMoneyGYSList.Create(application.MainForm);
|
|||
|
|
with frmBankMoneyGYSListGL do
|
|||
|
|
begin
|
|||
|
|
Title := '<27><>Ӧ<EFBFBD>̷<EFBFBD><CCB7>ù<EFBFBD><C3B9><EFBFBD>*';
|
|||
|
|
caption := Trim(Title);
|
|||
|
|
FormStyle := mstyle;
|
|||
|
|
windowState := mstate;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmBankMoneyGYSListGL.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mnewHandle := frmBankMoneyGYSListGL.Handle;
|
|||
|
|
end;
|
|||
|
|
1: //<2F>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
begin
|
|||
|
|
if frmCGPriceChk = nil then
|
|||
|
|
begin
|
|||
|
|
frmCGPriceChk := TfrmCGPriceChk.Create(application.MainForm);
|
|||
|
|
with frmCGPriceChk do
|
|||
|
|
begin
|
|||
|
|
caption := Trim(Title);
|
|||
|
|
FormStyle := mstyle;
|
|||
|
|
windowState := mstate;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmCGPriceChk.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mnewHandle := frmCGPriceChk.Handle;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
2: //<2F><><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD> <20>б<EFBFBD><D0B1>水ť
|
|||
|
|
begin
|
|||
|
|
if frmGYSFKList = nil then
|
|||
|
|
begin
|
|||
|
|
frmGYSFKList := TfrmGYSFKList.Create(application.MainForm);
|
|||
|
|
with frmGYSFKList do
|
|||
|
|
begin
|
|||
|
|
caption := Trim(Title);
|
|||
|
|
FormStyle := mstyle;
|
|||
|
|
windowState := mstate;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmGYSFKList.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mnewHandle := frmGYSFKList.Handle;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
3: //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
begin
|
|||
|
|
if frmGYSFKChkList = nil then
|
|||
|
|
begin
|
|||
|
|
frmGYSFKChkList := TfrmGYSFKChkList.Create(application.MainForm);
|
|||
|
|
with frmGYSFKChkList do
|
|||
|
|
begin
|
|||
|
|
caption := Trim(Title);
|
|||
|
|
FormStyle := mstyle;
|
|||
|
|
windowState := mstate;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmGYSFKChkList.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mnewHandle := frmGYSFKChkList.Handle;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
401: //Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>
|
|||
|
|
begin
|
|||
|
|
if frmYFMXlistMonDay = nil then
|
|||
|
|
begin
|
|||
|
|
frmYFMXlistMonDay := TfrmYFMXlistMonDay.Create(application.MainForm);
|
|||
|
|
with frmYFMXlistMonDay do
|
|||
|
|
begin
|
|||
|
|
caption := Trim(Title);
|
|||
|
|
FormStyle := mstyle;
|
|||
|
|
windowState := mstate;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYFMXlistMonDay.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mnewHandle := frmYFMXlistMonDay.Handle;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
6: //<2F>տ<EFBFBD><D5BF>Ǽ<EFBFBD> <20>б<EFBFBD><D0B1>水ť
|
|||
|
|
begin
|
|||
|
|
if frmKHSKList = nil then
|
|||
|
|
begin
|
|||
|
|
frmKHSKList := TfrmKHSKList.Create(application.MainForm);
|
|||
|
|
with frmKHSKList do
|
|||
|
|
begin
|
|||
|
|
caption := Trim(Title);
|
|||
|
|
FormStyle := mstyle;
|
|||
|
|
windowState := mstate;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmKHSKList.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mnewHandle := frmKHSKList.Handle;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
601: //<2F>տ<EFBFBD><D5BF><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
begin
|
|||
|
|
if frmKHSKChkList = nil then
|
|||
|
|
begin
|
|||
|
|
frmKHSKChkList := TfrmKHSKChkList.Create(application.MainForm);
|
|||
|
|
with frmKHSKChkList do
|
|||
|
|
begin
|
|||
|
|
caption := Trim(Title);
|
|||
|
|
FormStyle := mstyle;
|
|||
|
|
windowState := mstate;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmKHSKChkList.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mnewHandle := frmKHSKChkList.Handle;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
701: //Ⱦ<><C8BE>¼<EFBFBD><C2BC>*
|
|||
|
|
begin
|
|||
|
|
bFound := FALSE;
|
|||
|
|
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
|
|||
|
|
begin
|
|||
|
|
if App.MainForm.MDIChildren[i].Caption = 'Ⱦ<><C8BE>¼<EFBFBD><C2BC>*' then
|
|||
|
|
begin
|
|||
|
|
BringWindowToTop(frmGYSRFListLR.Handle);
|
|||
|
|
bFound := TRUE;
|
|||
|
|
Break;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
if not bFound then
|
|||
|
|
//if frmBaoGuanListBGZL=nil then
|
|||
|
|
begin
|
|||
|
|
frmGYSRFListLR := TfrmGYSRFList.Create(application.MainForm);
|
|||
|
|
with frmGYSRFListLR do
|
|||
|
|
begin
|
|||
|
|
Title := 'Ⱦ<><C8BE>¼<EFBFBD><C2BC>*';
|
|||
|
|
caption := Trim(Title);
|
|||
|
|
FormStyle := mstyle;
|
|||
|
|
windowState := mstate;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmGYSRFListLR.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mnewHandle := frmGYSRFListLR.Handle;
|
|||
|
|
end;
|
|||
|
|
702: //Ⱦ<>ѹ<EFBFBD><D1B9><EFBFBD>*
|
|||
|
|
begin
|
|||
|
|
bFound := FALSE;
|
|||
|
|
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
|
|||
|
|
begin
|
|||
|
|
if App.MainForm.MDIChildren[i].Caption = 'Ⱦ<>ѹ<EFBFBD><D1B9><EFBFBD>*' then
|
|||
|
|
begin
|
|||
|
|
BringWindowToTop(frmGYSRFListGL.Handle);
|
|||
|
|
bFound := TRUE;
|
|||
|
|
Break;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
if not bFound then
|
|||
|
|
//if frmBaoGuanListBGZL=nil then
|
|||
|
|
begin
|
|||
|
|
frmGYSRFListGL := TfrmGYSRFList.Create(application.MainForm);
|
|||
|
|
with frmGYSRFListGL do
|
|||
|
|
begin
|
|||
|
|
Title := 'Ⱦ<>ѹ<EFBFBD><D1B9><EFBFBD>*';
|
|||
|
|
caption := Trim(Title);
|
|||
|
|
FormStyle := mstyle;
|
|||
|
|
windowState := mstate;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmGYSRFListGL.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mnewHandle := frmGYSRFListGL.Handle;
|
|||
|
|
end;
|
|||
|
|
901: //ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>*
|
|||
|
|
begin
|
|||
|
|
bFound := FALSE;
|
|||
|
|
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
|
|||
|
|
begin
|
|||
|
|
if App.MainForm.MDIChildren[i].Caption = 'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>*' then
|
|||
|
|
begin
|
|||
|
|
BringWindowToTop(frmYWJSListLR.Handle);
|
|||
|
|
bFound := TRUE;
|
|||
|
|
Break;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
if not bFound then
|
|||
|
|
//if frmBaoGuanListBGZL=nil then
|
|||
|
|
begin
|
|||
|
|
frmYWJSListLR := TfrmYWJSList.Create(application.MainForm);
|
|||
|
|
with frmYWJSListLR do
|
|||
|
|
begin
|
|||
|
|
Title := 'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>*';
|
|||
|
|
caption := Trim(Title);
|
|||
|
|
FormStyle := mstyle;
|
|||
|
|
windowState := mstate;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYWJSListLR.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mnewHandle := frmYWJSListLR.Handle;
|
|||
|
|
end;
|
|||
|
|
902: //ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*
|
|||
|
|
begin
|
|||
|
|
bFound := FALSE;
|
|||
|
|
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
|
|||
|
|
begin
|
|||
|
|
if App.MainForm.MDIChildren[i].Caption = 'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*' then
|
|||
|
|
begin
|
|||
|
|
BringWindowToTop(frmYWJSListGL.Handle);
|
|||
|
|
bFound := TRUE;
|
|||
|
|
Break;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
if not bFound then
|
|||
|
|
//if frmBaoGuanListBGZL=nil then
|
|||
|
|
begin
|
|||
|
|
frmYWJSListGL := TfrmYWJSList.Create(application.MainForm);
|
|||
|
|
with frmYWJSListGL do
|
|||
|
|
begin
|
|||
|
|
Title := 'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*';
|
|||
|
|
caption := Trim(Title);
|
|||
|
|
FormStyle := mstyle;
|
|||
|
|
windowState := mstate;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYWJSListGL.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mnewHandle := frmYWJSListGL.Handle;
|
|||
|
|
end;
|
|||
|
|
{402: //Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
begin
|
|||
|
|
if frmYFFKListDZ=nil then
|
|||
|
|
begin
|
|||
|
|
frmYFFKListDZ:= TfrmYFFKListDZ.Create(application.MainForm);
|
|||
|
|
with frmYFFKListDZ do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYFFKListDZ.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmYFFKListDZ.Handle;
|
|||
|
|
|
|||
|
|
end ;}
|
|||
|
|
{5: //<2F><><EFBFBD>۵<EFBFBD><DBB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
begin
|
|||
|
|
if frmXSPriceChk=nil then
|
|||
|
|
begin
|
|||
|
|
frmXSPriceChk:= TfrmXSPriceChk.Create(application.MainForm);
|
|||
|
|
with frmXSPriceChk do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmXSPriceChk.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmXSPriceChk.Handle;
|
|||
|
|
|
|||
|
|
end ;}
|
|||
|
|
{502: //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
begin
|
|||
|
|
if frmXSQtyChk=nil then
|
|||
|
|
begin
|
|||
|
|
frmXSQtyChk:= TfrmXSQtyChk.Create(application.MainForm);
|
|||
|
|
with frmXSQtyChk do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmXSQtyChk.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmXSQtyChk.Handle;
|
|||
|
|
|
|||
|
|
end ; }
|
|||
|
|
{7: //Ӧ<>տ<EFBFBD><D5BF>տ<EFBFBD>ͳ<EFBFBD><CDB3>
|
|||
|
|
begin
|
|||
|
|
if frmYSSKList=nil then
|
|||
|
|
begin
|
|||
|
|
frmYSSKList:= TfrmYSSKList.Create(application.MainForm);
|
|||
|
|
with frmYSSKList do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYSSKList.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmYSSKList.Handle;
|
|||
|
|
end ;}
|
|||
|
|
{602: //Ӧ<>տ<EFBFBD><D5BF><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
begin
|
|||
|
|
if frmYSSKListRMBMJDZEY=nil then
|
|||
|
|
begin
|
|||
|
|
frmYSSKListRMBMJDZEY:= TfrmYSSKListRMBMJDZEY.Create(application.MainForm);
|
|||
|
|
with frmYSSKListRMBMJDZEY do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYSSKListRMBMJDZEY.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmYSSKListRMBMJDZEY.Handle;
|
|||
|
|
end ;
|
|||
|
|
7: //<2F><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>ѯ
|
|||
|
|
begin
|
|||
|
|
if frmYSSKListRMBMJ=nil then
|
|||
|
|
begin
|
|||
|
|
frmYSSKListRMBMJ:= TfrmYSSKListRMBMJ.Create(application.MainForm);
|
|||
|
|
with frmYSSKListRMBMJ do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYSSKListRMBMJ.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmYSSKListRMBMJ.Handle;
|
|||
|
|
end ;}
|
|||
|
|
{8: //Ӧ<>տ<EFBFBD><D5BF><EFBFBD><EFBFBD>˵<EFBFBD>
|
|||
|
|
begin
|
|||
|
|
if frmYSMXlistMonDay=nil then
|
|||
|
|
begin
|
|||
|
|
frmYSMXlistMonDay:= TfrmYSMXlistMonDay.Create(application.MainForm);
|
|||
|
|
with frmYSMXlistMonDay do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYSMXlistMonDay.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmYSMXlistMonDay.Handle;
|
|||
|
|
end ; }
|
|||
|
|
{ 10: //<2F>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>
|
|||
|
|
begin
|
|||
|
|
if frmBankMoneyKHList=nil then
|
|||
|
|
begin
|
|||
|
|
frmBankMoneyKHList:= TfrmBankMoneyKHList.Create(application.MainForm);
|
|||
|
|
with frmBankMoneyKHList do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmBankMoneyKHList.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmBankMoneyKHList.Handle;
|
|||
|
|
end ; }
|
|||
|
|
{10: //<2F><><EFBFBD>Ʊ<EEB7A2>Ǽ<EFBFBD>
|
|||
|
|
begin
|
|||
|
|
if frmYFFPSave=nil then
|
|||
|
|
begin
|
|||
|
|
frmYFFPSave:= TfrmYFFPSave.Create(application.MainForm);
|
|||
|
|
with frmYFFPSave do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYFFPSave.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmYFFPSave.Handle;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
11: //<2F><><EFBFBD>Ʊ<EEB7A2>Ǽ<EFBFBD>
|
|||
|
|
begin
|
|||
|
|
if frmYSFPSave=nil then
|
|||
|
|
begin
|
|||
|
|
frmYSFPSave:= TfrmYSFPSave.Create(application.MainForm);
|
|||
|
|
with frmYSFPSave do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYSFPSave.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmYSFPSave.Handle;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
12: //<2F><><EFBFBD>õǼ<C3B5>
|
|||
|
|
begin
|
|||
|
|
bFound := FALSE;
|
|||
|
|
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
|
|||
|
|
begin
|
|||
|
|
if App.MainForm.MDIChildren[i].Caption = '<27><><EFBFBD>õǼ<C3B5>' then
|
|||
|
|
begin
|
|||
|
|
BringWindowToTop(frmOtherFeeSaveLR.Handle);
|
|||
|
|
bFound := TRUE;
|
|||
|
|
Break;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
if not bFound then
|
|||
|
|
//if frmBaoGuanListBGZL=nil then
|
|||
|
|
begin
|
|||
|
|
frmOtherFeeSaveLR:= TfrmOtherFeeSave.Create(application.MainForm);
|
|||
|
|
with frmOtherFeeSaveLR do
|
|||
|
|
begin
|
|||
|
|
Title:='<27><><EFBFBD>õǼ<C3B5>';
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmOtherFeeSaveLR.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmOtherFeeSaveLR.Handle;
|
|||
|
|
end ;
|
|||
|
|
13: //<2F><><EFBFBD>ò<EFBFBD>ѯ
|
|||
|
|
begin
|
|||
|
|
bFound := FALSE;
|
|||
|
|
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
|
|||
|
|
begin
|
|||
|
|
if App.MainForm.MDIChildren[i].Caption = '<27><><EFBFBD>ò<EFBFBD>ѯ' then
|
|||
|
|
begin
|
|||
|
|
BringWindowToTop(frmOtherFeeSaveCX.Handle);
|
|||
|
|
bFound := TRUE;
|
|||
|
|
Break;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
if not bFound then
|
|||
|
|
//if frmBaoGuanListBGZL=nil then
|
|||
|
|
begin
|
|||
|
|
frmOtherFeeSaveCX:= TfrmOtherFeeSave.Create(application.MainForm);
|
|||
|
|
with frmOtherFeeSaveCX do
|
|||
|
|
begin
|
|||
|
|
Title:='<27><><EFBFBD>ò<EFBFBD>ѯ';
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmOtherFeeSaveCX.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmOtherFeeSaveCX.Handle;
|
|||
|
|
end ; }
|
|||
|
|
end; // end case
|
|||
|
|
|
|||
|
|
Result := mnewHandle;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
//===========================================================
|
|||
|
|
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݿ<EFBFBD><DDBF><EFBFBD><EFBFBD>ӳ<EFBFBD>
|
|||
|
|
//===========================================================
|
|||
|
|
|
|||
|
|
function ConnData(): Boolean;
|
|||
|
|
begin
|
|||
|
|
if not Assigned(DataLink_Money) then
|
|||
|
|
DataLink_Money := TDataLink_Money.Create(Application);
|
|||
|
|
try
|
|||
|
|
with DataLink_Money.ADOLink do
|
|||
|
|
begin
|
|||
|
|
if not Connected then
|
|||
|
|
begin
|
|||
|
|
Connected := false;
|
|||
|
|
ConnectionString := DConString;
|
|||
|
|
LoginPrompt := false;
|
|||
|
|
Connected := true;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
Result := true;
|
|||
|
|
except
|
|||
|
|
Result := false;
|
|||
|
|
application.MessageBox('<27><><EFBFBD>ݿ<EFBFBD><DDBF><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><><EFBFBD><EFBFBD>', mb_Ok + MB_ICONERROR);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
initialization
|
|||
|
|
CoInitialize(nil);
|
|||
|
|
dxUnitsLoader.Initialize;
|
|||
|
|
|
|||
|
|
|
|||
|
|
finalization
|
|||
|
|
DataLink_Money.Free;
|
|||
|
|
application := NewDllApp;
|
|||
|
|
dxUnitsLoader.Finalize;
|
|||
|
|
|
|||
|
|
end.
|
|||
|
|
|