dinneruser.~pas

完成酒店管理系统

unit DinnerUser;

interface

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

type
  TDinnerUserFrm = 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;
    ComboBox1: TComboBox;
    Edit3: TEdit;
    Edit4: TEdit;
    ComboBox2: TComboBox;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    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;
    DateTimePicker1: TDateTimePicker;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(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 Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DinnerUserFrm: TDinnerUserFrm;

implementation

uses DinnerUserModify, DinnerUserDel;

{$R *.dfm}

procedure TDinnerUserFrm.Button1Click(Sender: TObject);
begin
if (Edit1.Text = '') or (Edit2.Text = '') or (ComboBox1.Text = '') or
  (Edit3.Text = '')  or (ComboBox2.Text = '') or (Edit4.Text = '') or
  (Edit5.Text = '') or (Edit6.Text = '')   or (Edit7.Text = '')  then
begin
ShowMessage('数据不能为空!请重新输入!');
Edit1.Text:= '';
Edit2.Text:= '';
Edit3.Text:= '';
Edit4.Text:= '';
Edit5.Text:= '';
Edit6.Text:= '';
Edit7.Text:= '';
ComboBox1.Text:= '';
ComboBox2.Text:= '';
Edit1.SetFocus;
end
else
begin
ADOQuery1.Append;
ADOQuery1.FieldValues['用户编号']:= Edit1.Text;
ADOQuery1.FieldValues['用户姓名']:= Edit2.Text;
ADOQuery1.FieldValues['性别']:= ComboBox1.Text;
ADOQuery1.FieldValues['证件号码']:= Edit3.Text;
ADOQuery1.FieldValues['注册时间']:= DateTimePicker1.Date;
ADOQuery1.FieldValues['级别']:= ComboBox2.Text;
ADOQuery1.FieldValues['欠款']:= Edit4.Text;
ADOQuery1.FieldValues['联系电话']:= Edit5.Text;
ADOQuery1.FieldValues['地址']:= Edit6.Text;
ADOQuery1.FieldValues['备注']:= Edit7.Text;
ADOQuery1.Post;
DBGrid1.Refresh;

ShowMessage('添加成功!');
end;
end;

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

procedure TDinnerUserFrm.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 DinnerUser Order By ' +  str + ' Asc');
ADOQuery1.Open;


end;

procedure TDinnerUserFrm.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 DinnerUser Order By ' +  str + ' Desc');
ADOQuery1.Open;


end;


procedure TDinnerUserFrm.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 DinnerUser Order By 用户编号 ' +  sort);
ADOQuery1.Open;

end;


procedure TDinnerUserFrm.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 DinnerUser Order By 用户姓名 ' +  sort);
ADOQuery1.Open;

end;
procedure TDinnerUserFrm.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 DinnerUser Order By 级别 ' +  sort);
ADOQuery1.Open;

end;

procedure TDinnerUserFrm.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 DinnerUser Order By 注册时间 ' +  sort);
ADOQuery1.Open;

end;

procedure TDinnerUserFrm.Button2Click(Sender: TObject);
begin
DinnerUserModifyFrm.Show;
end;

procedure TDinnerUserFrm.Button3Click(Sender: TObject);
begin
DinnerUserDelFrm.Show;
end;

end.