lnoset_f.dfm

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

object F_LNoSet: TF_LNoSet
  Left = 246
  Top = 129
  Width = 753
  Height = 493
  Caption = '逻辑表号设置窗口'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object Splitter1: TSplitter
    Left = 289
    Top = 0
    Width = 3
    Height = 425
    Cursor = crHSplit
  end
  object DBG_Ammeter: TDBGrid
    Left = 292
    Top = 0
    Width = 453
    Height = 425
    Hint = '输入逻辑表号后按回车可直接移到下一行'
    Align = alClient
    Color = clMenu
    DataSource = DM_Mobile.Ds_OrigAmmeter
    Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -16
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    OnDblClick = DBG_AmmeterDblClick
    OnEnter = DBG_AmmeterEnter
    OnKeyPress = DBG_AmmeterKeyPress
    Columns = <
      item
        Expanded = False
        FieldName = 'F_HOUSE_NO'
        ReadOnly = True
        Visible = True
      end
      item
        Color = 14803425
        Expanded = False
        FieldName = 'F_AMMETER_ORDER'
        Width = 34
        Visible = True
      end
      item
        Color = 14803425
        Expanded = False
        FieldName = 'F_LNO'
        Width = 66
        Visible = True
      end
      item
        Color = 14803425
        Expanded = False
        FieldName = 'F_LCONSTANT'
        Width = 57
        Visible = True
      end
      item
        Color = 14803425
        Expanded = False
        FieldName = 'F_PLRATE'
        Width = 67
        Visible = True
      end
      item
        Color = 14803425
        Expanded = False
        FieldName = 'F_AMMETER_NO'
        Title.Caption = '实际表号'
        Width = 89
        Visible = True
      end>
  end
  object DBG_House: TDBGrid
    Left = 0
    Top = 0
    Width = 289
    Height = 425
    Hint = '双击可自动定位'
    Align = alLeft
    Color = clMenu
    DataSource = DM_Mobile.Ds_OrigHouse
    Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -16
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    OnDblClick = DBG_HouseDblClick
    OnEnter = DBG_HouseEnter
    OnKeyPress = DBG_HouseKeyPress
    Columns = <
      item
        Expanded = False
        FieldName = 'F_HOUSE_NO'
        ReadOnly = True
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'F_HOUSE_NAME'
        ReadOnly = True
        Width = 99
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'F_BOX_NO'
        Visible = True
      end>
  end
  object Panel1: TPanel
    Left = 0
    Top = 425
    Width = 745
    Height = 41
    Align = alBottom
    TabOrder = 0
    object L_Search: TLabel
      Left = 16
      Top = 16
      Width = 80
      Height = 16
      Caption = '查找户号&S:'
      FocusControl = E_Search
    end
    object Panel2: TPanel
      Left = 640
      Top = 1
      Width = 104
      Height = 39
      Align = alRight
      TabOrder = 0
      object Bt_Close: TButton
        Left = 11
        Top = 8
        Width = 75
        Height = 25
        Hint = '按这里可关闭当前窗口'
        Cancel = True
        Caption = '返回&R'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnClick = Bt_CloseClick
      end
    end
    object E_Search: TEdit
      Left = 96
      Top = 8
      Width = 113
      Height = 24
      Hint = '输入欲查找的用户编号然后按回车'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnKeyPress = E_SearchKeyPress
    end
    object DBN: TDBNavigator
      Left = 208
      Top = 8
      Width = 416
      Height = 25
      DataSource = DM_Mobile.Ds_OrigHouse
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbEdit, nbPost, nbCancel, nbRefresh]
      ConfirmDelete = False
      TabOrder = 2
    end
  end
  object DBE_HHouseNo: TDBEdit
    Left = 16
    Top = 264
    Width = 121
    Height = 24
    DataField = 'F_HOUSE_NO'
    DataSource = DM_Mobile.Ds_OrigHouse
    TabOrder = 3
    Visible = False
  end
  object DBE_AHouseNo: TDBEdit
    Left = 16
    Top = 288
    Width = 121
    Height = 24
    DataField = 'F_HOUSE_NO'
    DataSource = DM_Mobile.Ds_OrigAmmeter
    TabOrder = 4
    Visible = False
    OnChange = DBE_AHouseNoChange
  end
  object DBE_LNo: TDBEdit
    Left = 16
    Top = 312
    Width = 49
    Height = 24
    DataField = 'F_LNO'
    DataSource = DM_Mobile.Ds_OrigAmmeter
    TabOrder = 5
    Visible = False
  end
end