您现在的位置：毕业论文 >> 课程设计 >> 正文

VB音像信息管理系统第4页

更新时间：2010-1-26: 来源：毕业论文

VB音像信息管理系统第4页
设计体会
音像信息管理系统基本开发完毕，整个设计可以实现登记、查询、打印等功能。由于毕业设计时间较短、本人的水平有限，本系统设计得不够精确、完整，界面也不是很美观，系统出错处理不是很好，整个系统中的代码过于简单，这些都有待进一步的改善。但本次的毕业设计，使我学得了很多的知识，给我今后的工作和学习都有一定的帮助。
通过对本课程设计的制作，是我对VB有了更深的了解，并且对VB窗体及其窗体的各个控件有了更深的了解，是我能够灵活的运用VB的command控件、lable控件、commobox控件以及SStab等基本控件。通过这个课程设计，是我能充分运用VB的各个窗体实现相应的功能，以及各个窗体之间的调用，这是之前我在学习VB的一个难点，通过本实验是我弄明白了它们之间的联系。经过这次设计，让我学会了VB与数据库之间的连接，这不仅提高了我的VB水平，更加补充了数据库方面的知识，受益匪浅。
参考文献

[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