prepay.~dfm

电力行业前台收费程序,需要有后台SQL数据库,和电费管理系统配合应用.

object FormPrepay: TFormPrepay
  Left = 103
  Top = 73
  BorderStyle = bsDialog
  Caption = '['#39044#32564#36153']'
  ClientHeight = 433
  ClientWidth = 654
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ScrollBoxView: TScrollBox
    Left = 0
    Top = 52
    Width = 654
    Height = 339
    Align = alClient
    TabOrder = 3
  end
  object ControlBar: TControlBar
    Left = 0
    Top = 0
    Width = 654
    Height = 52
    Align = alTop
    AutoDock = False
    AutoDrag = False
    AutoSize = True
    BevelInner = bvNone
    BevelOuter = bvNone
    BevelKind = bkSoft
    DockSite = False
    TabOrder = 0
    object ToolBarLB: TToolBar
      Left = 11
      Top = 2
      Width = 214
      Height = 19
      AutoSize = True
      ButtonHeight = 19
      ButtonWidth = 81
      Caption = 'ToolBarLB'
      DockSite = True
      EdgeBorders = []
      Flat = True
      List = True
      ParentShowHint = False
      ShowCaptions = True
      ShowHint = False
      TabOrder = 0
      object ToolButtonName: TToolButton
        Left = 0
        Top = 0
        AutoSize = True
        Caption = #25143#21495'('#25110#25143#21517'):'
      end
      object EditHH: TEdit
        Left = 80
        Top = 0
        Width = 121
        Height = 19
        TabOrder = 0
        OnKeyPress = EditHHKeyPress
      end
    end
    object ToolBarRT: TToolBar
      Left = 11
      Top = 28
      Width = 254
      Height = 22
      AutoSize = True
      ButtonWidth = 75
      Caption = 'ToolBarRT'
      DockSite = True
      EdgeBorders = []
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      Images = ImageList1
      List = True
      ParentFont = False
      ShowCaptions = True
      TabOrder = 1
      object ToolButtonYS: TToolButton
        Left = 0
        Top = 0
        Caption = #29992#25143#39044#32564
        Down = True
        Grouped = True
        ImageIndex = 0
        Style = tbsCheck
        OnClick = ToolButtonYSClick
      end
      object ToolButtonJL: TToolButton
        Left = 75
        Top = 0
        Caption = #39044#32564#35760#24405
        Grouped = True
        ImageIndex = 1
        Style = tbsCheck
        OnClick = ToolButtonJLClick
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 391
    Width = 654
    Height = 42
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object Label2: TLabel
      Left = 20
      Top = 12
      Width = 61
      Height = 13
      AutoSize = False
      Caption = #39044#32564#37329#39069':'
    end
    object SpeedButtonPrn: TSpeedButton
      Left = 352
      Top = 7
      Width = 97
      Height = 22
      Caption = '&F'#25171#21360#25910#25454
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
        8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
        8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
        8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
      OnClick = SpeedButtonPrnClick
    end
    object SpeedButtonZuoFei: TSpeedButton
      Left = 352
      Top = 7
      Width = 97
      Height = 22
      Caption = '&Z'#20316#24223#25910#25454
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
        3333333777333777FF3333993333339993333377FF3333377FF3399993333339
        993337777FF3333377F3393999333333993337F777FF333337FF993399933333
        399377F3777FF333377F993339993333399377F33777FF33377F993333999333
        399377F333777FF3377F993333399933399377F3333777FF377F993333339993
        399377FF3333777FF7733993333339993933373FF3333777F7F3399933333399
        99333773FF3333777733339993333339933333773FFFFFF77333333999999999
        3333333777333777333333333999993333333333377777333333}
      NumGlyphs = 2
      OnClick = SpeedButtonZuoFeiClick
    end
    object SpeedButtonPre: TSpeedButton
      Left = 239
      Top = 7
      Width = 97
      Height = 22
      Caption = '&V'#39044#35272#25910#25454
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
        033333777777777773333330777777703333333773F333773333333330888033
        33333FFFF7FFF7FFFFFF0000000000000003777777777777777F0FFFFFFFFFF9
        FF037F3333333337337F0F78888888887F037F33FFFFFFFFF37F0F7000000000
        8F037F3777777777F37F0F70AAAAAAA08F037F37F3333337F37F0F70ADDDDDA0
        8F037F37F3333337F37F0F70A99A99A08F037F37F3333337F37F0F70A99A99A0
        8F037F37F3333337F37F0F70AAAAAAA08F037F37FFFFFFF7F37F0F7000000000
        8F037F3777777777337F0F77777777777F037F3333333333337F0FFFFFFFFFFF
        FF037FFFFFFFFFFFFF7F00000000000000037777777777777773}
      NumGlyphs = 2
      OnClick = SpeedButtonPreClick