539 lines
14 KiB
ObjectPascal
539 lines
14 KiB
ObjectPascal
|
|
|||
|
|
unit U_GetDllForm;
|
|||
|
|
interface
|
|||
|
|
uses
|
|||
|
|
Windows,Messages,forms,OleCtnrs,DateUtils,SysUtils,ADODB;
|
|||
|
|
|
|||
|
|
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_FKCR_GD,U_YFCR_GD;
|
|||
|
|
|
|||
|
|
/////////////////////////////////////////////////////////////////
|
|||
|
|
// <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
|
|||
|
|
server:='202.96.107.70,7781';
|
|||
|
|
dtbase:='haoyuedata';
|
|||
|
|
// dtbase:='jianweidata';
|
|||
|
|
user:='sa';
|
|||
|
|
pswd:='rightsoft@123';
|
|||
|
|
// pswd:='numlock';
|
|||
|
|
DConString := 'Provider=SQLOLEDB.1;Password='+pswd+';Persist Security Info=True;User ID='
|
|||
|
|
+user+';Initial Catalog='+dtbase+';Data Source='+server;
|
|||
|
|
|
|||
|
|
DConString:=DataBaseStr;
|
|||
|
|
|
|||
|
|
// DParameters1:='<27><EFBFBD><DEB6><EFBFBD><EFBFBD><EFBFBD>';
|
|||
|
|
//DParameters1:='<27><><EFBFBD><EFBFBD>';//103
|
|||
|
|
// DParameters2:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|||
|
|
Parameters1:='<27><>Ȩ<EFBFBD><C8A8>';
|
|||
|
|
// DataBase:='<27><>Ȩ<EFBFBD><C8A8>';
|
|||
|
|
// DataBase:='1';
|
|||
|
|
// DParameters1:='2';
|
|||
|
|
// 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);
|
|||
|
|
fmanage:=trim(Parameters1);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYFCR.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmYFCR.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);
|
|||
|
|
fmanage:=trim(Parameters1);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmFKCR.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmFKCR.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);
|
|||
|
|
// fDParameters1:=trim('0');
|
|||
|
|
fDParameters1:=trim(DParameters1);
|
|||
|
|
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
|
|||
|
|
fflag:=strtointdef(trim(DataBase),0);
|
|||
|
|
fmanage:=trim(Parameters1);
|
|||
|
|
caption:=Trim(Title);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYSCR.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmYSCR.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);
|
|||
|
|
fflag:=strtointdef(trim(DataBase),0);
|
|||
|
|
fmanage:=trim(Parameters1);
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmSKCR.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmSKCR.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);
|
|||
|
|
fDParameters1:=trim(DParameters1);
|
|||
|
|
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;
|
|||
|
|
9: //<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;
|
|||
|
|
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);
|
|||
|
|
fType:=trim(DataBase);
|
|||
|
|
|
|||
|
|
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);
|
|||
|
|
// fType:='0';
|
|||
|
|
fType:=trim(DataBase);
|
|||
|
|
|
|||
|
|
FormStyle := mstyle ;
|
|||
|
|
windowState := mstate ;
|
|||
|
|
BorderStyle := mborderstyle;
|
|||
|
|
//show;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
frmYSMXlist.BringToFront;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
mNewHandle:=frmYSMXlist.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
|
|||
|
|
OldDllApp:= Application;
|
|||
|
|
|
|||
|
|
FINALIZATION
|
|||
|
|
DataLink_YSYF.Free;
|
|||
|
|
Application := OldDllApp;
|
|||
|
|
|
|||
|
|
end.
|
|||
|
|
|