unit MC_LSFYCX;

interface

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

type
  TLSFYCX = class(TForm)
    PageControl1: TPageControl;
    GroupBox1: TGroupBox;
    DBLookupComboBox1: TDBLookupComboBox;
    Table1: TTable;
    DataSource1: TDataSource;
    Table1BDEDesigner: TStringField;
    Table1BDEDesigner2: TStringField;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    Table2: TTable;
    DataSource2: TDataSource;
    Table2BDEDesigner: TStringField;
    Table2BDEDesigner2: TStringField;
    Table2BDEDesigner3: TStringField;
    Table2BDEDesigner4: TStringField;
    GroupBox3: TGroupBox;
    DBGrid2: TDBGrid;
    Table3: TTable;
    DataSource3: TDataSource;
    Table3BDEDesigner: TStringField;
    Table3BDEDesigner2: TStringField;
    Table3BDEDesigner3: TStringField;
    Table3BDEDesigner4: TStringField;
    Table3BDEDesigner5: TStringField;
    Table3BDEDesigner6: TStringField;
    Table3BDEDesigner7: TStringField;
    Table3BDEDesigner8: TStringField;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    TabSheet7: TTabSheet;
    GroupBox4: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    BitBtn1: TBitBtn;
    DBGrid3: TDBGrid;
    DBGrid4: TDBGrid;
    DBGrid5: TDBGrid;
    DBGrid6: TDBGrid;
    DBGrid7: TDBGrid;
    DBGrid8: TDBGrid;
    DBGrid9: TDBGrid;
    Query1: TQuery;
    DataSource4: TDataSource;
    Query2: TQuery;
    Query3: TQuery;
    Query4: TQuery;
    Query5: TQuery;
    Query6: TQuery;
    Query7: TQuery;
    DataSource5: TDataSource;
    DataSource6: TDataSource;
    DataSource7: TDataSource;
    DataSource8: TDataSource;
    DataSource9: TDataSource;
    DataSource10: TDataSource;
    Table3BDEDesigner9: TStringField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure DBGrid2DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LSFYCX: TLSFYCX;

implementation

{$R *.DFM}

procedure TLSFYCX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     LSFYCX.release;
     LSFYCX:=Nil;
end;

procedure TLSFYCX.BitBtn1Click(Sender: TObject);
begin
     Close;
end;

procedure TLSFYCX.DBGrid1DblClick(Sender: TObject);
begin
     Query1.Filtered:=False;
     Query2.Filtered:=False;
     Query3.Filtered:=False;
     Query4.Filtered:=False;
     Query5.Filtered:=False;
     Query6.Filtered:=False;
     Query7.Filtered:=False;
if Table2.REcordCount<>0 then
begin
     //--水費-------------------------------------------------------------------
       Query1.Close;
       Query1.SQL.Clear;
       Query1.SQL.Add('Select * from 歷史水費');
       Query1.SQL.Add('Where (計費起始日期>=:A) and (計費終止日期<=:B) and (水表編號 in (');
       Query1.SQL.Add('Select 房間編號 From 房屋信息表');
       Query1.SQL.Add('Where 大樓名=:C and 區名=:D');
       Query1.SQL.Add('))');
       Query1.SQL.Add('ORDER By 水表編號 ASC');
       Query1.ParamByName('A').AsDateTime:=DateTimePicker1.Date;
       Query1.ParamByName('B').AsDateTime:=DateTimePicker2.Date;
       Query1.paramByName('D').AsString:=Table1.FieldByname('小區名').AsString;
       Query1.ParamByName('C').AsString:=Table2.FieldByname('大樓名稱').AsString;
       Query1.Open;
     //--電費-------------------------------------------------------------------
       Query2.Close;
       Query2.SQL.Clear;
       Query2.SQL.Add('Select * from 歷史電費');
       Query2.SQL.Add('Where (計費起始日期>=:A) and (計費終止日期<=:B) and (電表編號 in (');
       Query2.SQL.Add('Select 房間編號 From 房屋信息表');
       Query2.SQL.Add('Where 大樓名=:C and 區名=:D');
       Query2.SQL.Add('))');
       Query2.SQL.Add('ORDER By 電表編號 ASC');
       Query2.ParamByName('A').AsDateTime:=DateTimePicker1.Date;
       Query2.ParamByName('B').AsDateTime:=DateTimePicker2.Date;
       Query2.paramByName('D').AsString:=Table1.FieldByname('小區名').AsString;
       Query2.ParamByName('C').AsString:=Table2.FieldByname('大樓名稱').AsString;
       Query2.Open;
     //--煤氣費-----------------------------------------------------------------
       Query3.Close;
       Query3.SQL.Clear;
       Query3.SQL.Add('Select * from 歷史煤氣費');
       Query3.SQL.Add('Where (計費起始日期>=:A) and (計費終止日期<=:B) and (煤氣表編號 in (');
       Query3.SQL.Add('Select 房間編號 From 房屋信息表');
       Query3.SQL.Add('Where 大樓名=:C and 區名=:D');
       Query3.SQL.Add('))');
       Query3.SQL.Add('ORDER By 煤氣表編號 ASC');
       Query3.ParamByName('A').AsDateTime:=DateTimePicker1.Date;
       Query3.ParamByName('B').AsDateTime:=DateTimePicker2.Date;
       Query3.paramByName('D').AsString:=Table1.FieldByname('小區名').AsString;
       Query3.ParamByName('C').AsString:=Table2.FieldByname('大樓名稱').AsString;
       Query3.Open;
     //--采暖費-----------------------------------------------------------------
       Query4.Close;
       Query4.SQL.Clear;
       Query4.SQL.Add('Select * from 采暖費歷史表');
       Query4.SQL.Add('Where (計費起始日期>=:A) and (計費終止日期<=:B) and (采暖費編號 in (');
       Query4.SQL.Add('Select 房間編號 From 房屋信息表');
       Query4.SQL.Add('Where 大樓名=:C and 區名=:D');
       Query4.SQL.Add('))');
       Query4.SQL.Add('ORDER By 采暖費編號 ASC');
       Query4.ParamByName('A').AsDateTime:=DateTimePicker1.Date;
       Query4.ParamByName('B').AsDateTime:=DateTimePicker2.Date;
       Query4.paramByName('D').AsString:=Table1.FieldByname('小區名').AsString;
       Query4.ParamByName('C').AsString:=Table2.FieldByname('大樓名稱').AsString;
       Query4.Open;
     //--其它費用---------------------------------------------------------------
       Query5.Close;
       Query5.SQL.Clear;
       Query5.SQL.Add('Select * From 歷史其它費用');
       Query5.SQL.Add('Where (計費起始日期>=:A) and (計費終止日期<=:B) and (收費編號 in (');
       Query5.SQL.Add('Select 房間編號 From 房屋信息表');
       Query5.SQL.Add('Where 大樓名=:C and 區名=:D');
       Query5.SQL.Add('))');
       Query5.SQL.Add('ORDER BY 收費編號 ASC');
       Query5.ParamByName('A').AsDateTime:=DateTimePicker1.Date;
       Query5.ParamByName('B').AsDateTime:=DateTimePicker2.Date;
       Query5.paramByName('D').AsString:=Table1.FieldByName('小區名').AsString;
       Query5.ParamByName('C').AsString:=Table2.FieldByName('大樓名稱').AsString;
       Query5.Open;
     //--常用費用---------------------------------------------------------------
       Query6.Close;
       Query6.SQL.Clear;
       Query6.SQL.Add('Select * from 歷史常用費用');
       Query6.SQL.Add('Where (計費起始日期>=:A) and (計費終止日期>=:B) and (收費編號 in (');
       Query6.SQL.Add('Select 房間編號 From 房屋信息表');
       Query6.SQl.Add('where 大樓名=:C and 區名=:D');
       Query6.SQL.Add('))');
       Query6.SQL.Add('ORDER By 收費編號 ASC');
       Query6.ParamByName('A').AsDateTime:=DateTimePicker1.Date;
       Query6.ParamByName('B').AsDateTime:=DateTimePicker2.Date;
       Query6.paramByName('D').AsString:=Table1.FieldByName('小區名').AsString;
       Query6.ParamByName('C').AsString:=Table2.FieldByName('大樓名稱').AsString;
       Query6.Open;
     //--房租費用---------------------------------------------------------------
       Query7.Close;
       Query7.SQL.Clear;
       Query7.SQL.Add('Select * from 房租費費用歷史表');
       Query7.SQL.Add('where (起租日期>=:A) and (截止日期<=:B) and (房間代號 in (');
       Query7.SQL.Add('Select 房間編號 From 房屋信息表');
       Query7.SQL.Add('Where 大樓名=:C and 區名=:D');
       Query7.SQL.Add('))');
       Query7.SQL.Add('ORDER By 房間代號 ASC');
       Query7.ParamByName('A').AsDateTime:=DateTimePicker1.Date;
       Query7.ParamByName('B').AsDateTime:=DateTimePicker2.Date;
       Query7.ParamByName('C').AsString:=Table1.FieldByName('小區名').AsString;
       Query7.ParamByName('D').AsString:=Table2.FieldByName('大樓名稱').AsString;
       Query7.Open;
     //-------------------------------------------------------------------------
end;
end;

procedure TLSFYCX.DBGrid2DblClick(Sender: TObject);
begin
     Query1.Filter:='水表編號'+' = '+''''+Table3.FieldByName('房間編號').AsString+'''';
     Query1.Filtered:=True;
     //-------------------------------------------------------------------------
     Query2.Filter:='電表編號'+' = '+''''+Table3.FieldByName('房間編號').AsString+'''';
     Query2.Filtered:=True;
     //-------------------------------------------------------------------------
     Query3.Filter:='煤氣表編號'+' = '+''''+Table3.FieldByName('房間編號').AsString+'''';
     Query3.Filtered:=True;
     //-------------------------------------------------------------------------
     Query4.Filter:='采暖費編號'+' = '+''''+Table3.FieldByName('房間編號').AsString+'''';
     Query4.Filtered:=True;
     //-------------------------------------------------------------------------
     Query5.Filter:='收費編號'+' = '+''''+Table3.FieldByName('房間編號').AsString+'''';
     Query5.Filtered:=True;
     //-------------------------------------------------------------------------
     Query6.Filter:='收費編號'+' = '+''''+Table3.FieldByName('房間編號').AsString+'''';
     Query6.Filtered:=True;
     //-------------------------------------------------------------------------
     Query7.Filter:='房間代號'+' = '+''''+Table3.FieldByName('房間編號').AsString+'''';
     Query7.Filtered:=True;
     //-------------------------------------------------------------------------
end;

end.