mdifinance.pas

产品信息系统!关于产品基础信息的系统!功能强大!

unit MDIFinance;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ModuleControl, ActnList, Buttons, fcButton, fcImgBtn,
  fcShapeBtn, fcClearPanel, fcButtonGroup, ExtCtrls, StdCtrls, DB, ADODB,
  ImgList, Menus;

type
  TfrmMDIFinance = class(TfrmModuleControl)
    acPay: TAction;
    acReceive: TAction;
    reQueryPay: TAction;
    reQueryReceive: TAction;
    reCustomerIO: TAction;
    reProviderIO: TAction;
    acCashier: TAction;
    reCustomerAccount: TAction;
    reProviderAccount: TAction;
    acChargeC: TAction;
    acCharageP: TAction;
    reChargeCustomer: TAction;
    reChargeProvider: TAction;
    procedure FormCreate(Sender: TObject);
    procedure acPayExecute(Sender: TObject);
    procedure acReceiveExecute(Sender: TObject);
    procedure reQueryReceiveExecute(Sender: TObject);
    procedure reQueryPayExecute(Sender: TObject);
    procedure reCustomerIOExecute(Sender: TObject);
    procedure reProviderIOExecute(Sender: TObject);
    procedure acCashierExecute(Sender: TObject);
    procedure reCustomerAccountExecute(Sender: TObject);
    procedure reProviderAccountExecute(Sender: TObject);
    procedure acChargeCExecute(Sender: TObject);
    procedure acCharagePExecute(Sender: TObject);
    procedure reChargeCustomerExecute(Sender: TObject);
    procedure reChargeProviderExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMDIFinance     : TfrmMDIFinance;

implementation

uses Global, PaymentProvider, PaymentCustomer, QueryPaymentCustomer,
  QueryPaymentProvider, CustomerAccountIO, ProviderAccountIO, BaseCashier,
  AccountCustomer, AccountProvider, ChargeCustomer, ChargeProvider,
  QueryChargeCustomer, QueryChargeProvider;

{$R *.dfm}

procedure TfrmMDIFinance.FormCreate(Sender: TObject);
begin
  inherited;
  {隐藏不需要的fcBtn}
  fcbtn4.Visible := false;
  fcbtn5.Visible := false;
  fcbtn6.Visible := false;
  fcbtn7.Visible := false;
  fcbtn8.Visible := false;
end;

procedure TfrmMDIFinance.acPayExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmPaymentProvider, self, iModuleID, (Sender as TAction).Name, TForm(frmPaymentProvider));
end;

procedure TfrmMDIFinance.acReceiveExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmPaymentCustomer, self, iModuleID, (Sender as TAction).Name, TForm(frmPayMentCustomer));
end;

procedure TfrmMDIFinance.reQueryReceiveExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQueryPaymentCustomer, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryPaymentCustomer));
end;

procedure TfrmMDIFinance.reQueryPayExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQueryPaymentProvider, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryPaymentProvider));

end;

procedure TfrmMDIFinance.reCustomerIOExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmCustomerAccountIO, self, iModuleID, (Sender as TAction).Name, TForm(frmCustomerAccountIO));
end;

procedure TfrmMDIFinance.reProviderIOExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmProviderAccountIO, self, iModuleID, (Sender as TAction).Name, TForm(frmProviderAccountIO));
end;

procedure TfrmMDIFinance.acCashierExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmBaseCashier, self, iModuleID, (Sender as TAction).Name, TForm(frmBaseCashier));
end;

procedure TfrmMDIFinance.reCustomerAccountExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmAccountCustomer, self, iModuleID, (Sender as TAction).Name, TForm(frmAccountCustomer));
end;

procedure TfrmMDIFinance.reProviderAccountExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmAccountProvider, self, iModuleID, (Sender as TAction).Name, TForm(frmAccountProvider));
end;

procedure TfrmMDIFinance.acChargeCExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmChargeCustomer, self, iModuleID, (Sender as TAction).Name, TForm(frmChargeCustomer));
end;

procedure TfrmMDIFinance.acCharagePExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmChargeProvider, self, iModuleID, (Sender as TAction).Name, TForm(frmChargeProvider));
end;

procedure TfrmMDIFinance.reChargeCustomerExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQueryChargeCustomer, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryChargeCustomer));
end;

procedure TfrmMDIFinance.reChargeProviderExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQueryChargeProvider, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryChargeProvider));
end;

end.