unit MC_SDMQFDY;

interface

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

type
  TSDMQFDY = class(TForm)
    GroupBox1: TGroupBox;
    DBLookupComboBox1: TDBLookupComboBox;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox3: TGroupBox;
    ListBox1: TListBox;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    Table2: TTable;
    Table2BDEDesigner2: TStringField;
    Table2BDEDesigner5: TIntegerField;
    Table2BDEDesigner6: TStringField;
    Table2BDEDesigner7: TStringField;
    Table2BDEDesigner: TStringField;
    Query1: TQuery;
    Query1BDEDesigner: TStringField;
    Query1BDEDesigner2: TStringField;
    Table1: TTable;
    Table1BDEDesigner: TStringField;
    Table1BDEDesigner2: TStringField;
    Table1BDEDesigner3: TStringField;
    Table1BDEDesigner4: TStringField;
    Table1BDEDesigner5: TStringField;
    Table1BDEDesigner6: TStringField;
    Table1BDEDesigner7: TStringField;
    DataSource3: TDataSource;
    GroupBox4: TGroupBox;
    DBGrid2: TDBGrid;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    BitBtn1: TBitBtn;
    DBGrid3: TDBGrid;
    DBGrid4: TDBGrid;
    DBGrid5: TDBGrid;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Query2: TQuery;
    DataSource4: TDataSource;
    Query3: TQuery;
    DataSource5: TDataSource;
    Query4: TQuery;
    DataSource6: TDataSource;
    QuickRep1: TQuickRep;
    PageHeaderBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    Query2BDEDesigner: TStringField;
    Query2BDEDesigner2: TStringField;
    Query2BDEDesigner3: TStringField;
    Query2BDEDesigner4: TFloatField;
    Query2BDEDesigner5: TDateTimeField;
    Query2BDEDesigner6: TDateTimeField;
    Query2BDEDesigner7: TIntegerField;
    Query2BDEDesigner8: TIntegerField;
    Query2BDEDesigner9: TIntegerField;
    Query2BDEDesigner10: TFloatField;
    Query2BDEDesigner11: TFloatField;
    Query2BDEDesigner12: TFloatField;
    DetailBand1: TQRBand;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRDBText3: TQRDBText;
    QRDBText4: TQRDBText;
    QRDBText5: TQRDBText;
    QRLabel8: TQRLabel;
    QRDBText6: TQRDBText;
    QRShape2: TQRShape;
    QRShape3: TQRShape;
    QRShape4: TQRShape;
    QRShape1: TQRShape;
    SummaryBand1: TQRBand;
    QRLabel9: TQRLabel;
    QRSysData1: TQRSysData;
    QRLabel10: TQRLabel;
    QRExpr1: TQRExpr;
    QRLabel11: TQRLabel;
    QRLabel12: TQRLabel;
    QRExpr2: TQRExpr;
    QuickRep2: TQuickRep;
    QRBand1: TQRBand;
    QRLabel13: TQRLabel;
    QRLabel14: TQRLabel;
    QRLabel15: TQRLabel;
    QRSysData2: TQRSysData;
    QRLabel16: TQRLabel;
    QRBand2: TQRBand;
    QRLabel17: TQRLabel;
    QRLabel18: TQRLabel;
    QRDBText7: TQRDBText;
    QRDBText8: TQRDBText;
    QRLabel19: TQRLabel;
    QRLabel20: TQRLabel;
    QRLabel21: TQRLabel;
    QRDBText9: TQRDBText;
    QRDBText10: TQRDBText;
    QRDBText11: TQRDBText;
    QRLabel22: TQRLabel;
    QRDBText12: TQRDBText;
    QRShape5: TQRShape;
    QRShape6: TQRShape;
    QRShape7: TQRShape;
    QRShape8: TQRShape;
    QRBand3: TQRBand;
    QRExpr3: TQRExpr;
    QRLabel23: TQRLabel;
    QRLabel24: TQRLabel;
    QRExpr4: TQRExpr;
    Query3BDEDesigner: TStringField;
    Query3BDEDesigner2: TStringField;
    Query3BDEDesigner3: TStringField;
    Query3BDEDesigner4: TFloatField;
    Query3BDEDesigner5: TDateTimeField;
    Query3BDEDesigner6: TDateTimeField;
    Query3BDEDesigner7: TIntegerField;
    Query3BDEDesigner8: TIntegerField;
    Query3BDEDesigner9: TIntegerField;
    Query3BDEDesigner10: TFloatField;
    Query3BDEDesigner11: TFloatField;
    Query3BDEDesigner12: TFloatField;
    QuickRep3: TQuickRep;
    QRBand4: TQRBand;
    QRLabel25: TQRLabel;
    QRLabel26: TQRLabel;
    QRLabel27: TQRLabel;
    QRSysData3: TQRSysData;
    QRLabel28: TQRLabel;
    QRBand5: TQRBand;
    QRLabel29: TQRLabel;
    QRLabel30: TQRLabel;
    QRDBText13: TQRDBText;
    QRDBText14: TQRDBText;
    QRLabel31: TQRLabel;
    QRLabel32: TQRLabel;
    QRLabel33: TQRLabel;
    QRDBText15: TQRDBText;
    QRDBText16: TQRDBText;
    QRDBText17: TQRDBText;
    QRLabel34: TQRLabel;
    QRDBText18: TQRDBText;
    QRShape9: TQRShape;
    QRShape10: TQRShape;
    QRShape11: TQRShape;
    QRShape12: TQRShape;
    QRBand6: TQRBand;
    QRExpr5: TQRExpr;
    QRLabel35: TQRLabel;
    QRLabel36: TQRLabel;
    QRExpr6: TQRExpr;
    Query4BDEDesigner: TStringField;
    Query4BDEDesigner2: TStringField;
    Query4BDEDesigner3: TStringField;
    Query4BDEDesigner4: TFloatField;
    Query4BDEDesigner5: TDateTimeField;
    Query4BDEDesigner6: TDateTimeField;
    Query4BDEDesigner7: TIntegerField;
    Query4BDEDesigner8: TIntegerField;
    Query4BDEDesigner9: TIntegerField;
    Query4BDEDesigner10: TFloatField;
    Query4BDEDesigner11: TFloatField;
    Query4BDEDesigner12: TFloatField;
    Table1BDEDesigner8: TStringField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid2DblClick(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure QuickRep1Preview(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure QuickRep2Preview(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure QuickRep3Preview(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SDMQFDY: TSDMQFDY;

implementation

uses MC_SDFSQ, MC_DYYLBrose;

{$R *.DFM}

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

procedure TSDMQFDY.DBGrid2DblClick(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 TSDMQFDY.ListBox1DblClick(Sender: TObject);
begin
     if ListBox1.Items.Count<>0 then
        begin
             ListBox1.Items.Delete(ListBox1.ItemIndex);
        end;
end;

procedure TSDMQFDY.BitBtn1Click(Sender: TObject);
var ZD: String;
    ZDZ: Array of String;
    a:integer;
begin
     if ListBox1.Items.Count=0 then
        begin
             ShowMessage('請選擇要瀏覽的對象.');
        end
     else
        begin
             SetLength(ZDZ,ListBox1.Items.Count);//分配動態變量,記得釋放掉
             ZD:='大樓名';
             Query2.Close;
             Query2.SQL.Clear;
             Query2.SQL.Add('Select 水表編號,戶主姓名,收費標準,收費金額,計費起始日期,計費終止日期,本月讀數,上月讀數,使用數,應收金額,實收金額,剩余金額 From 水費 ');
             Query2.SQL.Add('Where 水表編號 in (');
             Query2.SQL.Add('Select 房間編號 From 房屋信息表 ');
             Query2.SQL.Add('Where 房間編號=:A ');
             Query2.ParamByName('A').AsString:=ListBox1.Items.Strings[0];
             For a:=1 to ListBox1.Items.Count-1 do
             begin
                  ZDZ[a]:=ListBox1.Items.Strings[a];
                  Query2.SQL.Add(' or 房間編號='''+ZDZ[a]+'''');
             end;
             Query2.SQL.Add(')');
             Query2.Open;
//-------------------------------------------------------------------------------------------------------------
             Query3.Close;
             Query3.SQL.Clear;
             Query3.SQL.Add('Select 電表編號,戶主姓名,收費標準,收費金額,計費起始日期,計費終止日期,本月讀數,上月讀數,使用數,應收金額,實收金額,剩余金額 From 電費 Where');
             Query3.SQL.Add('電表編號 in (');
             Query3.SQL.Add('Select 房間編號 From 房屋信息表 Where 房間編號=:A');
             Query3.ParamByName('A').AsString:=ListBox1.Items.Strings[0];
             For a:=1 to ListBox1.Items.Count-1 do
             begin
                  ZDZ[a]:=ListBox1.Items.Strings[a];
                  Query3.SQL.Add(' or 房間編號='''+ZDZ[a]+'''');
             end;
             Query3.SQL.Add(')');
             Query3.Open;
//-------------------------------------------------------------------------------------------------------------
             Query4.Close;
             Query4.SQL.Clear;
             Query4.SQL.Add('Select 煤氣表編號,戶主姓名,收費標準,收費金額,計費起始日期,計費終止日期,本月讀數,上月讀數,使用數,應收金額,實收金額,剩余金額 From 煤氣費 Where');
             Query4.SQL.Add('煤氣表編號 in (');
             Query4.SQL.Add('Select 房間編號 From 房屋信息表 Where 房間編號=:A');
             Query4.ParamByName('A').AsString:=ListBox1.Items.Strings[0];
             For a:=1 to ListBox1.Items.Count-1 do
             begin
                  ZDZ[a]:=ListBox1.Items.Strings[a];
                  Query4.SQL.Add(' or 房間編號='''+ZDZ[a]+'''');
             end;
             Query4.SQL.Add(')');
             Query4.Open;
//--------------------------------------------------------------------------------------
                     ZDZ:=Nil;//釋放內存空間
                end;
end;

procedure TSDMQFDY.QuickRep1Preview(Sender: TObject);
begin
     DYYLBrose.QRPreview1.QRPrinter:=QuickRep1.QRPrinter;
end;

procedure TSDMQFDY.BitBtn2Click(Sender: TObject);
begin
     if Query2.Active then
     if Query2.RecordCount<>0 then
        begin
             DYYLBrose.Show;
             QuickRep1.Preview;
        end;
end;

procedure TSDMQFDY.QuickRep2Preview(Sender: TObject);
begin
     DYYLBrose.QRPreview1.QRPrinter:=QuickRep2.QRPrinter;
end;

procedure TSDMQFDY.BitBtn3Click(Sender: TObject);
begin
     if Query3.Active then
     if Query3.RecordCount<>0 then
        begin
             DYYLBrose.Show;
             QuickRep2.Preview;
        end;
end;

procedure TSDMQFDY.QuickRep3Preview(Sender: TObject);
begin
     DYYLBrose.QRPreview1.QRPrinter:=QuickRep3.QRPrinter;
end;

procedure TSDMQFDY.BitBtn4Click(Sender: TObject);
begin
     if Query4.Active then
     if Query4.RecordCount<>0 then
        begin
             DYYLBrose.Show;
             QuickRep3.Preview;
        end;
end;

end.