unit13.pas

毕业设计

unit Unit13;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, DBTables, Db;

type
  TForm13 = class(TForm)
    Panel1: TPanel;
    Panel4: TPanel;
    GroupBox2: TGroupBox;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    RadioButton1: TRadioButton;
    Table1: TTable;
    Table2: TTable;
    BatchMove1: TBatchMove;
    RadioButton3: TRadioButton;
    RadioButton2: TRadioButton;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form13: TForm13;

implementation

{$R *.DFM}

procedure TForm13.BitBtn1Click(Sender: TObject);
begin
 close;
end;

procedure TForm13.BitBtn2Click(Sender: TObject);
begin
 if radiobutton1.Checked then
  begin
   table1.DatabaseName:='e:\bysj\benfeihz';
   table1.TableName:='shoufeihz.db';
   table2.DatabaseName:='e:\bysj';
   table2.TableName:='shoufeihz.db';
  end;
  if radiobutton2.Checked then
  begin
   table1.DatabaseName:='e:\bysj\benfeibr';
   table1.TableName:='huizong.db';
   table2.DatabaseName:='e:\bysj';
   table2.TableName:='huizong.db';
  end;
  if radiobutton3.Checked then
  begin
   table1.DatabaseName:='e:\bysj\benfeiuser';
   table1.TableName:='userpass.db';
   table2.DatabaseName:='e:\bysj';
   table2.TableName:='userpass.db';
  end;
  if radiobutton4.Checked then
  begin
   table1.DatabaseName:='e:\bysj\benfeisj';
   table1.TableName:='shouju.db';
   table2.DatabaseName:='e:\bysj';
   table2.TableName:='shouju.db';
  end;
   if radiobutton5.Checked then
  begin
   table1.DatabaseName:='e:\bysj\benfenkz';
   table1.TableName:='kaizhipiao.db';
   table2.DatabaseName:='e:\bysj';
   table2.TableName:='kaizhipiao.db';
  end;
   with batchmove1 do
   begin
    source:=table1;
    destination:=table2;
    mode:=batappendupdate;
    execute;
    showmessage(inttostr(movedcount)+'record copied');
    end;
end;
end.