unit13.pas

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

unit Unit13;

interface

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

type
  TForm13 = class(TForm)
    LvNeoForm1: TLvNeoForm;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Edit1: TEdit;
    Label1: TLabel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    LvNeoButton1: TLvNeoButton;
    LvNeoButton2: TLvNeoButton;
    LvNeoButton3: TLvNeoButton;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    ComboBox1: TComboBox;
    DataSource1: TDataSource;
    Table1: TTable;
    DataSource2: TDataSource;
    Table2: TTable;
    Label6: TLabel;
    Edit5: TEdit;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    LvNeoButton4: TLvNeoButton;
    LvNeoButton5: TLvNeoButton;
    LvNeoButton6: TLvNeoButton;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    ComboBox2: TComboBox;
    DataSource3: TDataSource;
    Table3: TTable;
    Table4: TTable;
    DataSource4: TDataSource;
    procedure FormCreate(Sender: TObject);
    procedure LvNeoButton1Click(Sender: TObject);
    procedure LvNeoButton2Click(Sender: TObject);
    procedure LvNeoButton3Click(Sender: TObject);
    procedure LvNeoButton4Click(Sender: TObject);
    procedure LvNeoButton5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form13: TForm13;

implementation

uses JGP;

{$R *.dfm}

procedure TForm13.FormCreate(Sender: TObject);
begin
groupbox1.Hide;
groupbox2.Hide;
lvneobutton2.Hide;
lvneobutton3.Hide;
groupbox3.hide;
groupbox4.Hide;;
lvneobutton6.Hide;;
lvneobutton5.Hide;
edit2.Text:='';
edit3.Text:='';
edit6.Text:='';
edit7.Text:='';
end;

procedure TForm13.LvNeoButton1Click(Sender: TObject);
begin
if edit1.Text='' then
messagebox(form13.Handle,'请输入菜名编号！','提示',mb_ok+mb_iconinformation)
else
begin
with table1 do
begin
table1.Open;
if findkey([edit1.text]) then
begin
groupbox1.Show;
groupbox2.Show;
lvneobutton2.show;
lvneobutton3.show;
edit2.Text:=table1.FieldValues['菜名'];
edit3.Text:=table1.FieldValues['菜类'];
end
else
begin
messagebox(form13.handle,'仓库里没有这种菜品！','提示',mb_ok+mb_iconinformation);
groupbox1.hide;
groupbox2.Hide;;
lvneobutton2.Hide;;
lvneobutton3.Hide;
edit2.Text:='';
edit3.Text:='';
end;
end;
end;
end;
procedure TForm13.LvNeoButton2Click(Sender: TObject);
begin
if edit1.Text='' then
messagebox(form13.Handle,'请输入菜名编号！','提示',mb_ok+mb_iconinformation)
else
if (edit2.Text='')or(edit3.Text='') then
messagebox(form13.handle,'请按“确定”按钮更新！','提示',mb_ok+mb_iconinformation)
else
if (edit4.Text='')or(combobox1.Text='') then
messagebox(handle,'请把“输入”中的两项填写完整！','提示',mb_ok+mb_iconinformation)
else
begin

with table2 do
begin
table2.Open;
if findkey([edit1.text]) then
begin
if messagebox(form13.handle,'这相菜品已经定价！','提示',mb_ok+mb_iconinformation)=mrok then
begin
edit1.Clear;
edit2.clear;
edit3.Clear;
edit4.Clear;
combobox1.Text:='';
end ;
end
else
begin
insert;
try
fieldbyname('菜名编号').AsString:=edit1.Text;
fieldbyname('菜名').AsString:=edit2.text;
fieldbyname('菜类').AsString:=edit3.Text;
fieldbyname('货品单位').AsString:=combobox1.Text;
fieldbyname('出售价').AsString:=edit4.Text;
if table2.active=true then
begin
if messagebox(form13.handle,'保存成功！','保存',mb_ok+mb_iconinformation)=mrok then
begin
edit1.clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
combobox1.Text:='';
end;
end;
post;
except
if messagebox(form13.handle,'数据输入有误！','提示',mb_ok+mb_iconwarning)=mrok then
begin
with table2 do
if findkey([edit1.text]) then
table2.Delete;
end;
end;
end;
end;
end;
end;





procedure TForm13.LvNeoButton3Click(Sender: TObject);
begin
form12.WindowState:=wsnormal;
form13.Close;
end;

procedure TForm13.LvNeoButton4Click(Sender: TObject);
begin
if edit5.Text='' then
messagebox(form13.Handle,'请输入酒水编号！','提示',mb_ok+mb_iconinformation)
else
begin
with table3 do
begin
table3.Open;
if findkey([edit5.text]) then
begin
groupbox3.Show;
groupbox4.Show;
lvneobutton5.show;
lvneobutton6.show;
edit6.Text:=table3.FieldValues['酒水名称'];
edit7.Text:=table3.FieldValues['酒类'];
end
else
begin
messagebox(form13.handle,'仓库里没有这种酒！','提示',mb_ok+mb_iconinformation);
groupbox3.hide;
groupbox4.Hide;;
lvneobutton6.Hide;;
lvneobutton5.Hide;
edit6.Text:='';
edit7.Text:='';
end;
end;
end;
end;

procedure TForm13.LvNeoButton5Click(Sender: TObject);
begin
if edit5.Text='' then
messagebox(form13.handle,'请输入酒水编号！','提示',mb_ok+mb_iconinformation)
else
if (edit6.Text='')or(edit7.Text='')then
messagebox(handle,'请按“确定”按钮更新！','提示',mb_ok+mb_iconinformation)
else
if (edit8.Text='')or(combobox2.Text='') then
messagebox(handle,'请把“输入”中的两项填写完整！','提示',mb_ok+mb_iconinformation)
else
begin

with table4 do
begin
table4.Open;
if findkey([edit5.text]) then
begin
if messagebox(form13.handle,'这相菜品已经定价！','提示',mb_ok+mb_iconinformation)=mrok then
begin
edit5.Clear;
edit6.clear;
edit7.Clear;
edit8.Clear;
combobox2.Text:='';
end ;
end
else
begin
insert;
try
fieldbyname('酒水编号').AsString:=edit5.Text;
fieldbyname('酒水名称').AsString:=edit6.text;
fieldbyname('酒类').AsString:=edit7.Text;
fieldbyname('货品单位').AsString:=combobox2.Text;
fieldbyname('出售价').AsString:=edit8.Text;
if table2.active=true then
begin
if messagebox(form13.handle,'保存成功！','保存',mb_ok+mb_iconinformation)=mrok then
begin
edit5.clear;
edit6.Clear;
edit7.Clear;
edit8.Clear;
combobox2.Text:='';
end;
end;
post;
except
if messagebox(form13.handle,'数据输入有误！','提示',mb_ok+mb_iconwarning)=mrok then
begin
with table4 do
if findkey([edit5.text]) then
table4.Delete;
end;
end;
end;
end;
end;
end;

procedure TForm13.FormShow(Sender: TObject);
begin
form13.Left:=218;
form13.Top:=97;
end;

end.