c_qtmainform.pas

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

unit c_qtmainform;

interface

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

type
  Tcfrm_qtmainform = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ImageList1: TImageList;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    Panel1: TPanel;
    Image1: TImage;
    procedure FormActivate(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cfrm_qtmainform: Tcfrm_qtmainform;

implementation

uses publicvar,c_order,c_rz,c_tf,c_dc,c_jz,c_about;

{$R *.dfm}

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

procedure Tcfrm_qtmainform.N2Click(Sender: TObject);
begin
cfrm_order:=tcfrm_order.create(application);
  cfrm_order.showmodal;
end;

procedure Tcfrm_qtmainform.N3Click(Sender: TObject);
begin
 cfrm_rz:=tcfrm_rz.create(application);
  cfrm_rz.showmodal;
end;

procedure Tcfrm_qtmainform.N4Click(Sender: TObject);
begin
cfrm_tf:=tcfrm_tf.create(application);
  cfrm_tf.showmodal;
end;

procedure Tcfrm_qtmainform.N6Click(Sender: TObject);
begin
cfrm_dc:=tcfrm_dc.create(application);
  cfrm_dc.showmodal;
end;

procedure Tcfrm_qtmainform.N7Click(Sender: TObject);
begin
cfrm_jz:=tcfrm_jz.create(application);
  cfrm_jz.showmodal;
end;

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

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



end.