毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 课程设计 >> 正文

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

上一页  [1] [2] [3] [4] [5] [6] [7] 下一页

VB音像信息管理系统 第4页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。