main.pas.~1~

《Delphi程序员成长攻略》-蒙祖强龚涛的源代码

unit main;

interface

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

type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    ToolBar1: TToolBar;
    N18: TMenuItem;
  //  procedure FormCreate(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
 
    //procedure N16Click(Sender: TObject);


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

var
  MainForm: TMainForm;
  username:string;
  qx:array[1..2] of boolean;

implementation

uses checkuser, StudentBrower1, StudentXiugai, Studentgeren, ChengjiCha,
  ChengjiChaxun, ChengjiGeren, KechengChaxun, StudentChaxun, Teacher;

{$R *.dfm}

procedure TMainForm.N4Click(Sender: TObject);
begin
  Close;
end;

procedure TMainForm.FormActivate(Sender: TObject);
begin
CheckUserForm.ShowModal();
    if username<>'' then
    begin
        if qx[1] then
        begin
          N2.Enabled:=true;
          N3.Enabled:=true;

        end
        else
        begin
          N2.Enabled:=false;
          N3.Enabled:=false;

        end;
        if qx[2] then
        begin
          N6.Enabled:=true;
          N7.Enabled:=true;
          N9.Enabled:=true;
          //N10.Enabled:=true;
          N12.Enabled:=true;
          //N13.Enabled:=true;
          N15.Enabled:=true;
          //N16.Enabled:=true;
          //N17.Enabled:=true;
          N18.Enabled:=true;

        end
        else
        begin
          N6.Enabled:=false;
          N7.Enabled:=false;
          N9.Enabled:=false;
         // N10.Enabled:=false;
          N12.Enabled:=false;
          //N13.Enabled:=false;
          N15.Enabled:=false;
          //N16.Enabled:=false;
         // N17.Enabled:=false;
          N18.Enabled:=false;
        end;
    end
    else
        close;

end;

procedure TMainForm.N6Click(Sender: TObject);
begin
 StudentChaxunForm.ShowModal();

end;

procedure TMainForm.N7Click(Sender: TObject);
begin
 StudentXiugaiForm.ShowModal();
end;


procedure TMainForm.N18Click(Sender: TObject);
begin
     ChengjiGerenForm.ShowModal();
end;


procedure TMainForm.N15Click(Sender: TObject);
begin
     ChengjiChaxunForm.ShowModal();
end;


procedure TMainForm.N12Click(Sender: TObject);
begin
    KechengChaxunForm.ShowModal();
end;



procedure TMainForm.N9Click(Sender: TObject);
begin
    TeacherForm.ShowModal();
end;



end.