vb课程设计说明书格式

来源：用户分享时间：2025/8/14 17:55:42 本文由

说明：文章内容仅供预览，部分内容可能不全，需要完整文档或者需要复制内容，请下载word后使用。下载word有问题请添加微信号:xxxxxxx或QQ：xxxxxx 处理（尽可能给您提供完整文档），感谢您的支持与谅解。

山东科技大学学生课程设计

助下，把问题一个有一个地解决了。每一个问题的解决都加深了对数据库的了解。不过，由于专业知识的限制，所制作的工资管理系统仍然存在一些问题，如系统功能单一、属性比较简单等，今后需要进一步学习，继续完善系统的功能。

通过本次课程设计，使我从更深的层次了解了VB的设计技巧和应用方法。在程序的编制和调试过程中，我从中学到了很多有用的方法，比如通过本次设计，我更深刻的体会到了VB系统的方便与实用。在课程设计的过程中，我对课本上的知识进行了复习，从中找出了不少盲点，由衷地感觉到学习过程中应该把学的知识作扎实，多动手多思考，这样才能最大限度的减少知识的漏洞。把课本上的东西变成实际的东西，让其有使用的价值，是一件很让人高兴的事。我切实的体会到VB这门课程是有用处的，它解释了我平时学习中的很多疑惑，让我增长了很多见识。

6 参考资料

1.高春艳，李艳，谷伟东. Visual Basic数据库开发关键技术与实例应用[M]，人民邮电出版社，2004.12

2.刘天惠.Visual Basic程序设计教程[M]. 北京: 清华大学大学出版社，2003.12-24

3.龚沛曾.Visual Basic程序设计教程[M]. 高等教育出版社, 2004.28-45 4.蒋加伏.Visual Basic程序设计教程[M].北京: 北京邮电大学出版社，2003-10.26

5.Microsoft .Visual Basic 6.0 中文版控件大全[M]北京：电子工业出版社,2004.15－23

山东科技大学学生课程设计

7 源程序清单

（1）登录

Option Explicit

Public conn As New ADODB.Connection Public rs As New ADODB.Recordset Public db As String Private sSql As String Private Sub Form_Load() Dim i As Integer

On Error GoTo Err

db = \Security=SSPI;Persist Security Info=False;Initial Catalog=mstaff;DataSource=.\ conn.CursorLocation = adUseClient conn.Open db Exit Sub Err:

MsgBox Err.Number Unload Me End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) End End Sub

Private Sub Image1_Click()

End Sub

Private Sub lgbt_Click()

sSql = \* from admin where uname='\& unamei.Text & \and upassword='\

If rs.State <> adStateClosed Then rs.Close

rs.Open sSql, conn, adOpenStatic, adLockBatchOptimistic

山东科技大学学生课程设计

If rs.EOF Then

MsgBox \用户名或密码错误。\ Exit Sub End If

unamei.Text = \ upasswordi.Text = \ Me.Hide

mainfrm.Show End Sub

Private Sub rsbt_Click() unamei.Text = %upasswordi.Text = \End Sub

（2）人员信息管理系统（MID主窗体）

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) End End Sub

Private Sub Image1_Click()

End Sub

Private Sub menuaa_Click() Me.Enabled = False madmin.Show End Sub

Private Sub menuab_Click() Me.Hide login.Show End Sub

Private Sub menub_Click() Me.Enabled = False mstaff.Show End Sub

山东科技大学学生课程设计

Private Sub menuca_Click() Me.Enabled = False mdd.Show End Sub

Private Sub menucb_Click() Me.Enabled = False diaodong.Show End Sub

Private Sub menuda_Click() mdept.Show

Me.Enabled = False End Sub

Private Sub menudb_Click() Me.Enabled = False mjob.Show End Sub

Private Sub menuea_Click() Me.Enabled = False sinfo.Show End Sub

Private Sub menueb_Click() Me.Enabled = False ddinfo.Show End Sub

Private Sub menufa_Click() 'about.Show test.Show End Sub

（3）系统用户管理

Option Explicit

Public conn As New ADODB.Connection Public rs As New ADODB.Recordset

搜索更多关于： vb课程设计说明书格式的文档

vb课程设计说明书格式.doc 将本文的Word文档下载到电脑，方便复制、编辑、收藏和打印

下载这篇word文档

本文链接：https://www.diyifanwen.net/c9qkt82yo7l9f98j84o1b_6.html（转载请注明文章来源）