unitroomstatusrequery.pas

来自「自己做过的工程」· PAS 代码 · 共 94 行

unit unitroomstatusrequery;

interface

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

type
  Tformroomstatusrequery = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    PageControl2: TPageControl;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    ed_onuse: TEdit;
    ed_leasure: TEdit;
    ed_book: TEdit;
    ed_forbid: TEdit;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    but_roomquery: TButton;
    GroupBox1: TGroupBox;
    cbBox_roomstatus: TComboBox;
    StaticText5: TStaticText;
    StaticText6: TStaticText;
    DataSource1: TDataSource;
    procedure TabSheet1Show(Sender: TObject);
    procedure but_roomqueryClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formroomstatusrequery: Tformroomstatusrequery;

implementation
        uses unitDMHotel;
{$R *.dfm}

procedure Tformroomstatusrequery.TabSheet1Show(Sender: TObject);
var
leasure:integer;
onuse:integer;
book:integer;
forbid:integer;
statusid:integer;
begin
        DMhotel.ADODataSet_roomstatus_requery.Close;
        DMhotel.ADODataSet_roomstatus_requery.Prepared:=false;
        DMhotel.ADODataSet_roomstatus_requery.CommandText:='select * from room_status';
        DMhotel.ADODataSet_roomstatus_requery.Prepared:=true;
        DMhotel.ADODataSet_roomstatus_requery.Open;
        leasure:=0;
        onuse:=0;
        book:=0;
        forbid:=0;
        while not DMhotel.ADODataSet_roomstatus_requery.Eof do
                begin
                        statusid:=DMhotel.ADODataSet_roomstatus_requery.FieldValues['statusid'];
                         case statusid of
                                1:
                                leasure:=leasure+1;
                                2:
                                book:=book+1;
                                3:
                                onuse:=onuse+1;
                                4:
                                forbid:=forbid+1;
                         end;
                     DMhotel.ADODataSet_roomstatus_requery.Next;

                end;

        //将取得的状态房间数写到控件中
        ed_leasure.Text:=inttostr(leasure);
        ed_onuse.Text:=inttostr(onuse);
        ed_book.Text:=inttostr(book);
        ed_forbid.Text:=inttostr(forbid);

end;

procedure Tformroomstatusrequery.but_roomqueryClick(Sender: TObject);
begin
        DMHotel.RoomStatusQuery(cbBox_roomstatus.Text);
end;

end.