1129 lines
31 KiB
ObjectPascal
1129 lines
31 KiB
ObjectPascal
|
unit U_GetDllForm;
|
|||
|
|
|
|||
|
|
interface
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
Windows, Messages, forms, OleCtnrs, DateUtils, SysUtils, ADODB, 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_ContractListJG,
|
|||
|
|
U_ProductOrderNewList_PB;
|
|||
|
|
|
|||
|
|
|
|||
|
|
/////////////////////////////////////////////////////////////////
|
|||
|
|
// <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 := '139.224.12.182,7781';
|
|||
|
|
dtbase := 'aidengdata';
|
|||
|
|
user := 'aidengsa';
|
|||
|
|
pswd := 'rightsoft@3203';
|
|||
|
|
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
|
|||
|
|
if trim(DataBaseStr) <> '' then
|
|||
|
|
DConString := DataBaseStr;
|
|||
|
|
// DParameters1 := '<27><>Ȩ<EFBFBD><C8A8>';
|
|||
|
|
// DParameters2 := '<27>ϲ<EFBFBD>Ȩ<EFBFBD><C8A8>';
|
|||
|
|
// DParameters2:='<27><EFBFBD>';
|
|||
|
|
// DCode := 'ADMIN';
|
|||
|
|
// DName := 'ADMIN';
|
|||
|
|
//DParameters2:='<27><><EFBFBD><EFBFBD>';
|
|||
|
|
// 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
|
|||
|
|
|
|||
|
|
-1: //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬ(<28><><EFBFBD><EFBFBD>)
|
|||
|
|
begin
|
|||
|
|
if frmContractListJG = nil then
|
|||
|
|
begin
|
|||
|
|
frmContractListJG := TfrmContractListJG.Create(application.MainForm);
|
|||
|
|
with frmContractListJG do
|
|||
|
|
begin
|
|||
|
|
caption := Trim(Title);
|
|||
|
|
FormStyle := mstyle;
|
|||
|
|
windowState := mstate;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmContractListJG.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mnewHandle := frmContractListJG.Handle;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
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;
|
|||
|
|
2011: //<2F><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD>Ű<EFBFBD>
|
|||
|
|
begin
|
|||
|
|
if frmProductOrderNewList_PB = nil then
|
|||
|
|
begin
|
|||
|
|
frmProductOrderNewList_PB := TfrmProductOrderNewList_PB.Create(application.MainForm);
|
|||
|
|
with frmProductOrderNewList_PB do
|
|||
|
|
begin
|
|||
|
|
caption := Trim(Title);
|
|||
|
|
FormStyle := mstyle;
|
|||
|
|
windowState := mstate;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmProductOrderNewList_PB.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mnewHandle := frmProductOrderNewList_PB.Handle;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
{ 3: //ɴ<>߲ɹ<DFB2>
|
|||
|
|
begin
|
|||
|
|
if frmClothContractListSX=nil then
|
|||
|
|
begin
|
|||
|
|
frmClothContractListSX:= TfrmClothContractListSX.Create(application.MainForm);
|
|||
|
|
with frmClothContractListSX do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmClothContractListSX.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmClothContractListSX.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 := 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;
|
|||
|
|
|
|||
|
|
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;
|
|||
|
|
|
|||
|
|
{
|
|||
|
|
|
|||
|
|
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;
|
|||
|
|
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.
|
|||
|
|
|