unit_custombrowsebase.dfm

一个不错的源程序DELPHI开发的,功能比较好的客户管理系统

            Font.Charset = GB2312_CHARSET
            Font.Color = clMaroon
            Font.Height = -13
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
            TabOrder = 6
            object ToolBar27: TToolBar
              Left = 8
              Top = 8
              Width = 207
              Height = 29
              ButtonWidth = 91
              Caption = 'ToolBar1'
              EdgeBorders = [ebBottom]
              ShowCaptions = True
              TabOrder = 0
              object ToolButton25: TToolButton
                Left = 0
                Top = 2
                Width = 57
                Caption = 'ToolButton1'
                Style = tbsSeparator
              end
              object btnJT_SelectOrder: TToolButton
                Tag = 1
                Left = 57
                Top = 2
                Caption = '  查询排序  '
                Style = tbsCheck
                OnClick = btnJT_SelectOrderClick
              end
              object ToolButton26: TToolButton
                Left = 148
                Top = 2
                Width = 89
                Caption = 'ToolButton3'
                ImageIndex = 0
                Style = tbsSeparator
              end
            end
          end
          object PanelJT_selectORder: TPanel
            Left = 0
            Top = 78
            Width = 205
            Height = 268
            Align = alTop
            BevelOuter = bvNone
            TabOrder = 7
            object Label998: TLabel
              Left = 178
              Top = 8
              Width = 14
              Height = 14
              Caption = '条'
            end
            object spiJT_Return: TFlatSpinEditInteger
              Left = 104
              Top = 6
              Width = 72
              Height = 21
              ColorFlat = clBtnFace
              AutoSize = False
              MaxValue = 0
              MinValue = 0
              ParentColor = True
              TabOrder = 0
              Value = 1000
            end
            object cbJT_return: TFlatCheckBox
              Left = 7
              Top = 7
              Width = 95
              Height = 16
              Caption = '数据最多返回'
              Checked = True
              TabOrder = 1
              TabStop = True
              OnClick = cbJT_returnClick
            end
            object cbJT_Order: TFlatCheckBox
              Left = 7
              Top = 30
              Width = 113
              Height = 16
              Caption = '排序字段'
              Checked = True
              TabOrder = 2
              TabStop = True
              OnClick = cbJT_OrderClick
            end
            object btnJT_to: TFlatButton
              Left = 113
              Top = 143
              Width = 24
              Height = 23
              Glyph.Data = {
                76010000424D7601000000000000760000002800000020000000100000000100
                04000000000000010000120B0000120B00001000000000000000000000000000
                800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
                333333333337F33333333333333033333333333333373F333333333333090333
                33333333337F7F33333333333309033333333333337373F33333333330999033
                3333333337F337F33333333330999033333333333733373F3333333309999903
                333333337F33337F33333333099999033333333373333373F333333099999990
                33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
                33333333337F7F33333333333309033333333333337F7F333333333333090333
                33333333337F7F33333333333309033333333333337F7F333333333333090333
                33333333337F7F33333333333300033333333333337773333333}
              NumGlyphs = 2
              TabOrder = 3
              OnClick = btnJT_toClick
            end
            object btnJT_From: TFlatButton
              Left = 149
              Top = 143
              Width = 23
              Height = 23
              Glyph.Data = {
                76010000424D7601000000000000760000002800000020000000100000000100
                04000000000000010000120B0000120B00001000000000000000000000000000
                800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
                3333333333777F33333333333309033333333333337F7F333333333333090333
                33333333337F7F33333333333309033333333333337F7F333333333333090333
                33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
                3333333777737777F333333099999990333333373F3333373333333309999903
                333333337F33337F33333333099999033333333373F333733333333330999033
                3333333337F337F3333333333099903333333333373F37333333333333090333
                33333333337F7F33333333333309033333333333337373333333333333303333
                333333333337F333333333333330333333333333333733333333}
              NumGlyphs = 2
              TabOrder = 4
              OnClick = btnJT_FromClick
            end
            object lbJT_CanSelect: TListBox
              Left = 7
              Top = 48
              Width = 195
              Height = 90
              Hint = '可选的排序条件'
              ItemHeight = 14
              Items.Strings = (
                '手机号码'
                '地市'
                '局向'
                '品牌名称'
                '消费层次'
                '客户属性'
                '手机状态')
              MultiSelect = True
              ParentShowHint = False
              ShowHint = True
              TabOrder = 5
              OnDblClick = btnJT_toClick
            end
            object lbJT_Selected: TListBox
              Left = 7
              Top = 171
              Width = 195
              Height = 90
              Hint = '已选中的排序条件'
              ItemHeight = 14
              MultiSelect = True
              ParentShowHint = False
              ShowHint = True
              TabOrder = 6
              OnDblClick = btnJT_FromClick
            end
            object rbJT_Asce: TFlatRadioButton
              Left = 7
              Top = 149
              Width = 46
              Height = 15
              Caption = '升序'
              Checked = True
              TabOrder = 7
              TabStop = True
            end
            object rbJT_Desc: TFlatRadioButton
              Left = 59
              Top = 149
              Width = 46
              Height = 15
              Caption = '降序'
              TabOrder = 8
            end
          end
        end
      end
    end
  end
  object Panel2: TPanel
    Left = 234
    Top = 0
    Width = 428
    Height = 398
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object Panel3: TPanel
      Left = 0
      Top = 365
      Width = 428
      Height = 33
      Align = alBottom
      BevelOuter = bvLowered
      TabOrder = 0
      object Panel4: TPanel
        Left = 66
        Top = 1
        Width = 361
        Height = 31
        Align = alRight
        BevelOuter = bvNone
        TabOrder = 0
        object FlatButton2: TFlatButton
          Left = 141
          Top = 5
          Width = 70
          Height = 23
          Caption = '打印'
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
            888F8800000000000888808888888880808800000000000008080888888BBB88
            0008088888877788080800000000000008800888888888808080800000000008
            0800880FFFFFFFF080808880F00000F000088880FFFFFFFF088888880F00000F
            088888880FFFFFFFF08888888000000000888888888888888888}
          Layout = blGlyphLeft
          TabOrder = 0
        end
        object FlatButton3: TFlatButton
          Left = 214
          Top = 5
          Width = 69
          Height = 23
          Caption = '导出'
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000130B0000130B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
            333333333333337FF3333333333333903333333333333377FF33333333333399
            03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
            99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
            99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
            03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
            33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
            33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
            3333777777333333333333333333333333333333333333333333}
          Layout = blGlyphLeft
          NumGlyphs = 2
          TabOrder = 1
        end
        object FlatButton4: TFlatButton
          Left = 286
          Top = 5
          Width = 70
          Height = 23
          Caption = '关闭'
          Glyph.Data = {
            DE010000424DDE01000000000000760000002800000024000000120000000100
            0400000000006801000000000000000000001000000010000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
            F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
            000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
            338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
            45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
            3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
            F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
            000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
            338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
            4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
            8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
            333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
            0000}
          Layout = blGlyphLeft
          NumGlyphs = 2
          TabOrder = 2
          OnClick = FlatButton4Click
        end
      end
    end
    object dbgGR: TDBGrid
      Left = 0
      Top = 0
      Width = 428
      Height = 365
      Align = alClient
      DataSource = dsbrowse_normal
      ImeName = '中文 (简体) - 微软拼音'
      PopupMenu = PopupMenu1
      TabOrder = 1
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -14
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'row_num'
          Title.Alignment = taCenter
          Title.Caption = '序号'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SID_C'
          Title.Alignment = taCenter
          Title.Caption = '手机号码'
          Width = 90
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'NAME'
          Title.Alignment = taCenter
          Title.Caption = '客户姓名'
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DJDM_DESC'
          Title.Alignment = taCenter
          Title.Caption = '消费层次'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SXDM_DESC'
          Title.Alignment = taCenter
          Title.Caption = '客户属性'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'USER_ZJBS_DESC'
          Title.Alignment = taCenter
          Title.Caption = '品牌类型'
          Width = 66
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CITYNO_DESC'
          Title.Alignment = taCenter
          Title.Caption = '地市'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'STAT_DESC'
          Title.Alignment = taCenter
          Title.Caption = '手机状态'
          Width = 62
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'OFF_NO_HOME_DESC'
          Title.Alignment = taCenter
          Title.Caption = '局向'
          Width = 39
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'BE_DH_T'
          Title.Alignment = taCenter
          Title.Caption = '成为大客户'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'XB_DESC'
          Title.Alignment = taCenter
          Title.Caption = '性别'
          Width = 30
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'AGE'
          Title.Alignment = taCenter
          Title.Caption = '年龄'
          Width = 31
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'LXDH'
          Title.Alignment = taCenter
          Title.Caption = '联系电话'
          Width = 70
          Visible = True