data.~pas

该源码采用DELPHI语言,主要实现了对员工信息管理的功能.

unit Data;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Buttons, jpeg, ExtCtrls;

type
  TForm8 = class(TForm)
    Image2: TImage;
    Image1: TImage;
    Edit1: TEdit;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    Label2: TLabel;
    Image3: TImage;
    Image4: TImage;
    BitBtn2: TBitBtn;
    ADOConnection1: TADOConnection;
    ADOCommand1: TADOCommand;
    SaveDialog1: TSaveDialog;
    ADOQuery1: TADOQuery;
    OpenDialog1: TOpenDialog;
    Label4: TLabel;
    Label3: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure SaveDialog1CanClose(Sender: TObject; var CanClose: Boolean);
    procedure OpenDialog1CanClose(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;
  Str_Path :string;

implementation

{$R *.dfm}

procedure TForm8.BitBtn1Click(Sender: TObject);
begin
SaveDialog1.InitialDir:=Extractfiledir(Application.ExeName);
//打开对话框的默认路径为当前程序所在的路径
Savedialog1.Title:='保存为';
//设置保存对话框的标题
SaveDialog1.Execute;
//执行保存对话框的操作
end;

procedure TForm8.BitBtn3Click(Sender: TObject);
begin
   ADOConnection1.Close;
   ADOConnection1.Connected:=False;
   Opendialog1.Filter := '所有文件(*.*)|*.*';
   Opendialog1.Title := '选择恢复文件路径和文件名';
   if Opendialog1.Execute then
   Str_Path:=opendialog1.FileName;
end;

procedure TForm8.Image3Click(Sender: TObject);
begin
if Edit1.Text = '' then
begin
showmessage('请输入保存路径!');
Edit1.SetFocus;
Exit;
end
else
begin
Screen.Cursor:=Crhourglass;
Label2.Visible:=true;
Label2.Update;
ADOcommand1.CommandText:='';
ADOcommand1.CommandText:='backup database 学员信息管理系统 to disk =:path with init';
ADOcommand1.Parameters.ParamByName('path').Value:=trim(Edit1.Text);
ADOcommand1.Execute;
Label2.Visible:=false;
Label2.Update;
Application.MessageBox('备份完毕!','提示:',mb_ok);
Screen.Cursor:=Crdefault;
end;
end;

procedure TForm8.Image4Click(Sender: TObject);
begin
if Edit1.Text = '' then
begin
showmessage('请选择还原的数据!');
Edit1.SetFocus;
Exit;
end
else
begin
with ADOQuery1 do
    begin
    try
      try
        Screen.Cursor := crHourGlass;
        Close;
        SQL.Clear;
        SQL.Add('use master restore  DATABASE 学员信息管理系统 from DISK ='+'''' +Str_Path+'''');
        ExecSQL();
        Screen.Cursor := crDefault;
        Application.MessageBox('数据库恢复成功完成!','数据库恢复',0+mb_iconinformation);
      except
        Screen.Cursor := crDefault;
        Application.MessageBox('数据库恢复失败!请检查备份路径','数据库恢复',0+mb_iconinformation);
        exit;
      end;
      Finally
        with ADOQuery1 do
          begin
            Close;
            SQL.Clear;
            SQL.Add('USE 学员信息管理系统');
            ExecSQL;
          end;
      end;
    end;
  end;
  ADOConnection1.Open;
  ADOConnection1.Connected:=True;
end;

procedure TForm8.BitBtn2Click(Sender: TObject);
begin
Close;
end;

procedure TForm8.SaveDialog1CanClose(Sender: TObject;
  var CanClose: Boolean);
begin
Edit1.Text:=SaveDialog1.FileName;
//将获取的保存路径在文本框中显示出来
end;

procedure TForm8.OpenDialog1CanClose(Sender: TObject;
  var CanClose: Boolean);
begin
Edit1.Text:=OpenDialog1.FileName;
end;

end.