dinnermenusql.~pas

完成酒店管理系统

unit DinnerMenuSql;

interface

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

type
  TDinnerMenuSqlFrm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edit1: TEdit;
    GroupBox2: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    GroupBox3: TGroupBox;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
    procedure RadioButton6Click(Sender: TObject);
    procedure RadioButton7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DinnerMenuSqlFrm: TDinnerMenuSqlFrm;

implementation

{$R *.dfm}

procedure TDinnerMenuSqlFrm.Button1Click(Sender: TObject);
begin
if (Edit1.Text = '') or  (ComboBox1.Text = '') or  (ComboBox2.Text = '')  then
  begin
  ShowMessage('数据不能全为空，请重新输入信息！');
  ComboBox1.SetFocus;
  end
  else
  begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  if (ComboBox1.Text = '种类') or  (ComboBox1.Text = '名称') or
  (ComboBox1.Text = '风味')  then
  ADOQuery1.SQL.Add('Select * From DinnerMenu Where ' +ComboBox1.Text+
  ComboBox2.Text+'"'+Edit1.Text+'"')
  else
  ADOQuery1.SQL.Add('Select * From DinnerMenu Where ' + ComboBox1.Text +
  ComboBox2.Text+Edit1.Text);

ADOQuery1.Open;
end;
end;


procedure TDinnerMenuSqlFrm.Button2Click(Sender: TObject);
begin
ComboBox1.Text:= '';
ComboBox2.Text:= '';
Edit1.Text:= '';
ComboBox1.SetFocus;
end;

procedure TDinnerMenuSqlFrm.RadioButton1Click(Sender: TObject);
var
str: String;
begin
if RadioButton3.Checked = True then
str:= '编号'
else
 if   RadioButton4.Checked = True then
str:= '种类'
else
if   RadioButton5.Checked = True then
str:= '名称'
else
 if   RadioButton6.Checked = True then
str:= '单价'
else
if   RadioButton5.Checked = True then
str:= '风味';
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * From Menu  Order By ' +  str + ' Asc');
ADOQuery1.Open;
end;
procedure TDinnerMenuSqlFrm.RadioButton2Click(Sender: TObject);
var
str: String;
begin
if RadioButton3.Checked = True then
str:= '编号'
else
 if   RadioButton4.Checked = True then
str:= '种类'
else
if   RadioButton5.Checked = True then
str:= '名称'
else
 if   RadioButton6.Checked = True then
str:= '单价'
else
if   RadioButton7.Checked = True then
str:= '风味';
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * From Menu  Order By ' +  str + ' Desc');
ADOQuery1.Open;
end;

procedure TDinnerMenuSqlFrm.RadioButton3Click(Sender: TObject);
var
sort: String;
begin
if RadioButton1.Checked = True then
sort:= 'Asc'
else
if RadioButton2.Checked = True then
sort:= 'Desc';

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

procedure TDinnerMenuSqlFrm.RadioButton4Click(Sender: TObject);
var
sort: String;
begin
if RadioButton1.Checked = True then
sort:= 'Asc'
else
if RadioButton2.Checked = True then
sort:= 'Desc';

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * From Menu Order By 种类 ' +  sort);
ADOQuery1.Open;
end;
procedure TDinnerMenuSqlFrm.RadioButton5Click(Sender: TObject);
var
sort: String;
begin
if RadioButton1.Checked = True then
sort:= 'Asc'
else
if RadioButton2.Checked = True then
sort:= 'Desc';

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

procedure TDinnerMenuSqlFrm.RadioButton6Click(Sender: TObject);
var
sort: String;
begin
if RadioButton1.Checked = True then
sort:= 'Asc'
else
if RadioButton2.Checked = True then
sort:= 'Desc';

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

procedure TDinnerMenuSqlFrm.RadioButton7Click(Sender: TObject);
var
sort: String;
begin
if RadioButton1.Checked = True then
sort:= 'Asc'
else
if RadioButton2.Checked = True then
sort:= 'Desc';

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