rgtselectformctrlfrmselect.~dfm

delphi开发的中国移动大客户管理系统,后台数据库为oracle

object RgtSelectFormCtrlSelect: TRgtSelectFormCtrlSelect
  Left = 122
  Top = 132
  Width = 665
  Height = 461
  ActiveControl = EdtFormName
  BorderIcons = [biSystemMenu]
  Caption = '选择窗体和控件名称'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 14
  object Label5: TLabel
    Left = 6
    Top = 45
    Width = 56
    Height = 14
    Caption = '窗体名称'
  end
  object Label6: TLabel
    Left = 208
    Top = 45
    Width = 70
    Height = 14
    Caption = '标签页名称'
  end
  object Label7: TLabel
    Left = 427
    Top = 45
    Width = 84
    Height = 14
    Caption = '控制控件名称'
  end
  object Label8: TLabel
    Left = 6
    Top = 69
    Width = 56
    Height = 14
    Caption = '窗体名称'
  end
  object Label9: TLabel
    Left = 208
    Top = 69
    Width = 70
    Height = 14
    Caption = '标签页名称'
  end
  object Label10: TLabel
    Left = 427
    Top = 69
    Width = 84
    Height = 14
    Caption = '控制控件名称'
  end
  object Label11: TLabel
    Left = 14
    Top = 77
    Width = 56
    Height = 14
    Caption = '窗体名称'
  end
  object Label12: TLabel
    Left = 216
    Top = 77
    Width = 70
    Height = 14
    Caption = '标签页名称'
  end
  object Label13: TLabel
    Left = 435
    Top = 77
    Width = 84
    Height = 14
    Caption = '控制控件名称'
  end
  object Splitter1: TSplitter
    Left = 0
    Top = 97
    Width = 657
    Height = 3
    Cursor = crVSplit
    Align = alTop
    AutoSnap = False
  end
  object PnlQuery: TPanel
    Left = 0
    Top = 0
    Width = 657
    Height = 97
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Label4: TLabel
      Left = 10
      Top = 6
      Width = 56
      Height = 14
      Caption = '序 列 号'
    end
    object Label1: TLabel
      Left = 10
      Top = 69
      Width = 56
      Height = 14
      Caption = '窗体标题'
    end
    object Label3: TLabel
      Left = 227
      Top = 69
      Width = 56
      Height = 14
      Caption = '控件含义'
    end
    object Label14: TLabel
      Left = 10
      Top = 37
      Width = 56
      Height = 14
      Caption = '窗体名称'
    end
    object Label16: TLabel
      Left = 227
      Top = 37
      Width = 56
      Height = 14
      Caption = '控件名称'
    end
    object Label17: TLabel
      Left = 233
      Top = 6
      Width = 42
      Height = 14
      Caption = '备  注'
    end
    object EdtFormName: TEdit
      Left = 76
      Top = 33
      Width = 133
      Height = 22
      CharCase = ecUpperCase
      TabOrder = 0
    end
    object EdtControlName: TEdit
      Left = 292
      Top = 33
      Width = 205
      Height = 22
      CharCase = ecUpperCase
      TabOrder = 1
    end
    object EdtLISTID: TEdit
      Left = 76
      Top = 2
      Width = 133
      Height = 22
      CharCase = ecUpperCase
      TabOrder = 2
      OnKeyPress = EdtLISTIDKeyPress
    end
    object EdtExtra: TEdit
      Left = 292
      Top = 2
      Width = 351
      Height = 22
      CharCase = ecUpperCase
      TabOrder = 3
    end
    object EdtFormCaption: TEdit
      Left = 76
      Top = 65
      Width = 133
      Height = 22
      CharCase = ecUpperCase
      TabOrder = 4
    end
    object EdtControlCaption: TEdit
      Left = 292
      Top = 65
      Width = 205
      Height = 22
      CharCase = ecUpperCase
      TabOrder = 5
    end
  end
  object PnlBtn: TPanel
    Left = 0
    Top = 393
    Width = 657
    Height = 41
    Align = alBottom
    TabOrder = 1
    object BtnClear: TButton
      Left = 151
      Top = 8
      Width = 60
      Height = 25
      Caption = '清空'
      TabOrder = 0
      OnClick = BtnClearClick
    end
    object BtnQuery: TButton
      Left = 225
      Top = 8
      Width = 60
      Height = 25
      Caption = '查询'
      TabOrder = 1
      OnClick = BtnQueryClick
    end
    object BtnSelect: TButton
      Left = 372
      Top = 8
      Width = 60
      Height = 25
      Caption = '选定'
      TabOrder = 2
      OnClick = BtnSelectClick
    end
    object BtnCancel: TButton
      Left = 445
      Top = 8
      Width = 60
      Height = 25
      Caption = '取消'
      TabOrder = 3
      OnClick = BtnCancelClick
    end
    object btn_sort: TButton
      Left = 298
      Top = 8
      Width = 60
      Height = 25
      Caption = '排序'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = btn_sortClick
    end
  end
  object DbgSysFormCtrlList: TDBGrid
    Left = 0
    Top = 100
    Width = 657
    Height = 293
    Align = alClient
    DataSource = DsSysFormCtrlList
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 2
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    OnDblClick = DbgSysFormCtrlListDblClick
    Columns = <
      item
        Expanded = False
        FieldName = 'LISTID'
        Title.Alignment = taCenter
        Title.Caption = '序列号'
        Width = 75
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'FORMNAME'
        Title.Alignment = taCenter
        Title.Caption = '窗体名称'
        Width = 139
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'FORMCAPTION'
        Title.Alignment = taCenter
        Title.Caption = '窗体标题'
        Width = 102
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CONTROLNAME'
        Title.Alignment = taCenter
        Title.Caption = '控件名称'
        Width = 141
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CONTROLCAPTION'
        Title.Alignment = taCenter
        Title.Caption = '控件含义 '
        Width = 99
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'EXTRA'
        Title.Alignment = taCenter
        Title.Caption = '备注'
        Width = 147
        Visible = True
      end>
  end
  object DsSysFormCtrlList: TDataSource
    DataSet = CdsSysFormCtrlList
    Left = 400
    Top = 136
  end
  object CdsSysFormCtrlList: TQuery
    AfterScroll = CdsSysFormCtrlListAfterScroll
    DatabaseName = 'db_vipdl'
    SQL.Strings = (
      'select * from SYSFORMCTRLLIST')
    Left = 312
    Top = 136
  end
end