mc_lsfycx.~pas

1、系统环境要求：所有程序均在Windows98/XP操作系统下测试运行。 2、建议用户在系统上安装DELPHI7.0企业版。 3、如果数据库为SQL Server数据库

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.