mdisell.pas

三层ERP系统 (SQL)

unit MDISell;

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
  TfrmMDISell = class(TfrmModuleControl)
    resalereturnorder: TAction;
    recustomerout: TAction;
    recustomerback: TAction;
    resaleparticular: TAction;
    acproductselltotal: TAction;
    recustomertotal: TAction;
    reprodsumbyoncust: TAction;
    recustsumbyonprod: TAction;
    bacustomer: TAction;
    baoperation: TAction;
    stcancel: TAction;
    stsubmit: TAction;
    stfinish: TAction;
    sabargain: TAction;
    sasaleorder: TAction;
    sasaleoutorder: TAction;
    sasalereturnorder: TAction;
    sacustomerout: TAction;
    sacustomerback: TAction;
    resaleoutorder: TAction;
    recustomer: TAction;
    resalebargain: TAction;
    resellorder: TAction;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton9: TSpeedButton;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure baoperationExecute(Sender: TObject);
    procedure bacustomerExecute(Sender: TObject);
    procedure sabargainExecute(Sender: TObject);
    procedure sasaleorderExecute(Sender: TObject);
    procedure stcancelExecute(Sender: TObject);
    procedure stsubmitExecute(Sender: TObject);
    procedure stfinishExecute(Sender: TObject);
  private
    SellDLLHandle:Thandle;
    procedure LoadSellDLL(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
  frmMDISell: TfrmMDISell;

implementation

uses dm_Client, Global;

{$R *.dfm}

procedure TfrmMDISell.FormCreate(Sender: TObject);
begin
  inherited;
  fcbtn6.visible:=false;
  fcbtn7.Visible :=false;
  fcbtn8.Visible :=false;
end;

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