826 lines
21 KiB
ObjectPascal
826 lines
21 KiB
ObjectPascal
|
|
|||
|
|
unit U_GetDllForm;
|
|||
|
|
interface
|
|||
|
|
uses
|
|||
|
|
Windows,Messages,forms,OleCtnrs,DateUtils,SysUtils,ADODB,ActiveX,dxCore;
|
|||
|
|
|
|||
|
|
function GetDllForm(App:Tapplication; FormH:hwnd; FormID:integer;
|
|||
|
|
Language: integer; WinStyle:integer;
|
|||
|
|
GCode: Pchar; GName: Pchar; DataBase:Pchar;Title:PChar;
|
|||
|
|
Parameters1:PChar;Parameters2:PChar;Parameters3:PChar;Parameters4:PChar;
|
|||
|
|
Parameters5:PChar;Parameters6:PChar;Parameters7:PChar;Parameters8:PChar;
|
|||
|
|
Parameters9:PChar;Parameters10:PChar;DataBaseStr:PChar):hwnd;export;stdcall;
|
|||
|
|
function ConnData():Boolean;
|
|||
|
|
|
|||
|
|
implementation
|
|||
|
|
uses
|
|||
|
|
U_DataLink,U_Fun,U_YFCR,U_FKCR,
|
|||
|
|
U_YFFKList,U_YSCR,U_SKCR,U_YSSKList,U_ProductOrderCost,U_YFFP,U_YSFP
|
|||
|
|
,U_YFCRLZ,U_YSCRLZ,U_YSHZMX,U_YFCRYCL,U_YSCROL,U_SKCROLJ,U_YSHZMXOLJ
|
|||
|
|
,U_SKCRLZ,U_YSHZMXDL,U_FKCRLZ,U_YSHZMXView,U_YFCRLZView,U_YFCRLZQty,
|
|||
|
|
U_YSCRJZC,U_YSCR_Gd,U_SKCR_Gd,U_YFZDList_MX,U_YSZDList_MX,U_YFMXlist,U_YSMXlist,
|
|||
|
|
U_YKHXList,U_FDINVOICE,U_FPINVOICE_TJ;
|
|||
|
|
|
|||
|
|
/////////////////////////////////////////////////////////////////
|
|||
|
|
// <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 := '139.224.12.182,7781'; // 122.224.36.142,7781
|
|||
|
|
dtbase := 'aidengdata'; //jinzhicaidata
|
|||
|
|
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><DEB6><EFBFBD><EFBFBD><EFBFBD>';
|
|||
|
|
//DParameters1:='<27><><EFBFBD><EFBFBD>';//103
|
|||
|
|
// DParameters2:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|||
|
|
// DParameters3:='<27><>Ŀ<EFBFBD>ֿ<EFBFBD>';
|
|||
|
|
// DParameters4:='<27>Է<EFBFBD><D4B7><EFBFBD>λ<EFBFBD>ֿ<EFBFBD>';
|
|||
|
|
//DParameters5:='<27><>Ʊ';
|
|||
|
|
//DParameters6:='<27><><EFBFBD><EFBFBD>'; //Ӧ<><D3A6><EFBFBD><EFBFBD>
|
|||
|
|
//DParameters7:='ƥ<><C6A5>'; //Ӧ<>տ<EFBFBD>
|
|||
|
|
//DCode:='test';
|
|||
|
|
//DName:='<27><><EFBFBD><EFBFBD>';
|
|||
|
|
//DParameters9:='֧<><D6A7>̨ͷ';
|
|||
|
|
//DParameters8:='FactoryNo1Name';
|
|||
|
|
//DParameters10:='P_YSSK_ListTT';
|
|||
|
|
if not ConnData() then
|
|||
|
|
begin
|
|||
|
|
result:=0;
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
{ if IsINIFile() then
|
|||
|
|
ReadINIFile()
|
|||
|
|
else
|
|||
|
|
WriteINIFile ;}
|
|||
|
|
// <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: //Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>
|
|||
|
|
begin
|
|||
|
|
if frmYFCR=nil then
|
|||
|
|
begin
|
|||
|
|
frmYFCR:= TfrmYFCR.Create(application.MainForm);
|
|||
|
|
with frmYFCR do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYFCR.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmYFCR.Handle;
|
|||
|
|
|
|||
|
|
end ;
|
|||
|
|
15: //Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD> <20><><EFBFBD><EFBFBD> Ⱦ<><C8BE> <20>ӹ<EFBFBD><D3B9><EFBFBD>
|
|||
|
|
begin
|
|||
|
|
if frmYFCRLZ=nil then
|
|||
|
|
begin
|
|||
|
|
frmYFCRLZ:= TfrmYFCRLZ.Create(application.MainForm);
|
|||
|
|
with frmYFCRLZ do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYFCRLZ.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmYFCRLZ.Handle;
|
|||
|
|
|
|||
|
|
end ;
|
|||
|
|
12: //Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD> ԭ<><D4AD><EFBFBD>ϲֿ<CFB2>
|
|||
|
|
begin
|
|||
|
|
if frmYFCRYCL=nil then
|
|||
|
|
begin
|
|||
|
|
frmYFCRYCL:= TfrmYFCRYCL.Create(application.MainForm);
|
|||
|
|
with frmYFCRYCL do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYFCRYCL.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmYFCRYCL.Handle;
|
|||
|
|
|
|||
|
|
end ;
|
|||
|
|
11: //Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD> ԭ<><D4AD><EFBFBD>ϲֿ<CFB2>
|
|||
|
|
begin
|
|||
|
|
if frmYFCRLZQty=nil then
|
|||
|
|
begin
|
|||
|
|
frmYFCRLZQty:= TfrmYFCRLZQty.Create(application.MainForm);
|
|||
|
|
with frmYFCRLZQty do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYFCRLZQty.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmYFCRLZQty.Handle;
|
|||
|
|
|
|||
|
|
end ;
|
|||
|
|
13: //Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD> <20><><EFBFBD><EFBFBD> Ⱦ<><C8BE> <20>ӹ<EFBFBD><D3B9>Ѳ<EFBFBD>ѯ
|
|||
|
|
begin
|
|||
|
|
if frmYFCRLZView=nil then
|
|||
|
|
begin
|
|||
|
|
frmYFCRLZView:= TfrmYFCRLZView.Create(application.MainForm);
|
|||
|
|
with frmYFCRLZView do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYFCRLZView.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmYFCRLZView.Handle;
|
|||
|
|
|
|||
|
|
end ;
|
|||
|
|
2: //<2F><><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>
|
|||
|
|
begin
|
|||
|
|
if frmFKCR=nil then
|
|||
|
|
begin
|
|||
|
|
frmFKCR:= TfrmFKCR.Create(application.MainForm);
|
|||
|
|
with frmFKCR do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmFKCR.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmFKCR.Handle;
|
|||
|
|
|
|||
|
|
end ;
|
|||
|
|
21: //<2F><><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>(·չ ̨ͷ)
|
|||
|
|
begin
|
|||
|
|
if frmFKCRLZ=nil then
|
|||
|
|
begin
|
|||
|
|
frmFKCRLZ:= TfrmFKCRLZ.Create(application.MainForm);
|
|||
|
|
with frmFKCRLZ do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmFKCRLZ.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmFKCRLZ.Handle;
|
|||
|
|
|
|||
|
|
end ;
|
|||
|
|
3: //Ӧ<><D3A6><EFBFBD><EFBFBD><EEB8B6>ͳ<EFBFBD><CDB3>
|
|||
|
|
begin
|
|||
|
|
if frmYFFKList=nil then
|
|||
|
|
begin
|
|||
|
|
frmYFFKList:= TfrmYFFKList.Create(application.MainForm);
|
|||
|
|
with frmYFFKList do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYFFKList.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmYFFKList.Handle;
|
|||
|
|
|
|||
|
|
end ;
|
|||
|
|
31: //Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD>˵<EFBFBD>
|
|||
|
|
begin
|
|||
|
|
if frmYFZDList_MX=nil then
|
|||
|
|
begin
|
|||
|
|
frmYFZDList_MX:= TfrmYFZDList_MX.Create(application.MainForm);
|
|||
|
|
with frmYFZDList_MX do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYFZDList_MX.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmYFZDList_MX.Handle;
|
|||
|
|
|
|||
|
|
end ;
|
|||
|
|
4: //Ӧ<>տ<EFBFBD><D5BF>Ǽ<EFBFBD>
|
|||
|
|
begin
|
|||
|
|
if frmYSCR=nil then
|
|||
|
|
begin
|
|||
|
|
frmYSCR:= TfrmYSCR.Create(application.MainForm);
|
|||
|
|
with frmYSCR do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYSCR.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmYSCR.Handle;
|
|||
|
|
|
|||
|
|
end ;
|
|||
|
|
41: //Ӧ<>տ<EFBFBD><D5BF>Ǽ<EFBFBD>
|
|||
|
|
begin
|
|||
|
|
if frmYSCRLZ=nil then
|
|||
|
|
begin
|
|||
|
|
frmYSCRLZ:= TfrmYSCRLZ.Create(application.MainForm);
|
|||
|
|
with frmYSCRLZ do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYSCRLZ.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmYSCRLZ.Handle;
|
|||
|
|
|
|||
|
|
end ;
|
|||
|
|
42: //Ӧ<>տ<EFBFBD><D5BF>Ǽ<EFBFBD>
|
|||
|
|
begin
|
|||
|
|
if frmYSCROL=nil then
|
|||
|
|
begin
|
|||
|
|
frmYSCROL:= TfrmYSCROL.Create(application.MainForm);
|
|||
|
|
with frmYSCROL do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYSCROL.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmYSCROL.Handle;
|
|||
|
|
|
|||
|
|
end ;
|
|||
|
|
43: //Ӧ<>տ<EFBFBD><D5BF>Ǽ<EFBFBD>(<28><>֯<EFBFBD><D6AF>)
|
|||
|
|
begin
|
|||
|
|
if frmYSCRJZC=nil then
|
|||
|
|
begin
|
|||
|
|
frmYSCRJZC:= TfrmYSCRJZC.Create(application.MainForm);
|
|||
|
|
with frmYSCRJZC do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYSCRJZC.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmYSCRJZC.Handle;
|
|||
|
|
|
|||
|
|
end ;
|
|||
|
|
44: //Ӧ<>տ<EFBFBD><D5BF>Ǽ<EFBFBD>(<28>㶫)
|
|||
|
|
begin
|
|||
|
|
if frmYSCR_Gd=nil then
|
|||
|
|
begin
|
|||
|
|
frmYSCR_Gd:= TfrmYSCR_Gd.Create(application.MainForm);
|
|||
|
|
with frmYSCR_Gd do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYSCR_Gd.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmYSCR_Gd.Handle;
|
|||
|
|
|
|||
|
|
end ;
|
|||
|
|
5: //<2F>տ<EFBFBD><D5BF>Ǽ<EFBFBD>
|
|||
|
|
begin
|
|||
|
|
if frmSKCR=nil then
|
|||
|
|
begin
|
|||
|
|
frmSKCR:= TfrmSKCR.Create(application.MainForm);
|
|||
|
|
with frmSKCR do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
// IsHx:=1;
|
|||
|
|
IsHx:=strtointdef(database,0);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmSKCR.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmSKCR.Handle;
|
|||
|
|
|
|||
|
|
end ;
|
|||
|
|
51: //<2F>տ<EFBFBD><D5BF>Ǽ<EFBFBD>
|
|||
|
|
begin
|
|||
|
|
if frmSKCROLJ=nil then
|
|||
|
|
begin
|
|||
|
|
frmSKCROLJ:= TfrmSKCROLJ.Create(application.MainForm);
|
|||
|
|
with frmSKCROLJ do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmSKCROLJ.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmSKCROLJ.Handle;
|
|||
|
|
|
|||
|
|
end ;
|
|||
|
|
52: //<2F>տ<EFBFBD><D5BF>Ǽ<EFBFBD>(·չ)
|
|||
|
|
begin
|
|||
|
|
if frmSKCRLZ=nil then
|
|||
|
|
begin
|
|||
|
|
frmSKCRLZ:= TfrmSKCRLZ.Create(application.MainForm);
|
|||
|
|
with frmSKCRLZ do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmSKCRLZ.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmSKCRLZ.Handle;
|
|||
|
|
|
|||
|
|
end ;
|
|||
|
|
54: //<2F>տ<EFBFBD><D5BF>Ǽ<EFBFBD>(<28>㶫)
|
|||
|
|
begin
|
|||
|
|
if frmSKCR_Gd=nil then
|
|||
|
|
begin
|
|||
|
|
frmSKCR_Gd:= TfrmSKCR_Gd.Create(application.MainForm);
|
|||
|
|
with frmSKCR_Gd do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmSKCR_Gd.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmSKCR_Gd.Handle;
|
|||
|
|
|
|||
|
|
end ;
|
|||
|
|
6: //Ӧ<>տ<EFBFBD><D5BF>տ<EFBFBD>ͳ<EFBFBD><CDB3>
|
|||
|
|
begin
|
|||
|
|
if frmYSSKList=nil then
|
|||
|
|
begin
|
|||
|
|
frmYSSKList:= TfrmYSSKList.Create(application.MainForm);
|
|||
|
|
with frmYSSKList do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYSSKList.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmYSSKList.Handle;
|
|||
|
|
|
|||
|
|
end ;
|
|||
|
|
61: //Ӧ<>տ<EFBFBD><D5BF>տ<EFBFBD>ͳ<EFBFBD><CDB3>
|
|||
|
|
begin
|
|||
|
|
if frmYSZDList_MX=nil then
|
|||
|
|
begin
|
|||
|
|
frmYSZDList_MX:= TfrmYSZDList_MX.Create(application.MainForm);
|
|||
|
|
with frmYSZDList_MX do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYSZDList_MX.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmYSZDList_MX.Handle;
|
|||
|
|
|
|||
|
|
end ;
|
|||
|
|
7: //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͳ<EFBFBD>Ʋ<EFBFBD>ѯ
|
|||
|
|
begin
|
|||
|
|
if frmProductOrderCost=nil then
|
|||
|
|
begin
|
|||
|
|
frmProductOrderCost:= TfrmProductOrderCost.Create(application.MainForm);
|
|||
|
|
with frmProductOrderCost do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmProductOrderCost.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmProductOrderCost.Handle;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
8: //<2F><><EFBFBD>Ʊ<EEB7A2>Ǽ<EFBFBD>
|
|||
|
|
begin
|
|||
|
|
if frmYFFP=nil then
|
|||
|
|
begin
|
|||
|
|
frmYFFP:= TfrmYFFP.Create(application.MainForm);
|
|||
|
|
with frmYFFP do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYFFP.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmYFFP.Handle;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
81: //<2F><><EFBFBD>Ʊ<EEB7A2>Ǽ<EFBFBD>
|
|||
|
|
begin
|
|||
|
|
if frmYSFP=nil then
|
|||
|
|
begin
|
|||
|
|
frmYSFP:= TfrmYSFP.Create(application.MainForm);
|
|||
|
|
with frmYSFP do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYSFP.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmYSFP.Handle;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
9:
|
|||
|
|
begin
|
|||
|
|
if frmYKHXList=nil then
|
|||
|
|
begin
|
|||
|
|
frmYKHXList:= TfrmYKHXList.Create(application.MainForm);
|
|||
|
|
with frmYKHXList do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYKHXList.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmYKHXList.Handle;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
10: //Ӧ<><D3A6><EFBFBD>˿<EFBFBD><CBBF><EFBFBD>ϸ
|
|||
|
|
begin
|
|||
|
|
if frmYSHZMX=nil then
|
|||
|
|
begin
|
|||
|
|
frmYSHZMX:= TfrmYSHZMX.Create(application.MainForm);
|
|||
|
|
with frmYSHZMX do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYSHZMX.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmYSHZMX.Handle;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
102: //Ӧ<><D3A6><EFBFBD>˿<EFBFBD><CBBF><EFBFBD>ϸ(<28><><EFBFBD><EFBFBD>)
|
|||
|
|
begin
|
|||
|
|
if frmYSHZMXDL=nil then
|
|||
|
|
begin
|
|||
|
|
frmYSHZMXDL:= TfrmYSHZMXDL.Create(application.MainForm);
|
|||
|
|
with frmYSHZMXDL do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYSHZMXDL.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmYSHZMXDL.Handle;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
103: //Ӧ<><D3A6><EFBFBD>˿<EFBFBD><CBBF><EFBFBD>ϸ<EFBFBD><CFB8>ѯ
|
|||
|
|
begin
|
|||
|
|
if frmYSHZMXView=nil then
|
|||
|
|
begin
|
|||
|
|
frmYSHZMXView:= TfrmYSHZMXView.Create(application.MainForm);
|
|||
|
|
with frmYSHZMXView do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYSHZMXView.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmYSHZMXView.Handle;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
101: //Ӧ<><D3A6><EFBFBD>˿<EFBFBD><CBBF><EFBFBD>ϸOLJ
|
|||
|
|
begin
|
|||
|
|
if frmYSHZMXOLJ=nil then
|
|||
|
|
begin
|
|||
|
|
frmYSHZMXOLJ:= TfrmYSHZMXOLJ.Create(application.MainForm);
|
|||
|
|
with frmYSHZMXOLJ do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYSHZMXOLJ.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmYSHZMXOLJ.Handle;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
20: //Ӧ<><D3A6><EFBFBD>˿<EFBFBD><CBBF><EFBFBD>ϸOLJ
|
|||
|
|
begin
|
|||
|
|
if frmYFMXlist=nil then
|
|||
|
|
begin
|
|||
|
|
frmYFMXlist:= TfrmYFMXlist.Create(application.MainForm);
|
|||
|
|
with frmYFMXlist do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYFMXlist.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmYFMXlist.Handle;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
201: //Ӧ<><D3A6><EFBFBD>˿<EFBFBD><CBBF><EFBFBD>ϸOLJ
|
|||
|
|
begin
|
|||
|
|
if frmYSMXlist=nil then
|
|||
|
|
begin
|
|||
|
|
frmYSMXlist:= TfrmYSMXlist.Create(application.MainForm);
|
|||
|
|
with frmYSMXlist do
|
|||
|
|
begin
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYSMXlist.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmYSMXlist.Handle;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
202: //<2F><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>
|
|||
|
|
begin
|
|||
|
|
if frmFDINVOICE=nil then
|
|||
|
|
begin
|
|||
|
|
frmFDINVOICE:= TfrmFDINVOICE.Create(application.MainForm);
|
|||
|
|
with frmFDINVOICE do
|
|||
|
|
begin
|
|||
|
|
fInvoiceFlag:='1';
|
|||
|
|
fInvoiceFlag:=trim(Parameters1);
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmFDINVOICE.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmFDINVOICE.Handle;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
203: //<2F><>Ʊͳ<C6B1>Ʋ<EFBFBD>ѯ
|
|||
|
|
begin
|
|||
|
|
if frmFPInvoice_TJ=nil then
|
|||
|
|
begin
|
|||
|
|
frmFPInvoice_TJ:= TfrmFPInvoice_TJ.Create(application.MainForm);
|
|||
|
|
with frmFPInvoice_TJ do
|
|||
|
|
begin
|
|||
|
|
fInvoiceFlag:='1';
|
|||
|
|
fInvoiceFlag:=trim(Parameters1);
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmFPInvoice_TJ.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmFPInvoice_TJ.Handle;
|
|||
|
|
end;
|
|||
|
|
end ; // end case
|
|||
|
|
|
|||
|
|
Result:= mnewHandle;
|
|||
|
|
// NewDllApp:=Application ;
|
|||
|
|
end;
|
|||
|
|
//===========================================================
|
|||
|
|
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݿ<EFBFBD><DDBF><EFBFBD><EFBFBD>ӳ<EFBFBD>
|
|||
|
|
//===========================================================
|
|||
|
|
function ConnData():Boolean;
|
|||
|
|
begin
|
|||
|
|
if not Assigned(DataLink_YSYF) then
|
|||
|
|
DataLink_YSYF:=TDataLink_YSYF.Create(Application);
|
|||
|
|
Try
|
|||
|
|
with DataLink_YSYF.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_YSYF.Free;
|
|||
|
|
application:=NewDllApp;
|
|||
|
|
dxUnitsLoader.Finalize;
|
|||
|
|
end.
|
|||
|
|
|