cashform.~pas

简单的餐饮软件部分源码

unit cashform;

interface

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

type
  Tfcash = class(TForm)
    but1: TButton;
    but2: TButton;
    but3: TButton;
    but4: TButton;
    but7: TButton;
    but6: TButton;
    but5: TButton;
    but8: TButton;
    but9: TButton;
    but10: TButton;
    but11: TButton;
    but12: TButton;
    but13: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure but11Click(Sender: TObject);
    procedure but13Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure but1Click(Sender: TObject);
    procedure but2Click(Sender: TObject);
    procedure but3Click(Sender: TObject);
    procedure but4Click(Sender: TObject);
    procedure but5Click(Sender: TObject);
    procedure but6Click(Sender: TObject);
    procedure but7Click(Sender: TObject);
    procedure but8Click(Sender: TObject);
    procedure but9Click(Sender: TObject);
    procedure but10Click(Sender: TObject);
    procedure but12Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fcash: Tfcash;
implementation
uses SnackDM,snmai;
{$R *.dfm}

procedure Tfcash.FormCreate(Sender: TObject);
begin
 label1.Caption:=DateToStr(Date);
 self.Caption:=DataM.SPLanguage.ReadString('captions','00048','');
 but11.Caption:=DataM.SPLanguage.ReadString('captions','00001','');
 but12.Caption:=DataM.SPLanguage.ReadString('captions','00002','');
 but13.Caption:=DataM.SPLanguage.ReadString('captions','00034','');

end;

procedure Tfcash.FormResize(Sender: TObject);
begin
 if datam.sppushmodelid='1' then
   begin
    fcash.Width:=258;
    fcash.Height:=224;
   end else
    begin
     fcash.Width:=440;
     fcash.Height:=256;
    end;
end;
procedure Tfcash.but11Click(Sender: TObject);
begin
 edit1.Clear; 
end;

procedure Tfcash.but13Click(Sender: TObject);
begin
 self.Close;
 self.Release;  
end;

procedure Tfcash.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key<'0') or (key>'9') then key:=#0;
end;
procedure Tfcash.but1Click(Sender: TObject);
begin
 edit1.Text:=edit1.Text+but1.Caption;   
end;

procedure Tfcash.but2Click(Sender: TObject);
begin
 edit1.Text:=edit1.Text+but2.Caption;
end;

procedure Tfcash.but3Click(Sender: TObject);
begin
 edit1.Text:=edit1.Text+but3.Caption;
end;

procedure Tfcash.but4Click(Sender: TObject);
begin
 edit1.Text:=edit1.Text+but4.Caption;

end;

procedure Tfcash.but5Click(Sender: TObject);
begin
 edit1.Text:=edit1.Text+but5.Caption;

end;

procedure Tfcash.but6Click(Sender: TObject);
begin
 edit1.Text:=edit1.Text+but6.Caption;

end;
procedure Tfcash.but7Click(Sender: TObject);
begin
 edit1.Text:=edit1.Text+but7.Caption;
end;
procedure Tfcash.but8Click(Sender: TObject);
begin
 edit1.Text:=edit1.Text+but8.Caption;
end;
procedure Tfcash.but9Click(Sender: TObject);
begin
 edit1.Text:=edit1.Text+but9.Caption;
end;
procedure Tfcash.but10Click(Sender: TObject);
begin
 edit1.Text:=edit1.Text+but10.Caption;
end;
procedure Tfcash.but12Click(Sender: TObject);
Var cashdate,cashcount,cashtime:string;
begin
 if Trim(edit1.Text)='' then
  begin
   edit1.Text:='0';
  end else begin
     cashdate:=DateToStr(date);
     cashcount:=Trim(edit1.Text);
     cashtime:=TimeToStr(time);
     with datam.cashado do
      begin
       Close;
       SQL.Clear;
       SQL.Add('insert snredcash(cashdate,cashnu,cashtime,userid,idname) Values('''+cashdate+''','''+cashcount+''','''+cashtime+''','''+mainform.FLogoid+''','''+mainform.FLogouser+''')');
       ExecSQL;
      end;
   end;
   but13Click(Sender);
end;

end.