systemdll.dpr

三层ERP系统 (SQL)

library SystemDll;

{ Important note about DLL memory management: ShareMem must be the
  first unit in your library's USES clause AND your project's (select
  Project-View Source) USES clause if your DLL exports any procedures or
  functions that pass strings as parameters or function results. This
  applies to all strings passed to and from your DLL--even those that
  are nested in records and classes. ShareMem is the interface unit to
  the BORLNDMM.DLL shared memory manager, which must be deployed along
  with your DLL. To avoid using BORLNDMM.DLL, pass string information
  using PChar or ShortString parameters. }

uses
  sharemem,
  SysUtils,
  Windows,
  forms,
  Sconnect,
  Classes,
  DBClient,
  Base in '..\PublicDll\Base.pas' {frmBase},
  Base_Dll in '..\PublicDll\Base_Dll.pas' {frmBase_DLL},
  DataProcess in '..\PublicDll\DataProcess.pas',
  Global in '..\PublicDll\Global.pas',
  MDIBase in '..\PublicDll\MDIBase.pas' {frmMDIBase},
  BaseInfo in '..\PublicDll\BaseInfo.pas' {frmBaseinfo},
  Binterface in '..\PublicDll\Binterface.pas' {frminterface},
  Bsearch in '..\PublicDll\Bsearch.pas' {frmSearch},
  Bbilltype in 'Bbilltype.pas' {frmbilltype},
  BBillType_M in 'BBillType_M.pas' {frmBillType_M},
  Bcompanyinfo in 'Bcompanyinfo.pas' {frmCompanyinfo},
  Bcompanyinfo_M in 'Bcompanyinfo_M.pas' {frmCompanyinfo_m},
  BmoneyType in 'BmoneyType.pas' {frmmoneytype},
  BMoneyType_M in 'BMoneyType_M.pas' {frmMoneyType_M},
  BpayoutType in 'BpayoutType.pas' {frmpayouttype},
  BPayOutType_M in 'BPayOutType_M.pas' {frmPayOutType_M},
  BproviderType in 'BproviderType.pas' {frmprovidertype},
  BProviderType_M in 'BProviderType_M.pas' {frmProviderType_M},
  Bunit in 'Bunit.pas' {frmunit},
  Bunit_M in 'Bunit_M.pas' {frmunit_M},
  Buser in 'Buser.pas' {frmUser},
  Buser_Group in 'Buser_Group.pas' {frmUser_Group},
  Buser_M in 'Buser_M.pas' {frmUser_M},
  BuserGroup in 'BuserGroup.pas' {frmUserGroup},
  BuserGroup_M in 'BuserGroup_M.pas' {frmuserGroup_m},
  Tablefield in 'Tablefield.pas' {frmtablefield},
  UserRightSet in 'UserRightSet.pas' {frmuserrightset},
  BCalendar in 'BCalendar.pas' {frmCalendar},
  BCalendar_M in 'BCalendar_M.pas' {frmCalendar_M},
  BCustomer in 'BCustomer.pas' {frmCustomer},
  BCustomer_M in 'BCustomer_M.pas' {frmCustomer_M},
  BEmployee in 'BEmployee.pas' {frmemployee},
  BEmployee_M in 'BEmployee_M.pas' {frmEmployee_M},
  BProvider in 'BProvider.pas' {frmProvider},
  BProvider_M in 'BProvider_M.pas' {frmProvider_M},
  Base_T in '..\PublicDll\Base_T.pas' {frmMDIBase_T},
  KProductType in 'KProductType.pas' {frmProductType},
  KArea in 'KArea.pas' {frmArea},
  BProduct in 'BProduct.pas' {frmProduct},
  BImageBrowse in 'BImageBrowse.pas' {frmImageBrowse},
  BaseSearch in '..\PublicDll\BaseSearch.pas' {frmBaseSearch},
  ProductQ in 'ProductQ.pas' {frmProductQ},
  CustomerQ in 'CustomerQ.pas' {frmCustomerQ},
  ProviderQ in 'ProviderQ.pas' {frmProviderQ},
  BaseInfo_M in '..\PublicDll\BaseInfo_M.pas' {frmBaseInfo_M},
  EmployeeQueryByDept in 'EmployeeQueryByDept.pas' {frmEmployeeQuery_D},
  Bdept in 'Bdept.pas' {frmDept},
  EmployeeQueryByType in 'EmployeeQueryByType.pas' {frmEmployeeQuery_T},
  BemployeeType in 'BemployeeType.pas' {frmemployeetype};

{$R *.res}

procedure LoadSystemDLL(PApplication: TApplication; PForm: TForm;FormName:String;DB_Name:String;
          PCn:TSocketConnection;PUsercode:String;Badmin:boolean;PCDS:TclientDataset;
          ModuleID:integer;FunctionName:String); export; stdcall;
var
  DllProc: Pointer;             { Called whenever DLL entry point is called }
begin
   Application:=PApplication;
   FormName := UpperCase(FormName);
   CurrentDBName:=DB_Name;
   DLLCDS:=PCDS;
   DLLUcode:=PUsercode;
   DLLSCT := PCn;
   G_Badmin:=Badmin;
   iModuleID:=ModuleID;
   sFunctionName:=FunctionName;
   FormHandle:=MainApplicationHandle('TfrmClientMain');

   if FormName='FRMUNIT' then
   begin
     if not Assigned(frmunit) then
       frmunit := Tfrmunit.Create(PForm);
   end;

   if FormName='FRMTABLEFIELD' then
   begin
     if not Assigned(frmtablefield) then
       frmtablefield := Tfrmtablefield.Create(PForm);
   end;

   if FormName='FRMDEPT' then
   begin
     if not Assigned(frmdept) then
       frmdept := Tfrmdept.Create(PForm);
   end;

   if FormName='FRMUSERGROUP' then
   begin
     if not Assigned(frmusergroup) then
       frmusergroup := Tfrmusergroup.Create(PForm);
   end;

   if FormName='FRMUSER' then
   begin
     if not Assigned(frmuser) then
       frmuser := Tfrmuser.Create(PForm);
   end;

   if FormName='FRMUSERRIGHTSET' then
   begin
     if not Assigned(frmuserrightset) then
       frmuserrightset := Tfrmuserrightset.Create(PForm);
   end;

   if FormName='FRMCOMPANYINFO' then
   begin
     if not Assigned(frmcompanyinfo) then
       frmcompanyinfo := Tfrmcompanyinfo.Create(PForm);
   end;

   if FormName='FRMBILLTYPE' then
   begin
     if not Assigned(frmbilltype) then
       frmbilltype := Tfrmbilltype.Create(PForm);
   end;

   if FormName='FRMPAYOUTTYPE' then
   begin
     if not Assigned(frmpayouttype) then
       frmpayouttype := Tfrmpayouttype.Create(PForm);
   end;

   if FormName='FRMPROVIDERTYPE' then
   begin
     if not Assigned(frmprovidertype) then
       frmprovidertype := Tfrmprovidertype.Create(PForm);
   end;

   if FormName='FRMEMPLOYEETYPE' then
   begin
     if not Assigned(frmemployeetype) then
       frmemployeetype := Tfrmemployeetype.Create(PForm);
   end;

   if FormName='FRMMONEYTYPE' then
   begin
     if not Assigned(frmmoneytype) then
       frmmoneytype := Tfrmmoneytype.Create(PForm);
   end;

   if FormName='FRMCUSTOMER' then
   begin
     if not Assigned(frmcustomer) then
       frmcustomer := Tfrmcustomer.Create(PForm);
   end;

   if FormName='FRMPROVIDER' then
   begin
     if not Assigned(frmprovider) then
       frmprovider := Tfrmprovider.Create(PForm);
   end;

   if FormName='FRMEMPLOYEE' then
   begin
     if not Assigned(frmemployee) then
       frmemployee := Tfrmemployee.Create(PForm);
   end;

   if FormName='FRMCALENDAR' then
   begin
     if not Assigned(frmcalendar) then
       frmcalendar := Tfrmcalendar.Create(PForm);
   end;

   if FormName='FRMPRODUCTTYPE' then
   begin
     if not Assigned(frmproducttype) then
       frmproducttype := Tfrmproducttype.Create(PForm);
   end;

   if FormName='FRMAREA' then
   begin
     if not Assigned(frmarea) then
       frmarea := Tfrmarea.Create(PForm);
   end;

   if FormName='FRMPRODUCT' then
   begin
     if not Assigned(frmproduct) then
       frmproduct := Tfrmproduct.Create(PForm);
   end;

   if FormName='FRMPRODUCTQ' then
   begin
     if not Assigned(frmproductq) then
       frmproductq := Tfrmproductq.Create(PForm);
   end;

   if FormName='FRMCUSTOMERQ' then
   begin
     if not Assigned(frmCustomerq) then
       frmCustomerq := TfrmCustomerq.Create(PForm);
   end;

   if FormName='FRMPROVIDERQ' then
   begin
     if not Assigned(frmProviderQ) then
       frmProviderQ := TfrmProviderQ.Create(PForm);
   end;

   if FormName='FRMEMPLOYEEQUERY_D' then
    begin
      if not Assigned(frmemployeequery_d) then
        frmemployeequery_d:=Tfrmemployeequery_d.Create(pForm);
    end;

   if FormName='FRMEMPLOYEEQUERY_T' then
    begin
      if not Assigned(frmemployeequery_t) then
        frmemployeequery_t:=Tfrmemployeequery_t.Create(pForm);
    end;
end;

procedure DLLUnloadProc(Reason: Integer); register;
begin
  if Reason = DLL_PROCESS_DETACH then
  begin
    if assigned(frmtablefield) then
      frmtablefield.Free;
    if assigned(frmunit) then
      frmunit.Free;
    if assigned(frmdept) then
      frmdept.Free;
    if assigned(frmusergroup) then
      frmusergroup.Free;
    if assigned(frmUser) then
      frmuser.Free;
    if assigned(frmUserrightset) then
      frmuserrightset.Free;
    if assigned(frmcompanyinfo) then
      frmcompanyinfo.Free;
    if assigned(frmbilltype) then
      frmbilltype.Free;
    if assigned(frmpayouttype) then
      frmpayouttype.Free;
    if assigned(frmprovidertype) then
      frmprovidertype.Free;
    if assigned(frmemployeetype) then
      frmemployeetype.Free;
    if assigned(frmmoneytype) then
      frmmoneytype.Free;
    if assigned(frmcustomer) then
      frmcustomer.Free;
    if assigned(frmprovider) then
      frmprovider.Free;
    if assigned(frmemployee) then
      frmemployee.Free;
    if assigned(frmcalendar) then
      frmcalendar.Free;
    if assigned(frmproducttype) then
      frmproducttype.Free;
    if assigned(frmarea) then
      frmarea.Free;
    if assigned(frmproduct) then
      frmproduct.Free;
    if assigned(frmproductq) then
      frmproductq.Free;
    if assigned(frmCustomerq) then
      frmCustomerq.Free;
    if assigned(frmProviderq) then
      frmproviderq.Free;
    if assigned(frmEmployeeQuery_D) then
      frmEmployeeQuery_d.Free;
    if assigned(frmEmployeeQuery_t) then
      frmEmployeeQuery_t.Free;
    Application := SaveApplication;
  end;
end;

exports
   LoadSystemDLL;

begin
   SaveApplication := Application;
   DllName := 'SystemDLL';
   DLLProc := @DLLUnloadProc;
end.