umain.pas

来自「一.录入学生信息（预计有81个学生」· PAS 代码 · 共 195 行

unit uMain;

interface

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

type
  TfrmMain = class(TForm)
    SkinData1: TSkinData;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    mnuBak: TMenuItem;
    mnuRestore: TMenuItem;
    N4: TMenuItem;
    mnuClose: TMenuItem;
    B1: TMenuItem;
    mnuXQ: TMenuItem;
    mnuBJ: TMenuItem;
    N7: TMenuItem;
    mnuKM: TMenuItem;
    mnuSBase: TMenuItem;
    R1: TMenuItem;
    mnuIsY: TMenuItem;
    mnuEditCJ: TMenuItem;
    Q1: TMenuItem;
    mnuGCount: TMenuItem;
    mnuStudentQuery: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    A1: TMenuItem;
    ToolBar1: TToolBar;
    tbHis: TToolButton;
    TBStop: TToolButton;
    ToolButton1: TToolButton;
    ToolButton9: TToolButton;
    tbClose: TToolButton;
    ToolButton2: TToolButton;
    ImageList1: TImageList;
    ToolButton3: TToolButton;
    N2: TMenuItem;
    SaveDialog1: TSaveDialog;
    OpenDialog1: TOpenDialog;
    N3: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    procedure mnuCloseClick(Sender: TObject);
    procedure A1Click(Sender: TObject);
    procedure tbCloseClick(Sender: TObject);
    procedure mnuBakClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure mnuRestoreClick(Sender: TObject);
    procedure mnuXQClick(Sender: TObject);
    procedure mnuKMClick(Sender: TObject);
    procedure mnuBJClick(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure mnuSBaseClick(Sender: TObject);
    procedure mnuIsYClick(Sender: TObject);
    procedure mnuEditCJClick(Sender: TObject);
    procedure mnuGCountClick(Sender: TObject);
    procedure tbHisClick(Sender: TObject);
    procedure TBStopClick(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

uses uAbout, uDM,uPub,uTerm,uSubject,uClass,uTermToClass,uClassToSubject,uStudent,uHonoursStd,uGrade,
  uGradeCount;

{$R *.dfm}

procedure TfrmMain.mnuCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmMain.A1Click(Sender: TObject);
begin
  ShowAbout;
end;

procedure TfrmMain.tbCloseClick(Sender: TObject);
begin
  mnuCloseClick(nil);
end;

procedure TfrmMain.mnuBakClick(Sender: TObject);
begin
  SaveDialog1.InitialDir:=AppPath+'Bak';
  SaveDialog1.FileName:=AppPath+'Bak\'+FormatDateTime('yyyyMMdd',Now)+'.ZBK';
  if Not SaveDialog1.Execute then Exit;
  DM.ADOLocal.Connected:=False;
  Try
    FileCopy(AppPath+'DB\Student.dat',SaveDialog1.FileName);
    DM.ADOLocal.Connected:=True;
  Except
    DM.ADOLocal.Connected:=True;  
    ShowMessage('确认目标位置可读写！');
  end;
end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  AppPath:=ExtractFilePath(Application.ExeName);
end;

procedure TfrmMain.mnuRestoreClick(Sender: TObject);
begin
  SHowMessage('警告：还原数据库将会把当前设置状况下的数据覆盖，且不可恢复！'+#13+
      '建议在还原之前先备份数据库！'+#13+
      '请谨慎使用本功能！');
  OpenDialog1.InitialDir:=AppPath+'Bak';
  if Not OpenDialog1.Execute then Exit;
  DM.ADOLocal.Connected:=False;
  Try
    FileCopy(OpenDialog1.FileName,AppPath+'DB\Student.dat');
    DM.ADOLocal.Connected:=True;
  Except
    DM.ADOLocal.Connected:=True;  
    ShowMessage('还原数据文件发生错误！');
  end;
end;

procedure TfrmMain.mnuXQClick(Sender: TObject);
begin
  ShowTerm;
end;

procedure TfrmMain.mnuKMClick(Sender: TObject);
begin
  ShowSubject;
end;

procedure TfrmMain.mnuBJClick(Sender: TObject);
begin
  ShowClass;
end;

procedure TfrmMain.N5Click(Sender: TObject);
begin
  ShowTermToClass;
end;

procedure TfrmMain.N6Click(Sender: TObject);
begin
  ShowClassToSubject;
end;

procedure TfrmMain.mnuSBaseClick(Sender: TObject);
begin
  ShowStudent;
end;

procedure TfrmMain.mnuIsYClick(Sender: TObject);
begin
  ShowHonoursStd;
end;

procedure TfrmMain.mnuEditCJClick(Sender: TObject);
begin
  ShowGrade;
end;

procedure TfrmMain.mnuGCountClick(Sender: TObject);
begin
  ShowGradeCount;
end;

procedure TfrmMain.tbHisClick(Sender: TObject);
begin
  mnuEditCJClick(nil);
end;

procedure TfrmMain.TBStopClick(Sender: TObject);
begin
  mnuSBaseClick(nil);
end;

procedure TfrmMain.ToolButton1Click(Sender: TObject);
begin
  mnuGCountClick(nil);
end;

end.