index2.~pas

来自「使用DELPHI6.0开发的停车场管理信息系统 使用ADO和BDE技术连接SQL」· ~PAS 代码 · 共 137 行

unit index2;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N15: TMenuItem;
    N11: TMenuItem;
    N10: TMenuItem;
    N14: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    procedure N2Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N17Click(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
 
  end;

var
  Form1: TForm1;
  Image: TImage;
  Admin: Integer;
implementation

uses dengji, Unit3,  data, Unit4,  history, dlk, yhzc, mima, new_cheku,
  change, Unit2, Unit5, super_admin;

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);
begin
tishi1.show;
end;

procedure TForm1.N8Click(Sender: TObject);
begin
data1.show;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
tishi2.show;
end;

procedure TForm1.N13Click(Sender: TObject);
begin
denglu.show;
denglu.ComboBox1.Text :='普通用户';
end;

procedure TForm1.N6Click(Sender: TObject);
begin
denglu.show;
denglu.ComboBox1.Text :='管理员';
end;


procedure TForm1.N16Click(Sender: TObject);
begin
        about.show;
end;

procedure TForm1.N20Click(Sender: TObject);
begin
zhuce.show;
end;

procedure TForm1.N15Click(Sender: TObject);
begin
woker_info.show;
//***********************
end;



procedure TForm1.N5Click(Sender: TObject);
begin
chewei.show;
end;

procedure TForm1.N11Click(Sender: TObject);
begin
        admin_proc.Show;
end;

procedure TForm1.N10Click(Sender: TObject);
begin
        pagesdlg.Show;
end;



procedure TForm1.N18Click(Sender: TObject);
begin
        Form6.show;
end;

procedure TForm1.N17Click(Sender: TObject);
begin
denglu.show;
denglu.ComboBox1.Text :='超级用户';
end;

end.