unit_validatecust.dfm

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

object frm_ValidateCust: Tfrm_ValidateCust
  Left = 166
  Top = 105
  Width = 670
  Height = 450
  ActiveControl = FlatRadioButton1
  Caption = '客户验证管理'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 14
  object PanelLeft: TPanel
    Left = 0
    Top = 0
    Width = 143
    Height = 416
    Align = alLeft
    BevelOuter = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 94
      Width = 56
      Height = 14
      Caption = '手机号码'
    end
    object Label2: TLabel
      Left = 8
      Top = 137
      Width = 56
      Height = 14
      Caption = '业务密码'
    end
    object Label10: TLabel
      Left = 9
      Top = 210
      Width = 7
      Height = 14
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object FlatGroupBox1: TFlatGroupBox
      Left = 8
      Top = 12
      Width = 127
      Height = 65
      Caption = '验证方式'
      TabOrder = 0
      object FlatRadioButton1: TFlatRadioButton
        Left = 15
        Top = 21
        Width = 73
        Height = 18
        Caption = '手机号码'
        Checked = True
        TabOrder = 0
        TabStop = True
        OnClick = FlatRadioButton1Click
      end
      object FlatRadioButton2: TFlatRadioButton
        Left = 16
        Top = 42
        Width = 75
        Height = 18
        Caption = '贵宾卡号'
        TabOrder = 1
        OnClick = FlatRadioButton2Click
      end
    end
    object FlatEditPW: TFlatEdit
      Left = 8
      Top = 152
      Width = 127
      Height = 20
      ColorFlat = clCaptionText
      PasswordChar = '*'
      TabOrder = 2
      OnKeyDown = FlatEditSidKeyDown
      OnKeyPress = FlatEditPWKeyPress
    end
    object FlatEditSid: TFlatEdit
      Left = 8
      Top = 110
      Width = 127
      Height = 20
      ColorFlat = clCaptionText
      TabOrder = 1
      OnKeyDown = FlatEditSidKeyDown
      OnKeyPress = FlatEditSidKeyPress
    end
    object Panel5: TPanel
      Left = 1
      Top = 374
      Width = 141
      Height = 41
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 3
      object FlatSpeedButtonFind: TFlatSpeedButton
        Left = 35
        Top = 13
        Width = 71
        Height = 24
        Caption = '查询'
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333333333333FF3FF3333333333CC30003333333333773777333333333C33
          3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
          33003377333337F33377333333333C333300333F333337F33377339333333C33
          3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
          330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
          330077F377F337F33377993399333C33330077FF773337F33377399993333C33
          33333777733337F333FF333333333C33300033333333373FF7773333333333CC
          3000333333333377377733333333333333333333333333333333}
        Layout = blGlyphLeft
        NumGlyphs = 2
        OnClick = FlatSpeedButtonFindClick
      end
    end
  end
  object PanelRight: TPanel
    Left = 143
    Top = 0
    Width = 519
    Height = 416
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object PanelRightButton: TPanel
      Left = 0
      Top = 381
      Width = 519
      Height = 35
      Align = alBottom
      BevelOuter = bvLowered
      TabOrder = 0
      object Panel6: TPanel
        Left = 333
        Top = 1
        Width = 185
        Height = 33
        Align = alRight
        BevelOuter = bvNone
        TabOrder = 0
        object FlatSpeedButton2: TFlatSpeedButton
          Left = 108
          Top = 5
          Width = 71
          Height = 24
          Caption = '关闭'
          Glyph.Data = {
            DE010000424DDE01000000000000760000002800000024000000120000000100
            0400000000006801000000000000000000001000000010000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
            F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
            000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
            338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
            45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
            3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
            F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
            000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
            338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
            4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
            8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
            333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
            0000}
          Layout = blGlyphLeft
          NumGlyphs = 2
          OnClick = FlatSpeedButton2Click
          Anchors = [akRight, akBottom]
        end
      end
    end
    object PanelRightTop: TPanel
      Left = 0
      Top = 0
      Width = 519
      Height = 381
      Align = alClient
      BevelOuter = bvLowered
      TabOrder = 1
      object Label7: TLabel
        Left = 13
        Top = 86
        Width = 84
        Height = 14
        Caption = '客户经理工号'
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label8: TLabel
        Left = 284
        Top = 84
        Width = 84
        Height = 14
        Caption = '客户经理姓名'
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label9: TLabel
        Left = 13
        Top = 111
        Width = 98
        Height = 14
        Caption = '客户经理手机号'
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label6: TLabel
        Left = 284
        Top = 55
        Width = 49
        Height = 14
        Caption = 'VIP卡号'
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 13
        Top = 55
        Width = 70
        Height = 14
        Caption = '实际使用人'
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 284
        Top = 28
        Width = 56
        Height = 14
        Caption = '客户姓名'
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 13
        Top = 27
        Width = 56
        Height = 14
        Caption = '手机号码'
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object FlatEditWk_NoSid: TFlatEdit
        Left = 118
        Top = 108
        Width = 114
        Height = 20
        ColorFlat = clWhite
        Enabled = False
        ReadOnly = True
        TabOrder = 0
      end
      object FlatEdit8: TFlatEdit
        Left = 375
        Top = 82
        Width = 123
        Height = 20
        ColorFlat = clWhite
        Enabled = False
        ReadOnly = True
        TabOrder = 1
      end
      object FlatEditWk_No: TFlatEdit
        Left = 118
        Top = 81
        Width = 114
        Height = 20
        ColorFlat = clWhite
        Enabled = False
        ReadOnly = True
        TabOrder = 2
      end
      object FlatEdit6: TFlatEdit
        Left = 375
        Top = 52
        Width = 123
        Height = 20
        ColorFlat = clWhite
        Enabled = False
        ReadOnly = True
        TabOrder = 3
      end
      object FlatEditActualUser: TFlatEdit
        Left = 118
        Top = 53
        Width = 114
        Height = 20
        ColorFlat = clWhite
        Enabled = False
        ReadOnly = True
        TabOrder = 4
      end
      object FlatEditUserName: TFlatEdit
        Left = 375
        Top = 25
        Width = 123
        Height = 20
        ColorFlat = clWhite
        Enabled = False
        ReadOnly = True
        TabOrder = 5
      end
      object FlatEditSidView: TFlatEdit
        Left = 118
        Top = 24
        Width = 114
        Height = 20
        ColorFlat = clWhite
        Enabled = False
        ReadOnly = True
        TabOrder = 6
      end
    end
  end
  object Q_s: TQuery
    DatabaseName = 'db_vipdl'
    Left = 205
    Top = 264
  end
  object Query1: TQuery
    DatabaseName = 'db_vipdl'
    Left = 255
    Top = 264
  end
end