D7myChengxie/生产指示单&跟单(OrderandGD.dll)/U_GetDllForm.pas

unit U_GetDllForm;
interface
uses
   Windows,Messages,forms,OleCtnrs,DateUtils,SysUtils,ADODB,IniFiles;
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_PRTOrderList,U_BPJHList,U_BPDHList,U_BPTPList,U_BPKCList,
  U_CPKCList,U_JGZKCList,U_GDRKList,U_GDCKList,U_GDPBDHList,U_GDTPList,U_GDQSList;

       /////////////////////////////////////////////////////////////////
      //         <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:=PChar(GName);
   DCode:=PChar(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:='.';
//   server:='122.224.56.214,9997';
    dtbase:='tengyuedata';
   user:='sa';

//   pswd:='rightsoft@123';
   pswd:='rightsoft';
   DConString := 'Provider=SQLOLEDB.1;Password='+pswd+';Persist Security Info=True;User ID='
     +user+';Initial Catalog='+dtbase+';Data Source='+server;
   DConString:=DataBaseStr;
  // DName:='<27>ܸ<EFBFBD><DCB8><EFBFBD>';

//   DParameters1:='<27><>Ȩ<EFBFBD><C8A8>';   //<2F><>Ȩ<EFBFBD><C8A8>
   //DParameters3:='1';
   if not ConnData() then
   begin
     result:=0;
     exit;
   end;

   // <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
     -1:  //<2F><><EFBFBD><EFBFBD>ǩ<EFBFBD><C7A9>
     begin
       if frmGDQSList=nil then
       begin
         frmGDQSList:= TfrmGDQSList.Create(application.MainForm);
         with frmGDQSList do
         begin
           caption:=Trim(Title);
           FormStyle := mstyle ;
           windowState := mstate ;
           BorderStyle := mborderstyle;
           //show;
         end;
       end
       else
         frmGDQSList.BringToFront;
       //<2F><><EFBFBD><EFBFBD>
       mNewHandle:=frmGDQSList.Handle;
     end ;
     0:  //<2F><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
     begin
       if frmPRTOrderList=nil then
       begin
         frmPRTOrderList:= TfrmPRTOrderList.Create(application.MainForm);
         with frmPRTOrderList do
         begin
           caption:=Trim(Title);
           FormStyle := mstyle ;
           windowState := mstate ;
           BorderStyle := mborderstyle;
           //show;
         end;
       end
       else
         frmPRTOrderList.BringToFront;
       //<2F><><EFBFBD><EFBFBD>
       mNewHandle:=frmPRTOrderList.Handle;
     end ;
     1:  //<2F><>ƥ<EFBFBD><C6A5><EFBFBD><EFBFBD><EFBFBD>ƻ<EFBFBD>
     begin
       if frmBPJHList=nil then
       begin
         frmBPJHList:= TfrmBPJHList.Create(application.MainForm);
         with frmBPJHList do
         begin
           caption:=Trim(Title);
           FormStyle := mstyle ;
           windowState := mstate ;
           BorderStyle := mborderstyle;
           //show;
         end;
       end
       else
         frmBPJHList.BringToFront;
       //<2F><><EFBFBD><EFBFBD>
       mNewHandle:=frmBPJHList.Handle;
     end ;
     2:  //<2F><>ƥ<EFBFBD><C6A5><EFBFBD><EFBFBD>
     begin
       if frmBPDHList=nil then
       begin
         frmBPDHList:= TfrmBPDHList.Create(application.MainForm);
         with frmBPDHList do
         begin
           caption:=Trim(Title);
           FormStyle := mstyle ;
           windowState := mstate ;
           BorderStyle := mborderstyle;
           //show;
         end;
       end
       else
         frmBPDHList.BringToFront;
       //<2F><><EFBFBD><EFBFBD>
       mNewHandle:=frmBPDHList.Handle;
     end ;
     3:  //<2F><>ƥ<EFBFBD><C6A5><EFBFBD><EFBFBD>
     begin
       if frmBPTPList=nil then
       begin
         frmBPTPList:= TfrmBPTPList.Create(application.MainForm);
         with frmBPTPList do
         begin
           caption:=Trim(Title);
           FormStyle := mstyle ;
           windowState := mstate ;
           BorderStyle := mborderstyle;
           //show;
         end;
       end
       else
         frmBPTPList.BringToFront;
       //<2F><><EFBFBD><EFBFBD>
       mNewHandle:=frmBPTPList.Handle;
     end ;
     5:  //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
     begin
       if frmBPKCList=nil then
       begin
         frmBPKCList:= TfrmBPKCList.Create(application.MainForm);
         with frmBPKCList do
         begin
           caption:=Trim(Title);
           FormStyle := mstyle ;
           windowState := mstate ;
           BorderStyle := mborderstyle;
           //show;
         end;
       end
       else
         frmBPKCList.BringToFront;
       //<2F><><EFBFBD><EFBFBD>
       mNewHandle:=frmBPKCList.Handle;
     end ;
      6:  //<2F>ӹ<EFBFBD><D3B9>п<EFBFBD><D0BF><EFBFBD>
     begin
       if frmJGZKCList=nil then
       begin
         frmJGZKCList:= TfrmJGZKCList.Create(application.MainForm);
         with frmJGZKCList do
         begin
           caption:=Trim(Title);
           FormStyle := mstyle ;
           windowState := mstate ;
           BorderStyle := mborderstyle;
           //show;
         end;
       end
       else
         frmJGZKCList.BringToFront;
       //<2F><><EFBFBD><EFBFBD>
       mNewHandle:=frmJGZKCList.Handle;
     end ;
     7:  //<2F><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѯ
     begin
       if frmGDRKList=nil then
       begin
         frmGDRKList:= TfrmGDRKList.Create(application.MainForm);
         with frmGDRKList do
         begin
           caption:=Trim(Title);
           FormStyle := mstyle ;
           windowState := mstate ;
           BorderStyle := mborderstyle;
           //show;
         end;
       end
       else
         frmGDRKList.BringToFront;
       //<2F><><EFBFBD><EFBFBD>
       mNewHandle:=frmGDRKList.Handle;
     end ;
     8:  //<2F><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѯ
     begin
       if frmGDCKList=nil then
       begin
         frmGDCKList:= TfrmGDCKList.Create(application.MainForm);
         with frmGDCKList do
         begin
           caption:=Trim(Title);
           FormStyle := mstyle ;
           windowState := mstate ;
           BorderStyle := mborderstyle;
           //show;
         end;
       end
       else
         frmGDCKList.BringToFront;
       //<2F><><EFBFBD><EFBFBD>
       mNewHandle:=frmGDCKList.Handle;
     end ;
     9:  //<2F><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>
     begin
       if frmCPKCList=nil then
       begin
         frmCPKCList:= TfrmCPKCList.Create(application.MainForm);
         with frmCPKCList do
         begin
           caption:=Trim(Title);
           FormStyle := mstyle ;
           windowState := mstate ;
           BorderStyle := mborderstyle;
           //show;
         end;
       end
       else
         frmCPKCList.BringToFront;
       //<2F><><EFBFBD><EFBFBD>
       mNewHandle:=frmCPKCList.Handle;
     end ;
     10:  //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѯ
     begin
       if frmGDPBDHList=nil then
       begin
         frmGDPBDHList:= TfrmGDPBDHList.Create(application.MainForm);
         with frmGDPBDHList do
         begin
           caption:=Trim(Title);
           FormStyle := mstyle ;
           windowState := mstate ;
           BorderStyle := mborderstyle;
           //show;
         end;
       end
       else
         frmGDPBDHList.BringToFront;
       //<2F><><EFBFBD><EFBFBD>
       mNewHandle:=frmGDPBDHList.Handle;
     end ;
     11:  //<2F><><EFBFBD><EFBFBD>Ͷ<EFBFBD><CDB6><EFBFBD><EFBFBD>ѯ
     begin
       if frmGDTPList=nil then
       begin
         frmGDTPList:= TfrmGDTPList.Create(application.MainForm);
         with frmGDTPList do
         begin
           caption:=Trim(Title);
           FormStyle := mstyle ;
           windowState := mstate ;
           BorderStyle := mborderstyle;
           //show;
         end;
       end
       else
         frmGDTPList.BringToFront;
       //<2F><><EFBFBD><EFBFBD>
       mNewHandle:=frmGDTPList.Handle;
     end ;




   end ;

   Result:= mnewHandle;
   NewDllApp:=Application ;
end;
//===========================================================
  //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݿ<EFBFBD><DDBF><EFBFBD><EFBFBD>ӳ<EFBFBD>
//===========================================================
function ConnData():Boolean;
var
  IniFile: TIniFile;
begin
  try
    IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'SYSTEMSET.INI');
    PicSvr := IniFile.ReadString('SERVER', '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ','127.0.0.1');
    UserDataFlag:=IniFile.ReadString('SERVER', '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD>','-1');
  finally
    IniFile.Free;
  end;
   if not Assigned(DataLink_OrderAndGD) then
     DataLink_OrderAndGD:=TDataLink_OrderAndGD.Create(Application);
  Try
    with DataLink_OrderAndGD.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_OrderAndGD.Free;
   Application := OldDllApp;

end.