moddefine.bas

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

Attribute VB_Name = "modDefine"

Public Sub createFormat()
    Dim sps As New spListHeaders
    Dim i As Long
    cnnString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=led;Data Source=CYJ\SQL"
'
'SELECT smsrid, mobile, sms, rtime, readed, cname, cid, birth
'From dbo.vwrecvedsms
'v_recvedsms

'    With sps
'        .isTwoS = False
'        .other = "all"
'        .vName = "接受的短信"
'        .ViewNo = "v_recvedsms"
'        .ReadOnly = False
'        .Add "编号", "smsrid", 500, "@", , , , , , , , , 1, , 1, , , False
'        .Add "客户编号", "cid", 500, "@", , , , , , , , , 1, , 1, , , False
'        .Add "客户名称", "cname", 2500, "@", , , , , , , , , 2, , 1, , , True
'        .Add "手机", "mobile", 2500, "@", , , , , , , , , 4, , 1, , , True
'        .Add "短信", "sms", 5000, "@", , , , , , , , , 7, , 1, , , True
'
'        .Add "是否已经发读？", "readed", 1500, Booleanformat, , , , , , , , , 4, , 1, , , True, "√"
'
'        .Add "时间", "rtime", 1500, Dateformat, , , , , , , , , 3, , 1, , , True
'
'
'
'    End With
'
'    SaveViewStruct sps, cnnString, sps.ViewNo
'    For i = 1 To sps.Count
'        sps.Remove 1
'    Next



'SELECT cid, gsid, stime, imsend, rtime, cname, isall, sms
'From dbo.vwgsendsms
'v_gsendsms
'    With sps
'        .isTwoS = False
'        .other = "all"
'        .vName = "短信群发记录"
'        .ViewNo = "v_gsendsms"
'        .ReadOnly = False
'        .Add "编号", "gsid", 500, "@", , , , , , , , , 1, , 1, , , False
'        .Add "客户分类编号", "cid", 500, "@", , , , , , , , , 1, , 1, , , False
'        .Add "客户分类名称", "cname", 2500, "@", , , , , , , , , 2, , 1, , , True
'        .Add "短信", "sms", 5000, "@", , , , , , , , , 7, , 1, , , True
'
'        .Add "立即发送？", "imsend", 1500, Booleanformat, , , , , , , , , 4, , 1, , , True, "√"
'        .Add "对所有客户发送？", "smsfrom", 1500, Booleanformat, , , , , , , , , 4, , 1, , , True, "√"
'
'        .Add "准备时间", "rtime", 1500, Dateformat, , , , , , , , , 3, , 1, , , True
'        .Add "发送时间", "stime", 1500, Dateformat, , , , , , , , , 3, , 1, , , True
'
'
'
'    End With
'
'    SaveViewStruct sps, cnnString, sps.ViewNo
'    For i = 1 To sps.Count
'        sps.Remove 1
'    Next



'SELECT smsid, mobile, cid, sms, sendisok, rtime, stime, smsfrom, imsend
'From dbo.sendsms
'v_sendsms
'    With sps
'        .isTwoS = False
'        .other = "all"
'        .vName = "短信发送记录"
'        .ViewNo = "v_sendsms"
'        .ReadOnly = False
'        .Add "编号", "smsid", 500, "@", , , , , , , , , 1, , 1, , , False
'        .Add "客户编号", "cid", 500, "@", , , , , , , , , 1, , 1, , , False
'        .Add "客户名称", "cname", 2500, "@", , , , , , , , , 2, , 1, , , True
'        .Add "手机", "mobile", 2500, "@", , , , , , , , , 4, , 1, , , True
'        .Add "短信", "sms", 5000, "@", , , , , , , , , 7, , 1, , , True
'
'        .Add "是否已经发送？", "sendisok", 1500, Booleanformat, , , , , , , , , 4, , 1, , , True, "√"
'        .Add "立即发送？", "imsend", 1500, Booleanformat, , , , , , , , , 4, , 1, , , True, "√"
'        .Add "群发短信？", "smsfrom", 1500, Booleanformat, , , , , , , , , 4, , 1, , , True, "√"
'
'        .Add "准备时间", "rtime", 1500, Dateformat, , , , , , , , , 3, , 1, , , True
'        .Add "发送时间", "stime", 1500, Dateformat, , , , , , , , , 3, , 1, , , True
'
'
'
'    End With
'
'    SaveViewStruct sps, cnnString, sps.ViewNo
'    For i = 1 To sps.Count
'        sps.Remove 1
'    Next


'v_group
'    With sps
'        .isTwoS = False
'        .other = "all"
'        .vName = "客户分组"
'        .ViewNo = "v_group"
'        .ReadOnly = False
'        .Add "编号", "gid", 500, "@", , , , , , , , , 1, , 1, , , False
'        .Add "客户编号", "cid", 500, "@", , , , , , , , , 1, , 1, , , False
'        .Add "分类编号", "ccid", 500, "@", , , , , , , , , 1, , 1, , , False
'        .Add "客户名称", "cusname", 2500, "@", , , , , , , , , 2, , 1, , , True
'        .Add "手机", "mobile", 2500, "@", , , , , , , , , 4, , 1, , , True
'         .Add "分类名称", "cname", 2500, "@", , , , , , , , , 7, , 1, , , True
'
'
'
'    End With
'
'    SaveViewStruct sps, cnnString, sps.ViewNo
'    For i = 1 To sps.Count
'        sps.Remove 1
'    Next



'SELECT cid, birth, cname, sex, mobile, phone, memo
'From dbo.customer
''v_customer
'    With sps
'        .isTwoS = False
'        .other = "all"
'        .vName = "客户资料"
'        .ViewNo = "v_customer"
'        .ReadOnly = False
'        .Add "编号", "cid", 500, "@", , , , , , , , , 1, , 1, , , False
'        .Add "客户名称", "cname", 2500, "@", , , , , , , , , 2, , 1, , , True
'        .Add "生日", "birth", 2500, "@", , , , , , , , , 3, , 1, , , True
'        .Add "手机", "mobile", 2500, "@", , , , , , , , , 4, , 1, , , False
'        .Add "电话", "phone", 2500, "@", , , , , , , , , 5, , 1, , , True
'        .Add "性别", "sex", 2500, "@", , , , , , , , , 6, , 1, , , True
'        .Add "备注", "memo", 2500, "@", , , , , , , , , 7, , 1, , , True
'
'
'
'    End With
'
'    SaveViewStruct sps, cnnString, sps.ViewNo
'    For i = 1 To sps.Count
'        sps.Remove 1
'    Next



''v_cusclass
'    With sps
'        .isTwoS = False
'        .other = "all"
'        .vName = "客户分类目录"
'        .ViewNo = "v_cusclass"
'        .ReadOnly = False
'        .Add "名称", "cname", 5000, , , , , , , , , , 2, , 1, , , True
'        .Add "编号", "ccid", 1000, , , , , , , , , , 0, , 1, , , False
'    End With
'    SaveViewStruct sps, cnnString, sps.ViewNo
'    For i = 1 To sps.Count
'        sps.Remove 1
'    Next


''v_smsm
'    With sps
'        .isTwoS = False
'        .other = "all"
'        .vName = "常用短语"
'        .ViewNo = "v_smsm"
'        .ReadOnly = False
'        .Add "短语", "text", 5000, , , , , , , , , , 2, , 1, , , True
'        .Add "编号", "mid", 1000, , , , , , , , , , 0, , 1, , , False
'    End With
'    SaveViewStruct sps, cnnString, sps.ViewNo
'    For i = 1 To sps.Count
'        sps.Remove 1
'    Next
'








i = 10
















''VUSER
'    With sps
'        .isTwoS = False
'        .other = "all"
'        .vName = "操作员列表"
'        .ViewNo = "VUsers"
'        .ReadOnly = False
'        .Add "操作员编号", "userid", 500, "@", , , , , , , , , 1, , 1, , , True
'        .Add "操作员名称", "username", 2000, "@", , , , , , , , , 2, , 1, , , True
'        .Add "口令", "password", 1000, "@", , , , , , , , , 0, , 1, , , False
'    End With
'    SaveViewStruct sps, cnnString, "VUsers"
'    For i = 1 To sps.Count
'        sps.Remove 1
'    Next
''
''vrights
'    With sps
'        .isTwoS = False
'        .other = "readonly"
'        .vName = "设置操作员的权限"
'        .ViewNo = "VRights"
'        .ReadOnly = False
'        .Add "功能编号", "funid", 500, "@", , , , , , , , , 1, , 1, , , True
'        .Add "功能名称", "funname", 2000, "@", , , , , , , , , 2, , 1, , , True
'        .Add "选择", "Selected", 800, , , , , , , , , , 0, , 1, , , True, "√", , , , , , fmtBoolean
'    End With
'
'    SaveViewStruct sps, cnnString, sps.ViewNo
'    For i = 1 To sps.Count
'        sps.Remove 1
'    Next
'        For i = 1 To sps.Count
'        sps.Remove 1
'    Next
'
''vfuns
'    With sps
'        .isTwoS = False
'        .other = "readonly"
'        .vName = "系统功能"
'        .ViewNo = "vfuns"
'        .ReadOnly = False
'        .Add "编号", "funid", 500, "@", , , , , , , , , 1, , 1, , , True
'        .Add "功能名", "funname", 2000, "@", , , , , , , , , 2, , 1, , , True
'    End With
'
'    SaveViewStruct sps, cnnString, sps.ViewNo
'    For i = 1 To sps.Count
'        sps.Remove 1
'    Next
'

End Sub