dinnerorder.~pas

完成酒店管理系统

unit DinnerOrder;

interface

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

type
  TDinnerOrderFrm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    ComboBox1: TComboBox;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    GroupBox3: TGroupBox;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
    procedure RadioButton6Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DinnerOrderFrm: TDinnerOrderFrm;

implementation

uses DinnerOrderModify, DinnerOrderDel;

{$R *.dfm}

procedure TDinnerOrderFrm.Button1Click(Sender: TObject);
begin
if (Edit1.Text = '') or (Edit2.Text = '') or (Edit3.Text = '') or
  (Edit4.Text = '') or (ComboBox1.Text = '') or (Edit5.Text = '')
  or (Edit6.Text = '') or (Edit7.Text = '')   then
  ShowMessage('输入信息不能为空,请重新输入信息!')
  else
  begin


  ADOQuery1.Append;
  ADOQuery1.FieldValues['订单编号']:= Edit1.Text;
  ADOQuery1.FieldValues['顾客姓名']:= Edit2.Text;
  ADOQuery1.FieldValues['预定金额']:= Edit3.Text;
  ADOQuery1.FieldValues['订餐时间']:= DateTimePicker1.Date;
  ADOQuery1.FieldValues['预定时间']:= DateTimePicker2.Date;
  ADOQuery1.FieldValues['餐桌编号']:= Edit4.Text;
  ADOQuery1.FieldValues['联系电话']:= Edit5.Text;
  ADOQuery1.FieldValues['用餐人数']:= Edit6.Text;
  ADOQuery1.FieldValues['付款方式']:= ComboBox1.Text;
  ADOQuery1.FieldValues['备注']:= Edit7.Text;
  ADOQuery1.Post;
  ShowMessage('添加成功!');
  end;




  end;

procedure TDinnerOrderFrm.Button4Click(Sender: TObject);
begin
Edit1.Text:= '';
Edit2.Text:= '';
Edit3.Text:= '';
Edit4.Text:= '';
Edit5.Text:= '';
Edit6.Text:= '';
ComboBox1.Text:= '';
Edit7.Text:= '';

Edit1.SetFocus;
end;

procedure TDinnerOrderFrm.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 TDinnerOrderFrm.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 TDinnerOrderFrm.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 TDinnerOrderFrm.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;
procedure TDinnerOrderFrm.Button3Click(Sender: TObject);
begin
DinnerOrderModifyFrm.Show;
end;

procedure TDinnerOrderFrm.Button2Click(Sender: TObject);
begin
DinnerOrderDelFrm.Show;
end;

procedure TDinnerOrderFrm.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 TDinnerOrderFrm.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;
end.