[1] 林卓然.vb语言程序设计[M].北京:电子工业出版社.P34-55
[2] 武马群.Visual Basic程序设计[M].北京:北京工业大学出版社.P67-90
[3] 萨师煊,王珊. 数据库系统概论(第三版)[M]. 北京:高教出版社,2000
[4] 郑人杰,殷人昆,陶永雷. 实用软件工程(第二版)[M]. 北京:清华大学出版社,1997
[5] 陈元春. 《Visual Basic数据库编程》[M]. 北京:清华大学出版社,2004
[6] 龚沛曾. 《Visual Basic简明教程》[M]. 北京:高等教育出版社,2003
主要源程序清单
用户管理:
Dim mimashuru As String
Dim tdatabase As Database '定义数据库变量
Dim ttable As Recordset '定义表变量
Private Sub Command1_Click()
'Dim mmm As String
If Text1.Text = "" Then
'如果为空不能创建用户
xx = MsgBox("你没有输入用户名!", vbOKOnly + vbCritical, "添加用户错误")
Else
'ttable.Edit '不为空查找库中有没有相同的用户名
'ttable.Update
ttable.MoveLast
ttable.MoveFirst
For i = 0 To ttable.RecordCount - 1
If ttable.Fields("tname") = Text1.Text Then '如果找到用户名相等的记录,给一提示并转到后面
xx = MsgBox("此用户已经存在!", vbOKOnly + vbCritical, "添加用户错误")
GoTo mm
End If
ttable.MoveNext
Next i
If Text2.Text = "" Then '判断是否用默认密码加入库中
mimashuru = "2004"
Else
mimashuru = Text2.Text
End If
ttable.AddNew
ttable.Fields("tname") = Text1.Text
ttable.Fields("tpassword") = mimashuru
ttable.Update
Data1.Refresh
List1.AddItem Text1.Text
mm: '如果找到库中有相同记录转到此处,也可以顺序执行到此处
Text1.Text = ""
Text2.Text = ""
End If
Text1.SetFocus
End Sub
Private Sub Command2_Click()
Dim qqq As String
If List1.ListIndex < 0 Then
hhh = MsgBox("你没有选择用户!", vbOKOnly + vbExclamation, "提示")
Else
ggg = MsgBox("确定要删除此用户" + List1.Text + "吗?", vbOKCancel + vbQuestion, "用户删除")
If ggg = 1 Then '删除引用户
'在用户库中进行删除
If List1.Text = yunhu Then
MsgBox ("不能删除当前用户!")
GoTo xxxxx
End If
' ttable.MoveLast
' ttable.MoveFirst
' For i = 0 To ttable.RecordCount - 1
' If ttable.Fields("tname") = List1.Text Then '如果找到用户名相等的记录并
'
' GoTo qqqqq
' End If
' Next i
' ttable.MoveNext
上一页 [1] [2] [3] [4] [5] [6] [7] 下一页