transfer_frm.dfm

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

object Frm_Transfer: TFrm_Transfer
  Left = 0
  Top = 0
  Width = 443
  Height = 43
  Align = alTop
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = '宋体'
  Font.Style = []
  ParentFont = False
  TabOrder = 0
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 443
    Height = 41
    Align = alTop
    TabOrder = 0
    object Label4: TLabel
      Left = 112
      Top = 12
      Width = 56
      Height = 16
      Caption = '供电所:'
    end
    object Label5: TLabel
      Left = 279
      Top = 12
      Width = 40
      Height = 16
      Alignment = taRightJustify
      Caption = '线路:'
    end
    object Label6: TLabel
      Left = 438
      Top = 12
      Width = 56
      Height = 16
      Alignment = taRightJustify
      Caption = '变压器:'
    end
    object Bt_TransferSelect: TButton
      Left = 8
      Top = 7
      Width = 97
      Height = 25
      Hint = '选择变压器'
      Caption = '变压器&T...'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = Bt_TransferSelectClick
    end
    object DBE_Station_Name: TDBEdit
      Left = 168
      Top = 8
      Width = 105
      Height = 24
      Color = clMenu
      DataField = 'F_STATION_NAME'
      DataSource = DM_Table.Ds_Station
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -16
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
    object DBE_Line_Name: TDBEdit
      Left = 322
      Top = 8
      Width = 113
      Height = 24
      Color = clMenu
      DataField = 'F_LINE_NAME'
      DataSource = DM_Table.Ds_Line
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -16
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
    object DBE_Transfer_Name: TDBEdit
      Left = 496
      Top = 8
      Width = 137
      Height = 24
      Color = clMenu
      DataField = 'F_TRANSFER_NAME'
      DataSource = DM_Table.Ds_Transfer
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -16
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
  end
end