roomprice.~pas

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

unit roomprice;

interface

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

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;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Query1: TQuery;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure Query1AfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure initiate;
    procedure LoadFromTable;
    procedure SaveToTable;
  end;

var
  RoomPriceForm: TRoomPriceForm;
  sign:integer;
implementation
  uses main;
{$R *.dfm}

procedure TRoomPriceForm.FormActivate(Sender: TObject);
begin
        initiate;
        sign:=0;
        if query1.RecordCount>0 then
              LoadFromTable;
end;
procedure TRoomPriceForm.initiate;
begin
      Edit1.Text:='';
      Edit2.Text:='0';
      Edit3.Text:='';
      Edit4.Text:=DateToStr(Date());
      Edit4.Enabled:=false;
      datasource1.DataSet:=query1;
      query1.SQL.Clear;
      query1.SQL.add('select * from room');
      query1.open;
end;
procedure TRoomPriceForm.BitBtn2Click(Sender: TObject);
begin
    query1.Close;
    close;
end;
procedure TRoomPriceForm.LoadFromTable;
begin
    Edit1.Text:=query1.fieldbyname('roomclass').asstring;
    Edit2.Text:=IntToStr(query1.fieldbyname('roomprice').asInteger);
    Edit3.Text:=query1.fieldbyname('roomgoods').asstring;
    Edit4.Text:=DateToStr(query1.fieldbyname('oper_date').asDateTime);
    dbgrid1.Fields[0].DisplayLabel:='客房等级';
    dbgrid1.Fields[1].DisplayLabel:='客房单价';
    dbgrid1.Fields[2].DisplayLabel:='客房物品';
    dbgrid1.Fields[3].DisplayLabel:='操作日期';
    dbgrid1.Fields[4].DisplayLabel:='操作员';
end;

procedure TRoomPriceForm.BitBtn3Click(Sender: TObject);
begin
      sign:=1;
      Edit1.Text:='';
      Edit2.Text:='0';
      Edit3.Text:='';
      edit4.Text:=datetostr(date());
      Edit1.setfocus;
end;
procedure TRoomPriceForm.SaveToTable;
begin
      query1.RequestLive:=true; 
      if sign=1 then
      begin
          query1.SQL.Clear;
          query1.SQL.add('insert into room values(:roomclass,:roomprice,:roomgoods,:oper_date,:operator)');
          query1.ParamByName('roomclass').asstring:=edit1.Text;
          query1.ParamByName('roomprice').asinteger:=StrToInt(edit2.Text);
          query1.ParamByName('roomgoods').asstring:=edit3.Text;
          query1.ParamByName('oper_date').asdatetime:=StrToDate(edit4.Text);
          query1.ParamByName('operator').asstring:=username;
          query1.ExecSQL;
      end
      else
      begin
          query1.Edit;
          query1.FieldByName('roomclass').asstring:=edit1.Text;
          query1.FieldByName('roomprice').asInteger:=StrToInt(edit2.Text);
          query1.FieldByName('roomgoods').asstring:=edit3.Text;
          query1.FieldByName('oper_date').asDateTime:=StrToDate(edit4.Text);
          query1.FieldByName('operator').asstring:=username;
          query1.Post;
      end;
      query1.SQL.clear;
      query1.SQL.Add('select * from room');
      query1.open;
      sign:=0;
end;

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

procedure TRoomPriceForm.BitBtn4Click(Sender: TObject);
begin
    query1.Delete;
    query1.First;
end;

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

end.