u_cltable1.pas

来自「这是一个60吨地磅称量系统」· PAS 代码 · 共 47 行

unit U_CLTable1;

interface

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

type
  TF_CLTable1 = class(TForm)
    enter: TButton;
    Table1: TTable;
    procedure enterClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_CLTable1: TF_CLTable1;

implementation

{$R *.DFM}

uses u_ComWet;

procedure TF_CLTable1.enterClick(Sender: TObject);
begin

        if MessageDlg('您是否真的要删除所有数据吗？！',mtwarning,[mbYes,mbNo],0)= mrYes then
 begin
 with Table1 do
 begin
 TableName :='Weight.dbf';
  EmptyTable;
  //  close;
  end;

 end;
  close;
end;


end.