main.~pas

delphi制作的图书管理系统

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, Menus, ExtCtrls, StdCtrls;

type
  TMainForm = class(TForm)
    MainStatusBar: TStatusBar;
    MainMenu: TMainMenu;
    Menu_purchase: TMenuItem;
    Menu_Sales: TMenuItem;
    Menu_Account: TMenuItem;
    Menu_Initial: TMenuItem;
    Sub_PAccount: TMenuItem;
    Sub_BookAccount: TMenuItem;
    Sub_SAccount: TMenuItem;
    Sub_MReport: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    Main_Panel: TPanel;
    ToolBar1: TToolBar;
    PurchaseBook_Sub: TMenuItem;
    Saleing_Sub: TMenuItem;
    NewBook_Sub: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    procedure Sub_ExitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure PurchaseBook_SubClick(Sender: TObject);           //进书操作
    procedure N1Click(Sender: TObject);                         //添加采购员
    procedure N2Click(Sender: TObject);                         //采购销售员
    procedure NewBook_SubClick(Sender: TObject);                //添加新书
    procedure Saleing_SubClick(Sender: TObject);                //销售操作
    procedure Sub_BookAccountClick(Sender: TObject);            //库存统计
    procedure Sub_PAccountClick(Sender: TObject);               //销售统计
    procedure Sub_SAccountClick(Sender: TObject);               //进书统计
    procedure Sub_MReportClick(Sender: TObject);                //月报表
    procedure N4Click(Sender: TObject);                         //退出系统
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

uses PurchaseIn, purchase, AddPurchaser, addSale, AddBookInfo,
  SaleManage, Depository, PurchaseAccount, SalesAccount, MonthReport;

{$R *.dfm}

procedure TMainForm.Sub_ExitClick(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TMainForm.PurchaseBook_SubClick(Sender: TObject);
var
  PurchaseFrm:TPurchaseFrm;
begin
    PurchaseFrm:=TPurchaseFrm.Create(self);
    PurchaseFrm.Dock(main_panel,BoundsRect);
    PurchaseFrm.Show;
    PurchaseFrm.FreeOnRelease;
    PurchaseBook_Sub.Enabled:=False;
end;

procedure TMainForm.N1Click(Sender: TObject);
var
  FrmAddPurchaser:TFrmAddPurchaser;
begin
  FrmAddPurchaser:=TFrmAddPurchaser.Create(self);
  FrmAddPurchaser.ShowModal;
  FrmAddPurchaser.Free;
end;

procedure TMainForm.N2Click(Sender: TObject);
var
  FrmAddSale:TFrmAddSale;
begin
  FrmAddSale:=TFrmAddSale.Create(self);
  FrmaddSale.ShowModal;
  FrmaddSale.Free;
end;

procedure TMainForm.NewBook_SubClick(Sender: TObject);
var
  FrmAddBookInfo:TFrmAddBookInfo;
begin
  FrmAddBookInfo:=TFrmAddBookInfo.Create(self);
  FrmAddBookInfo.ShowModal;
  FrmAddBookInfo.Free;
end;

procedure TMainForm.Saleing_SubClick(Sender: TObject);
var
  SaleManageFrm:TSaleManageFrm;
begin
    SaleManageFrm:=TSaleManageFrm.Create(self);
    SaleManageFrm.Dock(main_panel,BoundsRect);
    SaleManageFrm.Show;
    SaleManageFrm.FreeOnRelease;
    Saleing_Sub.Enabled:=False;
end;

procedure TMainForm.Sub_BookAccountClick(Sender: TObject);
var
  DepositoryFrm:TDepositoryFrm;
begin
    DepositoryFrm:=TDepositoryFrm.Create(self);
    DepositoryFrm.Dock(main_panel,BoundsRect);
    DepositoryFrm.Show;
    DepositoryFrm.FreeOnRelease;
    Sub_BookAccount.Enabled:=False;

end;

procedure TMainForm.Sub_PAccountClick(Sender: TObject);
var
  SalesAccountFrm:TSalesAccountFrm;
begin
    SalesAccountFrm:=TSalesAccountFrm.Create(self);
    SalesAccountFrm.Dock(main_panel,BoundsRect);
    SalesAccountFrm.Show;
    SalesAccountFrm.FreeOnRelease;
    Sub_SAccount.Enabled:=False;
end;

procedure TMainForm.Sub_SAccountClick(Sender: TObject);
var
  PurchaseAccountFrm:TPurchaseAccountFrm;
begin
    PurchaseAccountFrm:=TPurchaseAccountFrm.Create(self);
    PurchaseAccountFrm.Dock(main_panel,BoundsRect);
    PurchaseAccountFrm.Show;
    PurchaseAccountFrm.FreeOnRelease;
    Sub_PAccount.Enabled:=False;
end;

procedure TMainForm.Sub_MReportClick(Sender: TObject);
var
  MonthReportFrm:TMonthReportFrm;
begin
    MonthReportFrm:=TMonthReportFrm.Create(self);
    MonthReportFrm.Dock(main_panel,BoundsRect);
    MonthReportFrm.Show;
    MonthReportFrm.FreeOnRelease;
    Sub_MReport.Enabled:=False;
end;

procedure TMainForm.N4Click(Sender: TObject);
begin
  Application.Terminate;
end;

end.