c_htmainform.pas

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

unit c_htmainform;

interface

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

type
  Tcfrm_htmainform = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    ToolBar1: TToolBar;
    StatusBar1: TStatusBar;
    ToolButton1: TToolButton;
    ToolButton3: TToolButton;
    ToolButton2: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ImageList1: TImageList;
    Panel1: TPanel;
    Image1: TImage;
    procedure N2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N12Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cfrm_htmainform: Tcfrm_htmainform;

implementation
uses c_czy,c_changepass,c_lb,c_roomedit,c_foodlb,c_table,c_dish, publicvar,c_about;

{$R *.dfm}

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

procedure Tcfrm_htmainform.FormCreate(Sender: TObject);
begin
 StatusBar1.Panels[0].Text:='当前用户：'+username;
 StatusBar1.Panels[1].Text:=datetostr(date());
end;

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

procedure Tcfrm_htmainform.N5Click(Sender: TObject);
begin
  cfrm_lb:=tcfrm_lb.create(application);
  cfrm_lb.showmodal;
end;

procedure Tcfrm_htmainform.N6Click(Sender: TObject);
begin
  cfrm_roomedit:=tcfrm_roomedit.create(application);
  cfrm_roomedit.showmodal;
end;

procedure Tcfrm_htmainform.N8Click(Sender: TObject);
begin
  cfrm_foodlb:=tcfrm_foodlb.create(application);
  cfrm_foodlb.showmodal;
end;

procedure Tcfrm_htmainform.N10Click(Sender: TObject);
begin
  cfrm_table:=tcfrm_table.create(application);
  cfrm_table.showmodal;
end;

procedure Tcfrm_htmainform.N9Click(Sender: TObject);
begin
cfrm_dish:=tcfrm_dish.create(application);
  cfrm_dish.showmodal;
end;

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

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

end.