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.
|
|||
|
|
|