c_mainform.pas

《delphi数据库设计与实例开发》随书光盘

unit c_mainform;

interface

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

type
  Tcfrm_mainform = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N11: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    Image1: TImage;
    N9: TMenuItem;
    N10: TMenuItem;
    N12: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    ToolButton9: TToolButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure N17Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cfrm_mainform: Tcfrm_mainform;

implementation

uses c_changepass, c_customer, c_depot, c_czy, c_overproduct,
  c_product, c_provider, c_sell, c_sellquery, c_shortproduct,
  c_stock, c_stockquery, c_stoquery, publicvar, datam, c_about;

{$R *.dfm}

procedure Tcfrm_mainform.N2Click(Sender: TObject);
begin
  cfrm_czy:=tcfrm_czy.create(application);
  cfrm_czy.showmodal;
end;

procedure Tcfrm_mainform.N3Click(Sender: TObject);
begin
  cfrm_changepass:=tcfrm_changepass.create(application);
  cfrm_changepass.showmodal;
end;

procedure Tcfrm_mainform.N5Click(Sender: TObject);
begin
  cfrm_provider:=tcfrm_provider.create(application);
  cfrm_provider.showmodal;
end;

procedure Tcfrm_mainform.N6Click(Sender: TObject);
begin
  cfrm_customer:=tcfrm_customer.create(application);
  cfrm_customer.showmodal;
end;

procedure Tcfrm_mainform.N7Click(Sender: TObject);
begin
  cfrm_product:=tcfrm_product.create(application);
  cfrm_product.showmodal;
end;

procedure Tcfrm_mainform.N8Click(Sender: TObject);
begin
  cfrm_depot:=tcfrm_depot.create(application);
  cfrm_depot.showmodal;
end;

procedure Tcfrm_mainform.N9Click(Sender: TObject);
begin
  cfrm_stock:=tcfrm_stock.create(application);
  cfrm_stock.showmodal;
end;

procedure Tcfrm_mainform.N10Click(Sender: TObject);
begin
  cfrm_sell:=tcfrm_sell.create(application);
  cfrm_sell.showmodal;
end;

procedure Tcfrm_mainform.N14Click(Sender: TObject);
begin
   cfrm_stoquery:=tcfrm_stoquery.create(application);
   cfrm_stoquery.showmodal;
end;

procedure Tcfrm_mainform.N12Click(Sender: TObject);
begin
   cfrm_stockquery:=tcfrm_stockquery.create(application);
   cfrm_stockquery.showmodal;
end;

procedure Tcfrm_mainform.N15Click(Sender: TObject);
begin
  cfrm_sellquery:=tcfrm_sellquery.create(application);
   cfrm_sellquery.showmodal;
end;

procedure Tcfrm_mainform.N18Click(Sender: TObject);
begin
  cfrm_shortproduct:=tcfrm_shortproduct.create(application);
   cfrm_shortproduct.showmodal;
end;

procedure Tcfrm_mainform.N19Click(Sender: TObject);
begin
 cfrm_overproduct:=tcfrm_overproduct.create(application);
   cfrm_overproduct.showmodal;
end;

procedure Tcfrm_mainform.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
Application.Terminate;
end;

procedure Tcfrm_mainform.FormCreate(Sender: TObject);
begin
Statusbar1.Panels[0].Text:='当前日期：'+DatetoStr(Date());
Statusbar1.Panels[1].Text:='当前用户：'+username;
end;

procedure Tcfrm_mainform.N17Click(Sender: TObject);
begin
  AboutBox:=tAboutBox.create(application);
   AboutBox.showmodal;
end;

end.