phonemanagefrm.~dfm

来自「一个电力企业的后台管理程序」· ~DFM 代码 · 共 107 行

inherited frm_phonemanage: Tfrm_phonemanage
  Caption = '电话号码管理'
  PixelsPerInch = 96
  TextHeight = 12
  inherited pnl_Main: TPanel
    inherited rxdbg_Main: TRxDBGrid
      DataSource = DataSource1
      ReadOnly = True
      Columns = <
        item
          Expanded = False
          FieldName = 'PersonName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '电话号码信息名称'
          Width = 150
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'InfoName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '电话号码信息内容'
          Width = 150
          Visible = True
        end>
    end
    inherited sbx_Top: TScrollBox
      inherited pnl_Top: TPanel
        inherited pnl_TopChild: TPanel
          Width = 526
          Caption = ''
          object Label1: TLabel
            Left = 40
            Top = 16
            Width = 96
            Height = 12
            Caption = '电话号码信息名称'
          end
          object Label2: TLabel
            Left = 288
            Top = 16
            Width = 96
            Height = 12
            Caption = '电话号码信息内容'
          end
          object DBEdit1: TDBEdit
            Left = 96
            Top = 40
            Width = 121
            Height = 20
            DataField = 'PersonName'
            DataSource = DataSource1
            TabOrder = 0
            OnKeyDown = DBEdit1KeyDown
          end
          object DBEdit2: TDBEdit
            Left = 349
            Top = 40
            Width = 121
            Height = 20
            DataField = 'InfoName'
            DataSource = DataSource1
            TabOrder = 1
            OnKeyDown = DBEdit1KeyDown
          end
        end
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 256
    Top = 178
  end
  object Query1: TQuery
    CachedUpdates = True
    DatabaseName = 'DBECSC'
    SQL.Strings = (
      'select * from InfoPerson')
    UpdateObject = UpdateSQL1
    Left = 304
    Top = 194
  end
  object UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update InfoPerson'
      'set'
      '  personname = :personname,'
      '  infoname = :infoname'
      'where'
      '  personname = :OLD_personname')
    InsertSQL.Strings = (
      'insert into InfoPerson'
      '  (personname, infoname)'
      'values'
      '  (:personname, :infoname)')
    DeleteSQL.Strings = (
      'delete from InfoPerson'
      'where'
      '  personname = :OLD_personname')
    Left = 384
    Top = 218
  end
end