unit6.~pas

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

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, SUIDBCtrls, DB, ADODB, StdCtrls, ExtCtrls,
  SUIForm, SUIButton, FR_PTabl;

type
  TForm6 = class(TForm)
    ADOTable2: TADOTable;
    DataSource1: TDataSource;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    suiForm1: TsuiForm;
    suiDBGrid1: TsuiDBGrid;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    ADOTable1: TADOTable;
    suiButton3: TsuiButton;
    frPrintGrid1: TfrPrintGrid;
    procedure FormShow(Sender: TObject);
    procedure ADOTable2FilterRecord(DataSet: TDataSet;
      var Accept: Boolean);
    procedure suiButton1Click(Sender: TObject);
    procedure suiButton3Click(Sender: TObject);
    procedure suiButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation
 uses Unit1;
{$R *.dfm}

procedure TForm6.FormShow(Sender: TObject);
begin

if form1.suiDBEdit1.text<>'' then
begin
label2.Caption:=form1.suiDBEdit2.Text;
label4.Caption:=form1.suiDBEdit1.Text;
ADOTable2.Active:=true;
adotable2.Filtered:=false;
adotable2.Filtered:=true;
end;
end;

procedure TForm6.ADOTable2FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
if adotable2.fieldbyname('流水号').AsString=form1.suidbedit1.text then
begin
accept:=true;
end
else
begin
accept:=false;
end;
end;

procedure TForm6.suiButton1Click(Sender: TObject);
var
jisu:integer;
begin
jisu:=0;
try
adotable2.first;
while not adotable2.eof do
begin
jisu:=jisu+strtoint(adotable2.fieldbyname('金额').asstring);
Label6.Caption:=inttostr(jisu);
adotable2.Next;
end;
except
showmessage('处理异常,或无点菜');
exit;
end;
end;

procedure TForm6.suiButton3Click(Sender: TObject);
begin
if label6.Caption<>'' then
begin
frprintgrid1.PageHeader.Text:='东莞市长安镇小肥羊火锅店'+form1.suiDBEdit2.Text+'号台金额共计:'+label6.Caption+'元 (以下为清单:)';
frprintgrid1.showReport;

end
else
begin
showmessage('请先计算总金额后再打印!');
end;
end;

procedure TForm6.suiButton2Click(Sender: TObject);
begin
if label6.Caption<>'' then
begin
adotable1.Active:=true;
adotable1.Open;
adotable1.Append;
adotable1.fields.fieldbyname('流水号').asstring:=form1.suiDBEdit1.text;
adotable1.fields.fieldbyname('台号').asstring:=form1.suiDBEdit2.text;
adotable1.fields.fieldbyname('客人数量').asstring:=form1.suiDBEdit3.text;
adotable1.fields.fieldbyname('日期').asstring:=form1.suiDBEdit5.text;
adotable1.fields.fieldbyname('时间').asstring:=form1.suiDBEdit6.text;
adotable1.fields.fieldbyname('金额').asstring:=label6.Caption;
adotable1.Post;
adotable1.Close;
adotable1.Active:=false;
adotable2.first;
while not adotable2.eof do
begin
try
adotable2.delete;
adotable2.Next;
adotable2.delete;
except

end;
end;
try
form1.adotable1.Delete;
except

end;
showmessage(label2.Caption+'号台付帐完成!');
label6.Caption:='';
form6.Close;
end
else
begin
showmessage('请先计算总金额后再结帐!');
end;
end;

end.