Group_99/D7myYunxiang
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
main
D7myYunxiang/云翔生产管理(MYSC.dll)/U_GetDllForm.pas

1809 lines
49 KiB
ObjectPascal
Raw Permalink Normal View History

1
2025-01-20 13:04:03 +08:00
unit U_GetDllForm; //LA30
interface
uses
Windows, Messages, forms, OleCtnrs, DateUtils, SysUtils, ADODB, dxCore,
IniFiles, 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_purview, U_QCRKList, U_LLRKList, U_ZHCPList, U_KuWeiList,
U_KuWeiKCList, U_ZHCPDJList, U_CGRKList, U_CGPriceChk_BF, U_CPListDML,
U_CPXiaoShouList, U_MYSC_CKTJ, U_CKCR_TJCX, U_QCCKList_CK, U_QCRKList_SD,
U_PBCGRKList, U_PBCGRKList_RCGL, U_PBCGRKList_PBKC, U_PBCGRKList_QCKC,
U_MCGRKList, U_BPZdy_LRM, U_CPTypeM, U_MCGRKList_MKC, U_BPZdy_LRX, U_XCGRKList,
U_KCPBCGRKList_RCDJ, U_PBCGRKList_RCDJ, U_MCGRKList_XKC, U_MCGRKList_HBKC,
U_PBCGRKList_PBCK, U_MLProductOrderNewList, U_MLConTract_NX, U_YX_WorkRZ,
U_YX_WorkGS, U_MCGRKList_THCK, U_PMCGRKList, U_BPZdy_LRPM, U_XCGRKList_TH,
U_LLRKList_WJG, U_LLRKList_CP, U_MCGRKList_PTCL, U_PBCGRKList_CP, U_FLCGRKList,
U_PMCGRKList_TH, U_ProductOrderNewList_New, U_ProductOrderNewList_BQNew,
U_MJManageNewFDNew_New, U_JYJT_New, U_MainWFBCKList, U_MianWFBKCList,
U_MPDRKList, U_PBKCList, U_JGCKList, U_PBRKMX, U_MCGCKList, U_MCGKCList,
U_CGCX, U_MLSC, U_MLX, U_MCP, U_MCGKCListNew, U_MPZKCListNew, U_MPDRKListNew,
1
2025-07-05 15:14:36 +08:00
U_MPDCKListNew, U_NameDY, U_LLCKList, U_LLKCList;
1
2025-01-20 13:04:03 +08:00
/////////////////////////////////////////////////////////////////
// <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
frmZHCPListGQX, frmZHCPListLR, frmZHCPListCX, frmZHCPListKC: TfrmZHCPList;
frmZHCPDJListDJ, frmZHCPDJListDJGQX, frmZHCPDJListBJ: TfrmZHCPDJList;
frmCPListDMLGQX, frmCPListDMLLR, frmCPListDMLCX, frmCPListDMLKC: TfrmCPListDML;
frmPBCGRKList_RCDJLR, frmPBCGRKList_RCDJGL: TfrmPBCGRKList_RCDJ;
frmJGCKListLR, frmJGCKListGL: TfrmJGCKList;
frmMCGRKListOld, frmMCGRKListNew: TfrmMCGRKList;
frmMCPGL, frmMCPLR: TfrmMCP;
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 := PChar(GName);
DCode := PChar(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);
1
2025-07-05 15:14:36 +08:00
SetLength(user, 255);
1
2025-01-20 13:04:03 +08:00
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;
10.29cxz
2025-10-29 09:34:28 +08:00
// DParameters1 := '<27><>Ȩ<EFBFBD><C8A8>';
// DName := 'ADMIN';
// DCode := 'ADMIN';
1
2025-01-20 13:04:03 +08:00
if trim(DataBaseStr) <> '' then
DConString := DataBaseStr;
10.29cxz
2025-10-29 09:34:28 +08:00
1
2025-01-20 13:04:03 +08:00
// DParameters3:='1';
if not ConnData() then
begin
result := 0;
exit;
end;
// <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>
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ģ<EFBFBD>鴰<EFBFBD><E9B4B0>
case FormID of
-1: //<2F><>˾<EFBFBD><CBBE>Ʒ¼<C6B7><C2BC>(<28><>)*
begin
bFound := FALSE;
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
begin
if App.MainForm.MDIChildren[i].Caption = '<27><>˾<EFBFBD><CBBE>Ʒ¼<C6B7><C2BC>(<28><>)*' then
begin
BringWindowToTop(frmZHCPListGQX.Handle);
bFound := TRUE;
Break;
end;
end;
if not bFound then
//if frmBaoGuanListBGZL=nil then
begin
frmZHCPListGQX := TfrmZHCPList.Create(application.MainForm);
with frmZHCPListGQX do
begin
Title := '<27><>˾<EFBFBD><CBBE>Ʒ¼<C6B7><C2BC>(<28><>)*';
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmZHCPListGQX.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmZHCPListGQX.Handle;
end;
-2: //<2F><>˾<EFBFBD><CBBE>Ʒ¼<C6B7><C2BC>*
begin
bFound := FALSE;
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
begin
if App.MainForm.MDIChildren[i].Caption = '<27><>˾<EFBFBD><CBBE>Ʒ¼<C6B7><C2BC>*' then
begin
BringWindowToTop(frmZHCPListLR.Handle);
bFound := TRUE;
Break;
end;
end;
if not bFound then
begin
frmZHCPListLR := TfrmZHCPList.Create(application.MainForm);
with frmZHCPListLR do
begin
Title := '<27><>˾<EFBFBD><CBBE>Ʒ¼<C6B7><C2BC>*';
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmZHCPListLR.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmZHCPListLR.Handle;
end;
-3: //<2F><>˾<EFBFBD><CBBE>Ʒ<EFBFBD><C6B7>ѯ*
begin
bFound := FALSE;
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
begin
if App.MainForm.MDIChildren[i].Caption = '<27><>˾<EFBFBD><CBBE>Ʒ<EFBFBD><C6B7>ѯ*' then
begin
BringWindowToTop(frmZHCPListCX.Handle);
bFound := TRUE;
Break;
end;
end;
if not bFound then
//if frmBaoGuanListBGZL=nil then
begin
frmZHCPListCX := TfrmZHCPList.Create(application.MainForm);
with frmZHCPListCX do
begin
Title := '<27><>˾<EFBFBD><CBBE>Ʒ<EFBFBD><C6B7>ѯ*';
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmZHCPListCX.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmZHCPListCX.Handle;
end;
-6: //<2F>ҹ<EFBFBD><D2B9><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><D2B9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѯ*' then
begin
BringWindowToTop(frmZHCPListKC.Handle);
bFound := TRUE;
Break;
end;
end;
if not bFound then
//if frmBaoGuanListBGZL=nil then
begin
frmZHCPListKC := TfrmZHCPList.Create(application.MainForm);
with frmZHCPListKC do
begin
Title := '<27>ҹ<EFBFBD><D2B9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѯ*';
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmZHCPListKC.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmZHCPListKC.Handle;
end;
-5: //<2F><>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>
begin
if frmKuWeiList = nil then
begin
frmKuWeiList := TfrmKuWeiList.Create(application.MainForm);
with frmKuWeiList do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmKuWeiList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmKuWeiList.Handle;
end;
-7: //<2F><>λ<EFBFBD><CEBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѯ
begin
if frmKuWeiKCList = nil then
begin
frmKuWeiKCList := TfrmKuWeiKCList.Create(application.MainForm);
with frmKuWeiKCList do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmKuWeiKCList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmKuWeiKCList.Handle;
end;
-8: //<2F><><EFBFBD>۵Ǽ<DBB5>*
begin
bFound := FALSE;
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
begin
if App.MainForm.MDIChildren[i].Caption = '<27><><EFBFBD>۵Ǽ<DBB5>*' then
begin
BringWindowToTop(frmZHCPDJListDJ.Handle);
bFound := TRUE;
Break;
end;
end;
if not bFound then
//if frmBaoGuanListBGZL=nil then
begin
frmZHCPDJListDJ := TfrmZHCPDJList.Create(application.MainForm);
with frmZHCPDJListDJ do
begin
Title := '<27><><EFBFBD>۵Ǽ<DBB5>*';
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmZHCPDJListDJ.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmZHCPDJListDJ.Handle;
end;
-9: //<2F><><EFBFBD>۹<EFBFBD><DBB9><EFBFBD>*
begin
bFound := FALSE;
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
begin
if App.MainForm.MDIChildren[i].Caption = '<27><><EFBFBD>۹<EFBFBD><DBB9><EFBFBD>*' then
begin
BringWindowToTop(frmZHCPDJListBJ.Handle);
bFound := TRUE;
Break;
end;
end;
if not bFound then
//if frmBaoGuanListBGZL=nil then
begin
frmZHCPDJListBJ := TfrmZHCPDJList.Create(application.MainForm);
with frmZHCPDJListBJ do
begin
Title := '<27><><EFBFBD>۹<EFBFBD><DBB9><EFBFBD>*';
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmZHCPDJListBJ.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmZHCPDJListBJ.Handle;
end;
-10: //<2F><><EFBFBD>۵Ǽ<DBB5>(<28><>Ȩ<EFBFBD><C8A8>)*
begin
bFound := FALSE;
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
begin
if App.MainForm.MDIChildren[i].Caption = '<27><><EFBFBD>۵Ǽ<DBB5>(<28><>Ȩ<EFBFBD><C8A8>)*' then
begin
BringWindowToTop(frmZHCPDJListDJGQX.Handle);
bFound := TRUE;
Break;
end;
end;
if not bFound then
//if frmBaoGuanListBGZL=nil then
begin
frmZHCPDJListDJGQX := TfrmZHCPDJList.Create(application.MainForm);
1
2025-07-05 15:14:36 +08:00
with frmZHCPDJListDJGQX do
1
2025-01-20 13:04:03 +08:00
begin
Title := '<27><><EFBFBD>۵Ǽ<DBB5>(<28><>Ȩ<EFBFBD><C8A8>)*';
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmZHCPDJListDJGQX.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmZHCPDJListDJGQX.Handle;
end;
0: //Ȩ<>޿<EFBFBD><DEBF><EFBFBD>
begin
if frmpurviewDL = nil then
begin
frmpurviewDL := TfrmpurviewDL.Create(application.MainForm);
with frmpurviewDL do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmpurviewDL.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmpurviewDL.Handle;
end;
97: //<2F><>˾<EFBFBD><CBBE><EFBFBD>ϵǼ<CFB5>
begin
if frmYX_WorkGS = nil then
begin
frmYX_WorkGS := TfrmYX_WorkGS.Create(application.MainForm);
with frmYX_WorkGS do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmYX_WorkGS.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmYX_WorkGS.Handle;
end;
98: //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>־
begin
if frmYX_WorkRZ = nil then
begin
frmYX_WorkRZ := TfrmYX_WorkRZ.Create(application.MainForm);
with frmYX_WorkRZ do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmYX_WorkRZ.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmYX_WorkRZ.Handle;
end;
99: //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬ<EFBFBD><CDAC>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>
begin
if frmMLConTract_NX = nil then
begin
frmMLConTract_NX := TfrmMLConTract_NX.Create(application.MainForm);
with frmMLConTract_NX do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmMLConTract_NX.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmMLConTract_NX.Handle;
end;
100: //<2F><><EFBFBD><EFBFBD>Ⱦɫ<C8BE>ƻ<EFBFBD><C6BB><EFBFBD>
begin
if frmMLProductOrderNewList = nil then
begin
frmMLProductOrderNewList := TfrmMLProductOrderNewList.Create(application.MainForm);
with frmMLProductOrderNewList do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmMLProductOrderNewList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmMLProductOrderNewList.Handle;
end;
1: //<2F>ڳ<EFBFBD><DAB3><EFBFBD><EFBFBD><EFBFBD>
begin
if frmQCRKList = nil then
begin
frmQCRKList := TfrmQCRKList.Create(application.MainForm);
with frmQCRKList do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmQCRKList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmQCRKList.Handle;
end;
2: //<2F>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
begin
if frmLLRKList = nil then
begin
frmLLRKList := TfrmLLRKList.Create(application.MainForm);
with frmLLRKList do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmLLRKList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmLLRKList.Handle;
end;
1
2025-07-05 15:14:36 +08:00
23: //<2F>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>ϳ<EFBFBD><CFB3><EFBFBD>
begin
if frmLLCKList = nil then
begin
frmLLCKList := TfrmLLCKList.Create(application.MainForm);
with frmLLCKList do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmLLCKList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmLLCKList.Handle;
end;
24: //<2F>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>Ͽ<EFBFBD><CFBF><EFBFBD>
begin
if frmLLKCList = nil then
begin
frmLLKCList := TfrmLLKCList.Create(application.MainForm);
with frmLLKCList do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmLLKCList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmLLKCList.Handle;
end;
1
2025-01-20 13:04:03 +08:00
21: //<2F><><EFBFBD>ӹ<EFBFBD><D3B9><EFBFBD><EFBFBD><EFBFBD>
begin
if frmLLRKList_WJG = nil then
begin
frmLLRKList_WJG := TfrmLLRKList_WJG.Create(application.MainForm);
with frmLLRKList_WJG do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmLLRKList_WJG.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmLLRKList_WJG.Handle;
end;
22: //<2F><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>
begin
if frmLLRKList_CP = nil then
begin
frmLLRKList_CP := TfrmLLRKList_CP.Create(application.MainForm);
with frmLLRKList_CP do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmLLRKList_CP.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmLLRKList_CP.Handle;
end;
3: //<2F><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>
begin
if frmPBCGRKList = nil then
begin
frmPBCGRKList := TfrmPBCGRKList.Create(application.MainForm);
with frmPBCGRKList do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmPBCGRKList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmPBCGRKList.Handle;
end;
3101: //<2F>ӹ<EFBFBD><D3B9>뵥<EFBFBD>Ǽ<EFBFBD>*
begin
bFound := FALSE;
1
2025-07-05 15:14:36 +08:00
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
1
2025-01-20 13:04:03 +08:00
begin
1
2025-07-05 15:14:36 +08:00
if App.MainForm.MDIChildren[i].Caption = '<27>ӹ<EFBFBD><D3B9>뵥<EFBFBD>Ǽ<EFBFBD>*' then
1
2025-01-20 13:04:03 +08:00
begin
BringWindowToTop(frmPBCGRKList_RCDJLR.Handle);
bFound := TRUE;
Break;
end;
end;
if not bFound then
//if frmBaoGuanListBGZL=nil then
begin
frmPBCGRKList_RCDJLR := TfrmPBCGRKList_RCDJ.Create(application.MainForm);
with frmPBCGRKList_RCDJLR do
begin
Title := '<27>ӹ<EFBFBD><D3B9>뵥<EFBFBD>Ǽ<EFBFBD>*';
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmPBCGRKList_RCDJLR.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmPBCGRKList_RCDJLR.Handle;
end;
3102: //<2F>ӹ<EFBFBD><D3B9>뵥<EFBFBD><EBB5A5><EFBFBD><EFBFBD>*
begin
bFound := FALSE;
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
begin
if App.MainForm.MDIChildren[i].Caption = '<27>ӹ<EFBFBD><D3B9>뵥<EFBFBD><EBB5A5><EFBFBD><EFBFBD>*' then
begin
BringWindowToTop(frmPBCGRKList_RCDJGL.Handle);
bFound := TRUE;
Break;
end;
end;
if not bFound then
//if frmBaoGuanListBGZL=nil then
begin
frmPBCGRKList_RCDJGL := TfrmPBCGRKList_RCDJ.Create(application.MainForm);
with frmPBCGRKList_RCDJGL do
begin
Title := '<27>ӹ<EFBFBD><D3B9>뵥<EFBFBD><EBB5A5><EFBFBD><EFBFBD>*';
canshu1 := '<27><>Ȩ<EFBFBD><C8A8>';
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmPBCGRKList_RCDJGL.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmPBCGRKList_RCDJGL.Handle;
end;
666: //<2F><><EFBFBD><EFBFBD>
begin
if frmKCPBCGRKList_RCDJ = nil then
begin
frmKCPBCGRKList_RCDJ := TfrmKCPBCGRKList_RCDJ.Create(application.MainForm);
with frmKCPBCGRKList_RCDJ do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmKCPBCGRKList_RCDJ.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmKCPBCGRKList_RCDJ.Handle;
end;
3103: //<2F>ӹ<EFBFBD><D3B9><EFBFBD><EFBFBD><EFBFBD>
begin
bFound := FALSE;
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
begin
if App.MainForm.MDIChildren[i].Caption = '<27>ӹ<EFBFBD><D3B9><EFBFBD><EFBFBD><EFBFBD>*' then
begin
BringWindowToTop(frmJGCKListLR.Handle);
bFound := TRUE;
Break;
end;
end;
if not bFound then
//if frmBaoGuanListBGZL=nil then
begin
frmJGCKListLR := TfrmJGCKList.Create(application.MainForm);
with frmJGCKListLR do
begin
Title := '<27>ӹ<EFBFBD><D3B9><EFBFBD><EFBFBD><EFBFBD>*';
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmJGCKListLR.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmJGCKListLR.Handle;
end;
300: //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
begin
if frmPBKCList = nil then
begin
frmPBKCList := TfrmPBKCList.Create(application.MainForm);
with frmPBKCList do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmPBKCList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmPBKCList.Handle;
end;
301: //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
begin
if frmPBCGRKList_PBCK = nil then
begin
frmPBCGRKList_PBCK := TfrmPBCGRKList_PBCK.Create(application.MainForm);
with frmPBCGRKList_PBCK do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmPBCGRKList_PBCK.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmPBCGRKList_PBCK.Handle;
end;
302: //<2F>ڳ<EFBFBD><DAB3><EFBFBD><EFBFBD><EFBFBD>
begin
if frmPBCGRKList_QCKC = nil then
begin
frmPBCGRKList_QCKC := TfrmPBCGRKList_QCKC.Create(application.MainForm);
with frmPBCGRKList_QCKC do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmPBCGRKList_QCKC.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmPBCGRKList_QCKC.Handle;
end;
303: //<2F><>Ʒ<EFBFBD><C6B7>¼<EFBFBD><C2BC>
begin
if frmBPZDY_LRM = nil then
begin
frmBPZDY_LRM := TfrmBPZDY_LRM.Create(application.MainForm);
with frmBPZDY_LRM do
begin
flag := 'MName';
flagName := '<27><>';
ToolButton1.Visible := False;
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmBPZDY_LRM.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmBPZDY_LRM.Handle;
end;
// 304: //<2F>޲ɹ<DEB2><C9B9><EFBFBD><EFBFBD><EFBFBD> (<28><>)
// begin
// if frmMCGRKList = nil then
// begin
// frmMCGRKList := TfrmMCGRKList.Create(application.MainForm);
// with frmMCGRKList do
// begin
// caption := Trim(Title);
// FormStyle := mstyle;
// windowState := mstate;
// BorderStyle := mborderstyle;
// //show;
// end;
// end
// else
// frmMCGRKList.BringToFront;
// //<2F><><EFBFBD><EFBFBD>
// mnewHandle := frmMCGRKList.Handle;
// end;
304: //<2F>޲ɹ<DEB2><C9B9><EFBFBD><EFBFBD><EFBFBD> (<28><>)
begin
bFound := FALSE;
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
begin
if App.MainForm.MDIChildren[i].Caption = '<27>޲ɹ<DEB2><C9B9><EFBFBD><EFBFBD><EFBFBD> (<28><>)' then
begin
BringWindowToTop(frmMCGRKListOld.Handle);
bFound := TRUE;
Break;
end;
end;
if not bFound then
begin
frmMCGRKListOld := TfrmMCGRKList.Create(application.MainForm);
with frmMCGRKListOld do
begin
Title := '<27>޲ɹ<DEB2><C9B9><EFBFBD><EFBFBD><EFBFBD> (<28><>)';
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmMCGRKListOld.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmMCGRKListOld.Handle;
end;
3111: //<2F>޳<EFBFBD><DEB3><EFBFBD>
begin
if frmMCGCKList = nil then
begin
frmMCGCKList := TfrmMCGCKList.Create(application.MainForm);
with frmMCGCKList do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmMCGCKList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmMCGCKList.Handle;
end;
3222: //<2F>޿<EFBFBD><DEBF><EFBFBD>
begin
if frmMCGKCList = nil then
begin
frmMCGKCList := TfrmMCGKCList.Create(application.MainForm);
with frmMCGKCList do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmMCGKCList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmMCGKCList.Handle;
end;
3333: //<2F>ɹ<EFBFBD><C9B9><EFBFBD>ѯ
begin
if frmCGCX = nil then
begin
frmCGCX := TfrmCGCX.Create(application.MainForm);
with frmCGCX do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmCGCX.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmCGCX.Handle;
end;
3411: //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
begin
if frmMLSC = nil then
begin
frmMLSC := TfrmMLSC.Create(application.MainForm);
with frmMLSC do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmMLSC.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmMLSC.Handle;
end;
3040: //<2F><><EFBFBD>˻<EFBFBD><CBBB><EFBFBD><EFBFBD><EFBFBD>
begin
if frmMCGRKList_THCK = nil then
begin
frmMCGRKList_THCK := TfrmMCGRKList_THCK.Create(application.MainForm);
with frmMCGRKList_THCK do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmMCGRKList_THCK.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmMCGRKList_THCK.Handle;
end;
3041: //<2F><>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
begin
if frmMCGRKList_PTCL = nil then
begin
frmMCGRKList_PTCL := TfrmMCGRKList_PTCL.Create(application.MainForm);
with frmMCGRKList_PTCL do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmMCGRKList_PTCL.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmMCGRKList_PTCL.Handle;
end;
3042: //<2F><><EFBFBD>̵<EFBFBD><CCB5><EFBFBD><EFBFBD><EFBFBD>
begin
if frmMPDRKList = nil then
begin
frmMPDRKList := TfrmMPDRKList.Create(application.MainForm);
with frmMPDRKList do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmMPDRKList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmMPDRKList.Handle;
end;
3051: //<2F><>&<26>޷IJ<DEB7><C4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѯ
begin
if frmMainWFBCKList = nil then
begin
frmMainWFBCKList := TfrmMainWFBCKList.Create(application.MainForm);
with frmMainWFBCKList do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmMainWFBCKList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmMainWFBCKList.Handle;
end;
305: //<2F><>&<26>޷IJ<DEB7><C4B2><EFBFBD><EFBFBD><EFBFBD>
begin
if frmMianWFBKCList = nil then
begin
frmMianWFBKCList := TfrmMianWFBKCList.Create(application.MainForm);
with frmMianWFBKCList do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmMianWFBKCList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmMianWFBKCList.Handle;
end;
{305: //<2F>޿<EFBFBD><DEBF><EFBFBD>
begin
if frmMCGRKList_MKC=nil then
begin
frmMCGRKList_MKC:= TfrmMCGRKList_MKC.Create(application.MainForm);
with frmMCGRKList_MKC do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmMCGRKList_MKC.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmMCGRKList_MKC.Handle;
end ; }
306: //<2F><>Ʒ<EFBFBD><C6B7>
begin
if frmBPZDY_LRX = nil then
begin
frmBPZDY_LRX := TfrmBPZDY_LRX.Create(application.MainForm);
with frmBPZDY_LRX do
begin
caption := Trim(Title);
FormStyle := mstyle;
ViewFlag := false;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmBPZDY_LRX.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmBPZDY_LRX.Handle;
end;
307: //<2F>߲ɹ<DFB2><C9B9><EFBFBD><EFBFBD><EFBFBD>
begin
if frmXCGRKList = nil then
begin
frmXCGRKList := TfrmXCGRKList.Create(application.MainForm);
with frmXCGRKList do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmXCGRKList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmXCGRKList.Handle;
end;
3070: //<2F><><EFBFBD>˻<EFBFBD><CBBB><EFBFBD><EFBFBD><EFBFBD>
begin
if frmXCGRKList_TH = nil then
begin
frmXCGRKList_TH := TfrmXCGRKList_TH.Create(application.MainForm);
with frmXCGRKList_TH do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmXCGRKList_TH.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmXCGRKList_TH.Handle;
end;
308: //<2F>߿<EFBFBD><DFBF><EFBFBD>
begin
if frmMCGRKList_XKC = nil then
begin
frmMCGRKList_XKC := TfrmMCGRKList_XKC.Create(application.MainForm);
with frmMCGRKList_XKC do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmMCGRKList_XKC.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmMCGRKList_XKC.Handle;
end;
309: //<2F><><EFBFBD>޲ɹ<DEB2><C9B9><EFBFBD><EFBFBD><EFBFBD>
begin
if frmPMCGRKList = nil then
begin
frmPMCGRKList := TfrmPMCGRKList.Create(application.MainForm);
with frmPMCGRKList do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmPMCGRKList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmPMCGRKList.Handle;
end;
310: //<2F><><EFBFBD><EFBFBD>Ʒ<EFBFBD><C6B7>¼<EFBFBD><C2BC>
begin
if frmBPZDY_LRPM = nil then
begin
frmBPZDY_LRPM := TfrmBPZDY_LRPM.Create(application.MainForm);
with frmBPZDY_LRPM do
begin
flag := 'PMName';
flagName := '<27><><EFBFBD><EFBFBD>';
ToolButton1.Visible := False;
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmBPZDY_LRPM.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmBPZDY_LRPM.Handle;
end;
311: //<2F>ֿ<EFBFBD><D6BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܲ<EFBFBD>ѯ
begin
if frmMCGRKList_HBKC = nil then
begin
frmMCGRKList_HBKC := TfrmMCGRKList_HBKC.Create(application.MainForm);
with frmMCGRKList_HBKC do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmMCGRKList_HBKC.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmMCGRKList_HBKC.Handle;
end;
312: //<2F><><EFBFBD><EFBFBD><EFBFBD>˻<EFBFBD>
begin
if frmPMCGRKList_TH = nil then
begin
frmPMCGRKList_TH := TfrmPMCGRKList_TH.Create(application.MainForm);
with frmPMCGRKList_TH do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmPMCGRKList_TH.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmPMCGRKList_TH.Handle;
end;
{314: //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
begin
if frmFLCGRKList=nil then
begin
frmFLCGRKList:= TfrmFLCGRKList.Create(application.MainForm);
with frmFLCGRKList do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmFLCGRKList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmFLCGRKList.Handle;
end ;}
315: //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
begin
if frmPBCGRKList_PBCK = nil then
begin
frmPBCGRKList_PBCK := TfrmPBCGRKList_PBCK.Create(application.MainForm);
with frmPBCGRKList_PBCK do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmPBCGRKList_PBCK.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmPBCGRKList_PBCK.Handle;
end;
-990: //<2F>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>
begin
if frmCGRKList = nil then
begin
frmCGRKList := TfrmCGRKList.Create(application.MainForm);
with frmCGRKList do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmCGRKList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmCGRKList.Handle;
end;
4: //<2F><><EFBFBD><EFBFBD><EFBFBD>뵥<EFBFBD>Ǽ<EFBFBD>
begin
if frmCPXiaoShouList = nil then
begin
frmCPXiaoShouList := TfrmCPXiaoShouList.Create(application.MainForm);
with frmCPXiaoShouList do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmCPXiaoShouList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmCPXiaoShouList.Handle;
end;
5: //<2F>ֿ<EFBFBD><D6BF><EFBFBD><EFBFBD><EFBFBD>ͳ<EFBFBD>Ʋ<EFBFBD>ѯ
begin
if frmMYSC_CKTJ = nil then
begin
frmMYSC_CKTJ := TfrmMYSC_CKTJ.Create(application.MainForm);
with frmMYSC_CKTJ do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmMYSC_CKTJ.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmMYSC_CKTJ.Handle;
end;
6: //<2F>ֿ<EFBFBD><D6BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͳ<EFBFBD>Ʋ<EFBFBD>ѯ
begin
if frmCKCR_TJCX = nil then
begin
frmCKCR_TJCX := TfrmCKCR_TJCX.Create(application.MainForm);
with frmCKCR_TJCX do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmCKCR_TJCX.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmCKCR_TJCX.Handle;
end;
7: //<2F>ӹ<EFBFBD><D3B9><EFBFBD><EFBFBD><EFBFBD>
begin
if frmQCCKList_CK = nil then
begin
frmQCCKList_CK := TfrmQCCKList_CK.Create(application.MainForm);
with frmQCCKList_CK do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmQCCKList_CK.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmQCCKList_CK.Handle;
end;
{8: //<2F>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>
begin
if frmQCRKList_SD=nil then
begin
frmQCRKList_SD:= TfrmQCRKList_SD.Create(application.MainForm);
with frmQCRKList_SD do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmQCRKList_SD.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmQCRKList_SD.Handle;
end ;}
9: //<2F>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
begin
if frmCGPriceChk_BF = nil then
begin
frmCGPriceChk_BF := TfrmCGPriceChk_BF.Create(application.MainForm);
with frmCGPriceChk_BF do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmCGPriceChk_BF.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmCGPriceChk_BF.Handle;
end;
-11: //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>(<28><>)*
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><C2BC>(<28><>)*' then
begin
BringWindowToTop(frmCPListDMLGQX.Handle);
bFound := TRUE;
Break;
end;
end;
if not bFound then
//if frmBaoGuanListBGZL=nil then
begin
frmCPListDMLGQX := TfrmCPListDML.Create(application.MainForm);
with frmCPListDMLGQX do
begin
Title := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>(<28><>)*';
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmCPListDMLGQX.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmCPListDMLGQX.Handle;
end;
-12: //<2F><><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 = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>*' then
begin
BringWindowToTop(frmCPListDMLLR.Handle);
bFound := TRUE;
Break;
end;
end;
if not bFound then
//if frmBaoGuanListBGZL=nil then
begin
frmCPListDMLLR := TfrmCPListDML.Create(application.MainForm);
with frmCPListDMLLR do
begin
Title := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>*';
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmCPListDMLLR.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmCPListDMLLR.Handle;
end;
-13: //<2F><><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>ѯ*' then
begin
BringWindowToTop(frmCPListDMLCX.Handle);
bFound := TRUE;
Break;
end;
end;
if not bFound then
//if frmBaoGuanListBGZL=nil then
begin
frmCPListDMLCX := TfrmCPListDML.Create(application.MainForm);
with frmCPListDMLCX do
begin
Title := '<27><><EFBFBD><EFBFBD><EFBFBD>ϲ<EFBFBD>ѯ*';
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmCPListDMLCX.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmCPListDMLCX.Handle;
end;
-14: //<2F>ҹ<EFBFBD><D2B9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѯ(<28><><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><D2B9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѯ(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*' then
begin
BringWindowToTop(frmCPListDMLKC.Handle);
bFound := TRUE;
Break;
end;
end;
if not bFound then
//if frmBaoGuanListBGZL=nil then
begin
frmCPListDMLKC := TfrmCPListDML.Create(application.MainForm);
with frmCPListDMLKC do
begin
Title := '<27>ҹ<EFBFBD><D2B9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѯ(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*';
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmCPListDMLKC.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmCPListDMLKC.Handle;
end;
411: //<2F><><EFBFBD>ʼ<EFBFBD><CABC><EFBFBD>
begin
if frmPBRKMX = nil then
begin
frmPBRKMX := TfrmPBRKMX.Create(application.MainForm);
with frmPBRKMX do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmPBRKMX.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmPBRKMX.Handle;
end;
511: //<2F><><EFBFBD><EFBFBD><EFBFBD>Ͷ<EFBFBD><CDB6><EFBFBD>
begin
if frmMLX = nil then
begin
frmMLX := TfrmMLX.Create(application.MainForm);
with frmMLX do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmMLX.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmMLX.Handle;
end;
5121: //<2F><>Ʒ<EFBFBD><C6B7>(<28><>Ȩ<EFBFBD><C8A8>)*
begin
bFound := FALSE;
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
begin
if App.MainForm.MDIChildren[i].Caption = '<27><>Ʒ<EFBFBD><C6B7>(<28><>Ȩ<EFBFBD><C8A8>)*' then
begin
BringWindowToTop(frmMCPGL.Handle);
bFound := TRUE;
Break;
end;
end;
if not bFound then
begin
frmMCPGL := TfrmMCP.Create(application.MainForm);
with frmMCPGL do
begin
Title := '<27><>Ʒ<EFBFBD><C6B7>(<28><>Ȩ<EFBFBD><C8A8>)*';
sfPrice := 1;
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmMCPGL.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmMCPGL.Handle;
end;
5122: //<2F><>Ʒ<EFBFBD><C6B7>(<28><>Ȩ<EFBFBD><C8A8>)*
begin
bFound := FALSE;
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
begin
if App.MainForm.MDIChildren[i].Caption = '<27><>Ʒ<EFBFBD><C6B7>(<28><>Ȩ<EFBFBD><C8A8>)*' then
begin
BringWindowToTop(frmMCPLR.Handle);
bFound := TRUE;
Break;
end;
end;
if not bFound then
begin
frmMCPLR := TfrmMCP.Create(application.MainForm);
with frmMCPLR do
begin
Title := '<27><>Ʒ<EFBFBD><C6B7>(<28><>Ȩ<EFBFBD><C8A8>)*';
sfPrice := 0;
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmMCPLR.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmMCPLR.Handle;
end;
513: //<2F>޲ɹ<DEB2><C9B9><EFBFBD><EFBFBD><EFBFBD> (<28><>)
begin
bFound := FALSE;
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
begin
if App.MainForm.MDIChildren[i].Caption = '<27>޲ɹ<DEB2><C9B9><EFBFBD><EFBFBD><EFBFBD> (<28><>)' then
begin
BringWindowToTop(frmMCGRKListNew.Handle);
bFound := TRUE;
Break;
end;
end;
if not bFound then
begin
frmMCGRKListNew := TfrmMCGRKList.Create(application.MainForm);
with frmMCGRKListNew do
begin
Title := '<27>޲ɹ<DEB2><C9B9><EFBFBD><EFBFBD><EFBFBD> (<28><>)';
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmMCGRKListNew.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmMCGRKListNew.Handle;
end;
514: //<2F>޿<EFBFBD><DEBF><EFBFBD>(<28><>)
begin
if frmMPZKCListNew = nil then
begin
frmMPZKCListNew := TfrmMPZKCListNew.Create(application.MainForm);
with frmMPZKCListNew do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmMPZKCListNew.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmMPZKCListNew.Handle;
end;
515: //<2F><><EFBFBD>̵<EFBFBD><CCB5><EFBFBD><EFBFBD><EFBFBD>(<28><>)
begin
if frmMPDRKListNew = nil then
begin
frmMPDRKListNew := TfrmMPDRKListNew.Create(application.MainForm);
with frmMPDRKListNew do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmMPDRKListNew.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmMPDRKListNew.Handle;
end;
516: //<2F><><EFBFBD>̵<EFBFBD><CCB5><EFBFBD><EFBFBD><EFBFBD>(<28><>)
begin
if frmMPDCKListNew = nil then
begin
frmMPDCKListNew := TfrmMPDCKListNew.Create(application.MainForm);
with frmMPDCKListNew do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmMPDCKListNew.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmMPDCKListNew.Handle;
end;
517: //<2F>޳<EFBFBD><DEB3><EFBFBD>(<28><>)
begin
if frmMCGCKList = nil then
begin
frmMCGCKList := TfrmMCGCKList.Create(application.MainForm);
with frmMCGCKList do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmMCGCKList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmMCGCKList.Handle;
end;
611: //<2F><><EFBFBD>ִ<EFBFBD>ӡ
begin
if frmNameDY = nil then
begin
frmNameDY := TfrmNameDY.Create(application.MainForm);
with frmNameDY do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmNameDY.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := frmNameDY.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_MYSC) then
DataLink_MYSC := TDataLink_MYSC.Create(Application);
try
with DataLink_MYSC.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_MYSC.Free;
application := NewDllApp;
dxUnitsLoader.Finalize;
end.
Reference in New Issue Copy Permalink