unit p_tablenoC;

interface

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

type
  Tf_tablenoC = class(TForm)
    fcImageBtn1: TRzBitBtn;
    fcImageBtn3: TRzBitBtn;
    RzPanel1: TRzPanel;
    SpeedButton4: tsuiButton;
    SpeedButton3: tsuiButton;
    SpeedButton2: tsuiButton;
    SpeedButton1: tsuiButton;
    SpeedButton8: tsuiButton;
    SpeedButton7: tsuiButton;
    SpeedButton6: tsuiButton;
    SpeedButton5: tsuiButton;
    SpeedButton11: tsuiButton;
    SpeedButton10: tsuiButton;
    SpeedButton9: tsuiButton;
    Panel1: TRzPanel;
    SpeedButton13: tsuiButton;
    SpeedButton14: tsuiButton;
    SpeedButton15: tsuiButton;
    SpeedButton16: tsuiButton;
    SpeedButton17: tsuiButton;
    SpeedButton18: tsuiButton;
    RzPanel3: TRzPanel;
    Edit1: TEdit;
    SpeedButton12: tsuiButton;
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_tablenoC: Tf_tablenoC;

implementation

uses p_posmodule;

{$R *.DFM}

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

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

procedure Tf_tablenoC.FormCreate(Sender: TObject);
begin
//edit1.Text:='0';
end;

end.
