mainunit.pas

用Delphi做的一个学生数据库系统

unit MainUnit;

interface

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

type
  TmainForm = 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;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    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;
    Label1: TLabel;
    Image1: TImage;
    Timer1: TTimer;
    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 N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure tb_punishClick(Sender: TObject);
    procedure N14Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mainForm: TmainForm;
  i:integer;

implementation

uses login, dm, departUnit, classUnit, userUnit, stuUnit, queryUnit,
  changUnit, rewardUnit, chufaUnit;

{$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
    changfrom:=tchangfrom.Create(self);
    changfrom.Show;
  end
  else
  begin
    changfrom.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.tb_punishClick(Sender: TObject);  //处罚情况
begin
    if tb_punish.Down then
  begin
    punishform:=tpunishform.Create(self);
    punishform.Show;
  end

  else
  begin
    rewardform.Free;
  end;
end;

procedure TmainForm.N2Click(Sender: TObject); //院系设置
 var
 newform:tdepartform;
 i,flag:integer;
begin
      //flag=0 表示该窗体不存在
      flag:=0;
      for i :=0  to mainform.MDIChildCount  do
      begin
       //通过对窗体标题判断窗体是否存在
       if mainform.MDIChildren[i].Caption='院系设置' then
       begin
       //如果窗体存在,则恢复窗体
         sendMessage(mdichildren[i].Handle,wm_syscommand,sc_restore,0);
         mdichildren[i].Show;
         flag:=1;
         //退出循环
         break;
       end;
     end;
     //若窗体不存在,则创建窗体
     if flag=0 then
     begin
     newform:=tdepartform.Create(self);
     newform.Caption:='院系设置';
     end;
end;

procedure TmainForm.N3Click(Sender: TObject);  //班级管理
 var
 newform:tclassform;
 i,flag:integer;
begin
      //flag=0 表示该窗体不存在
      flag:=0;
      for i :=0  to mainform.MDIChildCount  do
      begin
       //通过对窗体标题判断窗体是否存在
       if mainform.MDIChildren[i].Caption='班级管理' then
       begin
       //如果窗体存在,则恢复窗体
         sendMessage(mdichildren[i].Handle,wm_syscommand,sc_restore,0);
         mdichildren[i].Show;
         flag:=1;
         //退出循环
         break;
       end;
     end;
     //若窗体不存在,则创建窗体
     if flag=0 then
     begin
     newform:=tclassform.Create(self);
     newform.Caption:='班级管理';
     end;
end;

procedure TmainForm.N5Click(Sender: TObject); //用户管理
 var
 newform:tuserform;
 i,flag:integer;
begin
      //flag=0 表示该窗体不存在
      flag:=0;
      for i :=0  to mainform.MDIChildCount  do
      begin
       //通过对窗体标题判断窗体是否存在
       if mainform.MDIChildren[i].Caption='用户管理' then
       begin
       //如果窗体存在,则恢复窗体
         sendMessage(mdichildren[i].Handle,wm_syscommand,sc_restore,0);
         mdichildren[i].Show;
         flag:=1;
         //退出循环
         break;
       end;
     end;
     //若窗体不存在,则创建窗体
     if flag=0 then
     begin
     newform:=tuserform.Create(self);
     newform.Caption:='用户管理';
     end;
end;

procedure TmainForm.N7Click(Sender: TObject);  //退出系统
begin
mainForm.tb_quitClick(Sender);
end;

procedure TmainForm.N12Click(Sender: TObject); //学籍变更
var
 newform:tchangfrom;
 i,flag:integer;
begin
      //flag=0 表示该窗体不存在
      flag:=0;
      for i :=0  to mainform.MDIChildCount  do
      begin
       //通过对窗体标题判断窗体是否存在
       if mainform.MDIChildren[i].Caption='学籍变更' then
       begin
       //如果窗体存在,则恢复窗体
         sendMessage(mdichildren[i].Handle,wm_syscommand,sc_restore,0);
         mdichildren[i].Show;
         flag:=1;
         //退出循环
         break;
       end;
     end;
     //若窗体不存在,则创建窗体
     if flag=0 then
     begin
     newform:=tchangfrom.Create(self);
     newform.Caption:='学籍变更';
     end;
end;

procedure TmainForm.N13Click(Sender: TObject); //奖励情况
var
 newform:trewardform;
 i,flag:integer;
begin
      //flag=0 表示该窗体不存在
      flag:=0;
      for i :=0  to mainform.MDIChildCount  do
      begin
       //通过对窗体标题判断窗体是否存在
       if mainform.MDIChildren[i].Caption='奖励情况' then
       begin
       //如果窗体存在,则恢复窗体
         sendMessage(mdichildren[i].Handle,wm_syscommand,sc_restore,0);
         mdichildren[i].Show;
         flag:=1;
         //退出循环
         break;
       end;
     end;
     //若窗体不存在,则创建窗体
     if flag=0 then
     begin
     newform:=trewardform.Create(self);
     newform.Caption:='奖励情况';
     end;
end;

procedure TmainForm.N14Click(Sender: TObject);   //处罚情况
var
 newform:tpunishform;
 i,flag:integer;
begin
      //flag=0 表示该窗体不存在
      flag:=0;
      for i :=0  to mainform.MDIChildCount  do
      begin
       //通过对窗体标题判断窗体是否存在
       if mainform.MDIChildren[i].Caption='处罚情况' then
       begin
       //如果窗体存在,则恢复窗体
         sendMessage(mdichildren[i].Handle,wm_syscommand,sc_restore,0);
         mdichildren[i].Show;
         flag:=1;
         //退出循环
         break;
       end;
     end;
     //若窗体不存在,则创建窗体
     if flag=0 then
     begin
     newform:=tpunishform.Create(self);
     newform.Caption:='处罚情况';
     end;
end;

end.