c_mainform.pas

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

unit c_mainform;

interface

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

type
  Tcfrm_mainform = 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;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    StatusBar1: TStatusBar;
    N22: TMenuItem;
    N23: TMenuItem;
    ToolBar1: TToolBar;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton7: TToolButton;
    N19: TMenuItem;
    ToolButton6: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ImageList1: TImageList;
    Panel1: TPanel;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cfrm_mainform: Tcfrm_mainform;

implementation
uses publicvar,datam,c_dw,c_lb,c_client,c_pass,c_vcdrent,c_vcdback,c_vcdbrowse,
  c_login, c_czy, c_cash, c_about, c_changepass,c_vcdmgn, c_qk;

{$R *.dfm}

procedure Tcfrm_mainform.FormActivate(Sender: TObject);
begin
  StatusBar1.Panels[1].Text:=datetostr(date())+'|'+username;
  dm.ADO_dw.Open;
  dm.ado_dw.First;
  dwname:=dm.ado_dw.FieldByName('名称').asstring;
  StatusBar1.Panels[0].Text:='单位名称：'+dwname;
  dm.ADO_dw.Close;
end;

procedure Tcfrm_mainform.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
 cfrm_login.Close;
 release;
end;

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

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

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

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

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

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

procedure Tcfrm_mainform.N13Click(Sender: TObject);
begin
 cfrm_vcdback:=tcfrm_vcdback.create(application);
  cfrm_vcdback.showmodal;
end;

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

procedure Tcfrm_mainform.N16Click(Sender: TObject);
begin
   cfrm_cash:=tcfrm_cash.create(application);
  cfrm_cash.showmodal;
end;

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



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

procedure Tcfrm_mainform.N11Click(Sender: TObject);
begin
  cfrm_vcdmge:=tcfrm_vcdmge.create(application);
  cfrm_vcdmge.showmodal;
end;

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

procedure Tcfrm_mainform.ToolButton4Click(Sender: TObject);
begin
cfrm_vcdmge:=tcfrm_vcdmge.create(application);
  cfrm_vcdmge.showmodal;
end;

procedure Tcfrm_mainform.ToolButton5Click(Sender: TObject);
begin
cfrm_vcdrent:=tcfrm_vcdrent.create(application);
  cfrm_vcdrent.showmodal;
end;

procedure Tcfrm_mainform.ToolButton7Click(Sender: TObject);
begin
cfrm_vcdback:=tcfrm_vcdback.create(application);
  cfrm_vcdback.showmodal;
end;

procedure Tcfrm_mainform.ToolButton6Click(Sender: TObject);
begin
 cfrm_qk:=tcfrm_qk.create(application);
  cfrm_qk.showmodal;
end;

procedure Tcfrm_mainform.ToolButton9Click(Sender: TObject);
begin
cfrm_vcdbrowse:=tcfrm_vcdbrowse.create(application);
  cfrm_vcdbrowse.showmodal;
end;

procedure Tcfrm_mainform.ToolButton10Click(Sender: TObject);
begin
cfrm_cash:=tcfrm_cash.create(application);
  cfrm_cash.showmodal;
end;

procedure Tcfrm_mainform.ToolButton2Click(Sender: TObject);
begin
cfrm_client:=tcfrm_client.create(application);
  cfrm_client.showmodal;
end;

end.