unit6.~pas

酒店住宿管理系统,有完整的文件和源码, 可以下载使用

//客房基本信息
//roommanage
unit Unit6;

interface

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

type
  Troommanage = class(TForm)
    ADOConnection1: TADOConnection;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    Label1: TLabel;
    Label3: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Edit7: TEdit;
    Edit5: TEdit;
    Edit4: TEdit;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    BitBtn4: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    Edit8: TEdit;
    Edit6: TEdit;
    Label7: TLabel;
    Label9: TLabel;
    Label4: TLabel;
    Edit3: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    ADOTable2: TADOTable;
    ADODataSet1: TADODataSet;
    BitBtn5: TBitBtn;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    ComboBox2: TComboBox;
    GroupBox2: TGroupBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    BitBtn6: TBitBtn;
    Label5: TLabel;
    Edit12: TEdit;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
//    Label10: TLabel;
    procedure ADOTable1AfterScroll(DataSet: TDataSet);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure Edit16Change(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
 //   procedure Label10Click(Sender: TObject);
    //procedure Edit1Change(Sender: TObject);
    //procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure ReadFromTable;
    //procedure edit1to8enablefalse;
    //procedure edit11to16enabletrue;
    //procedure edit11to16enablefalse;
    procedure edit1to8visiblefalse;
    procedure edit1to8visibletrue;
    procedure edit11to16visiblefalse;
    procedure edit11to16visibletrue;
    procedure initiate;
    procedure savetotable;
    procedure edit9savetoedit1;
    procedure edit1savetoedit9;
    procedure editnulltrueorfalse;
    procedure bitbtn78910enablefalse;
    procedure bitbtn78910enabletrue;
  end;

var
  roommanage: Troommanage;
  str:string;
implementation

uses Unit1;

{$R *.dfm}
procedure Troommanage.bitbtn78910enablefalse;
begin
bitbtn7.Enabled:=false;
bitbtn8.Enabled:=false;
bitbtn9.Enabled:=false;
bitbtn10.Enabled:=false;

end;

procedure Troommanage.bitbtn78910enabletrue;
begin
bitbtn7.Enabled:=true;
bitbtn8.Enabled:=true;
bitbtn9.Enabled:=true;
bitbtn10.Enabled:=true;

end;
procedure Troommanage.editnulltrueorfalse;
begin

end;

procedure Troommanage.edit1savetoedit9;
begin
edit9.Text:=edit1.Text;
edit10.Text:=edit2.Text;
edit11.Text:=edit3.Text;
edit12.Text:=edit4.Text;
edit13.Text:=edit5.Text;
edit14.Text:=edit6.Text;
edit15.Text:=edit7.Text;
edit16.Text:=edit8.Text;
combobox2.Text:=combobox1.Text;
if checkbox1.Checked=true then
checkbox4.Checked:=true
else
checkbox4.Checked:=false;
if checkbox2.Checked=true then
checkbox5.Checked:=true
else
checkbox5.Checked:=false;
if checkbox3.Checked=true then
checkbox6.Checked:=true
else
checkbox6.Checked:=false;

end;
procedure Troommanage.edit9savetoedit1;
begin
edit1.Text:=edit9.Text;
edit2.Text:=edit10.Text;
edit3.Text:=edit11.Text;
edit4.Text:=edit12.Text;
edit5.Text:=edit13.Text;
edit6.Text:=edit14.Text;
edit7.Text:=edit15.Text;
edit8.Text:=edit16.Text;
combobox1.Text:=combobox2.Text;
if checkbox4.Checked=true then
checkbox1.Checked:=true
else
checkbox1.Checked:=false;
if checkbox5.Checked=true then
checkbox2.Checked:=true
else
checkbox2.Checked:=false;
if checkbox6.Checked=true then
checkbox3.Checked:=true
else
checkbox3.Checked:=false;

end;

procedure Troommanage.savetotable;
begin
AdoTable1.edit;
AdoTable1.fieldByName('客房编号').asstring:=Edit1.Text;
AdoTable1.fieldByName('客房位置').asstring:=Edit2.Text;
AdoTable1.fieldByName('客房等级').asstring:=combobox2.Text;
AdoTable1.fieldByName('客房单价').AsInteger:=StrToint(Edit11.Text);
AdoTable1.fieldByName('客房物品').asstring:=Edit12.Text;
AdoTable1.fieldByName('操作日期').asDateTime:=StrToDate(Edit13.Text);
AdoTable1.fieldByName('操作人').asstring:=Edit14.Text;
AdoTable1.fieldByName('说明').asstring:=Edit15.Text;
AdoTable1.fieldByName('可住人数').asinteger:=StrToInt(Edit16.Text);
AdoTable1.fieldByName('保留标志').asboolean:=CheckBox4.checked;
AdoTable1.fieldByName('使用标志').asboolean:=CheckBox5.checked;
AdoTable1.fieldByName('钟点房标志').asboolean:=CheckBox6.checked;
AdoTable1.Post;
end;
procedure Troommanage.edit1to8visiblefalse;
begin
edit1.Visible:=false;
edit2.Visible:=false;
edit3.Visible:=false;
edit4.Visible:=false;
edit5.Visible:=false;
edit6.Visible:=false;
edit7.Visible:=false;
edit8.Visible:=false;
combobox1.Visible:=false;
groupbox1.Visible:=false;
checkbox1.Visible:=false;
checkbox2.Visible:=false;
checkbox3.Visible:=false;
end;

procedure Troommanage.edit1to8visibletrue;
begin
edit1.Visible:=true;
edit2.Visible:=true;
edit3.Visible:=true;
edit4.Visible:=true;
edit5.Visible:=true;
edit6.Visible:=true;
edit7.Visible:=true;
edit8.Visible:=true;
combobox1.Visible:=true;
groupbox1.Visible:=true;
checkbox1.Visible:=true;
checkbox2.Visible:=true;
checkbox3.Visible:=true;
end;

procedure Troommanage.edit11to16visiblefalse;
begin
edit9.Visible:=false;
edit10.Visible:=false;
edit11.Visible:=false;
edit12.Visible:=false;
edit13.Visible:=false;
edit14.Visible:=false;
edit15.Visible:=false;
edit16.Visible:=false;
combobox2.Visible:=false;
groupbox2.Visible:=false;
checkbox4.Visible:=false;
checkbox5.Visible:=false;
checkbox6.Visible:=false;
end;

procedure Troommanage.edit11to16visibletrue;
begin
edit9.Visible:=true;
edit10.Visible:=true;
edit11.Visible:=true;
edit12.Visible:=true;
edit13.Visible:=true;
edit14.Visible:=true;
edit15.Visible:=true;
edit16.Visible:=true;
combobox2.Visible:=true;
groupbox2.Visible:=true;
checkbox4.Visible:=true;
checkbox5.Visible:=true;
checkbox6.Visible:=true;
end;


procedure TRoommanage.ReadFromTable;
begin
    Edit1.Text:=AdoTable1.fieldByName('客房编号').asstring;
    Edit2.Text:=AdoTable1.fieldByName('客房位置').asstring;
    combobox1.Text:=AdoTable1.fieldByName('客房等级').asstring;
    Edit3.Text:=intToStr(AdoTable1.fieldByName('客房单价').AsInteger);
    Edit4.Text:=AdoTable1.fieldByName('客房物品').asstring;
    Edit5.Text:=DateToStr(AdoTable1.fieldByName('操作日期').asDateTime);
    Edit6.Text:=AdoTable1.fieldByName('操作人').asstring;
    Edit7.Text:=AdoTable1.fieldByName('说明').asstring;
    Edit8.Text:=IntToStr(AdoTable1.fieldByName('可住人数').asInteger);
    CheckBox1.checked:=AdoTable1.fieldByName('保留标志').asboolean;
    CheckBox2.checked:=AdoTable1.fieldByName('使用标志').asboolean;
    CheckBox3.checked:=AdoTable1.fieldByName('钟点房标志').asboolean;

end;

procedure Troommanage.initiate;

begin
    adotable2:=Tadotable.Create(self);
    adotable2.Connection:=adoconnection1;
    adotable1.Connection:=adoconnection1;
    adotable2.TableName:='客房价格表';
    edit9.Text:='';
    edit10.Text:='';
    edit11.Text:='';
    edit11.Enabled:=false;
    //edit11.TabStop:=false;
    edit12.Text:='';
    edit12.Enabled:=false;
    //edit12.TabStop:=false;
    edit13.Text:=datetostr(now);
    edit13.Enabled:=false;
    //edit13.TabStop:=false;
    edit14.Text:=denglu.usename;
    edit14.Enabled:=false;
    //edit14.TabStop:=false;
    edit15.Text:='';
    edit16.Text:='1';
    combobox2.Text:='';
    dbgrid1.ReadOnly:=true;
    adotable2.active:=true;
    combobox2.items.Clear;
    while  not adotable2.Eof do
    begin
        combobox2.Items.add(AdoTable2.fieldbyname('客房等级').asstring);

        adotable2.Next;
    end;
    adotable2.Close;
    adotable1.active:=false;
    adotable1.TableName:='客房管理';
    datasource1.DataSet:=AdoTable1;
    adotable1.Active:=true;
    //label10.Caption:=inttostr(adotable1.RecNo);
    //if adotable1.eof then
    //begin
        //bitbtn1.Enabled:=false;
        //bitbtn3.Enabled:=false;
    //end
    //else
        ReadFromTable;
end;

procedure Troommanage.ADOTable1AfterScroll(DataSet: TDataSet);
begin

ReadFromTable;



end;

procedure Troommanage.FormCreate(Sender: TObject);
begin
adotable1.Active:=true;
//adotable1.First;
edit1to8visibletrue;
edit11to16visiblefalse;
bitbtn1.Enabled:=false;
bitbtn2.Enabled:=false;
bitbtn3.Enabled:=true;
bitbtn4.Enabled:=true;
bitbtn5.Enabled:=true;
bitbtn6.Enabled:=true;
end;

procedure Troommanage.FormActivate(Sender: TObject);
begin
if adotable1.RecordCount=0 then
begin
bitbtn78910enablefalse;
bitbtn4.Enabled:=false;
bitbtn5.Enabled:=false;
showmessage('已无客房基本信息！');
exit;
end;
initiate;
if ADOTable1.Recordset.RecordCount>0 then
ReadFromTable;

end;

procedure Troommanage.ComboBox2Change(Sender: TObject);