unit2.pas

源码下载..可编译,可运行!下载后就可使用..可以学习交流.可以用做毕业设计!

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, TFlatSpeedButtonUnit, ToolWin, ComCtrls, OleServer,
  Outlook2000, StdCtrls,shellAPI;

type
  TForm2 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    ToolBar1: TToolBar;
    FlatSpeedButton1: TFlatSpeedButton;
    FlatSpeedButton2: TFlatSpeedButton;
    FlatSpeedButton3: TFlatSpeedButton;
    FlatSpeedButton4: TFlatSpeedButton;
    FlatSpeedButton5: TFlatSpeedButton;
    FlatSpeedButton6: TFlatSpeedButton;
    FlatSpeedButton7: TFlatSpeedButton;
    FlatSpeedButton8: TFlatSpeedButton;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    StatusBar1: TStatusBar;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FlatSpeedButton8Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure FlatSpeedButton4Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
  //procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure FlatSpeedButton5Click(Sender: TObject);
    procedure FlatSpeedButton3Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure FlatSpeedButton7Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    //procedure backupdatabase(filename:ansistring);
    //procedure CloseTXL;
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm} uses unit3,unit4,unit5,unit6,unit7,unit8,unit9,unit10,unit11,datamodule,inifiles,
  Unit12;

{procedure tform2.CloseTXL;
var
  fromf,tof:file;//声明无类型文件对象
  numread,numwritten:integer;
  buf:array[1..2048] of char; //定义缓冲区
  pathname1,pathname2,pathname3:string;
begin
  pathname1:=Extractfilepath(application.ExeName)+'J_TXL';
  pathname2:=Extractfilepath(application.ExeName)+'backup\';
  pathname3:=Extractfilepath(application.ExeName)+'backup\J_TXL';
   MessDlg.ButtonCount:=2;
   MessDlg.Text:='你确定要退出系统吗？';
   if MessDlg.ShowModal<>MrOK then
   exit
   else
   begin
  if directoryexists(pathname2)<>true then
   begin
   forcedirectories(pathname2);
  assignfile(fromf,pathname1);
  reset(fromf,1);
  assignfile(tof,pathname3);
  rewrite(tof,1);
  //显示文件大小
  //edit3.Text:=inttostr(filesize(fromf))+'字节';
  repeat
  //从源文件往缓冲区读
  blockread(fromf,buf,sizeof(buf),numread);
  //从缓冲区往目的文件写
  blockwrite(tof,buf,numread,numwritten);
  until(numread=0)or(numwritten<>numread);
  closefile(fromf);//关闭源文件
  closefile(tof);//关闭目的文件
   LXRQuery.Close;
   Close;
   end
   else
   begin
  assignfile(fromf,pathname1);
  reset(fromf,1);
  assignfile(tof,pathname3);
  rewrite(tof,1);
  repeat
  //从源文件往缓冲区读
  blockread(fromf,buf,sizeof(buf),numread);
  //从缓冲区往目的文件写
  blockwrite(tof,buf,numread,numwritten);
  until(numread=0)or(numwritten<>numread);
  closefile(fromf);//关闭源文件
  closefile(tof);//关闭目的文件
   LXRQuery.Close;
   Close;
   end;
   end;
end;

{procedure tform2.backupdatabase(filename:ansistring);
var
  backup,str:ansistring;
  ini:tinifile;
begin
  dm.aq_back_restore.close;
  dm.aq_back_restore.sql.clear;
  backup:='backupdatabase';
  ini:=tinifile.Create(ChangeFileExt(application.ExeName,'.ini'));
  str:=ini.ReadString('database','initial catalog','archives');
  backup:=backup+str;
  dm.aq_back_restore.sql.add(backup);
  str:='to disk=''';
  str:=str+filename;
  str:=str+'''';
  dm.aq_back_restore.sql.add(str);
  dm.aq_back_restore.sql.add('select * from sskxx');
  try
    dm.aq_back_restore.ExecSQL;
    except
    application.MessageBox('出错','错误',MB_OK);
    end;
end;}


procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
application.Terminate;
end;



procedure TForm2.FlatSpeedButton8Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm2.N6Click(Sender: TObject);
begin
xsxxll.ShowModal;
end;

procedure TForm2.N7Click(Sender: TObject);
begin
sskxxll.ShowModal;
end;

procedure TForm2.N8Click(Sender: TObject);
begin
zsfp.ShowModal;
end;

procedure TForm2.N10Click(Sender: TObject);
begin
zscx.ShowModal;
end;

procedure TForm2.N11Click(Sender: TObject);
begin
xskxxcx.ShowModal;
end;

procedure TForm2.N12Click(Sender: TObject);
begin
sskxxcx.ShowModal;
end;

procedure TForm2.FlatSpeedButton4Click(Sender: TObject);
begin
sjcz.ShowModal;
end;

procedure TForm2.N4Click(Sender: TObject);
begin
application.Terminate;
end;

{procedure TForm2.N2Click(Sender: TObject);
var
i:integer;
str:ansistring;
begin
if savedialog1.Execute then
  begin
  if fileexists(savedialog1.FileName) then
    begin
    str:=savedialog1.FileName+'文件已经存在，要替换它吗？';
    i:=messagebox(NULL,pchar(str),'另存为',MB_OKCANCEL);
    if i=mrOK then
      begin
      backupdatabase(savedialog1.FileName);
      exit;
      end
      else
      exit;
      end;
    backupdatabase(savedialog1.FileName);
    end;
end; }


procedure TForm2.N3Click(Sender: TObject);
{var
  sFileName, sDBName: string;
begin
  if dm.ADOConnection1.Connected then dm.ADOConnection1.Close;
  sFileName := 'per' + FormatDateTime('mmdd', Date()) + '.bak';
  //sDBName := sPath + sFileName;
  if FileExists(sDBName) then DeleteFile(sDBName);
  CopyFile(Pchar('ss.mdb'), Pchar(sDBName), true);
  MessageBox(self.Handle, PChar('数据已成功备份为[' + sFileName + ']!'), '提示', mb_IconInformation + mb_Ok);
  dm.ADOConnection1.Open; }
begin
//sFileName := FormatDateTime('mmdd', Date()) + '.bak';
CopyFile('data\ss.mdb','data\data.bak', True);
MessageBox(self.Handle, PChar('数据已成功备份!'), '提示', mb_IconInformation + mb_Ok);

end;

{procedure TfrmReData.btnReStoreClick(Sender: TObject);
var
  sdbName, sbakName: string;
begin
  if MessageBox(self.Handle, '确定要还原所选数据文件吗?', '提示', mb_IconQuestion + mb_YesNO) = idYes then
  begin
    if dmPer.acPer.Connected = true then dmPer.acPer.Close;
    sdbName := sPath + 'permis.mdb';
    sbakName := sPath + lvReData.Selected.Caption;  {所选文件
    DeleteFile(sdbName);
    CopyFile(Pchar(sbakName), Pchar(sdbName), true);
    MessageBox(self.Handle, '数据库还原成功!', '提示', mb_IconInformation + mb_Ok);
    dmPer.acPer.Open;
  end;
end; }

procedure TForm2.N2Click(Sender: TObject);
//var
//  sdbName, sbakName: string;
begin
  if MessageBox(self.Handle, '确定要还原所选数据文件吗?', '提示', mb_IconQuestion + mb_YesNO) = idYes then
  begin
    CopyFile('data\data.bak','data\ss.mdb', True);
MessageBox(self.Handle, PChar('数据已成功还原!'), '提示', mb_IconInformation + mb_Ok);
    {if dm.ADOConnection1.Connected = true then  dm.ADOConnection1.Close;
    //sdbName := sPath + 'ss.mdb';
    //sbakName := sPath + lvReData.Selected.Caption;  {所选文件
    DeleteFile(sdbName);
    CopyFile(Pchar(sbakName), Pchar(sdbName), true);
    MessageBox(self.Handle, '数据库还原成功!', '提示', mb_IconInformation + mb_Ok);
    dm.ADOConnection1.Open; }
  end;
end;



procedure TForm2.N14Click(Sender: TObject);
begin
gjcx.ShowModal;
end;

procedure TForm2.FlatSpeedButton5Click(Sender: TObject);
begin
sjcx.ShowModal
end;

procedure TForm2.FlatSpeedButton3Click(Sender: TObject);
begin
pass.ShowModal;
end;

procedure TForm2.N21Click(Sender: TObject);
begin
pass.ShowModal;
end;



procedure TForm2.N17Click(Sender: TObject);
begin
ShellExecute(0,'open','mailto:[e-mail]',nil,nil,SW_ShowNormal);
end;

procedure TForm2.FlatSpeedButton7Click(Sender: TObject);
begin
ShellExecute(0,'open','help\学生宿舍管理系统文档.doc',nil,nil,SW_ShowNormal);
end;

procedure TForm2.N16Click(Sender: TObject);
begin
//ShellExecute(0,'open','help\学生宿舍管理系统文档.doc',nil,nil,SW_ShowNormal);
end;

end.