u_cltable2.pas

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

unit U_CLTable2;

interface

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

type
  TF_CLTable2 = class(TForm)
    F_CLTable2: TButton;
    Table2: TTable;
    procedure F_CLTable2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_CLTable2: TF_CLTable2;

implementation

uses U_comwet;

{$R *.DFM}

procedure TF_CLTable2.F_CLTable2Click(Sender: TObject);
begin
 
   if MessageDlg('您是否真的要删除所有数据吗？！',mtwarning,[mbYes,mbNo],0)= mrYes then
 begin
 with Table2 do
 begin
 TableName :='DATA\'+ 'MainWeight.dbf';
  EmptyTable;
    close;
  end;
    close;
 end;

end;

end.