dinnermenu.~pas

完成酒店管理系统

unit DinnerMenu;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls;

type
  TDinnerMenuFrm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    GroupBox2: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    DBGrid1: TDBGrid;
    GroupBox3: TGroupBox;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    GroupBox4: TGroupBox;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    RadioButton9: TRadioButton;
    RadioButton10: TRadioButton;
    RadioButton11: TRadioButton;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure GroupBox3Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
    procedure RadioButton7Click(Sender: TObject);
    procedure RadioButton8Click(Sender: TObject);
    procedure RadioButton9Click(Sender: TObject);
    procedure RadioButton10Click(Sender: TObject);
    procedure RadioButton11Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DinnerMenuFrm: TDinnerMenuFrm;

implementation

uses DinnerMenuModify, DinnerMenuDel;

{$R *.dfm}

procedure TDinnerMenuFrm.Button1Click(Sender: TObject);
var
str : String;
begin
if  (RadioButton1.Checked = False) and  (RadioButton2.Checked = False) and
  (RadioButton3.Checked = False)  and  (RadioButton4.Checked = False) or
  (Edit1.Text = '') or (Edit2.Text = '') or (Edit3.Text = '') or
  (Edit4.Text = '') or (ComboBox1.Text = '')    then
  begin
  ShowMessage('输入信息不能为空,请重新输入信息!');
  Edit1.Text:= '';
  Edit2.Text:= '';
  Edit3.Text:= '';
  Edit4.Text:= '';
  Combobox1.Text:= '';
  RadioButton1.Checked:= False;
  RadioButton2.Checked:= False;
  RadioButton3.Checked:= False;
  RadioButton4.Checked:= False;
  Edit1.SetFocus;
  end
  else
  begin
  if  RadioButton1.Checked = True then
  str:= '热菜'
  else   if  RadioButton2.Checked = True then
  str:= '凉菜'
  else   if  RadioButton3.Checked = True then
  str:= '主食'
  else   if  RadioButton4.Checked = True then
  str:= '饮料';

  ADOQuery1.Append;
  ADOQuery1.FieldValues['种类']:= str;
  ADOQuery1.FieldValues['编号']:= Edit1.Text;
  ADOQuery1.FieldValues['名称']:= Edit2.Text;
  ADOQuery1.FieldValues['单价']:= Edit3.Text;
  ADOQuery1.FieldValues['备注']:= Edit4.Text;
  ADOQuery1.FieldValues['风味']:= ComboBox1.Text;
  ADOQuery1.Post;
  ShowMessage('添加成功!');
  end;




  end;

procedure TDinnerMenuFrm.Button4Click(Sender: TObject);
begin
Edit1.Text:= '';
Edit2.Text:= '';
Edit3.Text:= '';
Edit4.Text:= '';
Combobox1.Text:= '';
RadioButton1.Checked:= False;
RadioButton2.Checked:= False;
RadioButton3.Checked:= False;
RadioButton4.Checked:= False;
Edit1.SetFocus;
end;

procedure TDinnerMenuFrm.GroupBox3Click(Sender: TObject);
var
str: String;
begin
if RadioButton7.Checked = True then
str:= '编号'
else
 if   RadioButton8.Checked = True then
str:= '种类'
else
if   RadioButton9.Checked = True then
str:= '名称'
else
 if   RadioButton10.Checked = True then
str:= '单价'
else if   RadioButton11.Checked = True then
str:= '风味';
//ShowMessage(str);
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * From Menu Order By ' + str + ' Desc');
//ADOQuery1.SQL.Add('Select * From Menu Order By 单价 ' +  'Desc');
//ADOQuery1.SQL.Add('Select * From Menu Order By 单价  Desc ');
ADOQuery1.Open;
end;
procedure TDinnerMenuFrm.RadioButton5Click(Sender: TObject);
var
str: String;
begin
if RadioButton7.Checked = True then
str:= '编号'
else
 if   RadioButton8.Checked = True then
str:= '种类'
else
if   RadioButton9.Checked = True then
str:= '名称'
else
 if   RadioButton10.Checked = True then
str:= '单价'
else if   RadioButton11.Checked = True then
str:= '风味';
//ShowMessage(str);
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * From Menu Order By ' + str + ' Asc');
//ADOQuery1.SQL.Add('Select * From Menu Order By 单价 ' +  'Desc');
//ADOQuery1.SQL.Add('Select * From Menu Order By 单价  Desc ');
ADOQuery1.Open;
end;
procedure TDinnerMenuFrm.RadioButton7Click(Sender: TObject);
var
sort: String;
begin
if RadioButton5.Checked = True then
sort:= 'Asc'
else
if RadioButton6.Checked = True then
sort:= 'Desc';

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * From Menu Order By 编号 ' +  sort);
ADOQuery1.Open;

end;
procedure TDinnerMenuFrm.RadioButton8Click(Sender: TObject);
var
sort: String;
begin
if RadioButton5.Checked = True then
sort:= 'Asc'
else
if RadioButton6.Checked = True then
sort:= 'Desc';

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * From Menu Order By 种类 ' +  sort);
ADOQuery1.Open;

end;

procedure TDinnerMenuFrm.RadioButton9Click(Sender: TObject);
var
sort: String;
begin
if RadioButton5.Checked = True then
sort:= 'Asc'
else
if RadioButton6.Checked = True then
sort:= 'Desc';

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * From Menu Order By 名称 ' +  sort);
ADOQuery1.Open;

end;
procedure TDinnerMenuFrm.RadioButton10Click(Sender: TObject);
var
sort: String;
begin
if RadioButton5.Checked = True then
sort:= 'Asc'
else
if RadioButton6.Checked = True then
sort:= 'Desc';

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * From Menu Order By 单价 ' +  sort);
ADOQuery1.Open;

end;

procedure TDinnerMenuFrm.RadioButton11Click(Sender: TObject);
var
sort: String;
begin
if RadioButton5.Checked = True then
sort:= 'Asc'
else
if RadioButton6.Checked = True then
sort:= 'Desc';

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * From Menu Order By 风味 ' +  sort);
ADOQuery1.Open;

end;

procedure TDinnerMenuFrm.Button2Click(Sender: TObject);
begin
DinnerMenuModifyFrm.Show;
end;

procedure TDinnerMenuFrm.Button3Click(Sender: TObject);
begin
DinnerMenuDelFrm.Show;
end;

end.