main.~pas

图书影碟租赁管理系统

unit main;

interface

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

type
  TF_main = 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;
    ztl: TStatusBar;
    N18: TMenuItem;
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    procedure N2Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N4Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_main: TF_main;

implementation

uses  vcdgl, datam, lb,login, czy, vcdcx, hygl, vcdcz, passedit, about,
  cash, vcdhz;

{$R *.dfm}

procedure TF_main.N2Click(Sender: TObject);
begin
  F_czy:=TF_czy.create(application);
  F_czy.showmodal;
end;

procedure TF_main.N6Click(Sender: TObject);
begin
  F_lb:=TF_lb.create(application);
  F_lb.showmodal;
end;

procedure TF_main.N7Click(Sender: TObject);
begin
  F_vcdgl:=TF_vcdgl.create(application);
  F_vcdgl.showmodal;
end;

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

procedure TF_main.N4Click(Sender: TObject);
begin
  close;
end;

procedure TF_main.N8Click(Sender: TObject);
begin
  F_vcdcx:=TF_vcdcx.create(application);
  F_vcdcx.showmodal;
end;

procedure TF_main.N10Click(Sender: TObject);
begin
  F_hygl:=TF_hygl.create(application);
  F_hygl.showmodal;
end;

procedure TF_main.N12Click(Sender: TObject);
begin
  F_rent:=TF_rent.create(application);
  F_rent.showmodal;
end;

procedure TF_main.N16Click(Sender: TObject);
begin
  Application.HelpCommand(HELP_FINDER,0);
end;

procedure TF_main.N18Click(Sender: TObject);
begin
  F_passedit:=tF_passedit.create(application);
  F_passedit.showmodal;
end;

procedure TF_main.N17Click(Sender: TObject);
begin
  F_about:=TF_about.create(application);
  F_about.showmodal;
end;

procedure TF_main.ToolButton1Click(Sender: TObject);
begin
  F_czy:=TF_czy.create(application);
  F_czy.showmodal;
end;

procedure TF_main.ToolButton2Click(Sender: TObject);
begin
  F_passedit:=tF_passedit.create(application);
  F_passedit.showmodal;
end;

procedure TF_main.ToolButton4Click(Sender: TObject);
begin
  F_lb:=TF_lb.create(application);
  F_lb.showmodal;
end;

procedure TF_main.ToolButton5Click(Sender: TObject);
begin
  F_vcdgl:=TF_vcdgl.create(application);
  F_vcdgl.showmodal;
end;

procedure TF_main.ToolButton6Click(Sender: TObject);
begin
  F_vcdcx:=TF_vcdcx.create(application);
  F_vcdcx.showmodal;
end;

procedure TF_main.ToolButton7Click(Sender: TObject);
begin
  F_hygl:=TF_hygl.create(application);
  F_hygl.showmodal;
end;

procedure TF_main.ToolButton8Click(Sender: TObject);
begin
  F_rent:=TF_rent.create(application);
  F_rent.showmodal;
end;

procedure TF_main.ToolButton11Click(Sender: TObject);
begin
   Application.HelpCommand(HELP_FINDER,0);
end;

procedure TF_main.N13Click(Sender: TObject);
begin
  F_vcdhz:=TF_vcdhz.create(application);
  F_vcdhz.showmodal;
end;

procedure TF_main.N14Click(Sender: TObject);
begin
  F_cash:=TF_cash.create(application);
  F_cash.showmodal;
end;

procedure TF_main.ToolButton9Click(Sender: TObject);
begin
  F_vcdhz:=TF_vcdhz.create(application);
  F_vcdhz.showmodal;
end;

procedure TF_main.ToolButton10Click(Sender: TObject);
begin
  F_cash:=TF_cash.create(application);
  F_cash.showmodal;
end;

procedure TF_main.FormCreate(Sender: TObject);
begin
 dm.ADO_user.Filter:='操作员='''+F_login.e_czy.Text+'''';
 dm.ADO_user.Filtered:=True;
 dm.ADO_user.Open;
 if dm.ADO_user.fieldbyname('主管').AsBoolean=true then
 begin
 N2.Enabled:=True;
  ToolButton1.Enabled:=True;
 end;
 dm.ADO_user.Filtered:=False;
end;

end.