mdisystem.pas

三层ERP系统 (SQL)

unit MDISystem;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ModuleControl, Menus, ImgList, ActnList, fcButton, fcImgBtn,
  fcShapeBtn, fcClearPanel, fcButtonGroup, Buttons, ExtCtrls, Sconnect, DBclient;
  
type
  TfrmMDISystem = class(TfrmModuleControl)
    coproducttype: TAction;
    coetype: TAction;
    coptype: TAction;
    coaddress: TAction;
    coUnit: TAction;
    coDepartment: TAction;
    comoney: TAction;
    sausergroup: TAction;
    sauser: TAction;
    sagrouppurview: TAction;
    initAccountP: TAction;
    initAccountC: TAction;
    syCorpInfo: TAction;
    reproducts: TAction;
    recustomer: TAction;
    reprovider: TAction;
    reEmployeebydep: TAction;
    acemployeebytype: TAction;
    cofee: TAction;
    cosheet: TAction;
    cofactorydate: TAction;
    coprovider: TAction;
    cocustomer: TAction;
    coproduct: TAction;
    coemployee: TAction;
    syGettablefiled: TAction;
    procedure FormCreate(Sender: TObject);
    procedure coUnitExecute(Sender: TObject);
    procedure syGettablefiledExecute(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure coDepartmentExecute(Sender: TObject);
    procedure sausergroupExecute(Sender: TObject);
    procedure sauserExecute(Sender: TObject);
    procedure sagrouppurviewExecute(Sender: TObject);
    procedure syCorpInfoExecute(Sender: TObject);
    procedure cosheetExecute(Sender: TObject);
    procedure cofeeExecute(Sender: TObject);
    procedure coetypeExecute(Sender: TObject);
    procedure coptypeExecute(Sender: TObject);
    procedure comoneyExecute(Sender: TObject);
    procedure coproviderExecute(Sender: TObject);
    procedure cocustomerExecute(Sender: TObject);
    procedure coemployeeExecute(Sender: TObject);
    procedure cofactorydateExecute(Sender: TObject);
    procedure coproducttypeExecute(Sender: TObject);
    procedure coaddressExecute(Sender: TObject);
    procedure coproductExecute(Sender: TObject);
    procedure reproductsExecute(Sender: TObject);
    procedure recustomerExecute(Sender: TObject);
    procedure reproviderExecute(Sender: TObject);
    procedure reEmployeebydepExecute(Sender: TObject);
    procedure acemployeebytypeExecute(Sender: TObject);
  private
    SystemDLLHandle:Thandle;
    procedure LoadSystemDLL(Sender:TObject;FormName:String;DllName:String);
    { Private declarations }
  public
    { Public declarations }
  end;

  TDllShow =procedure (PApplication: TApplication; PForm: TForm;FormName:String;DB_Name:String;
          PCn:TSocketConnection;PUsercode:String;Badmin:boolean;PCDS:TclientDataset;
          ModuleID:integer;FunctionName:String);stdcall;
var
  frmMDISystem: TfrmMDISystem;

implementation

uses Global, dm_Client, ClientMain;

{$R *.dfm}

procedure TfrmMDISystem.FormCreate(Sender: TObject);
begin
  inherited;
  fcbtn6.Visible:=False;
  fcbtn7.Visible:=False;
  fcbtn8.Visible:=False;
end;

procedure TfrmMDISystem.LoadSystemDLL(Sender: TObject; FormName,
  DllName: String);
var
   ProcAddr: FarProc;
   BaseDllShow: TDllShow;
   Form:TForm;
begin
   if SystemDLLHandle=0 then
     SystemDLLHandle := LoadLibrary(PChar(DllName+'.dll'));  //