【delphi开源代码栏目提醒】:以下是网学会员为您推荐的delphi开源代码-MC_LSFYCX.pas,希望本篇文章对您学习有所帮助。
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('Selec