u_main.pas

一个简单的学籍管理软件

unit U_Main;
                         
interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ImgList, ExtCtrls, MDIWallPaper, ComCtrls;

type
  TFm_Main = class(TForm)
    MMenu: TMainMenu;
    M01: TMenuItem;
    M0101: TMenuItem;
    M0102: TMenuItem;
    M0103: TMenuItem;
    M0104: TMenuItem;
    M010401: TMenuItem;
    M010402: TMenuItem;
    M010403: TMenuItem;
    M010404: TMenuItem;
    M010405: TMenuItem;
    M010406: TMenuItem;
    M0105: TMenuItem;
    M0107: TMenuItem;
    Z0101: TMenuItem;
    Z0104: TMenuItem;
    M03: TMenuItem;
    M0301: TMenuItem;
    M0304: TMenuItem;
    Z0301: TMenuItem;
    M04: TMenuItem;
    M0401: TMenuItem;
    M0402: TMenuItem;
    M0403: TMenuItem;
    M0404: TMenuItem;
    M0405: TMenuItem;
    M0406: TMenuItem;
    M0407: TMenuItem;
    M0408: TMenuItem;
    Z0401: TMenuItem;
    Z0402: TMenuItem;
    M06: TMenuItem;
    M0601: TMenuItem;
    M0602: TMenuItem;
    Z0601: TMenuItem;
    MainWall: TMDIWallpaper;
    MainStateBar: TStatusBar;
    M02: TMenuItem;
    M0201: TMenuItem;
    M0202: TMenuItem;
    M0203: TMenuItem;
    M0204: TMenuItem;
    Z0201: TMenuItem;
    M05: TMenuItem;
    M0501: TMenuItem;
    M0502: TMenuItem;
    Z0501: TMenuItem;
    M0504: TMenuItem;
    M0505: TMenuItem;
    M0503: TMenuItem;
    M0106: TMenuItem;
    ImgList20: TImageList;
    Z0302: TMenuItem;
    M0303: TMenuItem;
    ImgList16: TImageList;
    M010407: TMenuItem;
    procedure M0107Click(Sender: TObject);
    procedure M0402Click(Sender: TObject);
    procedure M0404Click(Sender: TObject);
    procedure M0602Click(Sender: TObject);
    procedure M0501Click(Sender: TObject);
    procedure M0503Click(Sender: TObject);
    procedure M0502Click(Sender: TObject);
    procedure M0106Click(Sender: TObject);
    procedure M0504Click(Sender: TObject);
    procedure M0505Click(Sender: TObject);
    procedure M0401Click(Sender: TObject);
    procedure M0403Click(Sender: TObject);
    procedure M0405Click(Sender: TObject);
    procedure M0406Click(Sender: TObject);
    procedure M0407Click(Sender: TObject);
    procedure M0408Click(Sender: TObject);
    procedure M0101Click(Sender: TObject);
    procedure M0201Click(Sender: TObject);
    procedure M0202Click(Sender: TObject);
    procedure M0203Click(Sender: TObject);
    procedure M0204Click(Sender: TObject);
    procedure M0301Click(Sender: TObject);
    procedure M0304Click(Sender: TObject);
    procedure M0102Click(Sender: TObject);
    procedure M0103Click(Sender: TObject);
    procedure M010401Click(Sender: TObject);
    procedure M010404Click(Sender: TObject);
    procedure M010406Click(Sender: TObject);
    procedure M010405Click(Sender: TObject);
    procedure M010403Click(Sender: TObject);
    procedure M010402Click(Sender: TObject);
    procedure M010407Click(Sender: TObject);
    procedure M0105Click(Sender: TObject);
    procedure M0303Click(Sender: TObject);
  private
  public
  end;

var
  Fm_Main: TFm_Main;

implementation
uses U_GlobalProc, U_GlobalVar, U_About, U_SetOptions, U_UserManage, U_ChangePswd,
  U_Logon, U_Backup, U_Restore, U_SetInitParam, U_NewTerm, U_SetNewClasses,
  U_MatricSubject, U_SetTuition, U_ObserveItem, U_ConductItem, U_PersonalItem,
  U_StudentManage, U_SubjectManage, U_GradeSubject, U_ExamManage, U_ExamResultInput,
  U_StudentSearch, U_AllSubjectTable, U_OutlayRegister, U_TimeRegister, U_BodyRegister,
  U_ActionRegister, U_PersonalRegister, U_PXingRegister, U_RewardsRegister,
  U_CommonRegister, U_CommentRegister, U_ChangeRegister, U_TimeCollect;
{$R *.DFM}

procedure TFm_Main.M0107Click(Sender: TObject);
begin
  Close;
end;

procedure TFm_Main.M0402Click(Sender: TObject);
begin //
  U_NewTerm.Show_NewTerm;
end;

procedure TFm_Main.M0404Click(Sender: TObject);
begin //
  U_MatricSubject.Show_MatricSubject;
end;

procedure TFm_Main.M0602Click(Sender: TObject);
begin
  U_About.Show_AboutMessage;
end;

procedure TFm_Main.M0501Click(Sender: TObject);
begin
  U_UserManage.Show_UserManage;
end;

procedure TFm_Main.M0503Click(Sender: TObject);
begin
  U_SetOptions.Show_SetOptions;
end;

procedure TFm_Main.M0502Click(Sender: TObject);
begin
  U_ChangePswd.Show_ChangePswd;
end;

procedure TFm_Main.M0106Click(Sender: TObject);
begin
  if not U_GlobalProc.Show_ConfirmMess('真的要注销 ' + S_UserName + ' 吗？') then
    Exit;
  if not U_Logon.Show_Logon then
    Exit;

  with MainStateBar do
  begin
    Panels[0].Text := '使用单位：' + S_SchoolName;
    Panels[1].Text := '操作员：' + S_UserName;
    if not B_BeginUse then
      Panels[2].Text := '当前学期：未启用'
    else
      Panels[2].Text := '当前学期：' +
        IntToStr(W_CurYear) + '-' + IntToStr(W_CurYear + 1) + '学年 ' +
        '  第' + IntToStr(W_CurTerm) + '学期';
  end;

end;

procedure TFm_Main.M0504Click(Sender: TObject);
begin
  U_Backup.Show_Backup;
end;

procedure TFm_Main.M0505Click(Sender: TObject);
begin
  U_Restore.Show_Restore;
end;

procedure TFm_Main.M0401Click(Sender: TObject);
begin //
  U_SetInitParam.Show_SetInitParam;
end;

procedure TFm_Main.M0403Click(Sender: TObject);
begin //
  U_SetNewClasses.Show_SetNewClasses;
end;

procedure TFm_Main.M0405Click(Sender: TObject);
begin
  U_SetTuition.Show_SetTuition;
end;

procedure TFm_Main.M0406Click(Sender: TObject);
begin
  U_ObserveItem.Show_ObserveItem;
end;

procedure TFm_Main.M0407Click(Sender: TObject);
begin
  U_ConductItem.Show_ConductItem;
end;

procedure TFm_Main.M0408Click(Sender: TObject);
begin //
  U_PersonalItem.Show_PersonalItem;
end;

procedure TFm_Main.M0101Click(Sender: TObject);
begin
  U_StudentManage.Show_StudentManage;
end;

procedure TFm_Main.M0201Click(Sender: TObject);
begin //
  U_SubjectManage.Show_SubjectManage;
end;

procedure TFm_Main.M0202Click(Sender: TObject);
begin //
  U_GradeSubject.Show_GradeSubject;
end;

procedure TFm_Main.M0203Click(Sender: TObject);
begin //
  U_ExamManage.Show_ExamManage;
end;

procedure TFm_Main.M0204Click(Sender: TObject);
begin
  U_ExamResultInput.Show_ExamResultInput;
end;

procedure TFm_Main.M0301Click(Sender: TObject);
begin
  U_StudentSearch.Show_StudentSearch;
end;

procedure TFm_Main.M0304Click(Sender: TObject);
begin
  U_AllSubjectTable.Show_AllSubjectTable;
end;

procedure TFm_Main.M0102Click(Sender: TObject);
begin
  U_OutlayRegister.Show_OutlayRegister;
end;

procedure TFm_Main.M0103Click(Sender: TObject);
begin  //
  U_ChangeRegister.Show_ChangeRegister;
end;

procedure TFm_Main.M010401Click(Sender: TObject);
begin
  U_TimeRegister.Show_TimeRegister;
end;

procedure TFm_Main.M010404Click(Sender: TObject);
begin  //
  U_BodyRegister.Show_BodyRegister;
end;

procedure TFm_Main.M010406Click(Sender: TObject);
begin//
  U_ActionRegister.Show_ActionRegister;
end;

procedure TFm_Main.M010405Click(Sender: TObject);
begin  //
  U_PersonalRegister.Show_PersonalRegister;
end;

procedure TFm_Main.M010403Click(Sender: TObject);
begin //
  U_PXingRegister.Show_PXingRegister;
end;

procedure TFm_Main.M010402Click(Sender: TObject);
begin
  U_RewardsRegister.Show_RewardsRegister;
end;

procedure TFm_Main.M010407Click(Sender: TObject);
begin   //
  U_CommonRegister.Show_CommonRegister;
end;

procedure TFm_Main.M0105Click(Sender: TObject);
begin
  U_CommentRegister.Show_CommentRegister;
end;

procedure TFm_Main.M0303Click(Sender: TObject);
begin
  U_TimeCollect.Show_TimeCollect;
end;

end.