modres.bas

短信平台管理系统是一个短信收发的平台,用户可以找一些代理的短信平台(IP),在系统里修改一些设置就可以进行短信的收发,有短信服务器的IP,服务器端口.系统还有一些常用用户的设置,包括客户资料,客户分类

Attribute VB_Name = "modres"
'在这里定义功能常量

Public Const RWREADONLY = "readonly"
Public Const ALL = "all"
Public Const MODIFY = "modify"


Public Const strKadd = "Add"
Public Const strKedit = "Edit"
Public Const strKdel = "Delete"
Public Const strKsave = "Save"
Public Const strKfirst = "First"
Public Const strKlast = "Last"
Public Const strKnext = "Next"
Public Const strKpre = "Prev"

Public Const strKhelp = "Help"    '帮助
Public Const strKclose = "Exit"   '退出

'单据列表工具条所用资源的关键字字符串
Public Const strKprint = "print"   '打印
Public Const strKpreview = "preview"   '打印预览
Public Const strKOUTPUT = "output"
Public Const strKfilter = "filter"   '过滤
Public Const strKsetfield = "setfield"   '设置显示字段
Public Const strKsort = "sort"  '排序
Public Const strKrefresh = "refresh"  '刷新
Public Const strKfind = "find"    '查找


Public Const strCadd = "增加"
Public Const strCedit = "修改"
Public Const strCdel = "删除"
Public Const strCsave = "保存"
Public Const strCfirst = "第一个"
Public Const strClast = "最后"
Public Const strCnext = "下一个"
Public Const strCpre = "前一个"

'单据列表工具条所用资源的标题字符串
Public Const strCprint = "Print"
Public Const strCpreview = "Preview"
Public Const strCOUTPUT = "Import"
Public Const strCfilter = "过滤"
Public Const strCfind = "查找"
Public Const strCsetfield = "设置"
Public Const strCsort = "排序"
Public Const strCrefresh = "刷新"

Public Const strChelp = "帮助"
Public Const strCclose = "退出"


Public Const IDB_add = 323
Public Const IDB_edit = 324
Public Const IDB_del = 326
Public Const IDB_save = 1145

Public Const IDB_first = 1174
Public Const IDB_last = 1117
Public Const IDB_next = 1133
Public Const IDB_pre = 1139
Public Const IDB_OUTPUT = 308



' 单据列表工具条所用资源
Public Const IDB_print = 314   '打印
Public Const IDB_preview = 312   '打印预览
Public Const IDB_filter = 1120   '过滤
Public Const IDB_find = 309    '查找
Public Const IDB_setfield = 8     '设置显示字段
Public Const IDB_sort = 1148  '排序
Public Const IDB_refresh = 154  '刷新
Public Const IDB_help = 396    '帮助
Public Const IDB_close = 1118   '退出


Public Sub Init_DataGridImglist(imglstX As ImageList, tbrObj As Toolbar, blnReadonly As Boolean, Optional RWoption As String)
    With imglstX.ListImages
            .Clear
            .Add , strKprint, LoadResPicture(IDB_print, 0)
            .Add , strKpreview, LoadResPicture(IDB_preview, 0)
            .Add , strKOUTPUT, LoadResPicture(IDB_OUTPUT, 0)

            
            .Add , strKadd, LoadResPicture(IDB_add, 0)
            .Add , strKedit, LoadResPicture(IDB_edit, 0)
            .Add , strKdel, LoadResPicture(IDB_del, 0)
            .Add , strKsave, LoadResPicture(IDB_save, 0)

            .Add , strKfilter, LoadResPicture(IDB_filter, 0)
            .Add , strKfind, LoadResPicture(IDB_find, 0)
            .Add , strKsetfield, LoadResPicture(IDB_setfield, 0)
            .Add , strKsort, LoadResPicture(IDB_sort, 0)
            .Add , strKrefresh, LoadResPicture(IDB_refresh, 0)

            .Add , strKhelp, LoadResPicture(IDB_help, 0)
            .Add , strKclose, LoadResPicture(IDB_close, 0)
       
    End With
    
    With tbrObj.Buttons
        .Clear
        '.Add , strKprint, strCprint, , strKprint
        '.Add , strKpreview, strCpreview, , strKpreview
        '.Add , strKOUTPUT, strCOUTPUT, , strKOUTPUT
        '.Add , , , tbrSeparator
        If RWoption = ALL Then
            .Add , strKadd, strCadd, , strKadd
            .Add , strKedit, strCedit, , strKedit
            .Add , strKdel, strCdel, , strKdel
            .Add , , , tbrSeparator
        ElseIf RWoption = MODIFY Then
            .Add , strKedit, strCedit, , strKedit
            .Add , , , tbrSeparator
        
        End If
        '.Add , strKfilter, strCfilter, , strKfilter
        .Add , strKfind, strCfind, , strKfind
        .Add , strKsort, strCsort, , strKsort
        .Add , strKsetfield, strCsetfield, , strKsetfield
        .Add , strKrefresh, strCrefresh, , strKrefresh
        .Add , strKsave, strCsave, , strKsave
        .Add , , , tbrSeparator
        .Add , strKhelp, strChelp, , strKhelp
        .Add , strKclose, strCclose, , strKclose
    End With
    
End Sub
Public Sub Init_ListImglist(imglstX As ImageList, tbrObj As Toolbar, blnView As Boolean, Optional RWoption As String)
    With imglstX.ListImages
            .Clear
            .Add , strKprint, LoadResPicture(IDB_print, 0)
            .Add , strKpreview, LoadResPicture(IDB_preview, 0)
            .Add , strKOUTPUT, LoadResPicture(IDB_OUTPUT, 0)

            
            .Add , strKadd, LoadResPicture(IDB_add, 0)
            .Add , strKedit, LoadResPicture(IDB_edit, 0)
            
            .Add , strKsave, LoadResPicture(IDB_save, 0)
            .Add , strKfilter, LoadResPicture(IDB_filter, 0)
            .Add , strKfind, LoadResPicture(IDB_find, 0)
            .Add , strKsetfield, LoadResPicture(IDB_setfield, 0)
            .Add , strKsort, LoadResPicture(IDB_sort, 0)
            .Add , strKrefresh, LoadResPicture(IDB_refresh, 0)

            .Add , strKhelp, LoadResPicture(IDB_help, 0)
            .Add , strKclose, LoadResPicture(IDB_close, 0)
       
    End With
    
    With tbrObj.Buttons
            .Clear
            '.Add , strKprint, strCprint, , strKprint
            '.Add , strKpreview, strCpreview, , strKpreview
            '.Add , strKOUTPUT, strCOUTPUT, , strKOUTPUT
            '.Add , , , tbrSeparator
            If RWoption = ALL Then
                .Add , strKadd, strCadd, , strKadd
                .Add , strKedit, strCedit, , strKedit
                .Add , strKdel, strCdel, , strKdel
                .Add , , , tbrSeparator
            ElseIf RWoption = MODIFY Then
                .Add , strKedit, strCedit, , strKedit
                .Add , , , tbrSeparator
            End If
            .Add , strKfilter, strCfilter, , strKfilter
            .Add , strKfind, strCfind, , strKfind
            .Add , strKsort, strCsort, , strKsort
            .Add , strKsetfield, strCsetfield, , strKsetfield
            .Add , strKrefresh, strCrefresh, , strKrefresh
            .Add , strKsave, strCsave, , strKsave
            .Add , , , tbrSeparator
            .Add , strKhelp, strChelp, , strKhelp
            .Add , strKclose, strCclose, , strKclose
    End With
    
End Sub
Public Sub Init_pListImglist(imglstX As ImageList, tbrObj As Toolbar, blnView As Boolean)
    With imglstX.ListImages
            .Clear
            .Add , strKprint, LoadResPicture(IDB_print, 0)
            .Add , strKpreview, LoadResPicture(IDB_preview, 0)
            .Add , strKOUTPUT, LoadResPicture(IDB_OUTPUT, 0)

            
            .Add , strKadd, LoadResPicture(IDB_add, 0)
            .Add , strKedit, LoadResPicture(IDB_edit, 0)
            
            .Add , strKsave, LoadResPicture(IDB_save, 0)
            .Add , strKfilter, LoadResPicture(IDB_filter, 0)
            .Add , strKfind, LoadResPicture(IDB_find, 0)
            .Add , strKsetfield, LoadResPicture(IDB_setfield, 0)
            .Add , strKsort, LoadResPicture(IDB_sort, 0)
            .Add , strKrefresh, LoadResPicture(IDB_refresh, 0)

            .Add , strKhelp, LoadResPicture(IDB_help, 0)
            .Add , strKclose, LoadResPicture(IDB_close, 0)
       
    End With
    
    With tbrObj.Buttons
            .Clear
            .Add , strKprint, strCprint, , strKprint
            '.Add , strKpreview, strCpreview, , strKpreview
            '.Add , strKOUTPUT, strCOUTPUT, , strKOUTPUT
            .Add , , , tbrSeparator
            'If blnView Then
            '    .Add , strKadd, strCadd, , strKadd
                '.Add , strKedit, strCedit, , strKedit
            '    .Add , , , tbrSeparator
            'End If
            .Add , strKfilter, strCfilter, , strKfilter
            '.Add , strKfind, strCfind, , strKfind
            '.Add , strKsort, strCsort, , strKsort
            '.Add , strKsetfield, strCsetfield, , strKsetfield
            .Add , strKrefresh, strCrefresh, , strKrefresh
            '.Add , strKsave, strCsave, , strKsave
            .Add , , , tbrSeparator
            '.Add , strKhelp, strChelp, , strKhelp
            .Add , strKclose, strCclose, , strKclose
    End With
    
End Sub