unit_archivescustinfo.dfm

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

object Frm_ArchivesCustInfo: TFrm_ArchivesCustInfo
  Left = 202
  Top = 189
  BorderStyle = bsSingle
  Caption = '个人客户档案'
  ClientHeight = 486
  ClientWidth = 780
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clBlue
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Label73: TLabel
    Left = 0
    Top = 56
    Width = 49
    Height = 14
    Caption = 'Label69'
  end
  object Label86: TLabel
    Left = 8
    Top = 80
    Width = 49
    Height = 14
    Caption = 'Label69'
  end
  object Label88: TLabel
    Left = 8
    Top = 104
    Width = 49
    Height = 14
    Caption = 'Label69'
  end
  object PanelLeft: TPanel
    Left = 0
    Top = 0
    Width = 193
    Height = 486
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 0
    object Label69: TLabel
      Left = 8
      Top = 8
      Width = 7
      Height = 14
    end
    object DBGrid_Normal: TDBGrid
      Left = 0
      Top = 231
      Width = 193
      Height = 255
      Align = alClient
      DataSource = DataSource_Normal
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ImeName = '王码五笔型输入法86版'
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clBlue
      TitleFont.Height = -14
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'SID'
          Title.Caption = '手机号码'
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clBlack
          Title.Font.Height = -14
          Title.Font.Name = '宋体'
          Title.Font.Style = []
          Width = 90
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ACT_USER'
          Title.Caption = '实际使用人'
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clBlack
          Title.Font.Height = -14
          Title.Font.Name = '宋体'
          Title.Font.Style = []
          Width = 75
          Visible = True
        end>
    end
    object Panel13: TPanel
      Left = 0
      Top = 0
      Width = 193
      Height = 231
      Align = alTop
      BevelOuter = bvLowered
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      object Label71: TLabel
        Left = 8
        Top = 105
        Width = 56
        Height = 14
        Caption = '手机号码'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label89: TLabel
        Left = 8
        Top = 33
        Width = 56
        Height = 14
        Caption = '所属局向'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label90: TLabel
        Left = 8
        Top = 8
        Width = 56
        Height = 14
        Caption = '所属地市'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label91: TLabel
        Left = 8
        Top = 57
        Width = 56
        Height = 14
        Caption = '消费等级'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label92: TLabel
        Left = 8
        Top = 82
        Width = 56
        Height = 14
        Caption = '经理工号'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label93: TLabel
        Left = 8
        Top = 170
        Width = 56
        Height = 14
        Caption = '客户属性'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label97: TLabel
        Left = 8
        Top = 127
        Width = 56
        Height = 14
        Caption = '贵宾卡号'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label158: TLabel
        Left = 8
        Top = 148
        Width = 56
        Height = 14
        Caption = '实际使用'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Co_Query_CITYCODE: TFlatComboBox
        Tag = 50
        Left = 66
        Top = 8
        Width = 120
        Height = 22
        Style = csDropDownList
        Color = clWindow
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ItemHeight = 14
        ParentFont = False
        TabOrder = 0
        ItemIndex = -1
        OnChange = Co_Query_CITYCODEChange
      end
      object Btn_Query_Normal: TFlatButton
        Left = 62
        Top = 199
        Width = 81
        Height = 25
        Caption = 'VIP资料查询'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 8
        OnClick = Btn_Query_NormalClick
      end
      object Co_Query_OFF_NO_HOME: TFlatComboBox
        Tag = 51
        Left = 66
        Top = 31
        Width = 120
        Height = 22
        Style = csDropDownList
        Color = clWindow
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ItemHeight = 14
        ParentFont = False
        TabOrder = 1
        ItemIndex = -1
      end
      object Co_Query_GRADE_ID: TFlatComboBox
        Tag = 27
        Left = 66
        Top = 55
        Width = 120
        Height = 22
        Style = csDropDownList
        Color = clWindow
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ItemHeight = 14
        ParentFont = False
        TabOrder = 2
        ItemIndex = -1
      end
      object Ed_Wk_No: TFlatEdit
        Tag = 52
        Left = 66
        Top = 79
        Width = 120
        Height = 20
        ColorFlat = clWindow
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        MaxLength = 10
        ParentFont = False
        TabOrder = 3
        OnKeyPress = Ed_Query_SidKeyPress
      end
      object Ed_Query_Sid: TFlatEdit
        Left = 66
        Top = 101
        Width = 120
        Height = 20
        ColorFlat = clWindow
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        MaxLength = 11
        ParentFont = False
        TabOrder = 4
        OnKeyPress = Ed_Query_SidKeyPress
      end
      object Co_Query_Property: TFlatComboBox
        Tag = 34
        Left = 66
        Top = 167
        Width = 120
        Height = 22
        Style = csDropDownList
        Color = clWindow
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ItemHeight = 14
        ParentFont = False
        TabOrder = 7
        ItemIndex = -1
      end
      object FlatEdit1: TFlatEdit
        Left = 66
        Top = 123
        Width = 120
        Height = 20
        ColorFlat = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
      end
      object FlatEdit3: TFlatEdit
        Left = 66
        Top = 145
        Width = 120
        Height = 20
        Hint = '请输入您要查询的实际使用人的姓名。'
        ColorFlat = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 6
      end
    end
  end
  object Panel2: TPanel
    Left = 193
    Top = 0
    Width = 587
    Height = 486
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object Panel3: TPanel
      Left = 0
      Top = 443
      Width = 587
      Height = 43
      Align = alBottom
      BevelOuter = bvLowered
      TabOrder = 0
      object Btn_Add: TFlatButton
        Tag = 1
        Left = 58
        Top = 8
        Width = 75
        Height = 25
        Caption = '新增'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333333FF33333333FF333993333333300033377F3333333777333993333333