D7wmguihua/应收应付/U_GetDllForm.pas

unit U_GetDllForm;
interface
uses
  Windows, Messages, forms, OleCtnrs, DateUtils, SysUtils, ADODB,IniFiles, dxcore,activeX;



function GetDllForm(App:Tapplication; FormH:hwnd; FormID:integer;
                  Language: integer; WinStyle:integer;
                  GCode: Pchar; GName: Pchar; DataBase:Pchar;Title:PChar;
                  Parameters1:PChar;Parameters2:PChar;Parameters3:PChar;Parameters4:PChar;
                  Parameters5:PChar;Parameters6:PChar;Parameters7:PChar;Parameters8:PChar;
                  Parameters9:PChar;Parameters10:PChar;DataBaseStr:PChar):hwnd;export;stdcall;
function ConnData():Boolean;

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_YSCRJZC,U_YSCR_Gd,U_SKCR_Gd,U_YFZDList_MX,U_YSZDList_MX,U_YFMXlist,U_YSMXlist,U_FKCR_GD,U_YFCR_GD,
  U_YF_Money_LL,U_YF_Money_LL_list,U_FYDJ,U_FYDJ_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>                        //
/////////////////////////////////////////////////////////////////

var
  frmSKCR,frmSKCRYP: TfrmSKCR;
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
  i: Integer;
  bFound: Boolean;
  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:='47.100.182.1,7781';
   dtbase:='guihuadata';
   user:='sa';
   pswd:='rightsoft@123';
   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>';
 // DataBase:='<27><>Ȩ<EFBFBD><C8A8>';
 //  DParameters4:='0';
   Parameters5:='<27>𻪷<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;
   ////////////////////
  /////////////////////                          
  //<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 ;
     14:  //Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>
     begin
       if frmYFCR_GD=nil then
       begin
         frmYFCR_GD:= TfrmYFCR_GD.Create(application.MainForm);
         with frmYFCR_GD do
         begin
         //  fflag:=1;
           fflag:=strtointdef(trim(DataBase),0);
           caption:=Trim(Title);
           FormStyle := mstyle ;
           windowState := mstate ;
           BorderStyle := mborderstyle;
           //show;
         end;
       end
       else
         frmYFCR_GD.BringToFront;
       //<2F><><EFBFBD><EFBFBD>
       mNewHandle:=frmYFCR_GD.Handle;

     end ;
     141:  //Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>
     begin
       if frmYFCR_GD=nil then
       begin
         frmYFCR_GD:= TfrmYFCR_GD.Create(application.MainForm);
         with frmYFCR_GD do
         begin
           TBADD.Visible:=false;
           TBDel.Visible:=false;
           Label7.Visible:=false;
           Edit1.Visible:=false;
           Button1.Visible:=false;
           CheckBox1.Visible:=false;
           tv2.OptionsData.Editing:=false;
           fflag:=strtointdef(trim(DataBase),0);
           caption:=Trim(Title);
           FormStyle := mstyle ;
           windowState := mstate ;
           BorderStyle := mborderstyle;
           //show;
         end;
       end
       else
         frmYFCR_GD.BringToFront;
       //<2F><><EFBFBD><EFBFBD>
       mNewHandle:=frmYFCR_GD.Handle;

     end ;
     2:  //<2F><><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>
     begin
       if frmFKCR=nil then
       begin
         frmFKCR:= TfrmFKCR.Create(application.MainForm);
         with frmFKCR do
         begin
           fSYRName:=trim(Parameters5);
           caption:=Trim(Title);
           FormStyle := mstyle ;
           windowState := mstate ;
           BorderStyle := mborderstyle;
           //show;
         end;
       end
       else
         frmFKCR.BringToFront;
       //<2F><><EFBFBD><EFBFBD>
       mNewHandle:=frmFKCR.Handle;

     end ;

     24:  //<2F><><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>
     begin
       if frmFKCR_GD=nil then
       begin
         frmFKCR_GD:= TfrmFKCR_GD.Create(application.MainForm);
         with frmFKCR_GD do
         begin
            fflag:=strtointdef(trim(DataBase),0);
           caption:=Trim(Title);
           FormStyle := mstyle ;
           windowState := mstate ;
           BorderStyle := mborderstyle;
           //show;
         end;
       end
       else
         frmFKCR_GD.BringToFront;
       //<2F><><EFBFBD><EFBFBD>
       mNewHandle:=frmFKCR_GD.Handle;

     end ;
     241:  //<2F><><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>
     begin
       if frmFKCR_GD=nil then
       begin
         frmFKCR_GD:= TfrmFKCR_GD.Create(application.MainForm);
         with frmFKCR_GD do
         begin
           TBADD.Visible:=false;
           TBDel.Visible:=false;
          // Label7.Visible:=false;
         //  Edit1.Visible:=false;
         //  Button1.Visible:=false;
         //  CheckBox1.Visible:=false;
           tv2.OptionsData.Editing:=false;
            fflag:=strtointdef(trim(DataBase),0);
           caption:=Trim(Title);
           FormStyle := mstyle ;
           windowState := mstate ;
           BorderStyle := mborderstyle;
           //show;
         end;
       end
       else
         frmFKCR_GD.BringToFront;
       //<2F><><EFBFBD><EFBFBD>
       mNewHandle:=frmFKCR_GD.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(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 frmYSCR.Free;
       if frmYSCR=nil then
       begin
         frmYSCR:= TfrmYSCR.Create(application.MainForm);
         with frmYSCR do
         begin

           caption:=Trim(Title);
           fDParameters1:=trim(DParameters4);
           fDParameters3:=trim(DParameters3);
           fSYRName:=trim(Parameters5);
           fstr2:=trim(Parameters6);
           FormStyle := mstyle ;
           windowState := mstate ;
           BorderStyle := mborderstyle;
           //show;
         end;
       end
       else
         frmYSCR.BringToFront;
       //<2F><><EFBFBD><EFBFBD>
       mNewHandle:=frmYSCR.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);
           fmanage:=Trim(DataBase);
           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 frmSKCR.Free;
       if frmSKCR=nil then
       begin
         frmSKCR:= TfrmSKCR.Create(application.MainForm);
         with frmSKCR do
         begin
           caption:=Trim(Title);
           fSYRName:=trim(Parameters5);
           fDParameters1:=trim(DParameters4);
           fDParameters3:=trim(DParameters3);
           fstr2:=trim(Parameters6);
           FormStyle := mstyle ;
           windowState := mstate ;
           BorderStyle := mborderstyle;
           //show;
         end;
       end
       else
         frmSKCR.BringToFront;
       //<2F><><EFBFBD><EFBFBD>
       mNewHandle:=frmSKCR.Handle;

     end ;  }
     5:
      begin
        bFound := FALSE;
        for i := (App.MainForm.MDIChildCount - 1) downto 0 do
        begin
          if App.MainForm.MDIChildren[i].Caption = '<27><><EFBFBD><EFBFBD><EFBFBD>տ<EFBFBD><D5BF>Ǽ<EFBFBD>' then
          begin
            BringWindowToTop(frmSKCR.Handle);
            bFound := TRUE;
            Break;
          end;
        end;
        if not bFound then
        begin
          frmSKCR := TfrmSKCR.Create(application.MainForm);
          with frmSKCR do
          begin
            Title := '<27><><EFBFBD><EFBFBD><EFBFBD>տ<EFBFBD><D5BF>Ǽ<EFBFBD>';
            fSYRName:=trim(Parameters5);
            fDParameters1:=trim(DParameters4);
            fDParameters3:=trim(DParameters3);
            fstr2:=trim(Parameters6);
            caption := Trim(Title);
            FormStyle := mstyle;
            windowState := mstate;
            BorderStyle := mborderstyle;
           //show;
          end;
        end
        else
          frmSKCR.BringToFront;
       //<2F><><EFBFBD><EFBFBD>
        mnewHandle := frmSKCR.Handle;
      end;
      51:
      begin
        bFound := FALSE;
        for i := (App.MainForm.MDIChildCount - 1) downto 0 do
        begin
          if App.MainForm.MDIChildren[i].Caption = '<27><>Ʒ<EFBFBD>տ<EFBFBD><D5BF>Ǽ<EFBFBD>' then
          begin
            BringWindowToTop(frmSKCRYP.Handle);
            bFound := TRUE;
            Break;
          end;
        end;
        if not bFound then
        begin
          frmSKCRYP:=TfrmSKCR.Create(application.MainForm);
          with frmSKCRYP do
          begin
            Title := '<27><>Ʒ<EFBFBD>տ<EFBFBD><D5BF>Ǽ<EFBFBD>';
            fSYRName:=trim(Parameters5);
            fDParameters1:=trim(DParameters4);
            fDParameters3:=trim(DParameters3);
            fstr2:=trim(Parameters6);
            caption := Trim(Title);
            FormStyle := mstyle;
            windowState := mstate;
            BorderStyle := mborderstyle;
           //show;
          end;
        end
        else
          frmSKCRYP.BringToFront;
       //<2F><><EFBFBD><EFBFBD>
        mnewHandle := frmSKCRYP.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);
           fDParameters1:=trim(DParameters1);
           fsyrName:=trim(Parameters5);
           fstr2:=trim(Parameters6);
           fDParameters3:=trim(DParameters3);
           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:  //Ӧ<>տ<EFBFBD><D5BF>տ<EFBFBD>ͳ<EFBFBD><CDB3>
     begin
       IF  frmFYDJ<>nil then frmFYDJ.Free;
       if frmFYDJ=nil then
       begin
         frmFYDJ:= TfrmFYDJ.Create(application.MainForm);
         with frmFYDJ do
         begin
           caption:=Trim(Title);
           fflag:=strtointdef(trim(Parameters4),0);
           fSYRName:=trim(Parameters5);
           FormStyle := mstyle ;
           windowState := mstate ;
           BorderStyle := mborderstyle;
           //show;
         end;
       end
       else
         frmFYDJ.BringToFront;
       //<2F><><EFBFBD><EFBFBD>
       mNewHandle:=frmFYDJ.Handle;

     end ;

     71:  //Ӧ<>տ<EFBFBD><D5BF>տ<EFBFBD>ͳ<EFBFBD><CDB3>
     begin
       IF  frmFYDJ_TJ<>nil then frmFYDJ_TJ.Free;
       if frmFYDJ_TJ=nil then
       begin
         frmFYDJ_TJ:= TfrmFYDJ_TJ.Create(application.MainForm);
         with frmFYDJ_TJ do
         begin
           caption:=Trim(Title);
           fSYRName:=trim(Parameters5);
           fflag:=strtointdef(trim(Parameters4),0);
           FormStyle := mstyle ;
           windowState := mstate ;
           BorderStyle := mborderstyle;
           //show;
         end;
       end
       else
         frmFYDJ_TJ.BringToFront;
       //<2F><><EFBFBD><EFBFBD>
       mNewHandle:=frmFYDJ_TJ.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:  //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ
     begin
       if frmMoney_LL=nil then
       begin
         frmMoney_LL:= TfrmMoney_LL.Create(application.MainForm);
         with frmMoney_LL do
         begin
           fSYRName:=trim(Parameters5);
           caption:=Trim(Title);
           FormStyle := mstyle ;
           windowState := mstate ;
           BorderStyle := mborderstyle;
           //show;
         end;
       end
       else
         frmMoney_LL.BringToFront;
       //<2F><><EFBFBD><EFBFBD>
       mNewHandle:=frmMoney_LL.Handle;

     end;
     101:  //<2F><><EFBFBD>л<EFBFBD><D0BB><EFBFBD>
     begin
       if frmYF_Money_LL_list=nil then
       begin
         frmYF_Money_LL_list:= TfrmYF_Money_LL_list.Create(application.MainForm);
         with frmYF_Money_LL_list do
         begin
           fSYRName:=trim(Parameters5);
           caption:=Trim(Title);
           FormStyle := mstyle ;
           windowState := mstate ;
           BorderStyle := mborderstyle;
           //show;
         end;
       end
       else
         frmYF_Money_LL_list.BringToFront;
       //<2F><><EFBFBD><EFBFBD>
       mNewHandle:=frmYF_Money_LL_list.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:=trim(DataBase);
           fDParameters1:=trim(DParameters1);
           fsyrName:=trim(Parameters5);
           fDParameters3:=trim(DParameters3);
           fstr2:=trim(Parameters6);
           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
  CoInitialize(nil);
  dxUnitsLoader.Initialize;

finalization

   DataLink_YSYF.Free;
   application:=NewDllApp;
   dxUnitsLoader.Finalize;
end.