modfunc.bas

来自「图书管理系统 asp+sql server 2000」· BAS 代码 · 共 67 行

Attribute VB_Name = "modFunc"
'定义变量
Public IsAdd As Boolean           '是否为增加操作,否的时候为修改操作
Public CurUserName As String
Public CurUserType                '1--超级用户,2--普通用户
'为ComboBox控件中添加数据项
Public Sub Addcbo(ByVal paraCombo As ComboBox, ByVal paraSQLStmt As String, ByVal index As Integer)
Dim rs As New ADODB.Recordset     '定义RecordSet对象
Set rs = SQLQuery(paraSQLStmt)
While Not rs.EOF                  '向ComboBox控件中添加数据
  paraCombo.AddItem rs.Fields(index).Value
  rs.MoveNext
Wend
DBDisconnect                      '断开连接,调用moddb模块中的断开连接子过程

End Sub
 
'为ListBox控件中添加数据,用于刷新用户名,用户类型等信息
Public Sub Addlist(ByVal paraList As ListBox)
   '定义RecordSet 对象
   Dim rs As New ADODB.Recordset
   SQLStr = "select * from PasswdInfo"
   Set rs = SQLQuery(SQLStr)
   paraList.Clear
   While Not rs.EOF
    paraList.AddItem rs.Fields("UserName") & Space(20 - CharLen(rs.Fields("UserName"))) & IIf(rs.Fields(2) = 1, "超级用户", "普通用户")
    rs.MoveNext
   Wend
   DBDisconnect                    '断开连接
   
End Sub
 
 
'为ListBox控件中添加数据,用于图书的一级分类,二级分类等信息
Public Sub AddTypeList(ByVal pList As ListBox, ByVal pSQLStr As String)
Dim rs As New ADODB.Recordset      '定义RecordSet对象
Set rs = SQLQuery(pSQLStr)
pList.Clear
While Not rs.EOF
  pList.AddItem rs.Fields(1)
  rs.MoveNext
Wend
DBDisconnect                       '断开连接

End Sub

'为ListBox添加借阅证件类型信息
Public Sub AddCTypeList(pList As ListBox)
Dim rs As New ADODB.Recordset      '定义RecordSet对象
Dim SQLStr As String
SQLStr = "select * from CardType"  '读取所有证件类型
Set rs = SQLQuery(SQLStr)
pList.AddItem "所有类型"
While Not rs.EOF                   '向pList添加图书分类名称
  pList.AddItem rs.Fields(1)
  rs.MoveNext
Wend
DBDisconnect                       '断开连接

End Sub

'计算字符长度,汉字算两个字符
Public Function CharLen(ByVal paraStr As String) As Long
CharLen = LenB(StrConv(paraStr, vbFromUnicode))

End Function