copy01.pas

公司ERP系统

unit copy01;

interface

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

type
  TCopy01Form = class(TForm)
    hp9000Table1: TTable;
    ttmispcTable2: TTable;
    BatchMove1: TBatchMove;
    EditTableName: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    EditCond: TEdit;
    Memo1: TMemo;
    EditCond2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure EditTableNameExit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Copy01Form: TCopy01Form;

implementation

{$R *.DFM}

procedure TCopy01Form.Button1Click(Sender: TObject);
begin
    if hp9000Table1.Active then
       hp9000Table1.close;
    hp9000Table1.TableName := EditTableName.Text;
    try
       ttmispcTable2.EmptyTable;
    except
       showmessage('郎