main.pas

来自「Delphi实战演练一书的配套光盘」· PAS 代码 · 共 222 行

unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, jpeg, ExtCtrls, Db, DBTables;

type
  TMainFrm = 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;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    Web1: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    N47: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    N50: TMenuItem;
    N51: TMenuItem;
    N52: TMenuItem;
    N53: TMenuItem;
    N54: TMenuItem;
    N55: TMenuItem;
    N56: TMenuItem;
    N57: TMenuItem;
    N58: TMenuItem;
    N59: TMenuItem;
    N60: TMenuItem;
    Web2: TMenuItem;
    N61: TMenuItem;
    N62: TMenuItem;
    N63: TMenuItem;
    N64: TMenuItem;
    N65: TMenuItem;
    N66: TMenuItem;
    N67: TMenuItem;
    N68: TMenuItem;
    N69: TMenuItem;
    N70: TMenuItem;
    N71: TMenuItem;
    N72: TMenuItem;
    N73: TMenuItem;
    N74: TMenuItem;
    Panel1: TPanel;
    Database1: TDatabase;
    procedure N71Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure Web1Click(Sender: TObject);
    procedure N47Click(Sender: TObject);
    procedure Web2Click(Sender: TObject);
    procedure N48Click(Sender: TObject);
    procedure N63Click(Sender: TObject);
    procedure N64Click(Sender: TObject);
    procedure N65Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainFrm: TMainFrm;

implementation

uses EsqcWh, QcZlWh, XzlzlWh, RczpWh, RcjlzxWh, EsqcChx, QcZlChx, XzlzlChx,
  RczpChx, GlxxFwrcTj, EsqcKpdy, GlxxFwrcTjtbDy, YonghuDenglu,
  XiugaiKouling, YonghuQuanxianGl, QcShchLbDy;

{$R *.DFM}

procedure TMainFrm.N71Click(Sender: TObject);
begin
  Close;
end;

procedure TMainFrm.N6Click(Sender: TObject);
begin
  EsqcWHfrm.Show;
end;

procedure TMainFrm.N31Click(Sender: TObject);
begin
  QcZlWhFrm.Show;
end;

procedure TMainFrm.N13Click(Sender: TObject);
begin
  XzlzlWhFrm.Show;
end;

procedure TMainFrm.N15Click(Sender: TObject);
begin
  RczpWhFrm.Show;
end;

procedure TMainFrm.N14Click(Sender: TObject);
begin
  RcjlzxWhFrm.Show;
end;

procedure TMainFrm.N24Click(Sender: TObject);
begin
  EsqcChxFrm.Show;
end;

procedure TMainFrm.N30Click(Sender: TObject);
begin
  QcZlChxFrm.Show;
end;

procedure TMainFrm.N33Click(Sender: TObject);
begin
  XzlzlChxFrm.Show;
end;

procedure TMainFrm.N35Click(Sender: TObject);
begin
  RczpChxFrm.Show;
end;

procedure TMainFrm.Web1Click(Sender: TObject);
begin
  GlxxFwrcTjFrm.Show;
end;

procedure TMainFrm.N47Click(Sender: TObject);
begin
  EsqcKpdyFrm.QuickRep1.PreView;
end;

procedure TMainFrm.Web2Click(Sender: TObject);
begin
  GlxxFwrcTjtbDyFrm.QuickRep1.Preview;
end;

procedure TMainFrm.N48Click(Sender: TObject);
begin
  QcShchLbDyFrm.QuickRep1.Preview;
end;

procedure TMainFrm.N63Click(Sender: TObject);
begin
  YonghuDengluFrm.Show;
end;

procedure TMainFrm.N64Click(Sender: TObject);
begin
  XiugaiKoulingFrm.Show;
end;

procedure TMainFrm.N65Click(Sender: TObject);
begin
  YonghuQuanxianGlFrm.Show;
end;

procedure TMainFrm.FormCreate(Sender: TObject);
begin
  MainMenu1.Items[0].Enabled:=False;
  MainMenu1.Items[1].Enabled:=False;
  MainMenu1.Items[2].Enabled:=False;
  MainMenu1.Items[3].Enabled:=False;
  MainMenu1.Items[4].Items[1].Enabled:=False;
  MainMenu1.Items[4].Items[2].Enabled:=False;
  MainMenu1.Items[5].Enabled:=False;
end;

end.