teachmain_unit.pas

学校班级教学管理系统 DELPHI7下的

unit TeachMain_Unit;

interface

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

type
  TfrmTeachMain = class(TForm)
    MainMenu1: TMainMenu;
    S1: TMenuItem;
    D1: TMenuItem;
    M1: TMenuItem;
    H1: TMenuItem;
    S2: TMenuItem;
    S3: TMenuItem;
    S4: TMenuItem;
    S5: TMenuItem;
    N1: TMenuItem;
    S6: TMenuItem;
    D2: TMenuItem;
    D3: TMenuItem;
    D4: TMenuItem;
    D6: TMenuItem;
    D7: TMenuItem;
    M2: TMenuItem;
    M3: TMenuItem;
    M4: TMenuItem;
    M5: TMenuItem;
    M6: TMenuItem;
    H2: TMenuItem;
    H3: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    D5: TMenuItem;
    StatusBar: TStatusBar;
    N3: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    procedure N5Click(Sender: TObject);
    procedure D5Click(Sender: TObject);
    procedure D7Click(Sender: TObject);
    procedure D4Click(Sender: TObject);
    procedure D6Click(Sender: TObject);
    procedure D2Click(Sender: TObject);
    procedure D3Click(Sender: TObject);
    procedure S2Click(Sender: TObject);
    procedure S3Click(Sender: TObject);
    procedure S4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure S6Click(Sender: TObject);
    procedure M2Click(Sender: TObject);
    procedure M5Click(Sender: TObject);
    procedure M6Click(Sender: TObject);
    procedure M3Click(Sender: TObject);
    procedure M4Click(Sender: TObject);
    procedure H3Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmTeachMain: TfrmTeachMain;

implementation

uses Login_Unit, DBSetup_Unit, CollegeSet_Unit, DormSet_Unit,
  SubjectSet_Unit, ClassSet_Unit, TeacherSet_Unit, StudentSet_Unit,
  SchoolInfo_Unit, UserSet_Unit, ModifyPassword_Unit, BackUpData_Unit,
  StudentScore_Unit, CapturePrice_Unit, PracticeSet_Unit,
  MoralSet_Unit, About_Unit, PlanSubject_Unit, FindSubject_Unit,
  Common_Unit, DormManager_Unit;


{$R *.dfm}

procedure TfrmTeachMain.FormShow(Sender: TObject);
begin
  frmLogin := TfrmLogin.Create(Application);
  try
    frmLogin.ShowModal;    //窗体显示在最前面
  finally
    frmLogin.Free;
  end;
  frmTeachMain.StatusBar.Panels[0].Text := '登录用户编号:' + LoginUser;
end;

procedure TfrmTeachMain.N5Click(Sender: TObject);
begin
 { TODO : 数据库的连接设定 }
  frmDBSetup := TfrmDBSetup.Create(Self);
  try
    frmDBSetup.ShowModal;
  finally
    frmDBSetup.Free;
  end;
end;

procedure TfrmTeachMain.D5Click(Sender: TObject);
begin
 { TODO : 院系的设置 }
  if not Assigned(frmCollegeSet) then     //判断是否有相同的实例
  begin
    frmCollegeSet := TfrmCollegeSet.Create(Self);
    frmCollegeSet.Show;
  end else
    frmCollegeSet.BringToFront;     //将窗体置到前端
end;

procedure TfrmTeachMain.D7Click(Sender: TObject);
begin
{ TODO : 宿舍的设置 }
  if not Assigned(frmDormSet) then     //判断是否有相同的实例
  begin
    frmDormSet := TfrmDormSet.Create(Self);
    frmDormSet.Show;
  end else
    frmDormSet.BringToFront;     //将窗体置到前端
end;

procedure TfrmTeachMain.D4Click(Sender: TObject);
begin
  { TODO : 教学科目 }
  if not Assigned(frmSubjectSet) then     //判断是否有相同的实例
  begin
    frmSubjectSet := TfrmSubjectSet.Create(Self);
    frmSubjectSet.Show;
  end else
    frmSubjectSet.BringToFront;     //将窗体置到前端
end;

procedure TfrmTeachMain.D6Click(Sender: TObject);
begin
  { TODO : 班级设定 }
  if not Assigned(frmClassSet) then     //判断是否有相同的实例
  begin
    frmClassSet := TfrmClassSet.Create(Self);
    frmClassSet.Show;
  end else
    frmClassSet.BringToFront;     //将窗体置到前端
end;

procedure TfrmTeachMain.D2Click(Sender: TObject);
begin
 { TODO : 老师信息设定 }
  if not Assigned(frmTeacherSet) then     //判断是否有相同的实例
  begin
    frmTeacherSet := TfrmTeacherSet.Create(Self);
    frmTeacherSet.Show;
  end else
    frmTeacherSet.BringToFront;     //将窗体置到前端
end;

procedure TfrmTeachMain.D3Click(Sender: TObject);
begin
 { TODO : 学生信息的设定 }
  if not Assigned(frmStudentSet) then     //判断是否有相同的实例
  begin
    frmStudentSet := TfrmStudentSet.Create(Self);
    frmStudentSet.Show;
  end else
    frmStudentSet.BringToFront;     //将窗体置到前端
end;

procedure TfrmTeachMain.S2Click(Sender: TObject);
begin
 { TODO : 学校信息 }
  if not Assigned(frmSchoolInfo) then     //判断是否有相同的实例
  begin
    frmSchoolInfo := TfrmSchoolInfo.Create(Self);
    frmSchoolInfo.Show;
  end else
    frmSchoolInfo.BringToFront;     //将窗体置到前端
end;

procedure TfrmTeachMain.S3Click(Sender: TObject);
begin
 { TODO : 用户设定 }
  if not Assigned(frmUserSet) then     //判断是否有相同的实例
  begin
    frmUserSet := TfrmUserSet.Create(Self);
    frmUserSet.Show;
  end else
    frmUserSet.BringToFront;     //将窗体置到前端
end;

procedure TfrmTeachMain.S4Click(Sender: TObject);
begin
 { TODO : 用户自己更改密码 }
  frmModifyPassword := TfrmModifyPassword.Create(Self);
  frmModifyPassword.ShowModal;
end;

procedure TfrmTeachMain.N2Click(Sender: TObject);
begin
 { TODO : 数据库备份,还原 }
  if not Assigned(frmBackUpData) then     //判断是否有相同的实例
  begin
    frmBackUpData := TfrmBackUpData.Create(Self);
    frmBackUpData.Show;
  end else
    frmBackUpData.BringToFront;     //将窗体置到前端
end;

procedure TfrmTeachMain.S6Click(Sender: TObject);
begin
  if Application.MessageBox('你确定要出退系统吗?','提示',68) = IDYes then
    Application.Terminate ;
end;

procedure TfrmTeachMain.M2Click(Sender: TObject);
begin
 { TODO : 学生成绩 }
  if not Assigned(frmStudentScore) then     //判断是否有相同的实例
  begin
    frmStudentScore := TfrmStudentScore.Create(Self);
    frmStudentScore.Show;
  end else
    frmStudentScore.BringToFront;     //将窗体置到前端
end;

procedure TfrmTeachMain.M5Click(Sender: TObject);
begin
 { TODO : 宿舍管理 }
  if not Assigned(frmDormManager) then     //判断是否有相同的实例
  begin
    frmDormManager := TfrmDormManager.Create(Self);
    frmDormManager.Show;
  end else
    frmDormManager.BringToFront;     //将窗体置到前端
end;

procedure TfrmTeachMain.M6Click(Sender: TObject);
begin
 { TODO : 缴费记录 }
  if not Assigned(frmCapturePrice) then     //判断是否有相同的实例
  begin
    frmCapturePrice := TfrmCapturePrice.Create(Self);
    frmCapturePrice.Show;
  end else
    frmCapturePrice.BringToFront;     //将窗体置到前端
end;

procedure TfrmTeachMain.M3Click(Sender: TObject);
begin
 { TODO : 社会实践管理 }
   if not Assigned(frmPracticeSet) then     //判断是否有相同的实例
  begin
    frmPracticeSet := TfrmPracticeSet.Create(Self);
    frmPracticeSet.Show;
  end else
    frmPracticeSet.BringToFront;     //将窗体置到前端
end;

procedure TfrmTeachMain.M4Click(Sender: TObject);
begin
 { TODO : 品德思想管理 }
   if not Assigned(frmMoralSet) then     //判断是否有相同的实例
  begin
    frmMoralSet := TfrmMoralSet.Create(Self);
    frmMoralSet.Show;
  end else
    frmMoralSet.BringToFront;     //将窗体置到前端
end;

procedure TfrmTeachMain.H3Click(Sender: TObject);
begin
 { TODO : 关于窗体 }
  frmAbout := TfrmAbout.Create(Self);
  try
    frmAbout.ShowModal;
  finally
    frmAbout.Free;
  end;
end;

procedure TfrmTeachMain.N6Click(Sender: TObject);
begin
   if not Assigned(frmPlanSubject) then     //判断是否有相同的实例
  begin
    frmPlanSubject := TfrmPlanSubject.Create(Self);
    frmPlanSubject.Show;
  end else
    frmPlanSubject.BringToFront;     //将窗体置到前端
end;

procedure TfrmTeachMain.N7Click(Sender: TObject);
begin
   if not Assigned(frmFindSubject) then     //判断是否有相同的实例
  begin
    frmFindSubject := TfrmFindSubject.Create(Self);
    frmFindSubject.Show;
  end else
    frmFindSubject.BringToFront;  
end;

end.