unitmain.pas.~93~

初中成绩录入系统网络版(firebird) firebird下的网络编程

unit unitMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,admin, Menus,unitAchieve;

type
  TfmMain = class(TForm)
    MainMenu1: TMainMenu;
    mnFile: TMenuItem;
    mnBackup: TMenuItem;
    mnRestore: TMenuItem;
    N3: TMenuItem;
    mnChangePSW: TMenuItem;
    mnChangeDBAPsw: TMenuItem;
    mnChangeLLY1PSW: TMenuItem;
    mnChangeLLY2Psw: TMenuItem;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    N1: TMenuItem;
    Excel1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    Excel2: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    Excel3: TMenuItem;
    Excel4: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    procedure N24Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure Excel4Click(Sender: TObject);
    procedure Excel3Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure Excel2Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure Excel1Click(Sender: TObject);
    procedure mnChangeLLY2PswClick(Sender: TObject);
    procedure mnChangeLLY1PSWClick(Sender: TObject);
    procedure mnChangeDBAPswClick(Sender: TObject);
    procedure mnRestoreClick(Sender: TObject);
    procedure mnBackupClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    admin:Tadmin;
    Achieve:TAchieve;
  public
    { Public declarations }
  end;

var
  fmMain: TfmMain;

implementation

uses SysDBAPSW, unitDatamodule, ChangePsw, UnitStudentManager, ABOUT,
  unitIncept, UnitBrowseAchieve, UnitPrtZkzh, UnitPrtAch, UnitPrtSubject,
  SchoolSetup, UnitDLSW, unitZhaosheng;
{$R *.dfm}

procedure TfmMain.FormCreate(Sender: TObject);
var
  fmSysDBAPSW:TfmSysDBAPsw;
begin
  fmSysDBAPsw:=TfmSysDBAPsw.Create(nil);
  if fmSysDBAPsw.ShowModal()<>mrOK then
  begin
    FreeAndNil(fmSysDBAPsw);
    Application.Terminate;
  end
  else
  begin
    admin:=Tadmin.Create;
    admin.createLLY;
    FreeAndNil(fmSysDBAPsw);
  end;
  achieve:=Tachieve.Create;
end;

procedure TfmMain.FormDestroy(Sender: TObject);
begin
  admin.Free;
  achieve.Free;
end;

procedure TfmMain.mnBackupClick(Sender: TObject);
begin
  SaveDialog1.Title:='备份数据库';
  SaveDialog1.Filter:='数据库备份文件(*.GBK)|*.GBK';
  SaveDialog1.DefaultExt:='gbk';
  if SaveDialog1.Execute() then
    admin.Backup(SaveDialog1.FileName);
end;

procedure TfmMain.mnRestoreClick(Sender: TObject);
begin
  OpenDialog1.Title:='恢复数据库';
  OpenDialog1.Filter:='数据库备份文件(*.GBK)|*.GBK';
  OpenDialog1.DefaultExt:='gbk';
  if OpenDialog1.Execute() then
    admin.Restore(OpenDialog1.FileName);
end;

procedure TfmMain.mnChangeDBAPswClick(Sender: TObject);
var
  fmChangePSW:TfmChangePSW;
begin
  fmChangePsw:=TfmChangePsw.Create(nil);
  fmChangePsw.lbUserType.caption:='管理员';
  if fmChangePsw.ShowModal=mrOK then
    admin.ChangeUserPsw('sysdba',fmChangePsw.Edit1.Text);
  FreeAndNil(fmChangePsw);
end;

procedure TfmMain.mnChangeLLY1PSWClick(Sender: TObject);
var
  fmChangePSW:TfmChangePSW;
begin
  fmChangePsw:=TfmChangePsw.Create(nil);
  fmChangePsw.lbUserType.caption:='录入员一';
  if fmChangePsw.ShowModal=mrOK then
    admin.ChangeUserPsw('LLY1',fmChangePsw.Edit1.Text);
  FreeAndNil(fmChangePsw);
end;

procedure TfmMain.mnChangeLLY2PswClick(Sender: TObject);
var
  fmChangePSW:TfmChangePSW;
begin
  fmChangePsw:=TfmChangePsw.Create(nil);
  fmChangePsw.lbUserType.caption:='录入员二';
  if fmChangePsw.ShowModal=mrOK then
    admin.ChangeUserPsw('LLY2',fmChangePsw.Edit1.Text);
  FreeAndNil(fmChangePsw);
end;

procedure TfmMain.Excel1Click(Sender: TObject);
var
  studentManager:TstudentManager;
begin
  OpenDialog1.Title:='请选择一个Excel数据文件';
  OpenDialog1.DefaultExt:='xls';
  OpenDialog1.Filter:='Excel文件(*.xls)|*.xls';
  if OpenDialog1.Execute() then
  begin
    studentManager:=TstudentManager.Create;
    studentManager.importKSXX(OpenDialog1.FileName);
    Application.MessageBox('数据导入完毕','提示',MB_OK);
    FreeAndNil(studentManager);
  end;
end;

procedure TfmMain.N4Click(Sender: TObject);
begin
  if Application.MessageBox('您真的要清除数据库么?这将导致丢弃原有的所有数据!',
    '请确认',MB_YESNO or MB_ICONWARNING)=idYES then
  begin
    admin.clearData;
  end;
end;

procedure TfmMain.N11Click(Sender: TObject);
var
  AboutBox:TAboutBox;
begin
  AboutBox:=TAboutBox.Create(nil);
  AboutBox.ShowModal;
  FreeAndNil(AboutBox);
end;

procedure TfmMain.N6Click(Sender: TObject);
var
  fmIncept:TfmIncept;
begin
  fmIncept:=TfmIncept.Create(nil);
  fmIncept.ShowModal;
  FreeAndNil(fmIncept);
end;

procedure TfmMain.N8Click(Sender: TObject);
begin
  if Application.MessageBox('您真的要清除所有成绩记录吗?一号录入,二号录入及汇总成绩将被清除','请确认',MB_OKCANCEL or MB_ICONWARNING)<>IDOK then
    exit;
  achieve.clearAchieve;
  Application.MessageBox('清除成绩数据完毕!','提示',MB_OK or MB_ICONINFORMATION);
end;

procedure TfmMain.N9Click(Sender: TObject);
var
  fmBrowseAchieve:TfmBrowseAchieve;
begin
  fmBrowseAchieve:=TfmBrowseAchieve.Create(nil);
  fmBrowseAchieve.ShowModal;
  FreeAndNil(fmBrowseAchieve);
end;

procedure TfmMain.N14Click(Sender: TObject);
var
  fmPrtZkzh:TfmPrtZkzh;
begin
  fmPrtZkzh:=TfmPrtZkzh.Create(nil);
  fmPrtZkzh.ShowModal;
  FreeAndNil(fmPrtZkzh);
end;

procedure TfmMain.Excel2Click(Sender: TObject);
var
  StudentManager:TStudentManager;
begin
  Savedialog1.DefaultExt:='xls';
  SaveDialog1.Filter:='Excel文件(*.xls)|*.xls';
  SaveDialog1.Title:='导出数据';
  if SaveDialog1.Execute() then
  begin
    StudentManager:=TStudentManager.Create;
    if StudentManager.ExportStudent(SaveDialog1.FileName) then
      Application.MessageBox('导出数据完毕','提示',MB_OK or MB_ICONINFORMATION);
    StudentManager.Free;
  end;
end;

procedure TfmMain.N15Click(Sender: TObject);
var
  fmPrtAch:TfmPrtAch;
begin
  fmPrtAch:=TfmPrtAch.Create(nil);
  fmPrtAch.ShowModal;
  FreeAndNil(fmPrtAch);
end;

procedure TfmMain.N16Click(Sender: TObject);
var
  fmprtSubject:TfmprtSubject;
begin
  fmPrtSubject:=TfmPrtSubject.Create(nil);
  fmPrtSubject.ShowModal;
  FreeAndNil(fmPrtSubject);
end;

procedure TfmMain.N17Click(Sender: TObject);
var
  fmschoolSetup:TfmSchoolSetup;
begin
  fmschoolSetup:=TfmSchoolSetup.Create(nil);
  fmSchoolSetup.ShowModal;
  FreeAndnil(fmSchoolSetup);
end;

procedure TfmMain.N19Click(Sender: TObject);
begin
  Savedialog1.DefaultExt:='xls';
  SaveDialog1.Filter:='Excel文件(*.xls)|*.xls';
  SaveDialog1.Title:='导出数据';
  if SaveDialog1.Execute() then
  begin
    if achieve.exportAch(SaveDialog1.FileName) then
      Application.MessageBox('导出数据完毕','提示',MB_OK or MB_ICONINFORMATION);
  end;
end;

procedure TfmMain.N20Click(Sender: TObject);
begin
  OpenDialog1.Filter:='Excel文件(*.xls)|*.xls';
  OpenDialog1.DefaultExt:='xls';
  OpenDialog1.Title:='打开Excel文件';
  if OpenDialog1.Execute() then
  begin
    if Application.MessageBox('您真的要导入准考证信息吗?此操作将清除所有成绩数据!','请确认',MB_OKCancel or MB_ICONWARNING)=ID_OK then
    begin
      if Achieve.ImportZkzh(OpenDialog1.FileName) then
        Application.MessageBox('导入准考证号完毕','提示',MB_OK or MB_ICONINFORMATION)
      else
        Application.MessageBox('导入准考证号失败','发生错误',MB_OK or MB_ICONERROR);
    end;
  end;
end;

procedure TfmMain.N22Click(Sender: TObject);
begin
  if Application.MessageBox('您真的要重新生成准考证号么?这将导致丢弃原有的所有成绩及准考证数据!',
    '请确认',MB_YESNO or MB_ICONWARNING)=idYES then
  begin
    achieve.generateZKZH;
    Application.MessageBox('生成准考证完毕!','提示',MB_OK or MB_ICONINFORMATION);
  end;
end;

procedure TfmMain.Excel3Click(Sender: TObject);
begin
  OpenDialog1.Filter:='Excel文件(*.xls)|*.xls';
  OpenDialog1.DefaultExt:='xls';
  OpenDialog1.Title:='打开Excel文件';
  if OpenDialog1.Execute() then
  begin
    if Application.MessageBox('您真的要导入此文件中的技能成绩吗?','请确认',MB_OKCancel or MB_ICONWARNING)=ID_OK then
    begin
      if Achieve.ImportJncj(OpenDialog1.FileName) then
        Application.MessageBox('导入技能成绩完毕','提示',MB_OK or MB_ICONINFORMATION)
      else
        Application.MessageBox('导入技能成绩失败','发生错误',MB_OK or MB_ICONERROR);
    end;
  end;
end;

procedure TfmMain.Excel4Click(Sender: TObject);
begin
  OpenDialog1.Filter:='Excel文件(*.xls)|*.xls';
  OpenDialog1.DefaultExt:='xls';
  OpenDialog1.Title:='打开Excel文件';
  if OpenDialog1.Execute() then
  begin
    if Application.MessageBox('您真的要导入此文件中的志愿信息吗?','请确认',MB_OKCancel or MB_ICONWARNING)=ID_OK then
    begin
      if Achieve.ImportZyxx(OpenDialog1.FileName) then
        Application.MessageBox('导入志愿信息完毕','提示',MB_OK or MB_ICONINFORMATION)
      else
        Application.MessageBox('导入志愿信息失败','发生错误',MB_OK or MB_ICONERROR);
    end;
  end;
end;

procedure TfmMain.N23Click(Sender: TObject);
var
  fmDLSW:TfmDLSW;
begin
  fmDLSW:=TfmDLSW.Create(nil);
  fmDLSW.ShowModal;
  FreeAndNil(fmDLSW);
end;

procedure TfmMain.N24Click(Sender: TObject);
var
  fmZhaosheng:TfmZhaosheng;
begin
  fmZhaosheng:=TfmZhaosheng.Create(nil);
  fmZhaosheng.ShowModal;
  FreeAndNil(fmZhaoSheng);
end;

end.