rgtselectunitfunctionselect.dfm

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

object RgtSelectFormFunctionSelect: TRgtSelectFormFunctionSelect
  Left = 163
  Top = 216
  Width = 665
  Height = 461
  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 = 101
    Width = 657
    Height = 3
    Cursor = crVSplit
    Align = alTop
    AutoSnap = False
  end
  object PnlQuery: TPanel
    Left = 0
    Top = 0
    Width = 657
    Height = 101
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Label1: TLabel
      Left = 5
      Top = 9
      Width = 70
      Height = 14
      Caption = '功能序号从'
    end
    object Label3: TLabel
      Left = 135
      Top = 9
      Width = 14
      Height = 14
      Caption = '到'
    end
    object Label2: TLabel
      Left = 225
      Top = 9
      Width = 56
      Height = 14
      Caption = '功能名称'
    end
    object Label4: TLabel
      Left = 9
      Top = 42
      Width = 56
      Height = 14
      Caption = '控制类型'
    end
    object Label20: TLabel
      Left = 21
      Top = 72
      Width = 28
      Height = 14
      Caption = '备注'
    end
    object EdtFuncSerialIdQueryFrom: TEdit
      Left = 77
      Top = 5
      Width = 55
      Height = 22
      TabOrder = 0
      OnKeyPress = EdtFuncSerialIdQueryFromKeyPress
    end
    object EdtFuncSerialIdQueryTo: TEdit
      Left = 150
      Top = 5
      Width = 66
      Height = 22
      TabOrder = 1
      OnKeyPress = EdtFuncSerialIdQueryToKeyPress
    end
    object EdtFuncNameQuery: TEdit
      Left = 293
      Top = 5
      Width = 340
      Height = 22
      TabOrder = 2
    end
    object GroupBox2: TGroupBox
      Left = 231
      Top = 26
      Width = 402
      Height = 41
      TabOrder = 3
      object Label21: TLabel
        Left = 25
        Top = 15
        Width = 56
        Height = 14
        Caption = '窗体标题'
      end
      object Label22: TLabel
        Left = 207
        Top = 15
        Width = 56
        Height = 14
        Caption = '控件含义'
      end
      object EdtFormCaptionQuery: TEdit
        Left = 83
        Top = 11
        Width = 121
        Height = 22
        Color = clBtnFace
        ReadOnly = True
        TabOrder = 1
      end
      object EdtControlCaptionQuery: TEdit
        Left = 267
        Top = 11
        Width = 121
        Height = 22
        Color = clBtnFace
        ReadOnly = True
        TabOrder = 2
      end
      object SbSysFormCtrlListQuery: TBitBtn
        Left = 3
        Top = 12
        Width = 20
        Height = 20
        Caption = '>>'
        TabOrder = 0
        OnClick = SbSysFormCtrlListQueryClick
      end
    end
    object CmbControlTypeQuery: TComboBox
      Left = 78
      Top = 38
      Width = 139
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 4
      Items.Strings = (
        ''
        '看不见'
        '不可编辑')
    end
    object EdtExtraQuery: TEdit
      Left = 77
      Top = 71
      Width = 556
      Height = 22
      TabOrder = 5
    end
  end
  object PnlBtn: TPanel
    Left = 0
    Top = 386
    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 DbgPrivFunction: TDBGrid
    Left = 0
    Top = 104
    Width = 657
    Height = 282
    Align = alClient
    DataSource = DataSource1
    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 = DbgPrivFunctionDblClick
    Columns = <
      item
        Expanded = False
        FieldName = 'FUNCSERIALID'
        Title.Alignment = taCenter
        Title.Caption = '序列号'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'FUNCNAME'
        Title.Alignment = taCenter
        Title.Caption = '功能名称'
        Width = 124
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'FUNCID'
        Title.Alignment = taCenter
        Title.Caption = '窗体.控件'
        Width = 151
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CONTROLTYPE'
        Title.Alignment = taCenter
        Title.Caption = '控制类型'
        Width = 79
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'EXTRA'
        Title.Alignment = taCenter
        Title.Caption = '备注'
        Width = 129
        Visible = True
      end>
  end
  object Query1: TQuery
    AfterScroll = Query1AfterScroll
    DatabaseName = 'db_vipdl'
    SQL.Strings = (
      'select * from PRIVFUNCTION ')
    Left = 218
    Top = 240
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 266
    Top = 240
  end
end