unitmain.pas

来自「教务管理系统」· PAS 代码 · 共 118 行

unit UnitMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ActnMan, ActnColorMaps;

type
  TfrmMain = class(TForm)
    mnuMain: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    Label1: TLabel;
    Label2: TLabel;
    N3: TMenuItem;
    N4: TMenuItem;
    SQL1: TMenuItem;
    N5: TMenuItem;
    sv: TSaveDialog;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    procedure N2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure SQL1Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

uses UnitTeacher, UnitData, UnitTeacherEdit, UnitArrange, UnitQuery,
  UnitRoom, kcgl, kctj;

{$R *.dfm}

procedure TfrmMain.N2Click(Sender: TObject);
begin
  // 创建窗体实例
  frmTeacher := TfrmTeacher.Create(self);
  // 显示窗口
  frmTeacher.ShowModal;
  // 释放窗体实例
  frmTeacher.Free;
end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  // 生成连接串
  data.adoc.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + ExtractFilePath(application.ExeName) + 'EAAMS.mdb;Persist Security Info=False';
  // 连接数据库
  data.adoc.Connected := TRUE;
end;
 //教师信息管理窗体建立
procedure TfrmMain.N3Click(Sender: TObject);
begin
  frmTeacherEdit := TfrmTeacherEdit.Create(self);
  frmTeacherEdit.ShowModal;
  frmTeacherEdit.Free;
end;

procedure TfrmMain.N4Click(Sender: TObject);
begin
  frmArrange := TfrmArrange.Create(self);
  frmArrange.ShowModal;
  frmArrange.Free;
end;

procedure TfrmMain.SQL1Click(Sender: TObject);
begin
  frmQuery := TfrmQuery.Create(self);
  frmQuery.ShowModal;
  frmQuery.Free;
end;

procedure TfrmMain.N5Click(Sender: TObject);
begin
  frmRoom := TfrmRoom.Create(self);
  frmRoom.ShowModal;
  frmRoom.Free;
end;

procedure TfrmMain.N6Click(Sender: TObject);
begin
  if sv.Execute then begin
    CopyFile(PAnsiChar(ExtractFilePath(application.ExeName) + 'EAAMS.mdb'), PAnsiChar(sv.FileName), TRUE);
  end;
end;

procedure TfrmMain.N8Click(Sender: TObject);
begin
  Form1 := TForm1.Create(self);
  Form1.ShowModal;
  Form1.Free;
end;

procedure TfrmMain.N9Click(Sender: TObject);
begin
  Form2 := TForm2.Create(self);
  Form2.ShowModal;
  Form2.Free;
end;

end.