【delphi开源代码栏目提醒】：以下是网学会员为您推荐的delphi开源代码-MC_CNFGL.pas，希望本篇文章对您学习有所帮助。

    unit MC_CNFGL;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      DBTables, Db, Grids, DBGrids, DBCtrls, StdCtrls, Mask, ComCtrls, Buttons,
      ExtCtrls;
    
    type
      TCNFGL = class(TForm)
        GroupBox1: TGroupBox;
        DBLookupComboBox1: TDBLookupComboBox;
        GroupBox2: TGroupBox;
        DBGrid1: TDBGrid;
        GroupBox3: TGroupBox;
        DBGrid2: TDBGrid;
        DataSource1: TDataSource;
        Query1: TQuery;
        Query1BDEDesigner: TStringField;
        Query1BDEDesigner2: TStringField;
        DataSource2: TDataSource;
        Table1: TTable;
        Table1BDEDesigner: TStringField;
        Table1BDEDesigner2: TStringField;
        Table1BDEDesigner7: TStringField;
        Table2: TTable;
        Table2BDEDesigner: TStringField;
        Table2BDEDesigner2: TStringField;
        Table2BDEDesigner3: TStringField;
        Table2BDEDesigner4: TStringField;
        Table2BDEDesigner6: TStringField;
        Table2BDEDesigner18: TStringField;
        DataSource3: TDataSource;
        GroupBox4: TGroupBox;
        DBGrid3: TDBGrid;
        Query2: TQuery;
        DataSource4: TDataSource;
        BitBtn1: TBitBtn;
        BitBtn2: TBitBtn;
        Bevel1: TBevel;
        BitBtn4: TBitBtn;
        BitBtn5: TBitBtn;
        BitBtn6: TBitBtn;
        Query2BDEDesigner: TStringField;
        Query2BDEDesigner2: TStringField;
        Query2BDEDesigner3: TFloatField;
        Query2BDEDesigner4: TDateTimeField;
        Query2BDEDesigner5: TDateTimeField;
        Query2BDEDesigner6: TFloatField;
        Query2BDEDesigner7: TFloatField;
        Query2BDEDesigner8: TFloatField;
        Query2BDEDesigner9: TFloatField;
        Query2BDEDesigner10: TFloatField;
        Query2BDEDesigner11: TStringField;
        Query2BDEDesigner12: TStringField;
        Query3: TQuery;
        GroupBox5: TGroupBox;
        DateTimePicker1: TDateTimePicker;
        DateTimePicker2: TDateTimePicker;
        BitBtn3: TBitBtn;
        Label1: TLabel;
        Label2: TLabel;
        GroupBox6: TGroupBox;
        Label3: TLabel;
        Label4: TLabel;
        Label5: TLabel;
        Label6: TLabel;
        Edit1: TEdit;
        Label7: TLabel;
        Label8: TLabel;
        Label9: TLabel;
        BitBtn7: TBitBtn;
        BitBtn8: TBitBtn;
        Label10: TLabel;
        BitBtn9: TBitBtn;
        BitBtn10: TBitBtn;
        BitBtn11: TBitBtn;
        GroupBox7: TGroupBox;
        Label11: TLabel;
        Label12: TLabel;
        Label13: TLabel;
        Label14: TLabel;
        Label15: TLabel;
        Label16: TLabel;
        Label17: TLabel;
        Label18: TLabel;
        Edit2: TEdit;
        BitBtn12: TBitBtn;
        BitBtn13: TBitBtn;
        Label19: TLabel;
        Edit3: TEdit;
        Label20: TLabel;
        Edit4: TEdit;
        Query4: TQuery;
        Query2BDEDesigner13: TFloatField;
        Query2BDEDesigner14: TFloatField;
        Query2BDEDesigner15: TFloatField;
        Table2BDEDesigner5: TStringField;
        procedure Table1AfterScroll(DataSet: TDataSet);
        procedure DBGrid2DblClick(Sender: TObject);
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure BitBtn2Click(Sender: TObject);
        procedure BitBtn3Click(Sender: TObject);
        procedure BitBtn6Click(Sender: TObject);
        procedure BitBtn1Click(Sender: TObject);
        procedure BitBtn4Click(Sender: TObject);
        procedure BitBtn7Click(Sender: TObject);
        procedure BitBtn8Click(Sender: TObject);
        procedure BitBtn9Click(Sender: TObject);
        procedure BitBtn10Click(Sender: TObject);
        procedure BitBtn12Click(Sender: TObject);
        procedure BitBtn5Click(Sender: TObject);
        procedure BitBtn13Click(Sender: TObject);
        procedure BitBtn11Click(Sender: TObject);
        procedure FormShow(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      CNFGL: TCNFGL;
    
    implementation
    
    uses MC_CNFCSH, MC_MainForm;
    
    {$R *.DFM}
    procedure TCNFGL.FormShow(Sender: TObject);
    begin
      if MainForm.Query1.Locate('使用选项','采暖费管理',[loCaseInsensitive]) then
      begin
        if MainForm.Query1.FieldbyName('读写').AsString='读' then
        begin
          BitBtn1.Enabled:=False;
          BitBtn2.Enabled:=False;
          BitBtn4.Enabled:=False;
          BitBtn5.Enabled:=False;
          BitBtn11.Enabled:=False;
        end;
      end;
    end;
    procedure TCNFGL.Table1AfterScroll(DataSet: TDataSet);   //当选择大楼名称时,显示相应大楼住户的采暖费信息
    begin
      If Table1.RecordCount <> 0 Then   //大楼信息不为空
      begin
        Query2.Close;
        Query2.SQL.Clear;
        Query2.SQL.Add('Select * From 采暖费');
        Query2.SQL.Add('where 采暖费编号 in (Select 房间编号 From 房屋信息表');
        Query2.SQL.Add('Where 大楼名=:B)');
        Query2.ParamByName('B').AsString:=Table1.FieldByName('大楼名称').AsString;
        Query2.Open;  //打开相应大楼住户的采暖费信息
      end;
    end;
    
    procedure TCNFGL.DBGrid2DblClick(Sender: TObject); //选择房屋
    begin
      If Query2.Active Then
      If Query2.RecordCount <> 0 Then   //如果大楼住户的采暖费信息不为空,显示