unit6.pas

来自「毕业设计」· PAS 代码 · 共 105 行

unit Unit6;

interface

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

type
  TForm6 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Button1: TButton;
    Splitter1: TSplitter;
    Panel5: TPanel;
    Label1: TLabel;
    Panel6: TPanel;
    GroupBox3: TGroupBox;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    RadioButton9: TRadioButton;
    RadioButton10: TRadioButton;
    RadioButton11: TRadioButton;
    RadioButton12: TRadioButton;
    RadioButton13: TRadioButton;
    Button3: TButton;
    Button4: TButton;
    RadioButton14: TRadioButton;
    Table1: TTable;
    Table2: TTable;
    BatchMove1: TBatchMove;
    RadioButton4: TRadioButton;
    RadioButton3: TRadioButton;
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation

{$R *.DFM}

procedure TForm6.Button4Click(Sender: TObject);
begin
 close;
end;

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