unit MC_FYSQXZ;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBTables, Db, StdCtrls, Buttons, Grids, DBGrids, DBCtrls;

type
  TFYSQXZ = class(TForm)
    GroupBox1: TGroupBox;
    DBLookupComboBox1: TDBLookupComboBox;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox3: TGroupBox;
    ListBox1: TListBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    Table2: TTable;
    Table2BDEDesigner2: TStringField;
    Table2BDEDesigner5: TIntegerField;
    Table2BDEDesigner6: TStringField;
    Table2BDEDesigner7: TStringField;
    Table2BDEDesigner: TStringField;
    Query1: TQuery;
    Query1BDEDesigner: TStringField;
    Query1BDEDesigner2: TStringField;
    DBGrid2: TDBGrid;
    Table1: TTable;
    Table1BDEDesigner: TStringField;
    Table1BDEDesigner2: TStringField;
    Table1BDEDesigner3: TStringField;
    Table1BDEDesigner4: TStringField;
    Table1BDEDesigner5: TStringField;
    Table1BDEDesigner6: TStringField;
    Table1BDEDesigner7: TStringField;
    DataSource3: TDataSource;
    Table1BDEDesigner8: TStringField;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FYSQXZ: TFYSQXZ;

implementation

uses MC_SDFSQ;

{$R *.DFM}

procedure TFYSQXZ.BitBtn1Click(Sender: TObject);
var ZD: String;
    ZDZ: Array of String;
    a:integer;
begin
     if ListBox1.Items.Count=0 then
        begin
             ShowMessage('請選擇要瀏覽的大樓.');
        end
     else
        begin
             if not Assigned(SDFSQ) then
                begin
                     SDFSQ:=TSDFSQ.Create(Self);
                     SetLength(ZDZ,ListBox1.Items.Count);//分配動態(tài)變量,記得釋放掉
                     ZD:='大樓名';
                     SDFSQ.Query2.Close;
                     SDFSQ.Query2.SQL.Clear;
                     SDFSQ.Query2.SQL.Add('Select * From 水費(fèi) ');
                     SDFSQ.Query2.SQL.Add('Where 水表編號 in (');
                     SDFSQ.Query2.SQL.Add('Select 房間編號 From 房屋信息表 ');
                     SDFSQ.Query2.SQL.Add('Where 房間編號=:A ');
                     SDFSQ.Query2.ParamByName('A').AsString:=ListBox1.Items.Strings[0];
                     For a:=1 to ListBox1.Items.Count-1 do
                     begin
                          ZDZ[a]:=ListBox1.Items.Strings[a];                     
                          SDFSQ.Query2.SQL.Add(' or 房間編號='''+ZDZ[a]+'''');
                     end;
                     SDFSQ.Query2.SQL.Add(')');
                     SDFSQ.Query2.Open;
                     //----------------------------------------------------------------
                     SDFSQ.StringGrid1.RowCount:=SDFSQ.Query2.RecordCount+1;
                     //For a:=1 To SDFSQ.Query2.RecordCount do
                     a:=1;
                     While Not SDFSQ.Query2.Eof do
                     begin
                          SDFSQ.StringGrid1.Cells[1,a]:=SDFSQ.Query2.FieldByName('水表編號').AsString;
                          SDFSQ.StringGrid1.Cells[2,a]:=SDFSQ.Query2.FieldByName('戶主姓名').AsString;
                          SDFSQ.StringGrid1.Cells[3,a]:=SDFSQ.Query2.FieldByName('收費(fèi)金額').AsString;
                          SDFSQ.StringGrid1.Cells[4,a]:=SDFSQ.Query2.FieldByName('計(jì)費(fèi)起始日期').AsString;
                          SDFSQ.StringGrid1.Cells[5,a]:=SDFSQ.Query2.FieldByName('計(jì)費(fèi)終止日期').AsString;
                          SDFSQ.StringGrid1.Cells[6,a]:=SDFSQ.Query2.FieldByName('上月讀數(shù)').AsString;
                          SDFSQ.StringGrid1.Cells[7,a]:=SDFSQ.Query2.FieldByName('本月讀數(shù)').AsString;
                          SDFSQ.StringGrid1.Cells[8,a]:=SDFSQ.Query2.FieldByName('使用數(shù)').AsString;
                          SDFSQ.StringGrid1.Cells[9,a]:=SDFSQ.Query2.FieldByName('應(yīng)收金額').AsString;
                          SDFSQ.StringGrid1.Cells[10,a]:=SDFSQ.Query2.FieldByName('實(shí)收金額').AsString;
                          SDFSQ.StringGrid1.Cells[11,a]:=SDFSQ.Query2.FieldByName('本月余額').AsString;
                          a:=a+1;
                          SDFSQ.Query2.Next;
                     end;
//-------------------------------------------------------------------------------------------------------------
                     SDFSQ.Query2.Close;
                     SDFSQ.Query2.SQL.Clear;
                     SDFSQ.Query2.SQL.Add('Select * From 電費(fèi) Where');
                     SDFSQ.Query2.SQL.Add('電表編號 in (');
                     SDFSQ.Query2.SQL.Add('Select 房間編號 From 房屋信息表 Where 房間編號=:A');
                     SDFSQ.Query2.ParamByName('A').AsString:=ListBox1.Items.Strings[0];
                     For a:=1 to ListBox1.Items.Count-1 do
                     begin
                          ZDZ[a]:=ListBox1.Items.Strings[a];                     
                          SDFSQ.Query2.SQL.Add(' or 房間編號='''+ZDZ[a]+'''');
                     end;
                     SDFSQ.Query2.SQL.Add(')');
                     SDFSQ.Query2.Open;
                     //----------------------------------------------------------------
                     SDFSQ.StringGrid2.RowCount:=SDFSQ.Query2.RecordCount+1;
                     For a:=1 To SDFSQ.Query2.RecordCount do
                     begin
                          SDFSQ.StringGrid2.Cells[1,a]:=SDFSQ.Query2.FieldByName('電表編號').AsString;
                          SDFSQ.StringGrid2.Cells[2,a]:=SDFSQ.Query2.FieldByName('戶主姓名').AsString;
                          SDFSQ.StringGrid2.Cells[3,a]:=SDFSQ.Query2.FieldByName('收費(fèi)金額').AsString;
                          SDFSQ.StringGrid2.Cells[4,a]:=SDFSQ.Query2.FieldByName('計(jì)費(fèi)起始日期').AsString;
                          SDFSQ.StringGrid2.Cells[5,a]:=SDFSQ.Query2.FieldByName('計(jì)費(fèi)終止日期').AsString;
                          SDFSQ.StringGrid2.Cells[6,a]:=SDFSQ.Query2.FieldByName('上月讀數(shù)').AsString;
                          SDFSQ.StringGrid2.Cells[7,a]:=SDFSQ.Query2.FieldByName('本月讀數(shù)').AsString;
                          SDFSQ.StringGrid2.Cells[8,a]:=SDFSQ.Query2.FieldByName('使用數(shù)').AsString;
                          SDFSQ.StringGrid2.Cells[9,a]:=SDFSQ.Query2.FieldByName('應(yīng)收金額').AsString;
                          SDFSQ.StringGrid2.Cells[10,a]:=SDFSQ.Query2.FieldByName('實(shí)收金額').AsString;
                          SDFSQ.StringGrid2.Cells[11,a]:=SDFSQ.Query2.FieldByName('本月余額').AsString;
                          SDFSQ.Query2.Next;
                     end;
//-------------------------------------------------------------------------------------------------------------
                     SDFSQ.Query2.Close;
                     SDFSQ.Query2.SQL.Clear;
                     SDFSQ.Query2.SQL.Add('Select * From 煤氣費(fèi) Where');
                     SDFSQ.Query2.SQL.Add('煤氣表編號 in (');
                     SDFSQ.Query2.SQL.Add('Select 房間編號 From 房屋信息表 Where 房間編號=:A');
                     SDFSQ.Query2.ParamByName('A').AsString:=ListBox1.Items.Strings[0];
                     For a:=1 to ListBox1.Items.Count-1 do
                     begin
                          ZDZ[a]:=ListBox1.Items.Strings[a];
                          SDFSQ.Query2.SQL.Add(' or 房間編號='''+ZDZ[a]+'''');
                     end;
                     SDFSQ.Query2.SQL.Add(')');
                     SDFSQ.Query2.Open;
                     //----------------------------------------------------------------
                     SDFSQ.StringGrid3.RowCount:=SDFSQ.Query2.RecordCount+1;
                     For a:=1 To SDFSQ.Query2.RecordCount do
                     begin
                          SDFSQ.StringGrid3.Cells[1,a]:=SDFSQ.Query2.FieldByName('煤氣表編號').AsString;
                          SDFSQ.StringGrid3.Cells[2,a]:=SDFSQ.Query2.FieldByName('戶主姓名').AsString;
                          SDFSQ.StringGrid3.Cells[3,a]:=SDFSQ.Query2.FieldByName('收費(fèi)金額').AsString;
                          SDFSQ.StringGrid3.Cells[4,a]:=SDFSQ.Query2.FieldByName('計(jì)費(fèi)起始日期').AsString;
                          SDFSQ.StringGrid3.Cells[5,a]:=SDFSQ.Query2.FieldByName('計(jì)費(fèi)終止日期').AsString;
                          SDFSQ.StringGrid3.Cells[6,a]:=SDFSQ.Query2.FieldByName('上月讀數(shù)').AsString;
                          SDFSQ.StringGrid3.Cells[7,a]:=SDFSQ.Query2.FieldByName('本月讀數(shù)').AsString;
                          SDFSQ.StringGrid3.Cells[8,a]:=SDFSQ.Query2.FieldByName('使用數(shù)').AsString;
                          SDFSQ.StringGrid3.Cells[9,a]:=SDFSQ.Query2.FieldByName('應(yīng)收金額').AsString;
                          SDFSQ.StringGrid3.Cells[10,a]:=SDFSQ.Query2.FieldByName('實(shí)收金額').AsString;
                          SDFSQ.StringGrid3.Cells[11,a]:=SDFSQ.Query2.FieldByName('本月余額').AsString;
                          SDFSQ.Query2.Next;
                     end;
//--------------------------------------------------------------------------------------
                     SDFSQ.Query2.Close;
                     ZDZ:=Nil;//釋放內(nèi)存空間
                     SDFSQ.ShowModal;
                end;
        end;
end;

procedure TFYSQXZ.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     FYSQXZ.Release;
     FYSQXZ:=Nil;
end;

procedure TFYSQXZ.BitBtn2Click(Sender: TObject);
var a,b:integer;
begin
     For a:=0 to ListBox1.Items.Count-1 do
     begin
          if ListBox1.Items.Strings[a]=Table1.FieldByName('房間編號').AsString then
             begin
                  b:=0;
                  Break;
             end else b:=1;
     end;
     if b=0 then
        begin
             ShowMessage('此大樓以被選種!!');
        end
     else
        begin
             ListBox1.Items.Add(Table1.FieldByName('房間編號').AsString);
        end;
end;

procedure TFYSQXZ.BitBtn4Click(Sender: TObject);
begin
     if ListBox1.Items.Count<>0 then
        begin
             ListBox1.Items.Delete(ListBox1.ItemIndex);
        end;
end;

procedure TFYSQXZ.BitBtn3Click(Sender: TObject);
begin
     Close;
end;

end.