invoice10kv_f.dfm

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

        DisplayFormat = '0.00'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        ParentDataPipeline = False
        Transparent = True
        DataPipelineName = 'DBP_10KV'
        mmHeight = 3969
        mmLeft = 133615
        mmTop = 95515
        mmWidth = 21960
        BandType = 4
      end
      object ppLabel81: TppLabel
        UserName = 'Label14'
        OnGetText = ppLabel87GetText
        Caption = #25910#27454#21592
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 70115
        mmTop = 114829
        mmWidth = 10319
        BandType = 4
      end
      object ppLabel82: TppLabel
        UserName = 'Label21'
        OnGetText = ppLabel88GetText
        Caption = #24320#31080#20154
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 138642
        mmTop = 115094
        mmWidth = 10319
        BandType = 4
      end
      object ppLabel86: TppLabel
        UserName = 'Label22'
        OnGetText = ppLabel89GetText
        Caption = #22797#26680#20154
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 104246
        mmTop = 115094
        mmWidth = 10319
        BandType = 4
      end
      object ppL_UpperCash: TppLabel
        UserName = 'L_UpperCash'
        SaveOrder = 0
        Save = True
        Caption = #21441#20191#20237#20336#29590#25342#25420#20803#20237#35282#38470#20998
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 27781
        mmTop = 94456
        mmWidth = 44715
        BandType = 4
      end
      object ppLabel90: TppLabel
        UserName = 'Label24'
        Caption = #22478#21306#20379#30005#25152
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 19844
        mmTop = 69586
        mmWidth = 17727
        BandType = 4
      end
      object ppLabel91: TppLabel
        UserName = 'Label43'
        Caption = #22478#21306#20379#30005#25152
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 10848
        mmTop = 82021
        mmWidth = 17727
        BandType = 4
      end
      object ppLabel92: TppLabel
        UserName = 'Label44'
        OnGetText = ppLabel1GetText
        Caption = '2004'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 53446
        mmTop = 19050
        mmWidth = 7408
        BandType = 4
      end
      object ppLabel93: TppLabel
        UserName = 'Label45'
        OnGetText = ppLabel2GetText
        Caption = '03'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 75406
        mmTop = 19050
        mmWidth = 3704
        BandType = 4
      end
      object ppDBText1: TppDBText
        UserName = 'DBText3'
        DataField = 'A16'
        DataPipeline = DBP_10KV
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        ParentDataPipeline = False
        Transparent = True
        DataPipelineName = 'DBP_10KV'
        mmHeight = 3969
        mmLeft = 11113
        mmTop = 25135
        mmWidth = 17198
        BandType = 4
      end
      object ppDBText2: TppDBText
        UserName = 'DBText9'
        DataField = 'B11'
        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 = 794
        mmTop = 36513
        mmWidth = 16140
        BandType = 4
      end
      object ppDBText3: TppDBText
        UserName = 'DBText10'
        DataField = 'B12'
        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 = 18785
        mmTop = 36513
        mmWidth = 14817
        BandType = 4
      end
      object ppDBText4: TppDBText
        UserName = 'DBText11'
        DataField = 'B13'
        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 = 35983
        mmTop = 36513
        mmWidth = 15875
        BandType = 4
      end
      object ppDBText5: TppDBText
        UserName = 'DBText12'
        DataField = 'B14'
        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 = 794
        mmTop = 41010
        mmWidth = 16140
        BandType = 4
      end
      object ppDBText6: TppDBText
        UserName = 'DBText101'
        DataField = 'B15'
        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 = 18785
        mmTop = 41010
        mmWidth = 15081
        BandType = 4
      end
      object ppDBText7: TppDBText
        UserName = 'DBText13'
        DataField = 'B16'
        DataPipeline = DBP_10KV
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        TextAlignment = taCentered
        Transparent = True
        DataPipelineName = 'DBP_10KV'
        mmHeight = 3969
        mmLeft = 35983
        mmTop = 41010
        mmWidth = 15875
        BandType = 4
      end
      object ppDBText8: TppDBText
        UserName = 'DBText14'
        DataField = 'B17'
        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 = 794
        mmTop = 45508
        mmWidth = 16140
        BandType = 4
      end
      object ppDBText9: TppDBText
        UserName = 'DBText102'
        DataField = 'B18'
        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 = 18785
        mmTop = 45508
        mmWidth = 15346
        BandType = 4
      end
      object ppDBText10: TppDBText
        UserName = 'DBText15'
        DataField = 'B19'
        DataPipeline = DBP_10KV
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        TextAlignment = taCentered
        Transparent = True
        DataPipelineName = 'DBP_10KV'
        mmHeight = 3969
        mmLeft = 35983
        mmTop = 45508
        mmWidth = 15875
        BandType = 4
      end
      object ppDBText11: TppDBText
        UserName = 'DBText17'
        DataField = 'B10'
        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 = 55827
        mmTop = 41010
        mmWidth = 14817
        BandType = 4
      end
      object ppDBText12: TppDBText
        UserName = 'DBText18'
        DataField = 'B21'
        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 = 794
        mmTop = 50006
        mmWidth = 16140
        BandType = 4
      end
      object ppDBText13: TppDBText
        UserName = 'DBText19'
        DataField = 'B22'
        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 = 18785
        mmTop = 50006
        mmWidth = 15346
        BandType = 4
      end
      object ppDBText14: TppDBText
        UserName = 'DBText20'
        DataField = 'B23'
        DataPipeline = DBP_10KV
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        TextAlignment = taCentered
        Transparent = True
        DataPipelineName = 'DBP_10KV'
        mmHeight = 3969
        mmLeft = 35983
        mmTop = 50006
        mmWidth = 15875
        BandType = 4
      end
      object ppDBText15: TppDBText
        UserName = 'DBText21'
        BlankWhenZero = True
        DataField = 'B20'
        DataPipeline = DBP_10KV
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        ParentDataPipeline = False
        Transparent = True
        DataPipelineName = 'DBP_10KV'
        mmHeight = 3969
        mmLeft = 55827
        mmTop = 50006
        mmWidth = 14817
        BandType = 4
      end
      object ppDBText16: TppDBText
        UserName = 'DBText22'
        DataField = 'G19'
        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 = 89429
        mmTop = 61913
        mmWidth = 17198
        BandType = 4
      end
      object ppDBText20: TppDBText
        UserName = 'DBText23'
        BlankWhenZero = True
        DataField = 'G20'
        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 = 89429
        mmTop = 66411
        mmWidth = 17198
        BandType = 4
      end
      object ppDBText25: TppDBText
        UserName = 'DBText25'
        BlankWhenZero = True
        DataField = 'G21'
        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 = 89429
        mmTop = 70908
        mmWidth = 17198
        BandType = 4
      end
      object ppDBText26: TppDBText