roomtypemaut.pas

宾馆客房管理系统,功能强大,界面美观,全部delphi源代码

unit roomtypemaut;

interface

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

type
  Tftxgfm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ftado: TADOQuery;
    Label1: TLabel;
    kfbh: TLabeledEdit;
    kfzt: TComboBox;
    xgbt: TBitBtn;
    BitBtn1: TBitBtn;
    sxbt: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure xgbtClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ftxgfm: Tftxgfm;

implementation

{$R *.dfm}

procedure Tftxgfm.FormCreate(Sender: TObject);
begin
  with ftado do
    begin
      close;
      sql.Clear;
      sql.Add('select 客房编号,状态 from 客房信息表');
      open;
    end;
end;

procedure Tftxgfm.BitBtn1Click(Sender: TObject);
begin
close;
end;

procedure Tftxgfm.DBGrid1CellClick(Column: TColumn);
begin
kfbh.Text:=ftado.fieldbyname('客房编号').AsString;
kfzt.Text:=ftado.fieldbyname('状态').asstring;
end;

procedure Tftxgfm.xgbtClick(Sender: TObject);
begin
 if kfbh.Text='' then
 begin
 showmessage('请选择要修改的客房编号!');
 exit;
 end;
 with ftado do
   begin
     close;
     sql.Clear;
     sql.Add('update 客房信息表 set  状态=:zt where 客房编号=:kfbh');
     ftado.Parameters.ParamByName('zt').Value:=trim(kfzt.Text);
     Parameters.ParamByName('kfbh').Value:=trim(kfbh.Text);
     execsql;
     showmessage('修改成功!');
   end;
   sxbt.Click;
end;

end.