frm_room_nouseu.~pas

学生公寓管理系统 很好的设计 呵呵 绝对很好

unit frm_room_nouseU;

interface

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

type
  Tfrm_room_nouse = class(TForm)
    DBGrid_info: TDBGrid;
    DataSource_info: TDataSource;
    btn_close: TButton;
    cbx_houseNo_s: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    lab_sum: TLabel;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btn_closeClick(Sender: TObject);
    procedure cbx_houseNo_sChange(Sender: TObject);
  private
    { Private declarations }
  public
    //填充公寓号
    procedure FillHouseIDForSearch;
    //刷新数据
    procedure FillData;
  end;

var
  frm_room_nouse: Tfrm_room_nouse;

implementation
{$R *.dfm}
procedure Tfrm_room_nouse.FillData;
var
  ADOQuery:TADOQuery;
  sum:integer;
begin
ADOQuery:=GetNoUseInRoom(self.cbx_houseNo_s.Text);
self.DataSource_info.DataSet:= ADOQuery;
ADOQuery.First;
sum:=0;
while not ADOQuery.Eof do
  begin
    sum:=sum+ADOQuery.FieldByName('空床数').Value;
    ADOQuery.Next;
  end;
self.lab_sum.Caption:=inttostr(sum)+' 个';

end;
procedure Tfrm_room_nouse.FillHouseIDForSearch;
var
  ADOQuery:TADOQuery;
begin
  ADOQuery:=TADOQuery.Create(nil);
  ADOQuery:=Control_houseU.GetHouseArray;
  if ADOQuery.RecordCount<1 then
    begin
      ADOQuery:=nil;
      exit;
    end;
  self.cbx_houseNo_s.Items.Clear;
  self.cbx_houseNo_s.Items.Add('全部');
  while(not ADOQuery.Eof) do
    begin
      self.cbx_houseNo_s.Items.Add(ADOQuery.FieldValues['公寓号']);
      ADOQuery.Next;
    end;
  self.cbx_houseNo_s.ItemIndex:=0;
  ADOQuery:=nil;
end;
procedure Tfrm_room_nouse.FormShow(Sender: TObject);
begin
FillHouseIDForSearch;
FillData;
end;

procedure Tfrm_room_nouse.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
action:=cafree;
end;

procedure Tfrm_room_nouse.btn_closeClick(Sender: TObject);
begin
close;
end;

procedure Tfrm_room_nouse.cbx_houseNo_sChange(Sender: TObject);
begin
FillData;
end;

end.