invoice400v_f.dfm

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

              BandType = 4
            end
            object ppDBText31: TppDBText
              UserName = 'DBText15'
              DataField = 'F_AMOUNT'
              DataPipeline = DBP_FeeDetail
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = []
              TextAlignment = taCentered
              Transparent = True
              DataPipelineName = 'DBP_FeeDetail'
              mmHeight = 4233
              mmLeft = 84667
              mmTop = 529
              mmWidth = 21960
              BandType = 4
            end
            object ppDBText32: TppDBText
              UserName = 'DBText33'
              DataField = 'F_PRICE'
              DataPipeline = DBP_FeeDetail
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = []
              TextAlignment = taCentered
              Transparent = True
              DataPipelineName = 'DBP_FeeDetail'
              mmHeight = 4233
              mmLeft = 65352
              mmTop = 529
              mmWidth = 17198
              BandType = 4
            end
          end
          object ppSummaryBand2: TppSummaryBand
            mmBottomOffset = 0
            mmHeight = 0
            mmPrintPosition = 0
          end
          object raCodeModule2: TraCodeModule
            ProgramStream = {00}
          end
        end
      end
      object ppDBText33: TppDBText
        UserName = 'DBText16'
        DataField = 'F_FEEAMOUNT'
        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 = 136525
        mmTop = 94986
        mmWidth = 17198
        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 = 72496
        mmTop = 115623
        mmWidth = 10583
        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 = 138377
        mmTop = 115623
        mmWidth = 10583
        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 = 105304
        mmTop = 115623
        mmWidth = 10583
        BandType = 4
      end
      object ppL_UpperCash: TppLabel
        UserName = 'L_UpperCash'
        SaveOrder = 0
        Save = True
        Caption = #22777#25342#20803#32902#35282#20237#20998
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 32279
        mmTop = 93663
        mmWidth = 14023
        BandType = 4
      end
      object ppLabel90: TppLabel
        UserName = 'Label24'
        Caption = #26472#26725#20379#30005#25152
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 4092
        mmLeft = 19050
        mmTop = 69321
        mmWidth = 17639
        BandType = 4
      end
      object ppLabel91: TppLabel
        UserName = 'Label43'
        Caption = #26472#26725#20379#30005#25152
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 4092
        mmLeft = 11113
        mmTop = 83079
        mmWidth = 17639
        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 = 58738
        mmTop = 19579
        mmWidth = 7144
        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 = 77788
        mmTop = 19579
        mmWidth = 3440
        BandType = 4
      end
      object ppSystemVariable1: TppSystemVariable
        UserName = 'SystemVariable1'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        TextAlignment = taCentered
        Transparent = True
        mmHeight = 3969
        mmLeft = 150548
        mmTop = 115623
        mmWidth = 18256
        BandType = 4
      end
    end
    object ppFooterBand4: TppFooterBand
      mmBottomOffset = 0
      mmHeight = 0
      mmPrintPosition = 0
    end
    object raCodeModule3: TraCodeModule
      ProgramStream = {00}
    end
    object ppParameterList2: TppParameterList
    end
  end
  object DBP_Ammeter: TppDBPipeline
    DataSource = Ds_Ammeter
    UserName = 'DBP_Ammeter'
    Left = 184
    Top = 136
    MasterDataPipelineName = 'DBP_Invoice'
  end
  object DBP_FeeDetail: TppDBPipeline
    DataSource = Ds_FeeDetail
    UserName = 'DBP_FeeDetail'
    Left = 264
    Top = 136
    MasterDataPipelineName = 'DBP_Invoice'
  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 = 106
    Top = 32
  end
  object R_Balance: TppReport
    AutoStop = False
    DataPipeline = DBP_Invoice
    PassSetting = psTwoPass
    PrinterSetup.BinName = 'Default'
    PrinterSetup.DocumentName = #21457#31080#25253#34920
    PrinterSetup.PaperName = 'A4'
    PrinterSetup.PrinterName = 'Default'
    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
    TextSearchSettings.DefaultString = '<FindText>'
    TextSearchSettings.Enabled = True
    Left = 184
    Top = 80
    Version = '7.04'
    mmColumnWidth = 197300
    DataPipelineName = 'DBP_Invoice'
    object ppHeaderBand1: TppHeaderBand
      mmBottomOffset = 0
      mmHeight = 0
      mmPrintPosition = 0
    end
    object ppDetailBand1: TppDetailBand
      PrintHeight = phDynamic
      mmBottomOffset = 0
      mmHeight = 74083
      mmPrintPosition = 0
      object ppShape1: TppShape
        UserName = 'Shape1'
        Pen.Style = psDot
        mmHeight = 45773
        mmLeft = 11906
        mmTop = 15875
        mmWidth = 182827
        BandType = 4
      end
      object ppDBText1: 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 = 48419
        mmTop = 48683
        mmWidth = 11377
        BandType = 4
      end
      object ppDBText2: 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 = 3969
        mmLeft = 22490
        mmTop = 16933
        mmWidth = 20373
        BandType = 4
      end
      object ppLabel1: TppLabel
        UserName = 'Label2'
        Caption = #24180
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clAqua
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 21696
        mmTop = 11377
        mmWidth = 3440
        BandType = 4
      end
      object ppLabel2: TppLabel
        UserName = 'Label3'
        Caption = #26376#20221
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clAqua
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 31750
        mmTop = 11377
        mmWidth = 6879
        BandType = 4
      end
      object ppLabel3: TppLabel
        UserName = 'Label6'
        Caption = #22320#22336
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clAqua
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 102129
        mmTop = 16933
        mmWidth = 6879
        BandType = 4
      end
      object ppLabel4: TppLabel
        UserName = 'Label11'
        Caption = #20493#29575
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clAqua
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 14552
        mmTop = 48683
        mmWidth = 7144
        BandType = 4
      end
      object ppLabel5: TppLabel
        UserName = 'Label12'
        Caption = #21152#21464#32791
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clAqua
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 36248
        mmTop = 48683
        mmWidth = 10583
        BandType = 4
      end
      object ppLabel6: TppLabel
        UserName = 'Label13'
        Caption = #21152#20943#37327
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clAqua
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 62442
        mmTop = 48683
        mmWidth = 10583
        BandType = 4
      end
      object ppLabel8: TppLabel
        UserName = 'Label29'
        Caption = #22791#27880':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clAqua
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 13229
        mmTop = 53711
        mmWidth = 8731
        BandType = 4
      end
      object ppLabel9: TppLabel
        UserName = 'Label31'
        Caption = #25910#36153
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clAqua
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969