unit2.~pas

东莞小肥羊火锅店收银系统,能实现前台收银记帐管理,快速的点菜系统,和桌号管理系统 是一般餐饮店首选程序

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,shellapi, DB, ADODB, se_controls, KsSkinForms,
  KsSkinEngine, SUIButton, SUIEdit, SUIImagePanel, SUIGroupBox, ExtCtrls,
  SUIForm;

type
  Tdingtai = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    ADOTable1: TADOTable;
    suiForm1: TsuiForm;
    GroupBox1: TsuiGroupBox;
    Edit1: TsuiEdit;
    Edit2: TsuiEdit;
    Edit3: TsuiEdit;
    Edit4: TsuiEdit;
    Edit5: TsuiEdit;
    button1: TsuiButton;
    procedure FormShow(Sender: TObject);
    procedure suitempButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dingtai: Tdingtai;
  liushuihao:string;
implementation
  uses Unit1;
{$R *.dfm}
//function CreateGUID(out Guid: TGUID): HResult;




procedure Tdingtai.FormShow(Sender: TObject);

begin
Randomize;
edit2.Text:='';
edit3.Text:='';
edit1.Text:=inttostr(random(9))+inttostr(random(9))+inttostr(random(9))+inttostr(random(9))+inttostr(random(9))+inttostr(random(9))+inttostr(random(9))+inttostr(random(9))+inttostr(random(9))+inttostr(random(9))+inttostr(random(9))+inttostr(random(9));
edit4.text:=datetimetostr(date);

edit5.text:=timetostr(Time);
end;

procedure Tdingtai.suitempButton1Click(Sender: TObject);
begin
if (edit1.Text ='') or (edit2.text ='')or(edit5.text ='') or (edit3.text ='')or  (edit4.text='')or(edit5.text='') then
begin
showmessage('请输入完整的信息');
end
else
begin
adotable1.Active:=true;
adotable1.Open;
adotable1.Append;
adotable1.fields.fieldbyname('流水号').asstring:=edit1.text;
adotable1.fields.fieldbyname('台号').asstring:=edit2.text;
adotable1.fields.fieldbyname('客人数量').asstring:=edit3.text;
adotable1.fields.fieldbyname('日期').asstring:=edit4.text;
adotable1.fields.fieldbyname('时间').asstring:=edit5.text;
adotable1.Post;
adotable1.Close;
adotable1.Active:=false;
showmessage(edit2.text+'台号'+'添加成功');
form1.adotable1.Active:=false;
form1.adotable1.Active:=true;
dingtai.close;
end;

end;
end.