jtyh.dfm

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

                Top = 1
                Width = 588
                Height = 211
                Align = alClient
                DataSource = DataSourceQueryGroupMemoDay
                PopupMenu = PopupMenu2
                TabOrder = 0
                TitleFont.Charset = ANSI_CHARSET
                TitleFont.Color = clWindowText
                TitleFont.Height = -14
                TitleFont.Name = '宋体'
                TitleFont.Style = []
                Columns = <
                  item
                    Expanded = False
                    FieldName = 'GMEMO_NAME'
                    Title.Caption = '集团纪念日标题'
                    Width = 239
                    Visible = True
                  end
                  item
                    Expanded = False
                    FieldName = 'GMEMO_SDATE'
                    Title.Caption = '开始日期'
                    Width = 114
                    Visible = True
                  end
                  item
                    Expanded = False
                    FieldName = 'GMEMO_EDATE'
                    Title.Caption = '结束日期'
                    Width = 121
                    Visible = True
                  end>
              end
            end
            object FlatPanel2: TFlatPanel
              Left = 445
              Top = 189
              Width = 139
              Height = 33
              ParentColor = True
              TabOrder = 7
              UseDockManager = True
              object FlatButton4: TFlatButton
                Left = 70
                Top = 5
                Width = 63
                Height = 23
                ColorFocused = 7715583
                Caption = '取消'
                Glyph.Data = {
                  76010000424D7601000000000000760000002800000020000000100000000100
                  04000000000000010000130B0000130B00001000000000000000000000000000
                  800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                  FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
                  3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
                  3333333777333777FF33339993707399933333773337F3777FF3399933000339
                  9933377333777F3377F3399333707333993337733337333337FF993333333333
                  399377F33333F333377F993333303333399377F33337FF333373993333707333
                  333377F333777F333333993333101333333377F333777F3FFFFF993333000399
                  999377FF33777F77777F3993330003399993373FF3777F37777F399933000333
                  99933773FF777F3F777F339993707399999333773F373F77777F333999999999
                  3393333777333777337333333999993333333333377777333333}
                Layout = blGlyphLeft
                NumGlyphs = 2
                TabOrder = 0
                OnClick = FlatButton4Click
              end
              object FlatButton5: TFlatButton
                Tag = 4
                Left = 6
                Top = 5
                Width = 60
                Height = 23
                ColorFocused = 7715583
                Caption = '保存'
                Glyph.Data = {
                  76010000424D7601000000000000760000002800000020000000100000000100
                  04000000000000010000120B0000120B00001000000000000000000000000000
                  800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                  FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
                  333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
                  00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
                  00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
                  00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
                  00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
                  00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
                  00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
                  0003737FFFFFFFFF7F7330099999999900333777777777777733}
                Layout = blGlyphLeft
                NumGlyphs = 2
                TabOrder = 1
                OnClick = FlatButton5Click
              end
            end
          end
        end
      end
      object Panelbotton: TPanel
        Left = 1
        Top = 474
        Width = 600
        Height = 37
        Align = alBottom
        TabOrder = 1
        object Panel2: TPanel
          Left = 1
          Top = 0
          Width = 598
          Height = 36
          Align = alBottom
          BevelOuter = bvLowered
          TabOrder = 0
          object Btn_Add: TFlatButton
            Tag = 1
            Left = 147
            Top = 7
            Width = 75
            Height = 25
            Caption = '新增[&N]'
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000130B0000130B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              33333333FF33333333FF333993333333300033377F3333333777333993333333
              300033F77FFF3333377739999993333333333777777F3333333F399999933333
              33003777777333333377333993333333330033377F3333333377333993333333
              3333333773333333333F333333333333330033333333F33333773333333C3333
              330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
              993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
              333333333337733333FF3333333C333330003333333733333777333333333333
              3000333333333333377733333333333333333333333333333333}
            Layout = blGlyphLeft
            NumGlyphs = 2
            TabOrder = 0
            OnClick = Btn_AddClick
          end
          object Btn_Modify: TFlatButton
            Tag = 2
            Left = 221
            Top = 7
            Width = 75
            Height = 25
            Caption = '修改[&U]'
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000120B0000120B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
              000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
              00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
              F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
              0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
              FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
              FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
              0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
              00333377737FFFFF773333303300000003333337337777777333}
            Layout = blGlyphLeft
            NumGlyphs = 2
            TabOrder = 1
            OnClick = Btn_ModifyClick
          end
          object Btn_Delete: TFlatButton
            Tag = 3
            Left = 295
            Top = 7
            Width = 75
            Height = 25
            Caption = '删除[&D]'
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000130B0000130B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              333333333333333333FF33333333333330003333333333333777333333333333
              300033FFFFFF3333377739999993333333333777777F3333333F399999933333
              3300377777733333337733333333333333003333333333333377333333333333
              3333333333333333333F333333333333330033333F33333333773333C3333333
              330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
              993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
              333333377F33333333FF3333C333333330003333733333333777333333333333
              3000333333333333377733333333333333333333333333333333}
            Layout = blGlyphLeft
            NumGlyphs = 2
            TabOrder = 2
            OnClick = Btn_DeleteClick
          end
          object Btn_Save: TFlatButton
            Tag = 4
            Left = 369
            Top = 7
            Width = 75
            Height = 25
            Caption = '保存[&S]'
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000120B0000120B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
              00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
              00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
              00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
              00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
              00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
              00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
              0003737FFFFFFFFF7F7330099999999900333777777777777733}
            Layout = blGlyphLeft
            NumGlyphs = 2
            TabOrder = 3
            OnClick = Btn_SaveClick
          end
          object Btn_Cancel: TFlatButton
            Tag = 5
            Left = 443
            Top = 7
            Width = 75
            Height = 25
            Caption = '取消[&C]'
            Glyph.Data = {
              EE000000424DEE000000000000007600000028000000100000000F0000000100
              0400000000007800000000000000000000001000000000000000000000000000
              8000008000000080800080000000800080008080000080808000C0C0C0000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
              FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7
              4FFFFF44444FFFFF47FFFF4444FFFFFFF4FFFF444FFFFFFFF4FFFF44F4FFFFFF
              F4FFFF4FFF44FFFF47FFFFFFFFFF44447FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
              FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
            Layout = blGlyphLeft
            NumGlyphs = 2
            TabOrder = 4
            OnClick = Btn_CancelClick
          end
          object Btn_Exit: TFlatButton
            Left = 518
            Top = 7
            Width = 75
            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 = 5
            OnClick = Btn_ExitClick
          end
        end
      end
    end
  end
  object Querytemp: TQuery
    DatabaseName = 'db_vipdl'
    Left = 128
    Top = 288
  end
  object queryjtyh: TQuery
    DatabaseName = 'db_vipdl'
    Left = 64
    Top = 288
  end
  object DataSourcejtyh: TDataSource
    DataSet = queryjtyh
    OnDataChange = DataSourcejtyhDataChange
    Left = 96
    Top = 288
  end
  object Queryt_f_custinfo: TQuery
    DatabaseName = 'db_vipdl'
    SQL.Strings = (
      
        'select a.*,b.par_desc sxmc,c.productname,d.par_desc statsm,e.cit' +
        'yname,f.home_name,g.areaname'
      
        'from t_f_custinfo a,t_v_custatt b,t_d_product c,t_v_custstatus d' +
        ',t_d_city e,t_d_county f,t_d_area g                             ' +
        '  '
      
        'where a.sxdm=b.sxdm and a.user_zjbs=c.productno and a.stat=d.sta' +
        't and a.cityno=e.cityno and a.off_no_home=f.off_no_home and a.ci' +
        'tyno=f.cityno and '
      
        'a.cityno=g.cityno and a.off_no_home=g.off_no_home and a.qid=g.ar' +
        'eano '
      'and jtyhdm=:jtyhdm')
    Left = 128
    Top = 320
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'jtyhdm'
        ParamType = ptUnknown
      end>
  end
  object DataSourcet_f_custinfo: TDataSource
    DataSet = Queryt_f_custinfo
    Left = 96
    Top = 320
  end
  object DataSourceCustInfoMember: TDataSource
    DataSet = QueryCustInfoMember
    OnDataChange = DataSourceCustInfoMemberDataChange
    Left = 96
    Top = 352
  end
  object QueryCustInfoMember: TQuery
    DatabaseName = 'db_vipdl'
    Left = 128
    Top = 352
  end
  object PopupMenu1: TPopupMenu
    Images = ImageList1
    Left = 40
    Top = 355
    object N1: TMenuItem
      Caption = '新增集团信息员'
      ImageIndex = 1
      OnClick = N1Click
    end
    object N3: TMenuItem
      Caption = '修改信息员资料'
      ImageIndex = 0
      OnClick = N3Click
    end
    object N2: TMenuItem
      Caption = '删除集团信息员'
      ImageIndex = 2
      OnClick = N2Click
    end
  end
  object ImageList1: TImageList
    Left = 61
    Top = 355
    Bitmap = {
      494C010103000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001001000000000000008
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000007C007C00000000
      0000000000000000000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7F00000000000000000000FF7F0000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000007C007C00000000
      00000000000000000000000000000000000000000000FF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7F0000007C007C007C0000FF7F00000000007C007C007C00000000
      EF3D0000EF3D00000000007C007C007C00000000000000000000000000000000
      0000000000000000000000000000000000000000007C007C007C007C007C007C
      000000000000000000000000000000000000000000000000FF7FFF7FFF7FFF7F
      FF7FFF7FFF7F0000007C007C007C0000FF7F000000000000007C007C007C0000
      0000000000000000007C007C007C000000000000000000000000000000000000
      0000000000000000000000000000000000000000007C007C007C007C007C007C
      0000000000000000000000000000000000000000000000000000FF7FFF7FFF7F
      FF7FFF7FFF7F0000007C007C007C0000FF7F0000000000000000007C007C007C
      EF3D0000EF3D007C007C007C0000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000007C007C00000000
      00000000000000000000000000000000000000000000000000000000FF7FFF7F
      FF7FFF7FFF7F00000000000000000000FF7F00000000000000000000007C007C
      007C0000007C007C007C00000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000007C007C00000000
      000000000000000000000000000000000000000000000000000000000000FF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000000000000000007C
      007C0000007C007C000