unit9.pas

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

unit Unit9;

interface

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

type
  TForm9 = class(TForm)
    Panel1: TPanel;
    Splitter1: TSplitter;
    Panel2: TPanel;
    Panel3: TPanel;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton14: TRadioButton;
    Table1: TTable;
    Table2: TTable;
    BatchMove1: TBatchMove;
    SaveDialog1: TSaveDialog;
    Panel5: TPanel;
    Button3: TButton;
    Button1: TButton;
    RadioButton4: TRadioButton;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form9: TForm9;

implementation

{$R *.DFM}

procedure TForm9.Button3Click(Sender: TObject);
begin
 close;
end;

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