u_syshighset.pas

这是一个60吨地磅称量系统

unit U_SysHighSet;

interface

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

type
  TF_SysHighSet = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Table1: TTable;
    Table2: TTable;
    Table3: TTable;
    Table4: TTable;
    Table5: TTable;
    Table6: TTable;
    Table7: TTable;
    Table8: TTable;
    Button10: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_SysHighSet: TF_SysHighSet;

implementation

{$R *.DFM}

uses U_ComTest,U_Gloat;

procedure TF_SysHighSet.Button1Click(Sender: TObject);
begin
  F_ComTest.GroupBox1.Visible:=True;
end;

procedure TF_SysHighSet.Button2Click(Sender: TObject);
begin

        if MessageDlg('您是否真的要打开称量空罐开关吗？！',mtwarning,[mbYes,mbNo],0)= mrYes then
 begin
       F_Gloat.Show;
       F_Gloat.Panel6.Visible:=False;
       F_Gloat.Panel5.Visible:=False;
       F_Gloat.Button2.Visible:=True;
       F_Gloat.Button2.Caption:='(车头+空罐)称量';
        close;
 end;

      end;

procedure TF_SysHighSet.Button3Click(Sender: TObject);
  begin

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

  end;
    end;

 end;



procedure TF_SysHighSet.Button4Click(Sender: TObject);
begin
  
        if MessageDlg('您是否真的要删除所有数据吗？！',mtwarning,[mbYes,mbNo],0)= mrYes then
 begin
 with Table3 do
 begin
 TableName :='OPTER.dbf';
  EmptyTable;

  end;

 end;

end;

procedure TF_SysHighSet.Button5Click(Sender: TObject);
begin
  
        if MessageDlg('您是否真的要删除所有数据吗？！',mtwarning,[mbYes,mbNo],0)= mrYes then
 begin
 with Table4 do
 begin
 TableName :='SD.dbf';
  EmptyTable;

  end;

 end;

end;

procedure TF_SysHighSet.Button6Click(Sender: TObject);
begin
  
        if MessageDlg('您是否真的要删除所有数据吗？！',mtwarning,[mbYes,mbNo],0)= mrYes then
 begin
 with Table5 do
 begin
 TableName :='RD.dbf';
  EmptyTable;
    end;

 end;

end;

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

 end;

end;

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

 end;

end;

procedure TF_SysHighSet.Button9Click(Sender: TObject);
begin

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

 end;

end;

procedure TF_SysHighSet.Button10Click(Sender: TObject);
begin
close;
end;

end.