roommanage.~pas

我自己写的一个有关酒店管理系统的代码 大家

unit roommanage;

interface

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

type
  TRoomForm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    ComboBox1: TComboBox;
    Label4: TLabel;
    Edit3: TEdit;
    Label5: TLabel;
    Edit4: TEdit;
    Label6: TLabel;
    Edit5: TEdit;
    Label7: TLabel;
    Edit6: TEdit;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    ADOConnection1: TADOConnection;
    DataSource1: TDataSource;
    Edit7: TEdit;
    Label8: TLabel;
    DBImage1: TDBImage;
    ADOTable1: TADOTable;
    Button1: TButton;
    CheckBox3: TCheckBox;
    Label9: TLabel;
    Edit8: TEdit;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure ADOTable1AfterScroll(DataSet: TDataSet);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure initiate;
    procedure ReadFromTable;
    procedure SaveToTable;
  end;

var
  RoomForm: TRoomForm;
implementation
 uses main;
{$R *.dfm}

procedure TRoomForm.FormActivate(Sender: TObject);
begin
    initiate;
end;
procedure TRoomForm.initiate;
var
  adotable2:TadoTable;
begin
    adotable2:=Tadotable.Create(self);
    adotable2.Connection:=adoconnection1;
    adotable1.Connection:=adoconnection1;
    adotable2.TableName:='客房价格表';
    edit1.Text:='';
    edit2.Text:='';
    edit3.Text:='';
    edit3.Enabled:=false;
    edit3.TabStop:=false;
    edit4.Text:='';
    edit4.Enabled:=false;
    edit4.TabStop:=false;
    edit5.Text:='';
    edit5.Enabled:=false;
    edit5.TabStop:=false;
    edit6.Text:='';
    edit6.Enabled:=false;
    edit6.TabStop:=false;
    edit7.Text:='';
    edit8.Text:='0';
    combobox1.Text:='';
    dbgrid1.ReadOnly:=true;
    adotable2.active:=true;
    combobox1.items.Clear;
    while  not adotable2.Eof do
    begin
        combobox1.Items.add(AdoTable2.fieldbyname('客房等级').asstring);
        adotable2.Next;
    end;
    adotable1.active:=false;
    adotable1.TableName:='客房管理';
    datasource1.DataSet:=AdoTable1;
    adotable1.Active:=true;
    if adotable1.eof then
    begin
        bitbtn1.Enabled:=false;
        bitbtn3.Enabled:=false;
    end
    else
        ReadFromTable;
end;
procedure TRoomForm.BitBtn4Click(Sender: TObject);
begin
  close;
end;
procedure TRoomForm.ReadFromTable;
begin
    Edit1.Text:=AdoTable1.fieldByName('客房编号').asstring;
    Edit2.Text:=AdoTable1.fieldByName('客房位置').asstring;
    combobox1.Text:=AdoTable1.fieldByName('客房等级').asstring;
    Edit3.Text:=FloatToStr(AdoTable1.fieldByName('客房单价').asfloat);
    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;
    dbimage1.DataField:='客房图片';
end;
procedure TRoomform.SaveToTable;
begin
    AdoTable1.edit;
    AdoTable1.fieldByName('客房编号').asstring:=Edit1.Text;
    AdoTable1.fieldByName('客房位置').asstring:=Edit2.Text;
    AdoTable1.fieldByName('客房等级').asstring:=combobox1.Text;
    AdoTable1.fieldByName('客房单价').asfloat:=StrToFloat(Edit3.Text);
    AdoTable1.fieldByName('客房物品').asstring:=Edit4.Text;
    AdoTable1.fieldByName('操作日期').asDateTime:=StrToDate(Edit5.Text);
    AdoTable1.fieldByName('操作人').asstring:=Edit6.Text;
    AdoTable1.fieldByName('说明').asstring:=Edit7.Text;
    AdoTable1.fieldByName('可住人数').asinteger:=StrToInt(Edit8.Text);
    AdoTable1.fieldByName('保留标志').asboolean:=CheckBox1.checked;
    AdoTable1.fieldByName('使用标志').asboolean:=CheckBox2.checked;
    AdoTable1.fieldByName('钟点房标志').asboolean:=CheckBox3.checked;
    AdoTable1.Post;
end;

procedure TRoomForm.ADOTable1AfterScroll(DataSet: TDataSet);
begin
    if not adotable1.eof then
          ReadFromTable;
end;

procedure TRoomForm.BitBtn1Click(Sender: TObject);
begin
    SaveToTable;
end;

procedure TRoomForm.BitBtn3Click(Sender: TObject);
begin
    AdoTable1.delete;
    adoTable1.First;
end;

procedure TRoomForm.BitBtn2Click(Sender: TObject);
begin
    AdoTable1.append;
    edit5.text:=DateToStr(Date());
    edit6.text:=username;
    edit1.SetFocus;
    bitbtn1.Enabled:=true;
    bitbtn3.enabled:=true;
end;

procedure TRoomForm.Button1Click(Sender: TObject);
begin
    dbimage1.Picture.LoadFromClipboardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0);
end;

procedure TRoomForm.ComboBox1Change(Sender: TObject);
var
  adodataset1:Tadodataset;
  str:string;
begin
    adodataset1:=tadodataset.Create(self);
    adodataset1.Connection:=adoconnection1;
    adodataset1.commandtype:=cmdtext;
    str:=combobox1.items[combobox1.Itemindex];
    adodataset1.Parameters.AddParameter;
    adodataset1.Parameters[0].Name:='str';
    adodataset1.Parameters[0].DataType:=ftstring;
    adodataset1.Parameters[0].Direction:=pdinput;
    adodataset1.Parameters[0].Size:=2;
    adodataset1.Parameters[0].Value:=str;
    adodataset1.commandtext:='select * from 客房价格表 where 客房等级=:str';
    adodataset1.open;
    edit3.text:=adodataset1.fieldbyname('客房单价').asstring;
    edit4.text:=adodataset1.fieldbyname('客房物品').asstring;
    adodataset1.close;
end;

end.