Group_01/D7wmbeiqi
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
e11c0d4666
D7wmbeiqi/贝其贸易管理/U_GetDllForm.pas

1069 lines
30 KiB
ObjectPascal
Raw Normal View History

~
2025-04-30 16:20:38 +08:00
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;
Function GetsysParam(muserId:pchar;fparam1:pchar):Boolean;
implementation
uses
U_DataLink,U_Fun,U_iniParam,U_MJManageNewFDNew,U_ProductOrderList,U_ProductOrderAnPai,U_SetBanZu
,U_BangAdd,U_MJEdit,U_JYOrderCDOne,U_JYOrderCDMore,U_CpCkSaoMNewSel,U_CKProductBCPInList
,U_CKProductBCPOutList,U_BanCpHCSaoM,U_CKProductBCPHCList,U_CKProductBCPKCList,
U_CKProductBCPKCHZList,U_CpRkSaoMNew,U_ClothContractList,U_ClothContractListDH,U_ClothContractListLL,
U_ClothContractKCList,U_ContractList,U_ProductOrderNewList,U_ClothContractListWJG,U_ClothPDInfoList,
U_OrderJDList,U_ProductOrderAnPaiGQX,U_ClothHCList,U_ContractListNX,U_ClothContractListSX,U_ClothContractListDHSX
,U_ClothContractListLLSX,U_ClothContractListHZ,U_ProductOrderLBNameSet,U_ClothContractListDHSXQJG,U_ProductOrderNewList_JD,
U_ProductOrderNewList_CY,U_HCList,U_OrderInPut_HYWT,U_ModulePromptList,U_ProductOrderNewList_FB,U_FanYangList,U_FanYangListHZ,
U_CKProductRKHZList,U_CKProductCKHZList,U_CKJYList,U_ProductOrderLBNameSetFZ,U_Contract_Main,U_frmFabList,U_ProductOrderNewList_FB_MX,
U_FanYangOther_List,U_ProductOrderNewList_JD10,U_FrmCgBJList,U_ProductOrderNewList_JDXin;
/////////////////////////////////////////////////////////////////
// <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
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:='192.168.1.99'; //192.168.1.113
//dtbase:='powertexdata';
server:='.';
server:='101.132.179.122,7781'; // 122.224.36.142,7781
dtbase:='beiqidata'; //jinzhicaidata
user:='sa';
pswd:='rightsoft@123';
// pswd:='numlock';
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>';
//DCode:='002';
//DName:='ADMIN';
增加页面
2025-11-21 09:37:23 +08:00
//DParameters2:='<27><><EFBFBD><EFBFBD>';
~
2025-04-30 16:20:38 +08:00
//DataBase:='<27><>Ȩ<EFBFBD><C8A8>';
if not ConnData() then
begin
result:=0;
exit;
end;
if IsINIFile() then
ReadINIFile()
else
WriteINIFile ;
GetsysParam('','');
// <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
0: //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬ(<28><><EFBFBD><EFBFBD>)
begin
if frmContractList=nil then
begin
frmContractList:= TfrmContractList.Create(application.MainForm);
with frmContractList do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmContractList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmContractList.Handle;
end ;
1: //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬ(<28><><EFBFBD><EFBFBD>)
begin
if frmContractListNX=nil then
begin
frmContractListNX:= TfrmContractListNX.Create(application.MainForm);
with frmContractListNX do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmContractListNX.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmContractListNX.Handle;
end ;
201: //<2F><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE>
begin
if frmProductOrderNewList=nil then
begin
frmProductOrderNewList:= TfrmProductOrderNewList.Create(application.MainForm);
with frmProductOrderNewList do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmProductOrderNewList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmProductOrderNewList.Handle;
end;
3: //<2F>ɹ<EFBFBD><C9B9><EFBFBD>ͬ
begin
if frmClothContractListHZ=nil then
begin
frmClothContractListHZ:= TfrmClothContractListHZ.Create(application.MainForm);
with frmClothContractListHZ do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmClothContractListHZ.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmClothContractListHZ.Handle;
end ;
4: //ɴ<><C9B4> <20><><EFBFBD><EFBFBD>
begin
if frmClothContractListDHSX=nil then
begin
frmClothContractListDHSX:= TfrmClothContractListDHSX.Create(application.MainForm);
with frmClothContractListDHSX do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmClothContractListDHSX.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmClothContractListDHSX.Handle;
end ;
41: //Ⱦɴ
begin
if frmClothContractListDHSXQJG=nil then
begin
frmClothContractListDHSXQJG:= TfrmClothContractListDHSXQJG.Create(application.MainForm);
with frmClothContractListDHSXQJG do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmClothContractListDHSXQJG.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmClothContractListDHSXQJG.Handle;
end ;
5: //ɴ<><C9B4>֯<EFBFBD><D6AF>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>
begin
if frmClothContractListLLSX=nil then
begin
frmClothContractListLLSX:= TfrmClothContractListLLSX.Create(application.MainForm);
with frmClothContractListLLSX do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmClothContractListLLSX.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmClothContractListLLSX.Handle;
end ;
61: //<2F><>ʾ<EFBFBD><CABE><EFBFBD><EFBFBD>
begin
if frmModulePromptList=nil then
begin
frmModulePromptList:= TfrmModulePromptList.Create(application.MainForm);
with frmModulePromptList do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmModulePromptList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmModulePromptList.Handle;
end ;
6: //<2F><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>
begin
if frmClothContractList=nil then
begin
frmClothContractList:= TfrmClothContractList.Create(application.MainForm);
with frmClothContractList do
begin
caption:=Trim(Title);
FType:=trim(database);
FType:='';
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmClothContractList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmClothContractList.Handle;
end ;
611: //<2F>ɹ<EFBFBD><C9B9><EFBFBD>ͬ
begin
if frmContract_Main=nil then
begin
frmContract_Main:= TfrmContract_Main.Create(application.MainForm);
with frmContract_Main do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmContract_Main.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmContract_Main.Handle;
end ;
7: //<2F><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
begin
if frmClothContractListDH=nil then
begin
frmClothContractListDH:= TfrmClothContractListDH.Create(application.MainForm);
with frmClothContractListDH do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmClothContractListDH.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmClothContractListDH.Handle;
end ;
8: //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
begin
if frmClothContractListLL=nil then
begin
frmClothContractListLL:= TfrmClothContractListLL.Create(application.MainForm);
with frmClothContractListLL do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmClothContractListLL.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmClothContractListLL.Handle;
end ;
9: //<2F><><EFBFBD>ӹ<EFBFBD>
begin
if frmClothContractListWJG=nil then
begin
frmClothContractListWJG:= TfrmClothContractListWJG.Create(application.MainForm);
with frmClothContractListWJG do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmClothContractListWJG.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmClothContractListWJG.Handle;
end ;
10: //<2F>زֹ<D8B2><D6B9><EFBFBD>
begin
if frmProductOrderAnPai=nil then
begin
frmProductOrderAnPai:= TfrmProductOrderAnPai.Create(application.MainForm);
with frmProductOrderAnPai do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmProductOrderAnPai.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmProductOrderAnPai.Handle;
end ;
2: // <20><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>
begin
if frmMJManageNewFDNewSF=nil then
begin
frmMJManageNewFDNewSF:= TfrmMJManageNewFDNewSF.Create(application.MainForm);
with frmMJManageNewFDNewSF do
begin
// fmanage:='<27><>Ȩ<EFBFBD><C8A8>';
fmanage:=Trim(database);
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmMJManageNewFDNewSF.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmMJManageNewFDNewSF.Handle;
end ;
11: //<2F><>ǩƤ<C7A9><C6A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
begin
if frmProductOrderLBNameSet=nil then
begin
frmProductOrderLBNameSet:= TfrmProductOrderLBNameSet.Create(application.MainForm);
with frmProductOrderLBNameSet do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmProductOrderLBNameSet.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmProductOrderLBNameSet.Handle;
end ;
12: //<2F><>ƥ<EFBFBD><C6A5><EFBFBD><EFBFBD>
begin
if frmMJEdit=nil then
begin
frmMJEdit:= TfrmMJEdit.Create(application.MainForm);
with frmMJEdit do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmMJEdit.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmMJEdit.Handle;
end ;
13: //<2F><><EFBFBD><EFBFBD>ɨ<EFBFBD><C9A8>
begin
if frmCpRkSaoMNew=nil then
begin
frmCpRkSaoMNew:= TfrmCpRkSaoMNew.Create(application.MainForm);
with frmCpRkSaoMNew do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmCpRkSaoMNew.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmCpRkSaoMNew.Handle;
end ;
14: //<2F><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>
begin
if frmCpCkSaoMNewSel=nil then
begin
frmCpCkSaoMNewSel:= TfrmCpCkSaoMNewSel.Create(application.MainForm);
with frmCpCkSaoMNewSel do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmCpCkSaoMNewSel.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmCpCkSaoMNewSel.Handle;
end ;
15: //<2F><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>
begin
if frmCKProductBCPInList=nil then
begin
frmCKProductBCPInList:= TfrmCKProductBCPInList.Create(application.MainForm);
with frmCKProductBCPInList do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmCKProductBCPInList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmCKProductBCPInList.Handle;
end ;
16: //<2F><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>
begin
if frmCKProductBCPOutList=nil then
begin
frmCKProductBCPOutList:= TfrmCKProductBCPOutList.Create(application.MainForm);
with frmCKProductBCPOutList do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmCKProductBCPOutList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmCKProductBCPOutList.Handle;
end ;
17: //<2F><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>
begin
if frmCKProductBCPKCList=nil then
begin
frmCKProductBCPKCList:= TfrmCKProductBCPKCList.Create(application.MainForm);
with frmCKProductBCPKCList do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmCKProductBCPKCList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmCKProductBCPKCList.Handle;
end ;
18: //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>
begin
if frmCKProductBCPKCHZList=nil then
begin
frmCKProductBCPKCHZList:= TfrmCKProductBCPKCHZList.Create(application.MainForm);
with frmCKProductBCPKCHZList do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmCKProductBCPKCHZList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmCKProductBCPKCHZList.Handle;
end ;
19: //<2F><><EFBFBD>鱨<EFBFBD><E9B1A8>
begin
if frmJYOrderCDOne=nil then
begin
frmJYOrderCDOne:= TfrmJYOrderCDOne.Create(application.MainForm);
with frmJYOrderCDOne do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmJYOrderCDOne.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmJYOrderCDOne.Handle;
end ;
20: //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
begin
if frmJYOrderCDMore=nil then
begin
frmJYOrderCDMore:= TfrmJYOrderCDMore.Create(application.MainForm);
with frmJYOrderCDMore do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmJYOrderCDMore.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmJYOrderCDMore.Handle;
end ;
21: //<2F><><EFBFBD>첼<EFBFBD><ECB2BC><EFBFBD><EFBFBD>
begin
if frmClothPDInfoList=nil then
begin
frmClothPDInfoList:= TfrmClothPDInfoList.Create(application.MainForm);
with frmClothPDInfoList do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmClothPDInfoList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmClothPDInfoList.Handle;
end ;
22: //<2F>زֲ<D8B2>ѯ
begin
if frmClothHCList=nil then
begin
frmClothHCList:= TfrmClothHCList.Create(application.MainForm);
with frmClothHCList do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmClothHCList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmClothHCList.Handle;
end ;
23: //<2F><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD>Ȳ<EFBFBD>ѯ
begin
if frmProductOrderNewList_JD=nil then
begin
frmProductOrderNewList_JD:= TfrmProductOrderNewList_JD.Create(application.MainForm);
with frmProductOrderNewList_JD do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmProductOrderNewList_JD.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmProductOrderNewList_JD.Handle;
end ;
231: //<2F><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD>Ȳ<EFBFBD>ѯ
begin
if frmProductOrderNewList_JD10=nil then
begin
frmProductOrderNewList_JD10:= TfrmProductOrderNewList_JD10.Create(application.MainForm);
with frmProductOrderNewList_JD10 do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmProductOrderNewList_JD10.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmProductOrderNewList_JD10.Handle;
end ;
2311: //<2F><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD>Ȳ<EFBFBD>ѯ(<28><>)
begin
if frmProductOrderNewList_JDXin=nil then
begin
frmProductOrderNewList_JDXin:= TfrmProductOrderNewList_JDXin.Create(application.MainForm);
with frmProductOrderNewList_JDXin do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmProductOrderNewList_JDXin.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmProductOrderNewList_JDXin.Handle;
end ;
24: //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܲ<EFBFBD>ѯ
begin
if frmClothContractKCList=nil then
begin
frmClothContractKCList:= TfrmClothContractKCList.Create(application.MainForm);
with frmClothContractKCList do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmClothContractKCList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmClothContractKCList.Handle;
end ;
25: //<2F><><EFBFBD>˼ƻ<CBBC>
begin
if frmProductOrderNewList_CY=nil then
begin
frmProductOrderNewList_CY:= TfrmProductOrderNewList_CY.Create(application.MainForm);
with frmProductOrderNewList_CY do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmProductOrderNewList_CY.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmProductOrderNewList_CY.Handle;
end ;
26: //<2F><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>
begin
if frmorderInput_HYWT=nil then
begin
frmorderInput_HYWT:=TfrmorderInput_HYWT.create(application.MainForm);
with frmorderInput_HYWT do
begin
caption:=Trim(Title);
FormStyle:=mstyle;
windowState:=mstate;
BorderStyle:=mborderstyle;
end;
end
else
frmorderInput_HYWT.BringToFront;
mNewHandle:=frmorderInput_HYWT.Handle;
end ;
27: //<2F><>Ʊ<EFBFBD><C6B1>Ϣ
begin
if frmProductOrderNewList_FB=nil then
begin
frmProductOrderNewList_FB:= TfrmProductOrderNewList_FB.Create(application.MainForm);
with frmProductOrderNewList_FB do
begin
caption:=Trim(Title);
ftype:='<27><><EFBFBD><EFBFBD>';
// ftype:=trim(DataBase);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmProductOrderNewList_FB.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmProductOrderNewList_FB.Handle;
end ;
28: //<2F><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE>
begin
if FrmFanYangList=nil then
begin
FrmFanYangList:= TFrmFanYangList.Create(application.MainForm);
with FrmFanYangList do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
FrmFanYangList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=FrmFanYangList.Handle;
end ;
29: //<2F><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
begin
if FrmFanYangListHZ=nil then
begin
FrmFanYangListHZ:= TFrmFanYangListHZ.Create(application.MainForm);
with FrmFanYangListHZ do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
FrmFanYangListHZ.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=FrmFanYangListHZ.Handle;
end ;
30: //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
begin
if frmCKProductRKHZList=nil then
begin
frmCKProductRKHZList:= TfrmCKProductRKHZList.Create(application.MainForm);
with frmCKProductRKHZList do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmCKProductRKHZList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmCKProductRKHZList.Handle;
end ;
31: //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
begin
if frmCKProductCKHZList=nil then
begin
frmCKProductCKHZList:= TfrmCKProductCKHZList.Create(application.MainForm);
with frmCKProductCKHZList do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmCKProductCKHZList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmCKProductCKHZList.Handle;
end ;
32: //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
begin
if frmCKJYList=nil then
begin
frmCKJYList:= TfrmCKJYList.Create(application.MainForm);
with frmCKJYList do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmCKJYList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmCKJYList.Handle;
end ;
33: //<2F><>ǩƤ<C7A9><C6A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
begin
if frmProductOrderLBNameSetFZ=nil then
begin
frmProductOrderLBNameSetFZ:= TfrmProductOrderLBNameSetFZ.Create(application.MainForm);
with frmProductOrderLBNameSetFZ do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmProductOrderLBNameSetFZ.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmProductOrderLBNameSetFZ.Handle;
end ;
34: //<2F><>Ʊ<EFBFBD><C6B1>ϸ<EFBFBD><CFB8>ѯ
begin
if frmProductOrderNewList_FB_MX=nil then
begin
frmProductOrderNewList_FB_MX:= TfrmProductOrderNewList_FB_MX.Create(application.MainForm);
with frmProductOrderNewList_FB_MX do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmProductOrderNewList_FB_MX.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmProductOrderNewList_FB_MX.Handle;
end ;
35: //<2F><>Ʊ<EFBFBD><C6B1>ϸ<EFBFBD><CFB8>ѯ
begin
if frmFanYangOther_List=nil then
begin
frmFanYangOther_List:= TfrmFanYangOther_List.Create(application.MainForm);
with frmFanYangOther_List do
begin
caption:=Trim(Title);
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmFanYangOther_List.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmFanYangOther_List.Handle;
end ;
62: //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
begin
if frmFabList=nil then
begin
frmFabList:= TfrmFabList.Create(application.MainForm);
with frmFabList do
begin
caption:=Trim(Title);
FType:=trim(Dparameters1);
// FType:='';
FormStyle := mstyle ;
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
~
2025-08-22 15:27:11 +08:00
end;
end
~
2025-04-30 16:20:38 +08:00
else
frmFabList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mNewHandle:=frmFabList.Handle;
end ;
63: //<2F>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>
begin
if FrmCgBJList = nil then
begin
FrmCgBJList := TFrmCgBJList.Create(application.MainForm);
with FrmCgBJList do
begin
caption := Trim(Title);
FType := trim(Dparameters1);
// FType:='';
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
FrmCgBJList.BringToFront;
//<2F><><EFBFBD><EFBFBD>
mnewHandle := FrmCgBJList.Handle;
end;
end ; // end case
Result:= mnewHandle;
// NewDllApp:=Application ;
end;
Function GetsysParam(muserId:pchar;fparam1:pchar):Boolean;
begin
result:=true;
//////////////////////////////
shortDateFormat:='yyyy-MM-dd';
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
with DataLink_TradeManage.AdoDataLink do
begin
close;
sql.Clear;
sql.Add('select getDate()as dt');
open;
DServerDate:=fieldByName('dt').AsDatetime;
end;
result:=true;
end;
//===========================================================
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݿ<EFBFBD><DDBF><EFBFBD><EFBFBD>ӳ<EFBFBD>
//===========================================================
function ConnData():Boolean;
begin
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.
Reference in New Issue Copy Permalink