unit5.pas

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

unit Unit5;

interface

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

type
  TForm5 = class(TForm)
    Label10: TLabel;
    suiForm1: TsuiForm;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    Label3: TLabel;
    ComboBox2: TComboBox;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    suiButton1: TsuiButton;
    ADOTable1: TADOTable;
    ADOTable2: TADOTable;
    ADOTable3: TADOTable;
    Label9: TLabel;
    procedure FormShow(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm5.FormShow(Sender: TObject);
begin
label1.Caption:=form1.suidbedit2.text;
ComboBox1.Items.Clear;
adotable1.Active:=true;
adotable2.Active:=true;
adotable2.first;
while not adotable2.eof do
begin
ComboBox1.Items.Add(adotable2.fields.fieldbyname('菜类').asstring);
adotable2.Next;
end;
adotable2.Active:=false;
end;

procedure TForm5.ComboBox1Change(Sender: TObject);
begin
if combobox1.text<>'' then
begin
ComboBox2.Items.Clear;
adotable3.Active:=true;
adotable3.first;
while not adotable3.eof do
begin
if combobox1.text=adotable3.fields.fieldbyname('菜类').asstring then
begin
ComboBox2.Items.Add(adotable3.fields.fieldbyname('菜名').asstring);
end;
adotable3.Next;
end;
adotable3.Active:=false;
end;
end;
procedure TForm5.ComboBox2Change(Sender: TObject);
begin
if combobox2.text<>'' then
begin
adotable3.Active:=true;
adotable3.first;
while not adotable3.eof do
begin
if combobox2.text=adotable3.fields.fieldbyname('菜名').asstring then
begin
label5.Caption:=adotable3.fields.fieldbyname('价格').asstring;
end;
adotable3.Next;
end;
adotable3.Active:=false;
end;
 
end;

procedure TForm5.Edit1Change(Sender: TObject);
begin
if (edit1.Text <>'') and(label5.Caption<>'') then
begin
label8.Caption:=inttostr(strtoint(label5.Caption)*strtoint(edit1.text));
end;
end;

procedure TForm5.suiButton1Click(Sender: TObject);
begin
if (edit1.text ='') or (combobox1.text ='') or (ComboBox2.text ='') or (label1.caption='')then
begin
showmessage('你没写完整或者没有选择台号!');
end
else
begin
adotable1.Active:=true;
adotable1.Open;
adotable1.Append;
adotable1.fields.fieldbyname('菜名').asstring:=combobox2.text;
adotable1.fields.fieldbyname('金额').asstring:=label8.Caption;
adotable1.fields.fieldbyname('数量').asstring:=edit1.text;
adotable1.fields.fieldbyname('流水号').asstring:=form1.suiDBEdit1.text;
adotable1.fields.fieldbyname('台号').asstring:=form1.suiDBEdit2.text;
adotable1.fields.fieldbyname('日期').asstring:=datetimetostr(date);
adotable1.fields.fieldbyname('时间').asstring:=timetostr(Time);
adotable1.Post;
adotable1.Close;
adotable1.Active:=false;
label9.caption:='台号:'+form1.suiDBEdit2.text+' 名称:'+combobox2.Text+'添加成功';
edit1.Text:='';
label8.Caption:='';
if form1.suidbedit1.Text<>'' then
begin
form1.ADOTable2.Active:=false;
form1.ADOTable2.Active:=true;
form1.adotable2.Filtered:=false;
form1.adotable2.Filtered:=true;
end;

end;
end;
end.