1254 lines
36 KiB
ObjectPascal
1254 lines
36 KiB
ObjectPascal
unit U_GetDllForm;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, forms, OleCtnrs, DateUtils, SysUtils, ADODB, IniFiles,
|
||
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 //U_ModulePromptList
|
||
|
||
uses
|
||
U_DataLink, U_Fun, U_iniParam, U_ContractListXF, U_ContractListXF_SH,
|
||
U_ProductOrderMoneyList, U_ProductOrderNewList_JD, U_ProductOrderNewList_GDJD,
|
||
U_ProductOrderNewList_HTJD, U_JGSXKNewList, U_JGSXCKOutList, U_JGPBCKKCList,
|
||
U_JGSXKNewList_SH, U_JGSXKNewList_CPCK, U_JGSXKNewList_CPCKCX,
|
||
U_JGSXKNewList_CPCKSH, U_JGSXKNewList_CLGLCX, U_CLManage, U_CLShuiPiao,
|
||
U_CLShuiPiao_SH, U_CLYouKa, U_CLYouKa_SH, U_CaiGouSQChkList, U_CaiGouSQList,
|
||
U_CaiGouSQCXList, U_JWLInChkList, U_JWLOutChkList, U_JWLKCList,
|
||
U_JWLInChkCXList, U_JWLOutChkCXList, U_CLManageJBC_JiuF, U_JGSXCKOutList_DJ,
|
||
U_CLYouKa_Qty, U_CLYouJS_CX, U_JGPBCKKCList_Month, U_JGPBCKKCList_MRT,
|
||
U_JGPBCKKCList_JSYCX, U_CLYouKa_SHDJ, U_JGPBCKKCList_BengCheCX,
|
||
U_JGSXKNewList_CPCK_HZ, U_CLYouKa_CZGCF, U_ContractListXF_WC, U_CLYouKa_GZMX,
|
||
U_JWLKCList_HZ, U_ContractListXF_CX, U_CLShuiPiao_CX, U_ContractListXF_LSCX,
|
||
U_JGPBCKKCList_SJGZCX, U_BCHZ_Year, U_CLManageJBC_GZMX, U_BCHZ_Year_JSYSF,
|
||
U_JGSXKNewList_CLGLCXMgg, U_JGSXKNewList_CPCKMgg, U_JGSXKNewList_CLGLCXMgg_GL,
|
||
U_JGSXKNewList_CLGLCX_HZMgg_GL, U_JGPBCKKCList_BengCheCXMgg,U_CCHZ_Year,
|
||
U_JGPBCKKCList_JSYCXMgg, U_GDLLManage_Main, U_JBCHZ_Year, U_JWLKCList_MoneyHZ;
|
||
|
||
var
|
||
frmCaiGouSQListJWL, frmCaiGouSQListJWLGQX: TfrmCaiGouSQList;
|
||
frmCaiGouSQChkListJWL: TfrmCaiGouSQChkList;
|
||
frmCaiGouSQCXListJWL: TfrmCaiGouSQCXList;
|
||
frmJWLInChkList, frmJWLInChkListJWL: TfrmJWLInChkList;
|
||
frmJWLOutChkList, frmJWLOutChkListJWL: TfrmJWLOutChkList;
|
||
frmJWLKCList, frmJWLKCListJWL: TfrmJWLKCList;
|
||
frmJWLInChkCXList, frmJWLInChkCXListJWL: TfrmJWLInChkCXList;
|
||
frmJWLOutChkCXList, frmJWLOutChkCXListJWL: TfrmJWLOutChkCXList;
|
||
|
||
/////////////////////////////////////////////////////////////////
|
||
// <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> //
|
||
/////////////////////////////////////////////////////////////////
|
||
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 := '117.149.181.112,7781';
|
||
//server:='.';
|
||
dtbase := 'ShanFengdata';
|
||
user := 'sa';
|
||
pswd := 'rightsoft@123';
|
||
//pswd:='rightsoft';
|
||
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
|
||
if trim(DataBaseStr) <> '' then
|
||
DConString := DataBaseStr;
|
||
//DParameters1:='<27><>Ȩ<EFBFBD><C8A8>';
|
||
//DParameters2:='';
|
||
//DCode:='CS';
|
||
//DName:='<27><><EFBFBD><EFBFBD>'; //AILEEN
|
||
//DParameters3:='FANNY'; //12
|
||
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;
|
||
|
||
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ģ<EFBFBD>鴰<EFBFBD><E9B4B0>
|
||
case FormID of
|
||
1: //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬ
|
||
begin
|
||
if frmContractList_XF = nil then
|
||
begin
|
||
frmContractList_XF := TfrmContractList_XF.Create(application.MainForm);
|
||
with frmContractList_XF do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmContractList_XF.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmContractList_XF.Handle;
|
||
end;
|
||
|
||
2: //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬ <20><><EFBFBD><EFBFBD>
|
||
begin
|
||
if frmContractList_XF_SH = nil then
|
||
begin
|
||
frmContractList_XF_SH := TfrmContractList_XF_SH.Create(application.MainForm);
|
||
with frmContractList_XF_SH do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmContractList_XF_SH.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmContractList_XF_SH.Handle;
|
||
end;
|
||
|
||
201: //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬ <20><><EFBFBD><EFBFBD>
|
||
begin
|
||
if frmContractList_XF_WC = nil then
|
||
begin
|
||
frmContractList_XF_WC := TfrmContractList_XF_WC.Create(application.MainForm);
|
||
with frmContractList_XF_WC do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmContractList_XF_WC.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmContractList_XF_WC.Handle;
|
||
end;
|
||
|
||
202: //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬ<EFBFBD><CDAC>ѯ
|
||
begin
|
||
if frmContractList_XF_CX = nil then
|
||
begin
|
||
frmContractList_XF_CX := TfrmContractList_XF_CX.Create(application.MainForm);
|
||
with frmContractList_XF_CX do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmContractList_XF_CX.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmContractList_XF_CX.Handle;
|
||
end;
|
||
|
||
203: //<2F><>ʱС<CAB1><D0A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѯ
|
||
begin
|
||
if frmContractList_XF_LSCX = nil then
|
||
begin
|
||
frmContractList_XF_LSCX := TfrmContractList_XF_LSCX.Create(application.MainForm);
|
||
with frmContractList_XF_LSCX do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmContractList_XF_LSCX.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmContractList_XF_LSCX.Handle;
|
||
end;
|
||
|
||
3: //<2F><><EFBFBD><EFBFBD><EFBFBD>ƻ<EFBFBD><C6BB><EFBFBD>
|
||
begin
|
||
if frmProductOrderMoneyList = nil then
|
||
begin
|
||
frmProductOrderMoneyList := TfrmProductOrderMoneyList.Create(application.MainForm);
|
||
with frmProductOrderMoneyList do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmProductOrderMoneyList.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmProductOrderMoneyList.Handle;
|
||
end;
|
||
|
||
4: //ԭ<><D4AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>
|
||
begin
|
||
if frmJGSXNewList = nil then
|
||
begin
|
||
frmJGSXNewList := TfrmJGSXNewList.Create(application.MainForm);
|
||
with frmJGSXNewList do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmJGSXNewList.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmJGSXNewList.Handle;
|
||
end;
|
||
|
||
5: //ԭ<><D4AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
begin
|
||
if frmJGSXNewList_SH = nil then
|
||
begin
|
||
frmJGSXNewList_SH := TfrmJGSXNewList_SH.Create(application.MainForm);
|
||
with frmJGSXNewList_SH do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmJGSXNewList_SH.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmJGSXNewList_SH.Handle;
|
||
end;
|
||
|
||
51: //ԭ<>ϳ<EFBFBD><CFB3><EFBFBD><EFBFBD>Ǽ<EFBFBD>
|
||
begin
|
||
if frmJGSXCKOutList_DJ = nil then
|
||
begin
|
||
frmJGSXCKOutList_DJ := TfrmJGSXCKOutList_DJ.Create(application.MainForm);
|
||
with frmJGSXCKOutList_DJ do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmJGSXCKOutList_DJ.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmJGSXCKOutList_DJ.Handle;
|
||
end;
|
||
|
||
6: //<2F><><EFBFBD>ͳ<EFBFBD><CDB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
begin
|
||
if frmJGSXCKOutList = nil then
|
||
begin
|
||
frmJGSXCKOutList := TfrmJGSXCKOutList.Create(application.MainForm);
|
||
with frmJGSXCKOutList do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmJGSXCKOutList.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmJGSXCKOutList.Handle;
|
||
end;
|
||
|
||
7: //ԭ<>Ͽ<EFBFBD><CFBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
begin
|
||
if frmJGPBCKKCList = nil then
|
||
begin
|
||
frmJGPBCKKCList := TfrmJGPBCKKCList.Create(application.MainForm);
|
||
with frmJGPBCKKCList do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmJGPBCKKCList.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmJGPBCKKCList.Handle;
|
||
end;
|
||
|
||
71: //ԭ<><D4AD><EFBFBD>±<EFBFBD><C2B1><EFBFBD><EFBFBD><EFBFBD>ѯ
|
||
begin
|
||
if frmJGPBCKKCList_Month = nil then
|
||
begin
|
||
frmJGPBCKKCList_Month := TfrmJGPBCKKCList_Month.Create(application.MainForm);
|
||
with frmJGPBCKKCList_Month do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmJGPBCKKCList_Month.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmJGPBCKKCList_Month.Handle;
|
||
end;
|
||
|
||
8: //<2F><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>
|
||
begin
|
||
if frmJGSXKNewList_CPCKMgg = nil then
|
||
begin
|
||
frmJGSXKNewList_CPCKMgg := TfrmJGSXKNewList_CPCKMgg.Create(application.MainForm);
|
||
with frmJGSXKNewList_CPCKMgg do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmJGSXKNewList_CPCKMgg.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmJGSXKNewList_CPCKMgg.Handle;
|
||
end;
|
||
|
||
9: //<2F><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
begin
|
||
if frmJGSXNewList_CPCKSH = nil then
|
||
begin
|
||
frmJGSXNewList_CPCKSH := TfrmJGSXNewList_CPCKSH.Create(application.MainForm);
|
||
with frmJGSXNewList_CPCKSH do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmJGSXNewList_CPCKSH.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmJGSXNewList_CPCKSH.Handle;
|
||
end;
|
||
|
||
10: //<2F><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѯ
|
||
begin
|
||
if frmJGSXNewList_CPCKCX = nil then
|
||
begin
|
||
frmJGSXNewList_CPCKCX := TfrmJGSXNewList_CPCKCX.Create(application.MainForm);
|
||
with frmJGSXNewList_CPCKCX do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmJGSXNewList_CPCKCX.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmJGSXNewList_CPCKCX.Handle;
|
||
end;
|
||
|
||
11: //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>
|
||
begin
|
||
if frmCLManage = nil then
|
||
begin
|
||
frmCLManage := TfrmCLManage.Create(application.MainForm);
|
||
with frmCLManage do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmCLManage.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmCLManage.Handle;
|
||
end;
|
||
|
||
12: //<2F><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ջ<EFBFBD><D5BB>ܲ<EFBFBD>ѯ
|
||
begin
|
||
if frmJGSXNewList_CLGLCX = nil then
|
||
begin
|
||
frmJGSXNewList_CLGLCX := TfrmJGSXNewList_CLGLCX.Create(application.MainForm);
|
||
with frmJGSXNewList_CLGLCX do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmJGSXNewList_CLGLCX.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmJGSXNewList_CLGLCX.Handle;
|
||
end;
|
||
|
||
1202: //<2F><><EFBFBD>̹<EFBFBD><CCB9><EFBFBD>
|
||
begin
|
||
if frmJGSXKNewList_CLGLCX_HZMgg_GL = nil then
|
||
begin
|
||
frmJGSXKNewList_CLGLCX_HZMgg_GL := TfrmJGSXKNewList_CLGLCX_HZMgg_GL.Create(application.MainForm);
|
||
with frmJGSXKNewList_CLGLCX_HZMgg_GL do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmJGSXKNewList_CLGLCX_HZMgg_GL.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmJGSXKNewList_CLGLCX_HZMgg_GL.Handle;
|
||
end;
|
||
|
||
13: //ˮƱ<CBAE>Ǽ<EFBFBD>
|
||
begin
|
||
if frmCLShuiPiao = nil then
|
||
begin
|
||
frmCLShuiPiao := TfrmCLShuiPiao.Create(application.MainForm);
|
||
with frmCLShuiPiao do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmCLShuiPiao.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmCLShuiPiao.Handle;
|
||
end;
|
||
|
||
14: //ˮƱ<CBAE><C6B1><EFBFBD><EFBFBD>
|
||
begin
|
||
if frmCLShuiPiao_SH = nil then
|
||
begin
|
||
frmCLShuiPiao_SH := TfrmCLShuiPiao_SH.Create(application.MainForm);
|
||
with frmCLShuiPiao_SH do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmCLShuiPiao_SH.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmCLShuiPiao_SH.Handle;
|
||
end;
|
||
|
||
140: //ˮƱ<CBAE><C6B1>ѯ
|
||
begin
|
||
if frmCLShuiPiao_CX = nil then
|
||
begin
|
||
frmCLShuiPiao_CX := TfrmCLShuiPiao_CX.Create(application.MainForm);
|
||
with frmCLShuiPiao_CX do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormID := '2';
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmCLShuiPiao_CX.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmCLShuiPiao_CX.Handle;
|
||
end;
|
||
|
||
15: //<2F>Ϳ<EFBFBD><CDBF><EFBFBD>ֵ<EFBFBD>Ǽ<EFBFBD>
|
||
begin
|
||
if frmCLYouKa = nil then
|
||
begin
|
||
frmCLYouKa := TfrmCLYouKa.Create(application.MainForm);
|
||
with frmCLYouKa do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmCLYouKa.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmCLYouKa.Handle;
|
||
end;
|
||
|
||
16: //<2F>Ϳ<EFBFBD><CDBF><EFBFBD>ֵ<EFBFBD><D6B5><EFBFBD><EFBFBD>
|
||
begin
|
||
if frmCLYouKa_SH = nil then
|
||
begin
|
||
frmCLYouKa_SH := TfrmCLYouKa_SH.Create(application.MainForm);
|
||
with frmCLYouKa_SH do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmCLYouKa_SH.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmCLYouKa_SH.Handle;
|
||
end;
|
||
|
||
161: //<2F>Ϳ<EFBFBD><CDBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>
|
||
begin
|
||
if frmCLYouKa_Qty = nil then
|
||
begin
|
||
frmCLYouKa_Qty := TfrmCLYouKa_Qty.Create(application.MainForm);
|
||
with frmCLYouKa_Qty do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmCLYouKa_Qty.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmCLYouKa_Qty.Handle;
|
||
end;
|
||
|
||
162: //<2F><>ʻԱ<CABB><D4B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2>ѯ
|
||
begin
|
||
if frmCLYouJS_CX = nil then
|
||
begin
|
||
frmCLYouJS_CX := TfrmCLYouJS_CX.Create(application.MainForm);
|
||
with frmCLYouJS_CX do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmCLYouJS_CX.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmCLYouJS_CX.Handle;
|
||
end;
|
||
|
||
26: //<2F><>ʻԱ<CABB><D4B1><EFBFBD>ʷ<EFBFBD><CAB7>ŵǼ<C5B5>
|
||
begin
|
||
if frmCLManageJBC_JiuF = nil then
|
||
begin
|
||
frmCLManageJBC_JiuF := TfrmCLManageJBC_JiuF.Create(application.MainForm);
|
||
with frmCLManageJBC_JiuF do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmCLManageJBC_JiuF.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmCLManageJBC_JiuF.Handle;
|
||
end;
|
||
|
||
27: //<2F>ű<EFBFBD><C5B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ղ<EFBFBD>ѯ
|
||
begin
|
||
if frmJGPBCKKCList_MRT = nil then
|
||
begin
|
||
frmJGPBCKKCList_MRT := TfrmJGPBCKKCList_MRT.Create(application.MainForm);
|
||
with frmJGPBCKKCList_MRT do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmJGPBCKKCList_MRT.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmJGPBCKKCList_MRT.Handle;
|
||
end;
|
||
|
||
28: //<2F><>ʻԱ<CABB><D4B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>²<EFBFBD>ѯ
|
||
begin
|
||
if frmJGPBCKKCList_JSYCXMgg = nil then
|
||
begin
|
||
frmJGPBCKKCList_JSYCXMgg := TfrmJGPBCKKCList_JSYCXMgg.Create(application.MainForm);
|
||
with frmJGPBCKKCList_JSYCXMgg do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmJGPBCKKCList_JSYCXMgg.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmJGPBCKKCList_JSYCXMgg.Handle;
|
||
end;
|
||
|
||
29: //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵Ǽ<CBB5>
|
||
begin
|
||
if frmCLYouKa_SHDJ = nil then
|
||
begin
|
||
frmCLYouKa_SHDJ := TfrmCLYouKa_SHDJ.Create(application.MainForm);
|
||
with frmCLYouKa_SHDJ do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmCLYouKa_SHDJ.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmCLYouKa_SHDJ.Handle;
|
||
end;
|
||
|
||
30: //<2F><EFBFBD>ʻԱ<CABB><D4B1><EFBFBD>ʲ<EFBFBD>ѯ
|
||
begin
|
||
if frmJGPBCKKCList_BengCheCXMgg = nil then
|
||
begin
|
||
frmJGPBCKKCList_BengCheCXMgg := TfrmJGPBCKKCList_BengCheCXMgg.Create(application.MainForm);
|
||
with frmJGPBCKKCList_BengCheCXMgg do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmJGPBCKKCList_BengCheCXMgg.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmJGPBCKKCList_BengCheCXMgg.Handle;
|
||
end;
|
||
|
||
31: //<2F><><EFBFBD>رó<D8B1><C3B3><EFBFBD><EFBFBD>Ǽ<EFBFBD>
|
||
begin
|
||
if frmCLYouKa_CZGCF = nil then
|
||
begin
|
||
frmCLYouKa_CZGCF := TfrmCLYouKa_CZGCF.Create(application.MainForm);
|
||
with frmCLYouKa_CZGCF do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmCLYouKa_CZGCF.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmCLYouKa_CZGCF.Handle;
|
||
end;
|
||
|
||
32: //<2F><>ʻԱ<CABB><D4B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>
|
||
begin
|
||
if frmCLYouKa_GZMX = nil then
|
||
begin
|
||
frmCLYouKa_GZMX := TfrmCLYouKa_GZMX.Create(application.MainForm);
|
||
with frmCLYouKa_GZMX do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmCLYouKa_GZMX.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmCLYouKa_GZMX.Handle;
|
||
end;
|
||
17: //<2F><><EFBFBD><EFBFBD><EFBFBD>ϲɹ<CFB2><C9B9><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><EFBFBD><EFBFBD>ϲɹ<CFB2><C9B9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>' then
|
||
begin
|
||
BringWindowToTop(frmCaiGouSQListJWL.Handle);
|
||
bFound := TRUE;
|
||
Break;
|
||
end;
|
||
end;
|
||
if not bFound then
|
||
begin
|
||
frmCaiGouSQListJWL := TfrmCaiGouSQList.Create(application.MainForm);
|
||
with frmCaiGouSQListJWL do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmCaiGouSQListJWL.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmCaiGouSQListJWL.Handle;
|
||
end;
|
||
|
||
18: //<2F><><EFBFBD><EFBFBD><EFBFBD>ϲɹ<CFB2><C9B9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>(<28><>Ȩ<EFBFBD><C8A8>)
|
||
begin
|
||
bFound := FALSE;
|
||
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
|
||
begin
|
||
if App.MainForm.MDIChildren[i].Caption = '<27><><EFBFBD><EFBFBD><EFBFBD>ϲɹ<CFB2><C9B9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>(<28><>Ȩ<EFBFBD><C8A8>)' then
|
||
begin
|
||
BringWindowToTop(frmCaiGouSQListJWLGQX.Handle);
|
||
bFound := TRUE;
|
||
Break;
|
||
end;
|
||
end;
|
||
if not bFound then
|
||
begin
|
||
frmCaiGouSQListJWLGQX := TfrmCaiGouSQList.Create(application.MainForm);
|
||
with frmCaiGouSQListJWLGQX do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmCaiGouSQListJWLGQX.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmCaiGouSQListJWLGQX.Handle;
|
||
end;
|
||
|
||
19: //<2F><><EFBFBD><EFBFBD><EFBFBD>ϲɹ<CFB2><C9B9><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 = '<27><><EFBFBD><EFBFBD><EFBFBD>ϲɹ<CFB2><C9B9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
||
begin
|
||
BringWindowToTop(frmCaiGouSQChkListJWL.Handle);
|
||
bFound := TRUE;
|
||
Break;
|
||
end;
|
||
end;
|
||
if not bFound then
|
||
//if frmCaiGouSQChkList=nil then
|
||
begin
|
||
frmCaiGouSQChkListJWL := TfrmCaiGouSQChkList.Create(application.MainForm);
|
||
with frmCaiGouSQChkListJWL do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmCaiGouSQChkListJWL.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmCaiGouSQChkListJWL.Handle;
|
||
end;
|
||
|
||
20: //<2F><><EFBFBD><EFBFBD><EFBFBD>ϲɹ<CFB2><C9B9><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><EFBFBD><EFBFBD>ϲɹ<CFB2><C9B9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѯ' then
|
||
begin
|
||
BringWindowToTop(frmCaiGouSQCXListJWL.Handle);
|
||
bFound := TRUE;
|
||
Break;
|
||
end;
|
||
end;
|
||
if not bFound then
|
||
//if frmCaiGouSQCXList=nil then
|
||
begin
|
||
frmCaiGouSQCXListJWL := TfrmCaiGouSQCXList.Create(application.MainForm);
|
||
with frmCaiGouSQCXListJWL do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmCaiGouSQCXListJWL.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmCaiGouSQCXListJWL.Handle;
|
||
end;
|
||
|
||
21: //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><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 = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
||
begin
|
||
BringWindowToTop(frmJWLInChkListJWL.Handle);
|
||
bFound := TRUE;
|
||
Break;
|
||
end;
|
||
end;
|
||
if not bFound then
|
||
//if frmJWLInChkList=nil then
|
||
begin
|
||
frmJWLInChkListJWL := TfrmJWLInChkList.Create(application.MainForm);
|
||
with frmJWLInChkListJWL do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmJWLInChkListJWL.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmJWLInChkListJWL.Handle;
|
||
end;
|
||
|
||
22: //<2F><><EFBFBD><EFBFBD><EFBFBD>ϳ<EFBFBD><CFB3><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><EFBFBD><EFBFBD>ϳ<EFBFBD><CFB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
||
begin
|
||
BringWindowToTop(frmJWLOutChkListJWL.Handle);
|
||
bFound := TRUE;
|
||
Break;
|
||
end;
|
||
end;
|
||
if not bFound then
|
||
//if frmJWLOutChkList=nil then
|
||
begin
|
||
frmJWLOutChkListJWL := TfrmJWLOutChkList.Create(application.MainForm);
|
||
with frmJWLOutChkListJWL do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmJWLOutChkListJWL.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmJWLOutChkListJWL.Handle;
|
||
end;
|
||
|
||
23: //<2F><><EFBFBD><EFBFBD><EFBFBD>Ͽ<EFBFBD><CFBF><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8>ѯ
|
||
begin
|
||
bFound := FALSE;
|
||
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
|
||
begin
|
||
if App.MainForm.MDIChildren[i].Caption = '<27><><EFBFBD><EFBFBD><EFBFBD>Ͽ<EFBFBD><CFBF><EFBFBD><EFBFBD><EFBFBD>ѯ' then
|
||
begin
|
||
BringWindowToTop(frmJWLKCListJWL.Handle);
|
||
bFound := TRUE;
|
||
Break;
|
||
end;
|
||
end;
|
||
if not bFound then
|
||
//if frmJWLKCList=nil then
|
||
begin
|
||
frmJWLKCListJWL := TfrmJWLKCList.Create(application.MainForm);
|
||
with frmJWLKCListJWL do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmJWLKCListJWL.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmJWLKCListJWL.Handle;
|
||
end;
|
||
|
||
24: //<2F><><EFBFBD><EFBFBD><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 = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѯ' then
|
||
begin
|
||
BringWindowToTop(frmJWLInChkCXListJWL.Handle);
|
||
bFound := TRUE;
|
||
Break;
|
||
end;
|
||
end;
|
||
if not bFound then
|
||
// if frmJWLInChkCXList=nil then
|
||
begin
|
||
frmJWLInChkCXListJWL := TfrmJWLInChkCXList.Create(application.MainForm);
|
||
with frmJWLInChkCXListJWL do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmJWLInChkCXListJWL.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmJWLInChkCXListJWL.Handle;
|
||
end;
|
||
|
||
25: //<2F><><EFBFBD><EFBFBD><EFBFBD>ϳ<EFBFBD><CFB3><EFBFBD><EFBFBD><EFBFBD>ѯ
|
||
begin
|
||
bFound := FALSE;
|
||
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
|
||
begin
|
||
if App.MainForm.MDIChildren[i].Caption = '<27><><EFBFBD><EFBFBD><EFBFBD>ϳ<EFBFBD><CFB3><EFBFBD><EFBFBD><EFBFBD>ѯ' then
|
||
begin
|
||
BringWindowToTop(frmJWLOutChkCXListJWL.Handle);
|
||
bFound := TRUE;
|
||
Break;
|
||
end;
|
||
end;
|
||
if not bFound then
|
||
//if frmJWLOutChkCXList=nil then
|
||
begin
|
||
frmJWLOutChkCXListJWL := TfrmJWLOutChkCXList.Create(application.MainForm);
|
||
with frmJWLOutChkCXListJWL do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmJWLOutChkCXListJWL.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmJWLOutChkCXListJWL.Handle;
|
||
end;
|
||
|
||
251: //<2F><><EFBFBD><EFBFBD><EFBFBD>Ͽ<EFBFBD><CFBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>²<EFBFBD>ѯ
|
||
begin
|
||
if frmJWLKCList_HZ = nil then
|
||
begin
|
||
frmJWLKCList_HZ := TfrmJWLKCList_HZ.Create(application.MainForm);
|
||
with frmJWLKCList_HZ do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmJWLKCList_HZ.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmJWLKCList_HZ.Handle;
|
||
end;
|
||
|
||
40: //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȡ<EFBFBD>Ǽ<EFBFBD>
|
||
begin
|
||
if frmGDLLManage_Main = nil then
|
||
begin
|
||
frmGDLLManage_Main := TfrmGDLLManage_Main.Create(application.MainForm);
|
||
with frmGDLLManage_Main do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmGDLLManage_Main.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmGDLLManage_Main.Handle;
|
||
end;
|
||
|
||
41: //<2F><>ʻԱ<CABB><D4B1><EFBFBD>ʸ<EFBFBD><CAB8>·ݲ<C2B7>ѯ
|
||
begin
|
||
if frmJGPBCKKCList_SJGZCX = nil then
|
||
begin
|
||
frmJGPBCKKCList_SJGZCX := TfrmJGPBCKKCList_SJGZCX.Create(application.MainForm);
|
||
with frmJGPBCKKCList_SJGZCX do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmJGPBCKKCList_SJGZCX.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmJGPBCKKCList_SJGZCX.Handle;
|
||
end;
|
||
|
||
42: //<2F>ó<EFBFBD><C3B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݻ<EFBFBD><DDBB>ܲ<EFBFBD>ѯ
|
||
begin
|
||
if frmBCHZ_Year = nil then
|
||
begin
|
||
frmBCHZ_Year := TfrmBCHZ_Year.Create(application.MainForm);
|
||
with frmBCHZ_Year do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmBCHZ_Year.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmBCHZ_Year.Handle;
|
||
end;
|
||
|
||
43: //<2F><>ʻԱʵ<D4B1><CAB5><EFBFBD><EFBFBD><EFBFBD>ʻ<EFBFBD><CABB>ܲ<EFBFBD>ѯ
|
||
begin
|
||
if frmBCHZ_Year_JSYSF = nil then
|
||
begin
|
||
frmBCHZ_Year_JSYSF := TfrmBCHZ_Year_JSYSF.Create(application.MainForm);
|
||
with frmBCHZ_Year_JSYSF do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmBCHZ_Year_JSYSF.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmBCHZ_Year_JSYSF.Handle;
|
||
end;
|
||
|
||
45: //<2F><><EFBFBD>賵<EFBFBD><E8B3B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݻ<EFBFBD><DDBB>ܲ<EFBFBD>ѯ
|
||
begin
|
||
if frmJBCHZ_Year = nil then
|
||
begin
|
||
frmJBCHZ_Year := TfrmJBCHZ_Year.Create(application.MainForm);
|
||
with frmJBCHZ_Year do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmJBCHZ_Year.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmJBCHZ_Year.Handle;
|
||
end;
|
||
47: //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݻ<EFBFBD><DDBB>ܲ<EFBFBD>ѯ
|
||
begin
|
||
if frmCCHZ_Year = nil then
|
||
begin
|
||
frmCCHZ_Year := TfrmCCHZ_Year.Create(application.MainForm);
|
||
with frmCCHZ_Year do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmCCHZ_Year.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmCCHZ_Year.Handle;
|
||
end;
|
||
|
||
46: //<2F><><EFBFBD><EFBFBD><EFBFBD>Ϸ<EFBFBD><CFB7>û<EFBFBD><C3BB>ܲ<EFBFBD>ѯ
|
||
begin
|
||
if frmJWLKCList_MoneyHZ = nil then
|
||
begin
|
||
frmJWLKCList_MoneyHZ := TfrmJWLKCList_MoneyHZ.Create(application.MainForm);
|
||
with frmJWLKCList_MoneyHZ do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmJWLKCList_MoneyHZ.BringToFront;
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
mnewHandle := frmJWLKCList_MoneyHZ.Handle;
|
||
end;
|
||
end;
|
||
Result := mnewHandle;
|
||
end;
|
||
//===========================================================
|
||
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݿ<EFBFBD><DDBF><EFBFBD><EFBFBD>ӳ<EFBFBD>
|
||
//===========================================================
|
||
|
||
function ConnData(): Boolean;
|
||
var
|
||
IniFile: TIniFile;
|
||
begin
|
||
try
|
||
IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'SYSTEMSET.INI');
|
||
//PicSvr := IniFile.ReadString('SERVER', '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ','127.0.0.1');
|
||
UserDataFlag := IniFile.ReadString('SERVER', '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD>', '-1');
|
||
finally
|
||
IniFile.Free;
|
||
end;
|
||
if not Assigned(DataLink_TradeManage) then
|
||
DataLink_TradeManage := TDataLink_TradeManage.Create(Application);
|
||
try
|
||
with DataLink_TradeManage.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_TradeManage.Free;
|
||
application := NewDllApp;
|
||
dxUnitsLoader.Finalize;
|
||
|
||
end.
|
||
|