beifen.pas

从同学哪里拷贝来的程序,毕业设计用的,大家看看,有帮助的哦

unit beifen;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBTables, DB, Grids, DBGrids, Buttons, OleCtnrs;

type
  Tfbeifen = class(TForm)
    Table1: TTable;
    BatchMove1: TBatchMove;
    Table2: TTable;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fbeifen: Tfbeifen;

implementation

uses Unit3;


{$R *.dfm}

procedure Tfbeifen.Button1Click(Sender: TObject);
begin
if (edit1.Text='') or(edit2.text='') then
 begin showmessage('数据库名不能为空！');
       edit1.Text:='';
       edit2.Text:='';
  end
else begin
    table1.TableName:=edit1.Text;
    table2.TableName:=edit2.Text;
    try
    batchmove1.Execute ;
   // if not (table1.TableName.exists) then
    showmessage('数据已经备份！');
    table1.Close;
    table2.Close;
    except
      showmessage('数据备份失败请检查数据库名是否正确！');
      end;
   end;
  end;
procedure Tfbeifen.Button2Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
end;

procedure Tfbeifen.FormCreate(Sender: TObject);
begin
//table1.DatabaseName :=main.GetExePath+'db';
//table2.DatabaseName :=main.GetExePath+'db';
//table3.DatabaseName :=mainform.GetExePath +'db';

//table1.TableName :=edit1.Text;
//table2.TableName :=edit2.Text;
end;

procedure Tfbeifen.FormClose(Sender: TObject; var Action: TCloseAction);
begin
table1.Close;
table2.close;
end;

procedure Tfbeifen.SpeedButton1Click(Sender: TObject);
begin
opendialog1.execute;
edit1.text:=opendialog1.FileName ;
end;

procedure Tfbeifen.SpeedButton2Click(Sender: TObject);
begin
savedialog1.execute;
edit2.text:=savedialog1.FileName ;
end;

end.