unit_setupindititle.dfm

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

inherited Frm_Setupindititle: TFrm_Setupindititle
  Left = 133
  Top = 66
  Caption = '大客户个性化服务小标题设置'
  OldCreateOrder = True
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 14
  inherited DBGrid_PUB: TDBGrid
    Options = [dgTitles, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    Columns = <
      item
        Expanded = False
        FieldName = 'INDICODE'
        PickList.Strings = ()
        Title.Alignment = taCenter
        Visible = False
      end
      item
        Expanded = False
        FieldName = 'INDICAPTION'
        PickList.Strings = ()
        Title.Alignment = taCenter
        Title.Caption = '个性大标题'
        Width = 171
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'INDITITLE'
        PickList.Strings = ()
        Title.Alignment = taCenter
        Title.Caption = '兴趣小类标题'
        Width = 175
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'REMARK'
        PickList.Strings = ()
        Title.Alignment = taCenter
        Title.Caption = '备注'
        Width = 220
        Visible = True
      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 = 5
      Width = 84
      Caption = '兴趣大类标题'
    end
    object Label1: TLabel [1]
      Left = 213
      Top = 14
      Width = 84
      Height = 14
      Caption = '兴趣小类标题'
    end
    object Label2: TLabel [2]
      Left = 425
      Top = 14
      Width = 28
      Height = 14
      Caption = '备注'
    end
    inherited FlatEdit1: TFlatEdit
      Left = 97
      Top = 10
      Width = 78
      MaxLength = 20
      Text = ''
      Visible = False
    end
    object FlatEdit2: TFlatEdit
      Left = 301
      Top = 11
      Width = 121
      Height = 20
      ColorFlat = clBtnFace
      ParentColor = True
      MaxLength = 60
      TabOrder = 1
      OnKeyPress = FlatEdit2KeyPress
    end
    object FlatEdit3: TFlatEdit
      Left = 458
      Top = 11
      Width = 121
      Height = 20
      ColorFlat = clBtnFace
      ParentColor = True
      MaxLength = 20
      TabOrder = 2
      OnKeyPress = FlatEdit3KeyPress
    end
    object ComboBox: TFlatComboBox
      Tag = 1
      Left = 95
      Top = 10
      Width = 112
      Height = 22
      Style = csDropDownList
      Color = clWindow
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ItemHeight = 14
      ParentFont = False
      TabOrder = 3
      ItemIndex = -1
      OnChange = ComboBoxChange
      OnKeyPress = ComboBoxKeyPress
    end
  end
  inherited Query_PUB: TQuery
    CachedUpdates = True
    AfterScroll = Query_PUBAfterScroll
    SQL.Strings = (
      'select a.INDICODE,a.indiseq,b.INDICAPTION,a.INDITITLE,a.REMARK '
      ' from t_d_indititle a,t_d_inditop b '
      ' where a.indiseq=b.indiseq(+)')
    UpdateObject = UpdateSQL1
  end
  inherited Query_Tmp: TQuery
    Top = 144
  end
  object UpdateSQL1: TUpdateSQL
    Left = 296
    Top = 56
  end
  object Query_top: TQuery
    AutoRefresh = True
    DatabaseName = 'db_vipdl'
    SQL.Strings = (
      'select INDISEQ,INDICAPTION from t_d_inditop')
    Left = 241
    Top = 116
  end
end