roommodify.~pas

完成酒店管理系统

unit RoomModify;

interface

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

type
  TRoomModifyFrm = 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;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
  public
  RoomNum : Integer;
    { Public declarations }
  end;

var
  RoomModifyFrm: TRoomModifyFrm;

implementation

{$R *.dfm}

procedure TRoomModifyFrm.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:= '';
    EditName.SetFocus;
    end
    else
    begin

    ADOQuery1.Locate('房间号',StrNum,[loCaseInsensitive]);
    ADOQuery1.Edit;
    ADOQuery1.FieldValues['姓名']:= EditName.Text;
    ADOQuery1.FieldValues['房间号']:=StrNum;
    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;
    ShowMessage('已成功修改信息!');






    end;
end;

procedure TRoomModifyFrm.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.Enabled:= False;
    EditNumber.Enabled:= False;
    EditCheck.Enabled:= False;
    EditPrice.Enabled:= False;
    EditUnit.Enabled:= False;
    EditAccount.Enabled:= False;
    ComboBoxSort.Enabled:= False;
    ComboBoxRank.Enabled:= False;
    EditName.SetFocus;
end;

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

procedure TRoomModifyFrm.FormShow(Sender: TObject);
begin
    ADOQuery2.Locate('房间号',StrNum,[loCaseInsensitive]);
    EditRoomNum.Text:= ADOQuery2.FieldValues['房间号'];
    EditPrice.Text:= ADOQuery2.FieldValues['房价'];
    EditAccount.Text:= ADOQuery2.FieldValues['房价折扣'];
    EditNumber.Text:= ADOQuery2.FieldValues['住宿人数'];
    DateTimePickerDate.Date:= ADOQuery2.FieldValues['登记时间'];
    ComboBoxSort.Text:= ADOQuery2.FieldValues['旅客类别'];
    EditCheck.Text:= ADOQuery2.FieldValues['登记员'];
    EditUnit.Text:= ADOQuery2.FieldValues['招待单位'];
    ComboBoxRank.Text:= ADOQuery2.FieldValues['客房等级'];
    EditRoomNum.Enabled:= False;
    EditPrice.Enabled:= False;
    EditAccount.Enabled:= False;
    EditUnit.Enabled:= False;
    ComboBoxSort.Enabled:= False;
    ComboBoxRank.Enabled:= False;
    DateTimePickerDate.Enabled:= False;
    EditCheck.Enabled:= False;
    EditNumber.Enabled:= False;
    EditName.SetFocus;


end;

end.