fee_balance2_f.dfm

县级供电企业电费核算源码, 在客户处正常运行8年以上, Delphi 5开发,数据库为Interbase/Firebird, 深入使用Procedure和Trigger等, 对入门者具有很好的参考价值

object F_Fee_Balance2: TF_Fee_Balance2
  Left = 203
  Top = 158
  Width = 722
  Height = 536
  Caption = #32467#31639#21333#25171#21360
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object DBGrid1: TDBGrid
    Left = 80
    Top = 104
    Width = 481
    Height = 249
    DataSource = Ds_Invoice
    ImeName = #26497#21697#20116#31508#36755#20837#27861'5.0'
    TabOrder = 0
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -16
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
  end
  object DBG_House: TDBGrid
    Left = 265
    Top = 0
    Width = 449
    Height = 458
    Align = alClient
    Color = clMenu
    DataSource = Ds_Invoice
    ImeName = #26497#21697#20116#31508#36755#20837#27861'5.0'
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -16
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'F_HOUSE_NO'
        Title.Caption = #25143#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'F_HOUSE_NAME'
        Title.Caption = #25143#21517
        Width = 110
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'F_USED_COUNT'
        Title.Caption = #30005#37327
        Width = 74
        Visible = True
      end
      item
        Color = clTeal
        Expanded = False
        FieldName = 'F_FEEAMOUNT'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWhite
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        Title.Caption = #24212#25910#30005#36153
        Width = 81
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'F_LATEFEE'
        Title.Caption = #28382#32435#37329
        Width = 57
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'F_BOX_NO'
        Title.Caption = #31665#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'F_ARREARAGE'
        Title.Caption = #27424#36153
        Width = 59
        Visible = True
      end>
  end
  object DBG_Transfer: TDBGrid
    Left = 0
    Top = 0
    Width = 265
    Height = 458
    Align = alLeft
    DataSource = Ds_Transfer
    ImeName = #26497#21697#20116#31508#36755#20837#27861'5.0'
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -16
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = DBG_TransferDblClick
    Columns = <
      item
        Expanded = False
        FieldName = 'F_TRANSFER_NO'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'F_TRANSFER_NAME'
        Width = 175
        Visible = True
      end>
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 458
    Width = 714
    Height = 51
    Align = alBottom
    TabOrder = 3
    object Bt_PrintInvoice: TButton
      Left = 391
      Top = 16
      Width = 90
      Height = 25
      Caption = #25171#21360#32467#31639#21333
      TabOrder = 0
      OnClick = Bt_PrintInvoiceClick
    end
    object Bt_Return: TButton
      Left = 605
      Top = 16
      Width = 84
      Height = 25
      Caption = #36820#22238'&R'
      TabOrder = 1
      OnClick = Bt_ReturnClick
    end
    object Bt_Edit: TButton
      Left = 504
      Top = 16
      Width = 89
      Height = 25
      Caption = #20462#25913#21457#31080
      TabOrder = 2
      OnClick = Bt_EditClick
    end
    object CB_Preview: TCheckBox
      Left = 307
      Top = 24
      Width = 65
      Height = 17
      Caption = #39044#35272'&P'
      Checked = True
      State = cbChecked
      TabOrder = 3
    end
  end
  object D_Balance: TppDesigner
    Caption = #25253#34920#32534#36753#22120
    DataSettings.SessionType = 'BDESession'
    DataSettings.AllowEditSQL = False
    DataSettings.DatabaseType = dtParadox
    DataSettings.IsCaseSensitive = True
    DataSettings.SQLType = sqBDELocal
    Position = poScreenCenter
    Report = R_Balance
    IniStorageType = 'IniFile'
    IniStorageName = '($WINSYS)\RBuilder.ini'
    WindowHeight = 400
    WindowLeft = 100
    WindowTop = 50
    WindowWidth = 600
    WindowState = wsMaximized
    Left = 258
    Top = 80
  end
  object R_Balance: TppReport
    AutoStop = False
    DataPipeline = DBP_Invoice
    PassSetting = psTwoPass
    PrinterSetup.BinName = 'Default'
    PrinterSetup.DocumentName = #21457#31080#25253#34920
    PrinterSetup.PaperName = 'A4 210 x 297 mm'
    PrinterSetup.PrinterName = 'Screen'
    PrinterSetup.mmMarginBottom = 0
    PrinterSetup.mmMarginLeft = 0
    PrinterSetup.mmMarginRight = 0
    PrinterSetup.mmMarginTop = 0
    PrinterSetup.mmPaperHeight = 297000
    PrinterSetup.mmPaperWidth = 210000
    PrinterSetup.PaperSize = 9
    Template.FileName = 'D:\Mis\Fee\exe\400V'#32467#31639#21333'.RTM'
    Template.Format = ftASCII
    Units = utMillimeters
    DeviceType = 'Screen'
    OutlineSettings.CreateNode = True
    OutlineSettings.CreatePageNodes = True
    OutlineSettings.Enabled = True
    OutlineSettings.Visible = True
    PreviewFormSettings.WindowState = wsMaximized
    PreviewFormSettings.ZoomSetting = zs100Percent
    SavePrinterSetup = True
    TextSearchSettings.DefaultString = '<FindText>'
    TextSearchSettings.Enabled = True
    Left = 256
    Top = 136
    Version = '7.04'
    mmColumnWidth = 216000
    DataPipelineName = 'DBP_Invoice'
    object ppHeaderBand2: TppHeaderBand
      mmBottomOffset = 0
      mmHeight = 0
      mmPrintPosition = 0
    end
    object ppDetailBand4: TppDetailBand
      BeforePrint = ppDetailBand4BeforePrint
      mmBottomOffset = 0
      mmHeight = 69750
      mmPrintPosition = 0
      object ppDBText17: TppDBText
        UserName = 'DBText6'
        BlankWhenZero = True
        DataField = 'F_TRANS_USED'
        DataPipeline = DBP_Invoice
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        TextAlignment = taCentered
        Transparent = True
        DataPipelineName = 'DBP_Invoice'
        mmHeight = 3969
        mmLeft = 43921
        mmTop = 51065
        mmWidth = 11377
        BandType = 4
      end
      object ppDBText18: TppDBText
        UserName = 'DBText1'
        AutoSize = True
        DataField = 'F_HOUSE_NO'
        DataPipeline = DBP_Invoice
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        DataPipelineName = 'DBP_Invoice'
        mmHeight = 4022
        mmLeft = 24606
        mmTop = 16933
        mmWidth = 17780
        BandType = 4
      end
      object ppDBText19: TppDBText
        UserName = 'DBText2'
        AutoSize = True
        DataField = 'F_HOUSE_NAME'
        DataPipeline = DBP_Invoice
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        DataPipelineName = 'DBP_Invoice'
        mmHeight = 4022
        mmLeft = 55563
        mmTop = 16933
        mmWidth = 21336
        BandType = 4
      end
      object ppDBText21: TppDBText
        UserName = 'DBText4'
        DataField = 'F_POSITION'
        DataPipeline = DBP_Invoice
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        DataPipelineName = 'DBP_Invoice'
        mmHeight = 3969
        mmLeft = 110861
        mmTop = 16933
        mmWidth = 34396
        BandType = 4
      end
      object ppDBText22: TppDBText
        UserName = 'DBText5'
        DataField = 'F_CT'
        DataPipeline = DBP_Invoice
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        TextAlignment = taCentered
        Transparent = True
        DataPipelineName = 'DBP_Invoice'
        mmHeight = 3969
        mmLeft = 24342
        mmTop = 51065
        mmWidth = 9260
        BandType = 4
      end
      object ppDBText23: TppDBText
        UserName = 'DBText7'
        BlankWhenZero = True
        DataField = 'F_ADJUST_COUNT'
        DataPipeline = DBP_Invoice
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        TextAlignment = taCentered
        Transparent = True
        DataPipelineName = 'DBP_Invoice'
        mmHeight = 3969
        mmLeft = 71702
        mmTop = 51065
        mmWidth = 12171
        BandType = 4
      end
      object ppDBText24: TppDBText
        UserName = 'DBText8'
        DataField = 'F_USED_COUNT'
        DataPipeline = DBP_Invoice
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        DataPipelineName = 'DBP_Invoice'
        mmHeight = 3969
        mmLeft = 109273
        mmTop = 56621
        mmWidth = 16669
        BandType = 4
      end
      object ppSubReport3: TppSubReport
        UserName = 'SubReport1'
        ExpandAll = False
        NewPrintJob = False
        OutlineSettings.CreateNode = True
        ParentPrinterSetup = False
        ParentWidth = False
        TraverseAllData = False
        DataPipelineName = 'DBP_Ammeter'
        mmHeight = 16933
        mmLeft = 14552
        mmTop = 32808
        mmWidth = 76729
        BandType = 4
        mmBottomOffset = 0
        mmOverFlowOffset = 0
        mmStopPosition = 0
        object ppChildReport3: TppChildReport
          AutoStop = False
          DataPipeline = DBP_Ammeter
          PrinterSetup.BinName = 'Default'
          PrinterSetup.DocumentName = #21457#31080#25253#34920
          PrinterSetup.PaperName = 'A4 210 x 297 mm'
          PrinterSetup.PrinterName = 'Screen'
          PrinterSetup.mmMarginBottom = 0
          PrinterSetup.mmMarginLeft = 0
          PrinterSetup.mmMarginRight = 0
          PrinterSetup.mmMarginTop = 0
          PrinterSetup.mmPaperHeight = 297127
          PrinterSetup.mmPaperWidth = 210079
          PrinterSetup.PaperSize = 9
          Template.Format = ftASCII
          Left = 328
          Top = 232
          Version = '7.04'
          mmColumnWidth = 0
          DataPipelineName = 'DBP_Ammeter'
          object ppTitleBand1: TppTitleBand
            mmBottomOffset = 0
            mmHeight = 0
            mmPrintPosition = 0
          end
          object ppDetailBand5: TppDetailBand
            mmBottomOffset = 0
            mmHeight = 5027
            mmPrintPosition = 0
            object ppDBText25: TppDBText
              UserName = 'DBText12'
              DataField = 'F_AMMETER_NO'
              DataPipeline = DBP_Ammeter
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = #23435#20307
              Font.Size = 10
              Font.Style = []
              ParentDataPipeline = False
              TextAlignment = taCentered
              Transparent = True
              DataPipelineName = 'DBP_Ammeter'
              mmHeight = 4022
              mmLeft = 2381
              mmTop = 529
              mmWidth = 20638
              BandType = 4
            end
            object ppDBText26: TppDBText
              UserName = 'DBText9'
              DataField = 'F_AMMETER_LAST_COUNT'
              DataPipeline = DBP_Ammeter
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = #23435#20307
              Font.Size = 10
              Font.Style = []
              ParentDataPipeline = False
              TextAlignment = taCentered
              Transparent = True
              DataPipelineName = 'DBP_Ammeter'
              mmHeight = 4022
              mmLeft = 26723
              mmTop = 529
              mmWidth = 14552
              BandType = 4
            end
            object ppDBText27: TppDBText
              UserName = 'DBText10'
              DataField = 'F_THIS_COUNT'
              DataPipeline = DBP_Ammeter
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = #23435#20307
              Font.Size = 10
              Font.Style = []
              ParentDataPipeline = False
              TextAlignment = taCentered
              Transparent = True
              DataPipelineName = 'DBP_Ammeter'
              mmHeight = 4022
              mmLeft = 44450
              mmTop = 529
              mmWidth = 16140
              BandType = 4
            end
            object ppDBText28: TppDBText
              UserName = 'DBText11'
              DataField = 'F_COUNT'
              DataPipeline = DBP_Ammeter
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = #23435#20307
              Font.Size = 10
              Font.Style = []
              ParentDataPipeline = False
              TextAlignment = taCentered
              Transparent = True
              DataPipelineName = 'DBP_Ammeter'
              mmHeight = 4022
              mmLeft = 62971
              mmTop = 529