invoice10kv_f.dfm

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

object F_Invoice10kv: TF_Invoice10kv
  Left = 199
  Top = 147
  Width = 706
  Height = 498
  Caption = '10KV'#29992#25143' '#21457#31080#25171#21360#31383#21475
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object GroupBox1: TGroupBox
    Left = 0
    Top = 316
    Width = 698
    Height = 155
    Align = alBottom
    TabOrder = 0
    object Label2: TLabel
      Left = 16
      Top = 88
      Width = 40
      Height = 16
      Caption = #24212#25910':'
    end
    object DBT_Amount: TDBText
      Left = 64
      Top = 88
      Width = 97
      Height = 17
      Color = clMenu
      DataField = 'G18'
      DataSource = DM_10KV.Ds_10KV
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object Label3: TLabel
      Left = 216
      Top = 88
      Width = 40
      Height = 16
      Caption = #25910#27454':'
    end
    object Label4: TLabel
      Left = 216
      Top = 120
      Width = 40
      Height = 16
      Caption = #25214#38646':'
    end
    object Label1: TLabel
      Left = 16
      Top = 120
      Width = 40
      Height = 16
      Caption = #26041#24335':'
    end
    object Bt_PrintInvoice: TButton
      Left = 478
      Top = 112
      Width = 83
      Height = 25
      Caption = #25171#21360#21457#31080
      Enabled = False
      TabOrder = 0
      OnClick = Bt_PrintInvoiceClick
    end
    object Bt_Return: TButton
      Left = 584
      Top = 114
      Width = 80
      Height = 25
      Caption = #36820#22238'&R'
      TabOrder = 1
      OnClick = Bt_ReturnClick
    end
    object Bt_Edit: TButton
      Left = 582
      Top = 18
      Width = 83
      Height = 25
      Caption = #20462#25913#21457#31080
      TabOrder = 2
      OnClick = Bt_EditClick
    end
    object E_Search: TEdit
      Left = 208
      Top = 18
      Width = 161
      Height = 24
      Hint = #36755#20837'%'#21487#20197#20195#26367#20219#20309#23383#31526
      ImeName = #26497#21697#20116#31508#36755#20837#27861'5.0'
      MaxLength = 20
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = E_SearchClick
      OnDblClick = E_SearchDblClick
      OnKeyPress = E_SearchKeyPress
    end
    object Bt_Search: TButton
      Left = 376
      Top = 18
      Width = 81
      Height = 25
      Caption = #26597#35810#29992#25143
      TabOrder = 4
      OnClick = Bt_SearchClick
    end
    object CB_Preview: TCheckBox
      Left = 483
      Top = 88
      Width = 65
      Height = 17
      Caption = #39044#35272'&P'
      Checked = True
      State = cbChecked
      TabOrder = 5
      OnClick = CB_PreviewClick
    end
    object E_Gathering: TEdit
      Left = 264
      Top = 80
      Width = 105
      Height = 24
      Color = clWhite
      Font.Charset = GB2312_CHARSET
      Font.Color = clGreen
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ImeName = #26497#21697#20116#31508#36755#20837#27861'5.0'
      ParentFont = False
      TabOrder = 6
      OnChange = E_GatheringChange
    end
    object E_GiveChange: TEdit
      Left = 264
      Top = 112
      Width = 105
      Height = 24
      Color = clWhite
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ImeName = #26497#21697#20116#31508#36755#20837#27861'5.0'
      ParentFont = False
      ReadOnly = True
      TabOrder = 7
    end
    object Memo1: TMemo
      Left = 8
      Top = 24
      Width = 201
      Height = 17
      BorderStyle = bsNone
      Color = clMenu
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ImeName = #26497#21697#20116#31508#36755#20837#27861'5.0'
      Lines.Strings = (
        #26597#35810': '#29992#25143#21495'/'#21488#21464#21495'/'#25143#21517)
      ParentFont = False
      ReadOnly = True
      TabOrder = 8
    end
    object Bt_Charge: TButton
      Left = 376
      Top = 112
      Width = 81
      Height = 25
      Caption = #25910#36153
      Enabled = False
      TabOrder = 9
      OnClick = Bt_ChargeClick
    end
    object Bt_Switch: TButton
      Left = 584
      Top = 80
      Width = 81
      Height = 25
      Caption = #19968#25143#19968#34920
      TabOrder = 10
      OnClick = Bt_SwitchClick
    end
    object E_InvoiceName: TEdit
      Left = 16
      Top = 48
      Width = 353
      Height = 24
      Hint = #22312#36825#37324#22635#20837#26032#25143#21517
      ImeName = #26497#21697#20116#31508#36755#20837#27861'5.0'
      MaxLength = 60
      ParentShowHint = False
      ShowHint = True
      TabOrder = 11
    end
    object Bt_Update: TButton
      Left = 376
      Top = 48
      Width = 81
      Height = 25
      Caption = #20462#25913#25143#21517
      TabOrder = 12
      OnClick = Bt_UpdateClick
    end
    object CB_GatheringMode: TComboBox
      Left = 64
      Top = 112
      Width = 89
      Height = 24
      ImeName = #26497#21697#20116#31508#36755#20837#27861'5.0'
      ItemHeight = 16
      TabOrder = 13
      Text = #29616#37329
      Items.Strings = (
        #29616#37329
        #36716#24080
        #25903#31080)
    end
  end
  object DBG_House: TDBGrid
    Left = 0
    Top = 0
    Width = 698
    Height = 316
    Align = alClient
    Color = clMenu
    DataSource = DM_10KV.Ds_10KV
    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 = []
    OnCellClick = DBG_HouseCellClick
    OnDblClick = DBG_HouseDblClick
    Columns = <
      item
        Expanded = False
        FieldName = 'A11'
        Title.Caption = #25143#21495
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'A12'
        Title.Caption = #25143#21517
        Width = 197
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'G22'
        Title.Caption = #30005#37327
        Width = 117
        Visible = True
      end
      item
        Color = clTeal
        Expanded = False
        FieldName = 'G18'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWhite
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        Title.Caption = #37329#39069
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clBlack
        Title.Font.Height = -16
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Width = 89
        Visible = True
      end>
  end
  object DBE_House_No: TDBEdit
    Left = 472
    Top = 88
    Width = 113
    Height = 24
    DataField = 'A11'
    DataSource = DM_10KV.Ds_10KV
    ImeName = #26497#21697#20116#31508#36755#20837#27861'5.0'
    TabOrder = 2
    Visible = False
    OnChange = DBE_House_NoChange
  end
  object DBE_House_Name: TDBEdit
    Left = 472
    Top = 120
    Width = 153
    Height = 24
    DataField = 'A12'
    DataSource = DM_10KV.Ds_10KV
    ImeName = #26497#21697#20116#31508#36755#20837#27861'5.0'
    TabOrder = 3
    Visible = False
    OnChange = DBE_House_NoChange
  end
  object R_Invoice: TppReport
    AutoStop = False
    DataPipeline = DBP_10KV
    PrinterSetup.BinName = 'Default'
    PrinterSetup.DocumentName = #21457#31080#25253#34920
    PrinterSetup.PaperName = 'Custom'
    PrinterSetup.PrinterName = 'Default'
    PrinterSetup.mmMarginBottom = 6350
    PrinterSetup.mmMarginLeft = 6350
    PrinterSetup.mmMarginRight = 6350
    PrinterSetup.mmMarginTop = 6350
    PrinterSetup.mmPaperHeight = 139700
    PrinterSetup.mmPaperWidth = 210000
    PrinterSetup.PaperSize = 119
    Template.FileName = 'D:\Mis\Fee\10KV'#21457#31080'.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
    ShowPrintDialog = False
    TextSearchSettings.DefaultString = '<FindText>'
    TextSearchSettings.Enabled = True
    Left = 104
    Top = 96
    Version = '7.04'
    mmColumnWidth = 197300
    DataPipelineName = 'DBP_10KV'
    object ppHeaderBand3: TppHeaderBand
      mmBottomOffset = 0
      mmHeight = 0
      mmPrintPosition = 0
    end
    object ppDetailBand4: TppDetailBand
      BeforePrint = ppDetailBand4BeforePrint
      PrintHeight = phDynamic
      mmBottomOffset = 0
      mmHeight = 129646
      mmPrintPosition = 0
      object ppDBText18: TppDBText
        UserName = 'DBText1'
        AutoSize = True
        DataField = 'A11'
        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 = 4064
        mmLeft = 8731
        mmTop = 19315
        mmWidth = 14224
        BandType = 4
      end
      object ppDBText19: TppDBText
        UserName = 'DBText2'
        AutoSize = True
        DataField = 'A12'
        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 = 4064
        mmLeft = 110596
        mmTop = 12171
        mmWidth = 32004
        BandType = 4
      end
      object ppDBText21: TppDBText
        UserName = 'DBText4'
        DataField = 'A13'
        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 = 65881
        mmTop = 25135
        mmWidth = 42598
        BandType = 4
      end
      object ppDBText22: TppDBText
        UserName = 'DBText5'
        DataField = 'A28'
        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 = 74613
        mmTop = 42069
        mmWidth = 12700
        BandType = 4
      end
      object ppDBText23: TppDBText
        UserName = 'DBText7'
        BlankWhenZero = True
        DataField = 'A48'
        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 = 41010
        mmWidth = 12171
        BandType = 4
      end
      object ppDBText24: TppDBText
        UserName = 'DBText8'
        DataField = 'G22'
        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 = 133879
        mmTop = 41010
        mmWidth = 17198
        BandType = 4
      end
      object ppDBText33: TppDBText
        UserName = 'DBText16'
        DataField = 'G18'
        DataPipeline = DBP_10KV