selectviplx.dfm

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

object FormSELECTJT: TFormSELECTJT
  Left = 603
  Top = 223
  Width = 290
  Height = 226
  ActiveControl = rad_fy
  BorderIcons = [biSystemMenu, biMinimize, biHelp]
  Caption = '请选择VIP类型'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 16
  object Label1: TLabel
    Left = 24
    Top = 104
    Width = 96
    Height = 16
    Caption = '请选择集团：'
  end
  object FlatGroupBox1: TFlatGroupBox
    Left = 26
    Top = 16
    Width = 212
    Height = 65
    Caption = '请选择VIP类型'
    TabOrder = 0
    object rad_fy: TFlatRadioButton
      Left = 16
      Top = 32
      Width = 84
      Height = 17
      Caption = '费用大户'
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = rad_fyClick
    end
    object rad_jt: TFlatRadioButton
      Left = 118
      Top = 32
      Width = 84
      Height = 17
      Caption = '集团用户'
      TabOrder = 1
      OnClick = rad_jtClick
    end
  end
  object cbjt_jtyhmc: TFlatComboBox
    Left = 24
    Top = 124
    Width = 213
    Height = 24
    Color = clMenu
    ItemHeight = 16
    TabOrder = 1
    ItemIndex = -1
  end
  object Btn_Exit: TFlatButton
    Left = 194
    Top = 164
    Width = 80
    Height = 25
    Caption = '关闭[&X]'
    Glyph.Data = {
      36030000424D3603000000000000360000002800000010000000100000000100
      1800000000000003000000000000000000000000000000000000BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBD
      BDBFBDBDBFBDBDBFBFBFBFBEBEBF0000BF0000BF0000BF0000BF0000BFBFBFBF
      0000BF0000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBDBDBFBDBDBFBEBEBF0000
      BF0000BF0000BF0000BF0000BFBFBFBF0000BF0000000000BFBFBFBFBFBFBFBF
      BFBFBFBFBFBDBDBFBDBDBFBEBEBF0000BE6E6EBE6E6EBE6E6EBF0000BFBFBFBF
      BFBFBF0000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBDBDBFBDBDBFBEBEBF0000
      BE6E6EBE6E6EBE6E6EBF0000BFBFBFBFBFBFBF0000000000BFBFBFBFBFBFBFBF
      BFBFBFBFBFBDBDBFBDBDBFBEBEBF0000BE6E6EBE6E6EBE6E6EBF0000BFBFBFBF
      BFBFBF0000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBDBDBFBDBDBFBEBEBF0000
      BE6E6EBE6E6EBE6E6EBF0000BFBFBFBFBFBFBF0000000000BFBFBFBFBFBFBFBF
      BFBFBFBFBFBDBDBFBDBDBFBEBEBF0000BE6E6EBE6E6EBE6E6EBF0000BFBFBFBF
      BFBFBF0000BFBFBFBFBFBF0000FFBFBFBFBFBFBFBFBDBDBFBDBDBFBEBEBF0000
      BE6E6EBE6E6EBE6E6EBF0000BFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FFBFBF
      BFBFBFBFBFBDBDBFBDBDBFBEBEBF0000BE6E6EBE6E6EBE6E6EBF0000BFBFBFBF
      BFBFBFBFBF0000FF0000FF0000FF0000FF0000FFBFBFBFBFBDBDBFBEBEBF0000
      BE6E6EBE6E6EBF0000BF0000BFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FFBFBF
      BF0000FFBFBFBFBFBDBDBFBEBEBF0000BE6E6EBF0000BF0000BFBFBFBFBFBFBF
      BFBFBF0000BFBFBFBFBFBF0000FFBFBFBFBFBFBF0000FFBFBDBDBFBEBEBF0000
      BF0000BF0000BFBFBFBFBFBFBFBFBFBFBFBFBF0000000000BFBFBFBFBFBFBFBF
      BFBFBFBF0000FFBFBDBDBFBEBEBF0000BF0000BFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBF0000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBDBDBFBEBEBF0000
      BF0000BF0000BF0000BF0000BF0000BF0000BF0000000000BFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBDBDBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBDBDBFBDBDBFBDBDBFBDBDBFBDBD}
    Layout = blGlyphLeft
    TabOrder = 2
    OnClick = Btn_ExitClick
  end
  object FlatButton1: TFlatButton
    Left = 112
    Top = 164
    Width = 80
    Height = 25
    Caption = '确定[&Y]'
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333330000333333333333333333333333F33333333333
      00003333344333333333333333388F3333333333000033334224333333333333
      338338F3333333330000333422224333333333333833338F3333333300003342
      222224333333333383333338F3333333000034222A22224333333338F338F333
      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
      0000333333333A222433333333333338F338F33300003333333333A222433333
      333333338F338F33000033333333333A222433333333333338F338F300003333
      33333333A222433333333333338F338F00003333333333333A22433333333333
      3338F38F000033333333333333A223333333333333338F830000333333333333
      333A333333333333333338330000333333333333333333333333333333333333
      0000}
    Layout = blGlyphLeft
    NumGlyphs = 2
    TabOrder = 3
    OnClick = FlatButton1Click
  end
  object SP_JTYH: TStoredProc
    DatabaseName = 'db_vipdl'
    SessionName = 'Default'
    StoredProcName = 'INTER_JTYH_ONE'
    Left = 10
    Top = 162
    ParamData = <
      item
        DataType = ftString
        Name = 'P_SID'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'P_JTYHDM'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_GH'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'P_cityno'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'RESULT'
        ParamType = ptOutput
      end>
  end
  object QueryAnalyze: TQuery
    DatabaseName = 'db_vipdl'
    Left = 80
    Top = 160
  end
  object SP_TO_VIP: TStoredProc
    DatabaseName = 'db_vipdl'
    StoredProcName = 'INTER_DHDA_ONE'
    Left = 12
    Top = 124
    ParamData = <
      item
        DataType = ftString
        Name = 'VSID'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'INGH'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'incityno'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'RESET'
        ParamType = ptOutput
      end>
  end
end