house_arrearage_f.dfm

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

object F_House_Arrearage: TF_House_Arrearage
  Left = 217
  Top = 121
  Width = 663
  Height = 480
  Caption = #27424#36153#25968#25454#36755#20837
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 412
    Width = 655
    Height = 41
    Align = alBottom
    TabOrder = 0
    object Label1: TLabel
      Left = 104
      Top = 16
      Width = 80
      Height = 16
      Caption = #21512#35745' '#27424#36153':'
    end
    object Label2: TLabel
      Left = 304
      Top = 16
      Width = 56
      Height = 16
      Caption = #28382#32435#37329':'
    end
    object Panel3: TPanel
      Left = 578
      Top = 1
      Width = 76
      Height = 39
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 0
      object Bt_Close: TButton
        Left = 4
        Top = 1
        Width = 69
        Height = 37
        Hint = #36873#25321#21464#21387#22120
        Caption = #20851#38381'&R'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnClick = Bt_CloseClick
      end
    end
    object Button1: TButton
      Left = 8
      Top = 8
      Width = 75
      Height = 25
      Caption = #32467#26524'&V'
      TabOrder = 1
      OnClick = Button1Click
    end
    object E_SumArrearage: TEdit
      Left = 192
      Top = 8
      Width = 89
      Height = 24
      ReadOnly = True
      TabOrder = 2
    end
    object E_SumLateFee: TEdit
      Left = 368
      Top = 8
      Width = 89
      Height = 24
      ReadOnly = True
      TabOrder = 3
    end
  end
  object DBG_House_Arrearage: TDBGrid
    Left = 0
    Top = 43
    Width = 655
    Height = 333
    Hint = #36328#24180#24230#19968#26639#21482#33021#36755#20837'Y'#25110#19981#22635
    Align = alClient
    DataSource = DM_Table.Ds_House
    Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -16
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnKeyPress = DBG_House_ArrearageKeyPress
    Columns = <
      item
        Color = 10066329
        Expanded = False
        FieldName = 'F_HOUSE_NO'
        ReadOnly = True
        Width = 99
        Visible = True
      end
      item
        Color = 10066329
        Expanded = False
        FieldName = 'F_ELECT_NO'
        ReadOnly = True
        Title.Caption = #31867#21035
        Width = 33
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'F_BOX_NO'
        Width = 34
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'F_HOUSE_NAME'
        Width = 92
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'F_2YEAR'
        Title.Caption = #36328#24180
        Width = 37
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'F_ARREARAGE'
        Width = 63
        Visible = True
      end
      item
        Color = 10066329
        Expanded = False
        FieldName = 'F_LATEFEE'
        ReadOnly = True
        Width = 53
        Visible = True
      end
      item
        Color = 10066329
        Expanded = False
        FieldName = 'F_ADJUST_COUNT'
        ReadOnly = True
        Width = 51
        Visible = True
      end
      item
        Color = 10066329
        Expanded = False
        FieldName = 'F_USED_COUNT'
        Title.Caption = #29992#30005#37327
        Width = 55
        Visible = True
      end
      item
        Color = 10066329
        Expanded = False
        FieldName = 'F_USED_AMOUNT'
        ReadOnly = True
        Title.Caption = #30005#36153
        Width = 70
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'F_NOTE'
        Width = 125
        Visible = True
      end>
  end
  inline TFrm_Transfer1: TFrm_Transfer
    Left = 0
    Top = 0
    Width = 655
    Height = 43
    Align = alTop
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    inherited Panel2: TPanel
      Width = 655
      inherited Bt_TransferSelect: TButton
        OnClick = TFrm_Transfer1Bt_TransferSelectClick
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 376
    Width = 655
    Height = 36
    Align = alBottom
    TabOrder = 3
    object DBN_House: TDBNavigator
      Left = 1
      Top = 1
      Width = 653
      Height = 34
      DataSource = DM_Table.Ds_House
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbPost, nbCancel, nbRefresh]
      Align = alClient
      TabOrder = 0
    end
  end
end