mainunit.pas

这是我做的一个课程设计

unit MainUnit;

interface

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

type
  TmainForm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    ToolBar1: TToolBar;
    tb_depart: TToolButton;
    tb_class: TToolButton;
    tb_user: TToolButton;
    tb_stu: TToolButton;
    tb_stuquery: TToolButton;
    tb_change: TToolButton;
    tb_reward: TToolButton;
    tb_punish: TToolButton;
    tb_quit: TToolButton;
    ImageList1: TImageList;
    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;
    StatusBar1: TStatusBar;
    procedure tb_quitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure tb_departClick(Sender: TObject);
    procedure tb_classClick(Sender: TObject);
    procedure tb_userClick(Sender: TObject);
    procedure tb_stuClick(Sender: TObject);
    procedure tb_stuqueryClick(Sender: TObject);
    procedure tb_changeClick(Sender: TObject);
    procedure tb_rewardClick(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure tb_punishClick(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mainForm: TmainForm;
  depart:boolean=true;
  Fclass:boolean=true;
  user:boolean=true;
  stu:boolean=true;
  query:boolean=true;
  change:boolean=true;
  reward:boolean=true;
  punish:boolean=true;
implementation

uses dm, departUnit, classUnit, userUnit, stuUnit, queryUnit, changeUnit,
  rewardUnit, punishUnit;

{$R *.dfm}

procedure TmainForm.tb_quitClick(Sender: TObject);
begin
  close;
end;

procedure TmainForm.FormCreate(Sender: TObject);
begin
  tb_depart.Enabled:=dmform.ADOQuery_login.FieldByName('qx1').AsBoolean;
  tb_class.Enabled:=dmform.ADOQuery_login.FieldByName('qx2').AsBoolean;
  tb_user.Enabled:=dmform.ADOQuery_login.FieldByName('qx3').AsBoolean;
  tb_stu.Enabled:=dmform.ADOQuery_login.FieldByName('qx4').AsBoolean;
  tb_stuquery.Enabled:=dmform.ADOQuery_login.FieldByName('qx5').AsBoolean;
  tb_change.Enabled:=dmform.ADOQuery_login.FieldByName('qx6').AsBoolean;
  tb_reward.Enabled:=dmform.ADOQuery_login.FieldByName('qx7').AsBoolean;
  tb_punish.Enabled:=dmform.ADOQuery_login.FieldByName('qx8').AsBoolean;
end;

procedure TmainForm.tb_departClick(Sender: TObject);
begin  //院系设置
  if tb_depart.Down then
  begin
    departform:=tdepartform.Create(self);
    departform.Show;
  end
  else
  begin
    departForm.Free;
  end;
end;

procedure TmainForm.tb_classClick(Sender: TObject);
begin   //班级管理
if tb_class.Down then
  begin
    classform:=tclassform.Create(self);
    classform.Show;
  end
  else
  begin
    classForm.Free;
  end;
end;

procedure TmainForm.tb_userClick(Sender: TObject);
begin   //用户管理
 if tb_user.Down then
  begin
    userform:=tuserform.Create(self);
    userform.Show;
  end
  else
  begin
    userForm.Free;
  end;
end;

procedure TmainForm.tb_stuClick(Sender: TObject);
begin    //学生管理
  if tb_stu.Down then
  begin
    stuform:=tstuform.Create(self);
    stuform.Show;
  end
  else
  begin
    stuForm.Free;
  end;
end;

procedure TmainForm.tb_stuqueryClick(Sender: TObject);
begin  //学生查询
if tb_stuquery.Down then
  begin
    queryform:=tqueryform.Create(self);
    queryform.Show;
  end
  else
  begin
    queryForm.Free;
  end;
end;

procedure TmainForm.tb_changeClick(Sender: TObject);
begin  // 学籍变更
if tb_change.Down then
  begin
    changeform:=tchangeform.Create(self);
    changeform.Show;
  end
  else
  begin
    changeForm.Free;
  end;
end;

procedure TmainForm.tb_rewardClick(Sender: TObject);
begin  //奖励情况
if tb_reward.Down then
  begin
    rewardform:=trewardform.Create(self);
    rewardform.Show;
  end
  else
  begin
    rewardForm.Free;
  end;
end;

procedure TmainForm.N2Click(Sender: TObject);

begin
if depart then
  begin

    departform:=tdepartform.Create(self);
    depart:=false;
    departform.Show;
  end
  else
  begin
    departForm.Free;
    depart:=true;
    tb_depart.Down:=false;
  end;
end;

procedure TmainForm.tb_punishClick(Sender: TObject);
begin  //处罚情况
if tb_punish.Down then
  begin
    punishform:=tpunishform.Create(self);
    punishform.Show;
  end
  else
  begin
    punishForm.Free;
  end;
end;
procedure TmainForm.N3Click(Sender: TObject);
begin
if fclass  then
  begin

    classform:=tclassform.Create(self);
    fclass:=false;
    classform.Show;
  end
  else
  begin
    classForm.Free;
    fclass:=true;
    tb_class.Down:=false;
  end;
end;
procedure TmainForm.N5Click(Sender: TObject);

begin
if user then
  begin

    userform:=tuserform.Create(self);
    user:=false;
    userform.Show;
  end
  else
  begin
    userForm.Free;
    user:=true;
    tb_user.Down:=false;
  end;
end;

procedure TmainForm.N7Click(Sender: TObject);
begin
close;
end;

procedure TmainForm.N11Click(Sender: TObject);

begin
if query  then
  begin

    queryform:=tqueryform.Create(self);
    query:=false;
    queryform.Show;
  end
  else
  begin
    queryForm.Free;
    query:=true;
    tb_stuquery.Down:=false;
  end;
end;

procedure TmainForm.N13Click(Sender: TObject);

begin
if change then
  begin

    changeform:=tchangeform.Create(self);
    change:=false;
    changeform.Show;
  end
  else
  begin
    changeForm.Free;
    change:=true;
    tb_change.Down:=false;
  end;
end;

procedure TmainForm.N14Click(Sender: TObject);

begin
if reward  then
  begin

    rewardform:=trewardform.Create(self);
    reward:=false;
    rewardform.Show;
  end
  else
  begin
    rewardForm.Free;
    reward:=true;
    tb_reward.Down:=false;
  end;
end;

procedure TmainForm.N15Click(Sender: TObject);

begin
if punish then
  begin

    punishform:=tpunishform.Create(self);
    punish:=false;
    punishform.Show;
  end
  else
  begin
    punishForm.Free;
    punish:=true;
    tb_punish.Down:=false;
  end;
end;

end.