unit p_tableno;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, fcButton, fcImgBtn, jpeg, ExtCtrls, RzPanel, RzButton;

type
  Tf_tableno = class(TForm)
    RzPanel1: TRzPanel;
    SpeedButton4: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton9: TSpeedButton;
    RzPanel3: TRzPanel;
    Edit1: TEdit;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    RzPanel2: TRzPanel;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzPanel4: TRzPanel;
    RzBitBtn19: TRzBitBtn;
    RzBitBtn17: TRzBitBtn;
    RzBitBtn20: TRzBitBtn;
    RzBitBtn18: TRzBitBtn;
    RzBitBtn21: TRzBitBtn;
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure RzBitBtn21Click(Sender: TObject);
    procedure RzBitBtn18Click(Sender: TObject);
    procedure RzBitBtn20Click(Sender: TObject);
    procedure RzBitBtn17Click(Sender: TObject);
    procedure RzBitBtn19Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_tableno: Tf_tableno;

implementation

uses p_posmodule;

{$R *.DFM}

procedure Tf_tableno.SpeedButton11Click(Sender: TObject);
begin
edit1.Text:='';
end;

procedure Tf_tableno.SpeedButton1Click(Sender: TObject);
begin
if  trim(edit1.Text)<>'0' then
edit1.Text:=edit1.Text+(sender as tSpeedButton).caption
else
edit1.Text:=(sender as tSpeedButton).caption;
end;

procedure Tf_tableno.FormShow(Sender: TObject);
begin
edit1.Text:='0';
end;

procedure Tf_tableno.RzBitBtn21Click(Sender: TObject);
begin
edit1.Text:='0.5';
end;

procedure Tf_tableno.RzBitBtn18Click(Sender: TObject);
begin
edit1.Text:='0.4';
end;

procedure Tf_tableno.RzBitBtn20Click(Sender: TObject);
begin
edit1.Text:='0.3';
end;

procedure Tf_tableno.RzBitBtn17Click(Sender: TObject);
begin
edit1.Text:='0.2';
end;

procedure Tf_tableno.RzBitBtn19Click(Sender: TObject);
begin
edit1.Text:='0.1';
end;

end.
