1087 lines
29 KiB
ObjectPascal
1087 lines
29 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;
|
|||
|
|
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;
|
|||
|
|
|
|||
|
|
/////////////////////////////////////////////////////////////////
|
|||
|
|
// <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:='47.101.61.158,7781';
|
|||
|
|
dtbase:='leixiaofudata';
|
|||
|
|
// dtbase:='jianweidata';
|
|||
|
|
user:='haoyuesa';
|
|||
|
|
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';
|
|||
|
|
//DParameters2:='<27><><EFBFBD><EFBFBD>';
|
|||
|
|
// DParameters2:='<27><>Ʒ';
|
|||
|
|
// 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;
|
|||
|
|
////////////////////
|
|||
|
|
{ GetSWLDZ('192.168.1.246');
|
|||
|
|
if IpCall<>0 then
|
|||
|
|
begin
|
|||
|
|
Result:=0;
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>粻ͨ<E7B2BB><CDA8><EFBFBD><EFBFBD>','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
if Trim(IpWLDZStr)<>'D4:AE:52:BE:9F:02' then
|
|||
|
|
begin
|
|||
|
|
Result:=0;
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݿ<EFBFBD><DDBF><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD>','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end; }
|
|||
|
|
/////////////////////
|
|||
|
|
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ģ<EFBFBD>鴰<EFBFBD><E9B4B0>
|
|||
|
|
case FormId of
|
|||
|
|
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;
|
|||
|
|
2: // <20><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>
|
|||
|
|
begin
|
|||
|
|
if frmMJManageNewFDNewSF=nil then
|
|||
|
|
begin
|
|||
|
|
frmMJManageNewFDNewSF:= TfrmMJManageNewFDNewSF.Create(application.MainForm);
|
|||
|
|
with frmMJManageNewFDNewSF do
|
|||
|
|
begin
|
|||
|
|
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 ;
|
|||
|
|
|
|||
|
|
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 ;
|
|||
|
|
|
|||
|
|
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 ;
|
|||
|
|
|
|||
|
|
|
|||
|
|
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>ͳ<EFBFBD><CDB3>
|
|||
|
|
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 ;
|
|||
|
|
|
|||
|
|
{
|
|||
|
|
|
|||
|
|
101: //<2F>زֹ<D8B2><D6B9><EFBFBD> (<28><>Ȩ<EFBFBD><C8A8>)
|
|||
|
|
begin
|
|||
|
|
if frmProductOrderAnPaiGQX=nil then
|
|||
|
|
begin
|
|||
|
|
frmProductOrderAnPaiGQX:= TfrmProductOrderAnPaiGQX.Create(application.MainForm);
|
|||
|
|
with frmProductOrderAnPaiGQX do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmProductOrderAnPaiGQX.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmProductOrderAnPaiGQX.Handle;
|
|||
|
|
|
|||
|
|
end ;
|
|||
|
|
|
|||
|
|
|
|||
|
|
3: // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
begin
|
|||
|
|
if frmSetBanZu=nil then
|
|||
|
|
begin
|
|||
|
|
frmSetBanZu:= TfrmSetBanZu.Create(application.MainForm);
|
|||
|
|
with frmSetBanZu do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmSetBanZu.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmSetBanZu.Handle;
|
|||
|
|
|
|||
|
|
end ;
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
8: //<2F><>Ʒ<EFBFBD>ز<EFBFBD>
|
|||
|
|
begin
|
|||
|
|
if frmBanCpHCSaoM=nil then
|
|||
|
|
begin
|
|||
|
|
frmBanCpHCSaoM:= TfrmBanCpHCSaoM.Create(application.MainForm);
|
|||
|
|
with frmBanCpHCSaoM do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmBanCpHCSaoM.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmBanCpHCSaoM.Handle;
|
|||
|
|
|
|||
|
|
end ;
|
|||
|
|
9: //<2F><>Ʒ<EFBFBD>б<EFBFBD>
|
|||
|
|
begin
|
|||
|
|
if frmCKProductBCPHCList=nil then
|
|||
|
|
begin
|
|||
|
|
frmCKProductBCPHCList:= TfrmCKProductBCPHCList.Create(application.MainForm);
|
|||
|
|
with frmCKProductBCPHCList do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmCKProductBCPHCList.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmCKProductBCPHCList.Handle;
|
|||
|
|
|
|||
|
|
end ;
|
|||
|
|
|
|||
|
|
22: //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȳ<EFBFBD>ѯ
|
|||
|
|
begin
|
|||
|
|
if frmOrderJDList=nil then
|
|||
|
|
begin
|
|||
|
|
frmOrderJDList:= TfrmOrderJDList.Create(application.MainForm);
|
|||
|
|
with frmOrderJDList do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmOrderJDList.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmOrderJDList.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;
|
|||
|
|
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;
|
|||
|
|
|
|||
|
|
//INITIALIZATION
|
|||
|
|
// OldDllApp:= Application;
|
|||
|
|
//
|
|||
|
|
//FINALIZATION
|
|||
|
|
// DataLink_TradeManage.Free;
|
|||
|
|
// Application := OldDllApp;
|
|||
|
|
|
|||
|
|
end.
|
|||
|
|
|