684 lines
19 KiB
ObjectPascal
684 lines
19 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_ProductOrderLBNameSet11
|
|||
|
|
,U_CKProductBCPOutList,U_BanCpHCSaoM,U_CKProductBCPHCList,U_CKProductBCPKCList,U_FZCMain,
|
|||
|
|
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_KHDYList,U_HuiruhuikuanCX,U_HuiruhGPIjiluCX,
|
|||
|
|
U_JYOrderCDOne_HZCX,U_ContractList_NX,U_XHList,U_XHList_ceshi1,U_GYSOrderCX,U_JYOrderCDOne_GDYJCX,U_KHTopList,U_CpRkSaoMNewCS;
|
|||
|
|
|
|||
|
|
/////////////////////////////////////////////////////////////////
|
|||
|
|
// <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:='101.132.146.12,7781';
|
|||
|
|
//server:='.';
|
|||
|
|
dtbase:='shengfangData';
|
|||
|
|
user:='shengfangsa';
|
|||
|
|
pswd:='rightsoft@4400';
|
|||
|
|
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:='';
|
|||
|
|
// 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;
|
|||
|
|
////////////////////
|
|||
|
|
//<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;
|
|||
|
|
202: //ɫ<><C9AB>/SO<53><4F>
|
|||
|
|
begin
|
|||
|
|
if frmKHDYList=nil then
|
|||
|
|
begin
|
|||
|
|
frmKHDYList:= TfrmKHDYList.Create(application.MainForm);
|
|||
|
|
with frmKHDYList do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmKHDYList.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmKHDYList.Handle;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
11: //<2F><>ǩƤ<C7A9><C6A4>ϵ<EFBFBD><CFB5><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 ;
|
|||
|
|
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 ;
|
|||
|
|
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 ;
|
|||
|
|
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 ;
|
|||
|
|
|
|||
|
|
190: //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܲ<EFBFBD>ѯ
|
|||
|
|
begin
|
|||
|
|
if frmJYOrderCDOne_HZCX=nil then
|
|||
|
|
begin
|
|||
|
|
frmJYOrderCDOne_HZCX:= TfrmJYOrderCDOne_HZCX.Create(application.MainForm);
|
|||
|
|
with frmJYOrderCDOne_HZCX do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmJYOrderCDOne_HZCX.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmJYOrderCDOne_HZCX.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><EFBFBD>ɨ<EFBFBD><C9A8>
|
|||
|
|
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 ;
|
|||
|
|
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><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;
|
|||
|
|
|
|||
|
|
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 ;
|
|||
|
|
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 ;
|
|||
|
|
204: //<2F><>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD>IJ<EFBFBD>ѯ
|
|||
|
|
begin
|
|||
|
|
if frmGYSOrderCX=nil then
|
|||
|
|
begin
|
|||
|
|
frmGYSOrderCX:= TfrmGYSOrderCX.Create(application.MainForm);
|
|||
|
|
with frmGYSOrderCX do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmGYSOrderCX.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmGYSOrderCX.Handle;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
901: //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>ѯ
|
|||
|
|
begin
|
|||
|
|
if frmHuiruhuikuanCX=nil then
|
|||
|
|
begin
|
|||
|
|
frmHuiruhuikuanCX:= TfrmHuiruhuikuanCX.Create(application.MainForm);
|
|||
|
|
with frmHuiruhuikuanCX do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmHuiruhuikuanCX.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmHuiruhuikuanCX.Handle;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
902: //<2F><><EFBFBD><EFBFBD>GPI<50><49>¼<EFBFBD><C2BC>ѯ
|
|||
|
|
begin
|
|||
|
|
if frmHuiruhGPIjiluCX=nil then
|
|||
|
|
begin
|
|||
|
|
frmHuiruhGPIjiluCX:= TfrmHuiruhGPIjiluCX.Create(application.MainForm);
|
|||
|
|
with frmHuiruhGPIjiluCX do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmHuiruhGPIjiluCX.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmHuiruhGPIjiluCX.Handle;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
191: //<2F><><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>ѯ
|
|||
|
|
begin
|
|||
|
|
if frmJYOrderCDOne_GDYJCX=nil then
|
|||
|
|
begin
|
|||
|
|
frmJYOrderCDOne_GDYJCX:= TfrmJYOrderCDOne_GDYJCX.Create(application.MainForm);
|
|||
|
|
with frmJYOrderCDOne_GDYJCX do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmJYOrderCDOne_GDYJCX.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmJYOrderCDOne_GDYJCX.Handle;
|
|||
|
|
|
|||
|
|
end ;
|
|||
|
|
|
|||
|
|
33: //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>а<EFBFBD>
|
|||
|
|
begin
|
|||
|
|
if frmKHTopList=nil then
|
|||
|
|
begin
|
|||
|
|
frmKHTopList:= TfrmKHTopList.Create(application.MainForm);
|
|||
|
|
with frmKHTopList do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmKHTopList.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmKHTopList.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 ;
|
|||
|
|
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.
|
|||
|
|
|