unt_roomprice.pas

本软件为宾馆管理系统软件

unit unt_RoomPrice;

interface

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

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

var
  RoomPriceForm: TRoomPriceForm;

implementation
uses Main,unt_CheckUser;
{$R *.dfm}

procedure TRoomPriceForm.LoadFromTable();
begin
  Edit1.Text := mainForm.query1.fieldbyname('roomclass').AsString;
  Edit2.Text := mainForm.query1.fieldbyname('roomprice').AsString;
  Edit3.Text := mainForm.query1.fieldbyname('roomgoods').AsString;
  Edit4.Text := mainForm.query1.fieldbyname('oper_date').AsString;
end;

procedure TRoomPriceForm.BitBtn4Click(Sender: TObject);
begin
  RoomPriceForm.Close;
end;

procedure TRoomPriceForm.FormShow(Sender: TObject);
var
  sSql: String;
begin
  ADOTable1.Active := True;
  sSql := 'select * from room';
  mainForm.exeSql(mainForm.query1,sSql,'1');
  if mainForm.query1.RecordCount = 0 then
    BitBtn3.Enabled := False;
  BitBtn1.Enabled := False;
end;

procedure TRoomPriceForm.BitBtn2Click(Sender: TObject);
begin
  Edit1.Text := '';
  Edit2.Text := '';
  Edit3.Text := '';
  Edit4.Text := '';
  BitBtn1.Enabled := True;
end;

procedure TRoomPriceForm.ADOTable1AfterScroll(DataSet: TDataSet);
var
  sSql: String;
begin
  sSql := 'select * from room where roomclass=''' + DBGrid1.Fields[0].AsString + '''';
  mainForm.exeSql(mainForm.query1,sSql,'1');
  LoadFromTable;
end;

procedure TRoomPriceForm.BitBtn3Click(Sender: TObject);
var
  sSql: String;
begin
  sSql := 'delete from room where roomclass=''' + Edit1.Text + '''';
  mainForm.exeSql(mainForm.query1,sSql,'2');
  ShowMessage('删除记录成功');
  ADOTable1.Active := False;
  ADOTable1.Active := True;
end;

procedure TRoomPriceForm.BitBtn1Click(Sender: TObject);
var
  sSql: String;
begin
  sSql := 'select * from room where roomclass=''' + Edit1.Text + '''';
  mainForm.exeSql(mainForm.query1,sSql,'1');
  if mainForm.query1.RecordCount = 0 then
  begin
    sSql := 'insert into room values(' + Edit1.Text + ',''' + Edit2.Text
          + ''',''' + Edit3.Text + ''',''' + Edit4.Text + ''',''' + Main.username + ''')';
  end
  else
  begin
    sSql := 'update room set roomprice=' + Edit2.Text + ',roomgoods='''
          + Edit3.Text + ''',oper_date=''' + Edit4.Text + ''',operator=''' + Main.username
          + ''' where roomclass=''' + Edit1.Text + '''';
  end;
  mainForm.exeSql(mainForm.query1,sSql,'2');
  ShowMessage('修改成功');
  ADOTable1.Active := False;
  ADOTable1.Active := True;
end;

procedure TRoomPriceForm.Edit1Change(Sender: TObject);
begin
  BitBtn1.Enabled := True;
end;

procedure TRoomPriceForm.Edit2Change(Sender: TObject);
begin
  BitBtn1.Enabled := True;
end;

procedure TRoomPriceForm.Edit3Change(Sender: TObject);
begin
  BitBtn1.Enabled := True;
end;

procedure TRoomPriceForm.Edit4Change(Sender: TObject);
begin
  BitBtn1.Enabled := True;
end;

end.