⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 unit_setupdiploma.dfm

📁 delphi开发的中国移动大客户管理系统,后台数据库为oracle
💻 DFM
字号:
inherited Frm_SetupDiploma: TFrm_SetupDiploma
  Left = 106
  Top = 65
  Caption = '学历设置'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 14
  inherited DBGrid_PUB: TDBGrid
    Options = [dgTitles, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    Columns = <
      item
        Expanded = False
        FieldName = 'PAR_SEQ'
        PickList.Strings = ()
        Title.Alignment = taCenter
        Visible = False
      end
      item
        Expanded = False
        FieldName = 'PAR_NAME'
        PickList.Strings = ()
        Title.Alignment = taCenter
        Visible = False
      end
      item
        Expanded = False
        FieldName = 'PAR_VALUES'
        PickList.Strings = ()
        Title.Alignment = taCenter
        Visible = False
      end
      item
        Expanded = False
        FieldName = 'PAR_DESC'
        PickList.Strings = ()
        Title.Alignment = taCenter
        Title.Caption = '学历'
        Width = 287
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PAR_OTHER'
        PickList.Strings = ()
        Title.Alignment = taCenter
        Visible = False
      end>
  end
  inherited Pal_button: TPanel
    inherited BitBtnAdd: TFlatButton
      OnClick = BitBtnAddClick
    end
    inherited BitBtnAlter: TFlatButton
      OnClick = BitBtnAlterClick
    end
    inherited BitBtnSave: TFlatButton
      OnClick = BitBtnSaveClick
    end
  end
  inherited Panel2: TPanel
    inherited Label3: TLabel
      Left = 19
      Width = 28
      Caption = '学历'
    end
    inherited FlatEdit1: TFlatEdit
      Left = 61
      Width = 516
      MaxLength = 100
      Text = ''
      OnKeyPress = FlatEdit1KeyPress
    end
  end
  inherited DataSource_Pub: TDataSource
    Left = 112
  end
  inherited Query_PUB: TQuery
    CachedUpdates = True
    AfterScroll = Query_PUBAfterScroll
    SQL.Strings = (
      'select * from T_D_Config where PAR_NAME='#39'Diploma_ID'#39
      '')
    UpdateObject = UpdateSQL1
    Left = 208
    Top = 48
  end
  inherited Query_Tmp: TQuery
    Left = 168
    Top = 136
  end
  object Query: TQuery
    DatabaseName = 'db_vipdl'
    Left = 176
    Top = 200
  end
  object Table_PUBTemp: TTable
    DatabaseName = 'db_vipdl'
    TableName = 'T_D_CONFIG'
    Left = 336
    Top = 136
  end
  object UpdateSQL1: TUpdateSQL
    Left = 296
    Top = 56
  end
end

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -