invoice10kv_f.dfm

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

        UserName = 'DBText24'
        BlankWhenZero = True
        DataField = 'A29'
        DataPipeline = DBP_10KV
        DisplayFormat = '0.000'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        ParentDataPipeline = False
        TextAlignment = taCentered
        Transparent = True
        DataPipelineName = 'DBP_10KV'
        mmHeight = 3969
        mmLeft = 110067
        mmTop = 61913
        mmWidth = 17198
        BandType = 4
      end
      object ppDBText27: TppDBText
        UserName = 'DBText27'
        BlankWhenZero = True
        DataField = 'A37'
        DataPipeline = DBP_10KV
        DisplayFormat = '0.000'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        ParentDataPipeline = False
        TextAlignment = taCentered
        Transparent = True
        DataPipelineName = 'DBP_10KV'
        mmHeight = 3969
        mmLeft = 110067
        mmTop = 66411
        mmWidth = 17198
        BandType = 4
      end
      object ppDBText28: TppDBText
        UserName = 'DBText28'
        BlankWhenZero = True
        DataField = 'A60'
        DataPipeline = DBP_10KV
        DisplayFormat = '0.000'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        ParentDataPipeline = False
        TextAlignment = taCentered
        Transparent = True
        DataPipelineName = 'DBP_10KV'
        mmHeight = 3969
        mmLeft = 110067
        mmTop = 70908
        mmWidth = 17198
        BandType = 4
      end
      object ppDBText29: TppDBText
        UserName = 'DBText26'
        DataField = 'G12'
        DataPipeline = DBP_10KV
        DisplayFormat = '0.00'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        ParentDataPipeline = False
        TextAlignment = taRightJustified
        Transparent = True
        DataPipelineName = 'DBP_10KV'
        mmHeight = 3969
        mmLeft = 131234
        mmTop = 61913
        mmWidth = 22225
        BandType = 4
      end
      object ppDBText30: TppDBText
        UserName = 'DBText30'
        BlankWhenZero = True
        DataField = 'G14'
        DataPipeline = DBP_10KV
        DisplayFormat = '0.00'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        ParentDataPipeline = False
        TextAlignment = taRightJustified
        Transparent = True
        DataPipelineName = 'DBP_10KV'
        mmHeight = 3969
        mmLeft = 131234
        mmTop = 66411
        mmWidth = 22225
        BandType = 4
      end
      object ppDBText31: TppDBText
        UserName = 'DBText31'
        BlankWhenZero = True
        DataField = 'G17'
        DataPipeline = DBP_10KV
        DisplayFormat = '0.00'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        ParentDataPipeline = False
        TextAlignment = taRightJustified
        Transparent = True
        DataPipelineName = 'DBP_10KV'
        mmHeight = 3969
        mmLeft = 131234
        mmTop = 70908
        mmWidth = 22490
        BandType = 4
      end
      object ppL_G11: TppLabel
        UserName = 'Label49'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 50006
        mmTop = 75406
        mmWidth = 25929
        BandType = 4
      end
      object ppL_G13: TppLabel
        UserName = 'Label50'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 50006
        mmTop = 79904
        mmWidth = 25929
        BandType = 4
      end
      object ppL_G16: TppLabel
        UserName = 'Label51'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 50006
        mmTop = 84402
        mmWidth = 25929
        BandType = 4
      end
      object ppDBText32: TppDBText
        UserName = 'DBText29'
        BlankWhenZero = True
        DataField = 'G11'
        DataPipeline = DBP_10KV
        DisplayFormat = '0.00'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        ParentDataPipeline = False
        TextAlignment = taRightJustified
        Transparent = True
        DataPipelineName = 'DBP_10KV'
        mmHeight = 3969
        mmLeft = 131234
        mmTop = 75406
        mmWidth = 22490
        BandType = 4
      end
      object ppDBText34: TppDBText
        UserName = 'DBText34'
        BlankWhenZero = True
        DataField = 'G13'
        DataPipeline = DBP_10KV
        DisplayFormat = '0.00'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        ParentDataPipeline = False
        TextAlignment = taRightJustified
        Transparent = True
        DataPipelineName = 'DBP_10KV'
        mmHeight = 3969
        mmLeft = 131234
        mmTop = 79904
        mmWidth = 22490
        BandType = 4
      end
      object ppDBText35: TppDBText
        UserName = 'DBText35'
        BlankWhenZero = True
        DataField = 'G16'
        DataPipeline = DBP_10KV
        DisplayFormat = '0.00'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        ParentDataPipeline = False
        TextAlignment = taRightJustified
        Transparent = True
        DataPipelineName = 'DBP_10KV'
        mmHeight = 3969
        mmLeft = 131234
        mmTop = 84402
        mmWidth = 22490
        BandType = 4
      end
      object ppL_Charge1: TppLabel
        UserName = 'L_Charge1'
        Caption = #23621#27665#29983#27963#29992#30005
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 50271
        mmTop = 61913
        mmWidth = 25929
        BandType = 4
      end
      object ppL_Charge2: TppLabel
        UserName = 'L_Charge2'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 50271
        mmTop = 66411
        mmWidth = 25929
        BandType = 4
      end
      object ppL_Charge3: TppLabel
        UserName = 'L_Charge3'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 50006
        mmTop = 70908
        mmWidth = 25929
        BandType = 4
      end
      object ppL_Iron_Used: TppLabel
        UserName = 'Label13'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        TextAlignment = taCentered
        Transparent = True
        mmHeight = 3969
        mmLeft = 91281
        mmTop = 41010
        mmWidth = 10319
        BandType = 4
      end
      object ppSystemVariable1: TppSystemVariable
        UserName = 'SystemVariable1'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 150019
        mmTop = 115094
        mmWidth = 18256
        BandType = 4
      end
      object ppDBText17: TppDBText
        UserName = 'DBText6'
        DataField = 'G23'
        DataPipeline = DBP_10KV
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        DataPipelineName = 'DBP_10KV'
        mmHeight = 3969
        mmLeft = 135467
        mmTop = 24871
        mmWidth = 11377
        BandType = 4
      end
      object ppLabel1: TppLabel
        UserName = 'Label1'
        Caption = 'COS'#966'='
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 4092
        mmLeft = 123031
        mmTop = 24606
        mmWidth = 11994
        BandType = 4
      end
      object ppDBText36: TppDBText
        UserName = 'DBText36'
        BlankWhenZero = True
        DataField = 'A51'
        DataPipeline = DBP_10KV
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        ParentDataPipeline = False
        TextAlignment = taCentered
        Transparent = True
        DataPipelineName = 'DBP_10KV'
        mmHeight = 3969
        mmLeft = 134144
        mmTop = 50006
        mmWidth = 17463
        BandType = 4
      end
      object ppDBText37: TppDBText
        UserName = 'DBText37'
        BlankWhenZero = True
        DataField = 'A49'
        DataPipeline = DBP_10KV
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        ParentDataPipeline = False
        TextAlignment = taCentered
        Transparent = True
        DataPipelineName = 'DBP_10KV'
        mmHeight = 3969
        mmLeft = 108479
        mmTop = 50006
        mmWidth = 12171
        BandType = 4
      end
    end
    object ppFooterBand4: TppFooterBand
      mmBottomOffset = 0
      mmHeight = 0
      mmPrintPosition = 0
    end
    object ppParameterList1: TppParameterList
    end
  end
  object D_Invoice: 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_Invoice
    IniStorageType = 'IniFile'
    IniStorageName = '($WINSYS)\RBuilder.ini'
    WindowHeight = 400
    WindowLeft = 100
    WindowTop = 50
    WindowWidth = 600
    WindowState = wsMaximized
    Left = 186
    Top = 96
  end
  object DBP_10KV: TppDBPipeline
    DataSource = DM_10KV.Ds_10KV
    UserName = 'DBP_10KV'
    Left = 104
    Top = 160
    object DBP_10KVppField1: TppField
      FieldAlias = 'A11'
      FieldName = 'A11'
      FieldLength = 0
      DisplayWidth = 0
      Position = 0
    end
    object DBP_10KVppField2: TppField
      FieldAlias = 'A12'
      FieldName = 'A12'
      FieldLength = 28
      DisplayWidth = 28
      Position = 1
    end
    object DBP_10KVppField3: TppField
      FieldAlias = 'A13'
      FieldName = 'A13'
      FieldLength = 20
      DisplayWidth = 20
      Position = 2
    end
    object DBP_10KVppField4: TppField
      FieldAlias = 'A14'
      FieldName = 'A14'
      FieldLength = 4
      DisplayWidth = 4
      Position = 3
    end
    object DBP_10KVppField5: TppField
      FieldAlias = 'A15'
      FieldName = 'A15'
      FieldLength = 6
      DisplayWidth = 6
      Position = 4
    end
    object DBP_10KVppField6: TppField
      FieldAlias = 'A16'
      FieldName = 'A16'
      FieldLength = 2
      DisplayWidth = 2
      Position = 5
    end
    object DBP_10KVppField7: TppField
      FieldAlias = 'A17'
      FieldName = 'A17'
      FieldLength = 2
      DisplayWidth = 2
      Position = 6
    end
    object DBP_10KVppField8: TppField
      FieldAlias = 'A18'
      FieldName = 'A18'
      FieldLength = 4
      DisplayWidth = 4
      Position = 7
    end
    object DBP_10KVppField9: TppField
      FieldAlias = 'A19'
      FieldName = 'A19'
      FieldLength = 6
      DisplayWidth = 6
      Position = 8
    end
    object DBP_10KVppField10: TppField
      FieldAlias = 'A20'
      FieldName = 'A20'
      FieldLength = 4
      DisplayWidth = 4
      Position = 9
    end
    object DBP_10KVppField11: TppField
      Alignment = taRightJustify
      FieldAlias = 'A21'
      FieldName = 'A21'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10