dinnerordersql.~pas

完成酒店管理系统

unit DinnerOrderSql;

interface

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

type
  TDinnerOrderSqlFrm = 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;
    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);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DinnerOrderSqlFrm: TDinnerOrderSqlFrm;

implementation

{$R *.dfm}

procedure TDinnerOrderSqlFrm.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 = '付款方式')   then
  ADOQuery1.SQL.Add('Select * From DinnerOrder Where ' +ComboBox1.Text+
  ComboBox2.Text+'"'+Edit1.Text+'"')
  else
  ADOQuery1.SQL.Add('Select * From DinnerOrder Where ' + ComboBox1.Text +
  ComboBox2.Text+Edit1.Text);

ADOQuery1.Open;
end;
end;


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

procedure TDinnerOrderSqlFrm.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:= '预定时间';
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * From DinnerOrder Order By ' +  str + ' Asc');
ADOQuery1.Open;
end;

procedure TDinnerOrderSqlFrm.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:= '预定时间';
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * From DinnerOrder Order By ' +  str + ' Desc');
ADOQuery1.Open;
end;

procedure TDinnerOrderSqlFrm.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 DinnerOrder Order By 订单编号 ' +  sort);
ADOQuery1.Open;

end;


procedure TDinnerOrderSqlFrm.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 DinnerOrder Order By 顾客姓名 ' +  sort);
ADOQuery1.Open;

end;
procedure TDinnerOrderSqlFrm.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 DinnerOrder Order By 订餐时间 ' +  sort);
ADOQuery1.Open;

end;
procedure TDinnerOrderSqlFrm.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 DinnerOrder Order By 预定时间 ' +  sort);
ADOQuery1.Open;

end;

end.