touristnew.pas

完成酒店管理系统

unit TouristNew;

interface

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

type
  TTouristNewFrm = class(TForm)
    Label18: TLabel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    EditName: TEdit;
    EditReason: TEdit;
    EditAge: TEdit;
    EditNum: TEdit;
    DateTimePickerTime: TDateTimePicker;
    ComboBoxName: TComboBox;
    EditFrom: TEdit;
    EditTo: TEdit;
    MemoRea: TMemo;
    GroupBox2: TGroupBox;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    EditRoomNum: TEdit;
    EditPrice: TEdit;
    EditAccount: TEdit;
    EditNumber: TEdit;
    DateTimePickerDate: TDateTimePicker;
    EditCheck: TEdit;
    EditUnit: TEdit;
    ComboBoxRank: TComboBox;
    Button1: TButton;
    Button2: TButton;
    ComboBoxSex: TComboBox;
    ComboBoxPro: TComboBox;
    ComboBoxSort: TComboBox;
    Button3: TButton;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    Button4: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  TouristNewFrm: TTouristNewFrm;

implementation

{$R *.dfm}

procedure TTouristNewFrm.Button2Click(Sender: TObject);
begin
EditName.Text:= '' ;
    ComboBoxSex.Text:= '';
    EditAge.Text:= '';
    ComboBoxPro.Text:= '';
    EditFrom.Text:= '';
    EditTo.Text:= '';
    EditReason.Text:= '';
    ComboBoxName.Text:= '';
    EditNum.Text:= '';
    MemoRea.Text:= '';
    EditRoomNum.Text:= '';
    EditNumber.Text:= '';
    EditCheck.Text:= '';
    EditPrice.Text:= '';
    EditUnit.Text:= '';
    EditAccount.Text:= '';
    ComboBoxSort.Text:= '';
    ComboBoxRank.Text:= '';
    EditName.SetFocus;
end;

procedure TTouristNewFrm.Button3Click(Sender: TObject);
begin
Close;
end;

procedure TTouristNewFrm.Button1Click(Sender: TObject);
begin
if (EditName.Text = '' ) or (ComboBoxSex.Text = '') or ( EditAge.Text = '') or
  (ComboBoxPro.Text = '' ) or (ComboBoxName.Text = '') or (EditNum.Text = '') then
    begin
    ShowMessage('数据不能为空，请重新输入!') ;
    EditName.Text:= '' ;
    ComboBoxSex.Text:= '';
    EditAge.Text:= '';
    ComboBoxPro.Text:= '';
    EditFrom.Text:= '';
    EditTo.Text:= '';
    EditReason.Text:= '';
    ComboBoxName.Text:= '';
    EditNum.Text:= '';
    MemoRea.Text:= '';
    EditRoomNum.Text:= '';
    EditNumber.Text:= '';
    EditCheck.Text:= '';
    EditPrice.Text:= '';
    EditUnit.Text:= '';
    EditAccount.Text:= '';
    ComboBoxSort.Text:= '';
    ComboBoxRank.Text:= '';
    EditName.SetFocus;
    end
    else
    begin
    //添加用户信息
    ADOQuery1.Append;
    ADOQuery1.FieldValues['房间号']:= EditRoomNum.Text;
    ADOQuery1.FieldValues['姓名']:= EditName.Text;
    ADOQuery1.FieldValues['性别']:= ComboBoxSex.Text;
    ADOQuery1.FieldValues['年龄']:= EditAge.Text;
    ADOQuery1.FieldValues['职业']:= ComboBoxPro.Text;
    ADOQuery1.FieldValues['从何而来']:= EditFrom.Text;
    ADOQuery1.FieldValues['到何而去']:= EditTo.Text;
    ADOQuery1.FieldValues['住宿理由']:= EditReason.Text;
    ADOQuery1.FieldValues['证件名称']:= ComboBoxName.Text;
    ADOQuery1.FieldValues['证件号码']:= EditNum.Text;
    ADOQuery1.FieldValues['离店日期']:=DateTimePickerTime.Date;
    ADOQuery1.FieldValues['备注']:= MemoRea.Text;
    ADOQuery1.Post;
    ADOQuery1.Refresh;
    //修改客房信息

    ADOQuery2.Locate('房间号',EditRoomNum.Text,[locaseInsensitive]);
    ADOQuery2.Edit;
    ADOQuery2.FieldValues['住宿人数']:= EditNumber.Text;
    ADOQuery2.FieldValues['登记时间']:= DateTimePickerDate.Date;
    ADOQuery2.FieldValues['招待单位']:= EditUnit.Text;
    ADOQuery2.FieldValues['旅客类别']:= ComboBoxSort.Text;
    ADOQuery2.FieldValues['登记员']:= UserPower;
    ADOQuery2.Post;
    ADOQuery2.Refresh;
    ShowMessage('已成功注册!');


    end;
end;

procedure TTouristNewFrm.Button4Click(Sender: TObject);

begin
if EditRoomNum.Text = '' then
begin
ShowMessage('房间号不能为空，请输入房间号！');
EditRoomNum.SetFocus;
end
else
begin
ADOQuery2.Locate('房间号',EditRoomNum.Text,[locaseInsensitive]);
EditPrice.Text:= ADOQuery2.FieldValues['房价'];
EditAccount.Text:= ADOQuery2.FieldValues['房价折扣'];
ComboBoxRank.Text:= ADOQuery2.FieldValues['客房等级'];
EditCheck.Text:= UserName;
end;
end;

end.