unit1.pas

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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, KsSkinEngine, se_controls, KsSkinForms, Grids, DBGrids, DB,
  ADODB, StdCtrls, Mask, DBCtrls, SUIDBCtrls, SUIButton, Menus, SUIMainMenu,
  KsSkinItems, KsSkinMenus, XPMenu;

type
  TForm1 = class(TForm)
    SeSkinEngine1: TSeSkinEngine;
    SeSkinForm1: TSeSkinForm;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ADOTable2: TADOTable;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    suiDBEdit1: TsuiDBEdit;
    Label2: TLabel;
    suiDBEdit2: TsuiDBEdit;
    Label3: TLabel;
    suiDBEdit3: TsuiDBEdit;
    Label5: TLabel;
    suiDBEdit5: TsuiDBEdit;
    Label6: TLabel;
    suiDBEdit6: TsuiDBEdit;
    GroupBox2: TGroupBox;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    suiButton3: TsuiButton;
    suiButton4: TsuiButton;
    suiButton5: TsuiButton;
    suiDBGrid1: TsuiDBGrid;
    Label8: TLabel;
    DataSource2: TDataSource;
    suiButton6: TsuiButton;
    Label9: TLabel;
    Edit1: TEdit;
    Label10: TLabel;
    DBText1: TDBText;
    suiButton7: TsuiButton;
    DBText2: TDBText;
    DBText3: TDBText;
    suiButton8: TsuiButton;
    suiButton9: TsuiButton;
    ADOTable5: TADOTable;
    Label4: TLabel;
    Label7: TLabel;
    Label11: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
    procedure suiButton8Click(Sender: TObject);
    procedure suiButton9Click(Sender: TObject);
    procedure suiButton2Click(Sender: TObject);
    procedure ADOTable2FilterRecord(DataSet: TDataSet;
      var Accept: Boolean);
    procedure suiDBEdit1Change(Sender: TObject);
    procedure suiButton7Click(Sender: TObject);
    procedure suiButton5Click(Sender: TObject);
    procedure suiButton4Click(Sender: TObject);
    procedure suiButton3Click(Sender: TObject);
    procedure suiButton6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+extractfilepath(application.ExeName)+'data\data.mdb;Jet OLEDB:Database Password=hongyi521';
ADOConnection1.Connected:=true;
adotable1.Active:=true;
adotable2.Active:=true;
end;

procedure TForm1.suiButton1Click(Sender: TObject);
begin
dingtai.ShowModal;
end;

procedure TForm1.suiButton8Click(Sender: TObject);
begin
form3.ShowModal;
end;

procedure TForm1.suiButton9Click(Sender: TObject);
begin
form4.ShowModal;
end;

procedure TForm1.suiButton2Click(Sender: TObject);
begin
form5.ShowModal;
end;

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

end;

procedure TForm1.suiDBEdit1Change(Sender: TObject);
var jisu:integer;
begin
if ADOConnection1.Connected<>false then
begin
adotable2.Filtered:=false;
adotable2.Filtered:=true;
edit1.Text:='';
end;
end;

procedure TForm1.suiButton7Click(Sender: TObject);
var
jisu:integer;
begin
 jisu:=0;
adotable2.first;
while not adotable2.eof do
begin
jisu:=jisu+strtoint(adotable2.fieldbyname('金额').asstring);
edit1.text:=inttostr(jisu);
adotable2.Next;
end;
end;

procedure TForm1.suiButton5Click(Sender: TObject);
begin
if application.messagebox(pchar('你确定要退掉'+DBtext2.Caption+'台的'+DBtext3.Caption+'吗'),'删除确认',mb_yesno+mb_iconinformation)=IDYES then
begin
adotable2.Delete;
end;
end;

procedure TForm1.suiButton4Click(Sender: TObject);
begin
if application.messagebox(pchar('你确定要取消'+suidbedit2.text+'台吗?如果该台已点菜并且未付帐,取消台后点菜记录也会清除'),'删除确认',mb_yesno+mb_iconinformation)=IDYES then
begin
adotable2.first;
while not adotable2.eof do
begin
try
adotable2.delete;
adotable2.Next;
adotable2.delete;
except

end;
end;
try
adotable1.Delete;
except

end;
end;
end;


procedure TForm1.suiButton3Click(Sender: TObject);
begin
form6.ShowModal;
end;

procedure TForm1.suiButton6Click(Sender: TObject);
begin
form7.ShowModal;
end;

end.