roomprice.~pas

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

unit roomprice;

interface

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

type
  TRoomPriceForm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure ADOTable1AfterScroll(DataSet: TDataSet);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure initiate;
    procedure LoadFromTable;
    procedure SaveToTable;
  end;

var
  RoomPriceForm: TRoomPriceForm;

implementation

{$R *.dfm}

procedure TRoomPriceForm.FormActivate(Sender: TObject);
begin
        initiate;
        if ADOTable1.Recordset.RecordCount>0 then
              LoadFromTable;
end;
procedure TRoomPriceForm.initiate;
begin
      Edit1.Text:='';
      Edit2.Text:='0';
      Edit3.Text:='';
      Edit4.Text:=DateToStr(Date());
      Edit4.Enabled:=false;
      AdoTable1.Active:=false;
      AdoTable1.TableName:='客房价格表';
      AdoTable1.Active:=true;
end;
procedure TRoomPriceForm.BitBtn2Click(Sender: TObject);
begin
    AdoTable1.Close;
    close;
end;
procedure TRoomPriceForm.LoadFromTable;
begin
    Edit1.Text:=AdoTable1.fieldbyname('客房等级').asstring;
    Edit2.Text:=IntToStr(AdoTable1.fieldbyname('客房单价').asInteger);
    Edit3.Text:=AdoTable1.fieldbyname('客房物品').asstring;
    Edit4.Text:=DateToStr(AdoTable1.fieldbyname('日期').asDateTime);
end;

procedure TRoomPriceForm.ADOTable1AfterScroll(DataSet: TDataSet);
begin
   LoadFromTable;
end;

procedure TRoomPriceForm.BitBtn3Click(Sender: TObject);
begin
      AdoTable1.Append;
      Edit1.Text:='';
      Edit2.Text:='0';
      Edit3.Text:='';
      edit4.Text:=datetostr(date());
      Edit1.setfocus;
end;
procedure TRoomPriceForm.SaveToTable;
begin
      AdoTable1.Edit;
      AdoTable1.FieldByName('客房等级').asstring:=edit1.Text;
      AdoTable1.FieldByName('客房单价').asInteger:=StrToInt(edit2.Text);
      AdoTable1.FieldByName('客房物品').asstring:=edit3.Text;
      AdoTable1.FieldByName('日期').asDateTime:=StrToDate(edit4.Text);
      AdoTable1.Post;
end;

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

procedure TRoomPriceForm.BitBtn4Click(Sender: TObject);
begin
    AdoTable1.Delete;
    AdoTable1.Recordset.MoveFirst;   
end;

end.