unit14.pas

重庆秦妈火锅城管理系统 1.0版

unit Unit14;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, Grids, DBGrids, LvNeoButton, StdCtrls, ComCtrls,
  ExtCtrls, LvNeoForm;

type
  TForm14 = class(TForm)
    LvNeoForm1: TLvNeoForm;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    Table1: TTable;
    Table2: TTable;
    Memo1: TMemo;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    ComboBox1: TComboBox;
    LvNeoButton3: TLvNeoButton;
    DataSource3: TDataSource;
    Table3: TTable;
    StatusBar1: TStatusBar;
    LvNeoButton1: TLvNeoButton;
    LvNeoButton6: TLvNeoButton;
    LvNeoButton2: TLvNeoButton;
    LvNeoButton7: TLvNeoButton;
    LvNeoButton8: TLvNeoButton;
    Edit4: TEdit;
    Edit5: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    memo2: TMemo;
    LvNeoButton4: TLvNeoButton;
    LvNeoButton5: TLvNeoButton;
    Label5: TLabel;
    TabSheet3: TTabSheet;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    LvNeoButton9: TLvNeoButton;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    RichEdit1: TRichEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    LvNeoButton10: TLvNeoButton;
    LvNeoButton11: TLvNeoButton;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Edit15: TEdit;
    Edit16: TEdit;
    Edit17: TEdit;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Edit18: TEdit;
    Edit19: TEdit;
    Edit20: TEdit;
    Edit21: TEdit;
    LvNeoButton12: TLvNeoButton;
    procedure LvNeoButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure LvNeoButton2Click(Sender: TObject);
    procedure LvNeoButton4Click(Sender: TObject);
    procedure LvNeoButton3Click(Sender: TObject);
    procedure LvNeoButton7Click(Sender: TObject);
    procedure LvNeoButton8Click(Sender: TObject);
    procedure LvNeoButton6Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure LvNeoButton9Click(Sender: TObject);
    procedure LvNeoButton10Click(Sender: TObject);
    procedure LvNeoButton11Click(Sender: TObject);
    procedure LvNeoButton5Click(Sender: TObject);
    procedure LvNeoButton12Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form14: TForm14;
  a,b,d:integer;
c,qq:string;
aa:integer;
c1,c2,c3,c4:integer;
implementation

uses JGP, Unit15;

{$R *.dfm}

procedure TForm14.LvNeoButton1Click(Sender: TObject);
begin
if combobox1.Text='' then
messagebox(handle,'请选择台桌号!','提示',mb_ok+mb_iconinformation)
else
begin
combobox1.Enabled:=false;
with table1 do
//edit;
//while not table1.Eof do
edit1.Text:=table1.FieldValues['菜名'];
edit2.Text:=table1.FieldValues['出售价'];
//listbox1.Items.add(table1.FieldValues['出售价']);
c:=inputbox('请输入','数量','1');
a:=strtoint(c);
b:=strtoint(edit2.Text);
d:=a*b;

memo1.Text:=memo1.Text+edit1.Text+c+'份  共'+inttostr(d)+'元'+#13#10;
aa:=d+aa;
end;
end;
procedure TForm14.FormCreate(Sender: TObject);
begin
form14.WindowState:=wsMaximized;
edit1.Hide;
edit2.Hide;
edit4.Hide;
edit5.Hide;
edit10.Hide;
edit11.Hide;
edit12.Hide;
edit13.Hide;
edit18.Hide;
edit19.Hide;
edit20.Hide;
edit21.Hide;

d:=0;
aa:=0;
end;

procedure TForm14.LvNeoButton2Click(Sender: TObject);
var luoyi:integer;
begin
if radiobutton1.Checked=true then
qq:=edit15.Text
else
if radiobutton2.Checked=true then
qq:=edit16.Text
else
if radiobutton3.Checked=true then
qq:=edit17.Text
else
qq:='0';
luoyi:=aa+strtoint(qq)+strtoint(edit18.Text)+strtoint(edit19.Text)+strtoint(edit20.Text)+strtoint(edit21.Text);
edit3.Text:=inttostr(luoyi);

end;

procedure TForm14.LvNeoButton4Click(Sender: TObject);
begin
if combobox1.Text='' then
messagebox(handle,'请选择台号，否则不能保存!','提示',mb_ok+mb_iconinformation)
else
if edit3.Text='' then
messagebox(handle,'请计算总价，否则不能保存!','提示',mb_ok+mb_iconinformation)
else
if memo1.Text='' then
messagebox(handle,'请点菜后再保存!','提示',mb_ok+mb_iconinformation)
else
if richedit1.Text='' then
messagebox(handle,'请选择一种锅料再保存','提示',mb_ok+mb_iconinformation)
else
begin
with table3 do
begin
table3.Open;
insert;
fieldbyname('台桌号').AsString:=combobox1.Text;
fieldbyname('总金额').AsString:=edit3.Text;
fieldbyname('点菜清单').AsString:=memo1.Text;
fieldbyname('酒水清单').AsString:=memo2.Text;
fieldbyname('佐料谱').AsString:=richedit1.Text+edit10.Text+edit11.Text+edit12.Text+edit13.Text;
fieldbyname('点菜日期').AsString:=datetostr(date);
fieldbyname('点菜时间').AsString:=timetostr(time);
post;
if  messagebox(form14.Handle,'保存成功!','保存',mb_ok+mb_iconinformation)=mrok then
begin
combobox1.Enabled:=true;
combobox1.Text:='';
memo1.Clear;
memo2.Clear;
edit3.Clear;
end;
end;
end;
end;

procedure TForm14.LvNeoButton3Click(Sender: TObject);
begin
memo1.Clear;
edit3.clear;
d:=0;
end;

procedure TForm14.LvNeoButton7Click(Sender: TObject);
begin
if combobox1.Text='' then
messagebox(handle,'请选择台号!','提示',mb_ok+mb_iconinformation)
else
begin
combobox1.Enabled:=false;
with table2 do
edit4.Text:=table2.FieldValues['酒水名称'];
edit5.Text:=table2.FieldValues['出售价'];
c:=inputbox('请输入','数量','1');
a:=strtoint(c);
b:=strtoint(edit5.Text);
d:=a*b;

memo2.Text:=memo2.Text+edit4.Text+c+'瓶  共'+inttostr(d)+'元'+#13#10;
aa:=d+aa;
end;
end;
procedure TForm14.LvNeoButton8Click(Sender: TObject);
begin
memo2.Clear;
d:=0;
end;

procedure TForm14.LvNeoButton6Click(Sender: TObject);
begin
form14.Close;
form12.WindowState:=wsNormal;
memo1.Clear;
memo2.Clear;
richedit1.Clear;
edit10.Clear;
edit10.Hide;
edit11.Clear;
edit11.Hide;
edit12.Clear;
edit12.Hide;
edit13.Clear;
edit13.Hide;
combobox1.Text:='';

end;

procedure TForm14.RadioButton1Click(Sender: TObject);
begin
//it1.Clear;
richedit1.Text:=radiobutton1.Caption+':10元';
end;

procedure TForm14.RadioButton2Click(Sender: TObject);
begin
//richedit1.Clear;
richedit1.Text:=radiobutton2.Caption+':15元';
end;

procedure TForm14.RadioButton3Click(Sender: TObject);
begin
//richedit1.Clear;
richedit1.Text:=radiobutton3.Caption+':20元';
end;

procedure TForm14.CheckBox1Click(Sender: TObject);
var a:string;
b,c:integer;
quantity:integer;
begin
if checkbox1.Checked=true then
begin

edit10.Show;
a:=inputbox('请输入','数量','1');
quantity:=strtoint(a);
b:=strtoint(edit6.Text);
c1:=quantity*b;
edit18.Text:=inttostr(c1);
edit10.Text:=checkbox1.Caption+a+'份：'+inttostr(c1)+'元';
end
else
begin
edit18.Text:='0';
edit10.Clear;
edit10.Hide;
end;
end;

procedure TForm14.CheckBox2Click(Sender: TObject);
var a:string;
b,c:integer;
quantity:integer;
begin
if checkbox2.Checked=true then
begin
edit11.Show;
a:=inputbox('请输入','数量','1');
quantity:=strtoint(a);
b:=strtoint(edit7.Text);
c2:=quantity*b;
edit19.Text:=inttostr(c2);
edit11.Text:=checkbox2.Caption+a+'份：'+floattostr(c2)+'元';
end
else
begin
edit19.Text:='0';
edit11.Clear;
edit11.Hide;
end;

end;

procedure TForm14.CheckBox3Click(Sender: TObject);
var a:string;
b,c:integer;
quantity:integer;
begin
if checkbox3.Checked=true then
begin
edit12.Show;
a:=inputbox('请输入','数量','1');
quantity:=strtoint(a);
b:=strtoint(edit8.Text);
c3:=quantity*b;
edit20.Text:=inttostr(c3);
edit12.Text:=checkbox3.Caption+a+'份：'+inttostr(c3)+'元';
end
else
begin
edit20.Text:='0';
edit12.Clear;
edit12.Hide;
end;
end;

procedure TForm14.CheckBox4Click(Sender: TObject);
var a:string;
b,c:integer;
quantity:integer;
begin
if checkbox4.Checked=true then
begin
edit13.Show;
a:=inputbox('请输入','数量','1');
quantity:=strtoint(a);
b:=strtoint(edit9.Text);
c4:=quantity*b;
edit21.Text:=inttostr(c4);
edit13.Text:=checkbox4.Caption+a+'份：'+floattostr(c4)+'元';
end
else
begin
edit21.Text:='0';
edit13.Clear;
edit13.Hide;
end;
end;

procedure TForm14.LvNeoButton9Click(Sender: TObject);
begin
qq:='0';
edit18.Text:='0';
edit19.Text:='0';
edit20.Text:='0';
edit21.Text:='0';
richedit1.Clear;
edit10.Clear;
edit10.Hide;
edit11.Clear;
edit11.Hide;
edit12.Clear;
edit12.Hide;
edit13.Clear;
edit13.Hide;
end;

procedure TForm14.LvNeoButton10Click(Sender: TObject);
begin
edit6.Enabled:=true;
edit7.Enabled:=true;
edit8.Enabled:=true;
edit9.Enabled:=true;

edit15.Enabled:=true;
edit16.Enabled:=true;
edit17.Enabled:=true;

end;

procedure TForm14.LvNeoButton11Click(Sender: TObject);
begin
edit6.Enabled:=false;
edit7.Enabled:=false;
edit8.Enabled:=false;
edit9.Enabled:=false;
edit15.Enabled:=false;
edit16.Enabled:=false;
edit17.Enabled:=false;

end;

procedure TForm14.LvNeoButton5Click(Sender: TObject);
begin
form15.Table1.Open;
form15.ShowModal;

end;

procedure TForm14.LvNeoButton12Click(Sender: TObject);
begin
aa:=0;
qq:='0';
edit18.Text:='0';
edit19.Text:='0';
edit20.Text:='0';
edit21.Text:='0';
end;

end.