roomedit.pas

完成酒店管理系统

unit RoomEdit;

interface

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

type
  TRoomEditFrm = 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;
    Button1: TButton;
    Button2: TButton;
    ComboBoxSex: TComboBox;
    ComboBoxPro: TComboBox;
    Button3: TButton;
    ADOQuery1: TADOQuery;
    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;
    Button4: TButton;
    ComboBoxSort: TComboBox;
    ADOQuery2: TADOQuery;
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  RoomEditFrm: TRoomEditFrm;

implementation

{$R *.dfm}

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

procedure TRoomEditFrm.Button2Click(Sender: TObject);
begin
EditRoomNum.Text:= '';
EditPrice.Text:= '';
EditAccount.Text:= '';
EditNumber.Text:= '';
ComboBoxSort.Text:= '';
EditCheck.Text:= '';
EditUnit.Text:= '';
ComboBoxRank.Text:= '';
EditRoomNum.SetFocus;
end;

procedure TRoomEditFrm.Button1Click(Sender: TObject);
begin

    ADOQuery2.Locate('房间号',EditRoomNum.Text,[loCaseInsensitive]);
    ADOQuery2.Edit;
    ADOQuery2.FieldValues['住宿人数']:= EditNumber.Text;
    ADOQuery2.FieldValues['旅客类别']:= ComboBoxSort.Text;
    ADOQuery2.FieldValues['登记员']:= UserName;
    ADOQuery2.FieldValues['招待单位']:= EditUnit.Text;
    ADOQuery2.Post;
    ShowMessage('已成功修改信息!');


    end;


procedure TRoomEditFrm.FormShow(Sender: TObject);
begin
   ADOQuery1.Locate('姓名',StrName,[locaseInsensitive]);
   EditName.Text:=ADOQuery1.FieldValues['姓名'];
   EditReason.Text:=ADOQuery1.FieldValues['住宿理由'];
   ComboBoxSex.Text:=ADOQuery1.FieldValues['性别'];
   EditAge.Text:= ADOQuery1.FieldValues['年龄'];
   EditNum.Text:= ADOQuery1.FieldValues['证件号码'];
   ComboBoxPro.Text:= ADOQuery1.FieldValues['职业'];
   ComboBoxName.Text:= ADOQuery1.FieldValues['证件名称'];
   EditFrom.Text:= ADOQuery1.FieldValues['从何而来'];
   EditTo.Text:= ADOQuery1.FieldValues['到何而去'];
   MemoRea.Text:= ADOQuery1.FieldValues['备注'];
   DateTimePickerTime.Date:= ADOQuery1.FieldValues['离店日期'];
   EditReason.Enabled:= False;
   EditName.Enabled:= False;
   ComboBoxSex.Enabled:= False;
   EditAge.Enabled:= False;
   EditNum.Enabled:= False;
   ComboBoxPro.Enabled:= False;
   DateTimePickerTime.Enabled:= False;
   EditFrom.Enabled:= False;
   EditTo.Enabled:= False;
   MemoRea.Enabled:= False;
   ComboBoxPro.Enabled:= False;
   ComboBoxName.Enabled:= False;
end;

procedure TRoomEditFrm.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.