233026_VB课设

1、交通运输学院课程设计PAGE PAGE 23TOC o 1-4 h u HYPERLINK l _Toc11726 前言 PAGEREF _Toc11726 1 HYPERLINK l _Toc25241 一.设计目的 PAGEREF _Toc25241 1 HYPERLINK l _Toc1068 二.设计内容 PAGEREF _Toc1068 1 HYPERLINK l _Toc1480 三.设计要求 PAGEREF _Toc1480 1 HYPERLINK l _Toc7015 正文 PAGEREF _Toc7015 2 HYPERLINK l _Toc25316 一总体需求分析 PAG

2、EREF _Toc25316 2 HYPERLINK l _Toc11345 1基本信息包括： PAGEREF _Toc11345 2 HYPERLINK l _Toc1422 3. 系统需求分析： PAGEREF _Toc1422 2 HYPERLINK l _Toc22968 4. 分析 PAGEREF _Toc22968 2 HYPERLINK l _Toc31819 5.系统流程图 PAGEREF _Toc31819 3 HYPERLINK l _Toc15185 二数据库设计 PAGEREF _Toc15185 4 HYPERLINK l _Toc15922 1.数据库的选择 PAG

3、EREF _Toc15922 4 HYPERLINK l _Toc6441 2.数据库基本信息分析 PAGEREF _Toc6441 4 HYPERLINK l _Toc13094 3.逻辑设计 PAGEREF _Toc13094 6 HYPERLINK l _Toc9076 4.具体设计 PAGEREF _Toc9076 6 HYPERLINK l _Toc6887 5. 基本信息录入 PAGEREF _Toc6887 9 HYPERLINK l _Toc4589 进行基本的信息录入即可建立完整的数据库。 PAGEREF _Toc4589 9 HYPERLINK l _Toc12652 三前

4、台VB操作设计 PAGEREF _Toc12652 10 HYPERLINK l _Toc12073 1.登录界面 PAGEREF _Toc12073 10 HYPERLINK l _Toc9074 2. 主菜单页面 PAGEREF _Toc9074 11 HYPERLINK l _Toc14216 3. 学生基本信息管理登陆界面 PAGEREF _Toc14216 13 HYPERLINK l _Toc15396 4. 学生信息界面 PAGEREF _Toc15396 14 HYPERLINK l _Toc28840 5. 学生信息查询界面 PAGEREF _Toc28840 17 HYPE

5、RLINK l _Toc15677 6. 帮助界面 PAGEREF _Toc15677 21 HYPERLINK l _Toc17806 体会心得 PAGEREF _Toc17806 22 HYPERLINK l _Toc7453 附录 PAGEREF _Toc7453 23 HYPERLINK l _Toc21719 一、主要参考文献 PAGEREF _Toc21719 23前言一.设计目的VB课程设计是这门课程的实践性教学环节之一，本次设计结合实际应用的要求，使课程设计既覆盖VB的知识点，又接近工程实际需要。目的是通过课程设计的综合训练，培养实际分析问题、解决问题的能力，以及编程和动手能力

6、，最终目标是通过课程设计这种形式，帮助学生系统掌握VB这门课程的主要内容，养成良好的编程习惯，更好的完成教学任务。二.设计内容 该次课程设计是运用VB系统建立学生成绩管理系统，为师生提供一个建立在成绩的基础上的交流平台，方便教师提交、修改成绩，师生查询成绩。该学生成绩管理系统主要由三个模块组成，分别为教师管理模块、班级管理模块、学生成绩管理模块。只有通过了密码验证才可进入此系统进行操作与查询等功能。本实践前台开开发工具是Visual Basic6.0,后台是Access 2003.三.设计要求1、对系统进行功能需求分析2、设计合理的数据结构和系统框架3、界面设计美观、清楚、合理4、编程简练，程

7、序功能齐全，能正确运行5、具有一定的创新性6、说明书、流程图要清楚7、课题完成后必须按要求提交课程设计报告 正文一总体需求分析1基本信息包括：学生信息表基本信息：学号、姓名、性别、出生年月、政治面貌、年级、专业、班级、电话号码、家庭住址；用户基本信息：用户名、密码；2基本功能包括：（1）教师提交、修改信息；（2）学生查询信息；（3）信息录入时间；3. 系统需求分析：（1）登录对角色的判断；（2）教师对信息的管理；（3）学生对信息的查询；（4）班级信息管理：（5）后端数据库设计，前端应用程序的选择；4. 分析（1）登录；（2）针对教师的操作功能：登陆后，进行录入、查询、修改等。（3）针对学生的操

8、作功能：登录后，查询本人信息等。（4）针对班级的管理功能：班级信息的浏览、修改、添加、查询；5.系统流程图 登录验证学生教师管理学生信息查询学生信息查询学生信息 二数据库设计1.数据库的选择考虑了系统的通用性、实用性和安全性，本学生成绩管理系统没有选择已有的数据库管理系统作为后台数据库而是选择了以系统自己建立的Access文件系统作为数据库后台，这主要是，在使用系统时,利用数据库能汇集各种信息和Access的优点，将使用数据表示图或自定义窗体收集信息。分享给你的朋友吧：HYPERLINK /question/241163996.html?an=0&si=4 l # t _blank o 分享到

9、itiebai贴吧 HYPERLINK /question/241163996.html?an=0&si=4 l # t _blank o 分享到新浪微博新浪微博HYPERLINK /question/241163996.html?an=0&si=4 l # t _blank o 分享到腾讯微博腾讯微博HYPERLINK /question/241163996.html?an=0&si=4 l # t _blank o 分享到QQ空间QQ空间HYPERLINK /question/241163996.html?an=0&si=4 l # t _blank o 分享到人人网人人网HYPERLIN

10、K /question/241163996.html?an=0&si=4 l # t _blank o 分享到豆瓣豆瓣HYPERLINK /question/241163996.html?an=0&si=4 l # t _blank o 分享到MSNMSN对我有帮助数据表示图提供了一种类似于Excel的电子表格，可以使数据库一目了然。它也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他用户共享数据库。它是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，参考Access的优点作为关系数据库开发，的确具备了许多优点，可以在一个数据包同时拥有桌面数

11、据库的便利和关系数据库的强大功能。另外，较之其他数据库，Access拥有更高的安全性和易操作性。更适合用于大型的企业或学校管理系统。综上，我组采用Access作为后台数据库系统。2.数据库基本信息分析建立E-R图如下（1）表1基本信息E-R图学生出生年月性别姓名学号表2基本信息E-R图学生班级专业年级政治面貌姓名学号（3）表3基本信息E-R图学生电话号码姓名学号（4）表4基本信息E-R图学生姓名学号家庭住址（5）用户基本信息E-R图用户名密码用户名3.逻辑设计将E-R图进行总结、归纳，建立如下关系图:学生（学号 姓名 性别 出生年月）学生（学号 姓名 政治面貌 年级 专业 班级）学生（学号 姓

12、名 电话号码 ）学生（学号 姓名 家庭住址）用户（用户名 密码） 4.具体设计总体结构整个学生信息管理系统包括五个表：表1表2 表3 表4用户表表1表2表3 表4用户表基本信息录入进行基本的信息录入即可建立完整的数据库。三前台VB操作设计1.登录界面登录程序：Private Sub Command1_Click()a = MsgBox(确定退出？, vbOKCancel + vbInformation, 友情提示)If a = 1 ThenEndEnd IfEnd SubPrivate Sub Command2_Click()main.Showuser.HideEnd SubPrivate S

13、ub Timer1_Timer()Label1.Left = Label1.Left + 20Label2.Left = Label2.Left - 20If Label1.Left = 4000 ThenTimer1.Interval = 0End IfEnd SubPrivate Sub Form_Load()Label1.BackStyle = transparentLabel2.BackStyle = transparentEnd Sub 主菜单页面主菜单程序Private Sub m31_Click()Unload MeForm6.ShowEnd SubPrivate Sub m32

14、_Click()Unload MeForm7.ShowEnd SubPrivate Sub m01_Click()Unload MeForm3.ShowEnd SubPrivate Sub mnup_Click()DataReport1.ShowEnd SubPrivate Sub Timer1_Timer()a = Year(Date)b = Month(Date)c = Day(Date)Label2.Caption = a & 年 & b & 月 & c & 日 & & Time()End SubPrivate Sub Form_Load()Label1.BackStyle = tran

15、sparentEnd SubPrivate Sub m12_Click()a = MsgBox(确定退出？, vbOKCancel + vbInformation, 友情提示)If a = 1 ThenEndEnd IfEnd SubPrivate Sub m211_Click()Form1.Showmain.HideEnd SubPrivate Sub m212_Click()Form5.Showmain.HideEnd SubPrivate Sub m22_Click()Form8.Showmain.HideEnd Sub学生基本信息管理登陆界面学生信息管理登陆界面代码Private Su

16、b Command1_Click()If Text1 = 张萨博 And Text2 = 111 Then Form2.ShowIf Text1 = ThenMsgBox 用户名不为空, , 提示Text1 = Text2 = End IfIf Text1 = And Text2 = ThenMsgBox 请输入用户名和密码！, , 提示End IfIf Text1 = 张萨博 And Text2 111 ThenMsgBox 密码错误，请重新登录！, , 提示Text1 = Text2 = End IfForm8.HideForm2.ShowEnd Sub学生信息界面 （1）图图部分代码Pr

17、ivate Sub Command1_Click()Static Ts As IntegerTs = Ts + 1x = InputBox(请输入柱状图高度(1-19)：)If Val(x) 20 Or Val(x) = 0 ThenTs = Ts - 1MsgBox 请输入0-19范围的数Exit SubEnd If Set newobj = Me.Controls.Add(vb.shape, shape & Ts) With newobj .Shape = 0 .FillStyle = 5 .Left = 1 + 2 * Ts .Top = 42 - x * 2 .Height = x *

18、 2 .Width = 1 End With newobj.Visible = TrueEnd SubPrivate Sub Form_Load()Me.Height = 9000Me.Width = 19000Me.AutoRedraw = TrueShowMe.ScaleHeight = 44 将窗体的高设定为44份Me.ScaleWidth = 50 将窗体的宽设定为50份Me.Line.BorderColor = &H0&Me.Line (2, 2)-(2, 42), &H0& 画出纵坐标Me.Line (2, 42)-(48, 42), &H0& 画出横坐标Me.Line (48,

19、42)-(47.5, 41.5), &H0& 画出横坐标上的箭头Me.Line (48, 42)-(47.5, 42.5), &H0&Me.Line (2, 2)-(1.75, 3), &H0& 画出纵坐标上的箭头Me.Line (2, 2)-(2.25, 3), &H0& Label1(0).Width = 20 写出坐标原点 Label1(0).Height = 20 Label1(0).AutoSize = ture Label1(0).BackStyle = 0 Label1(0).FontItalic = True Label1(0).FontBold = True Label1(0

20、).FontSize = 10 Label1(0).ForeColor = &HFF& Label1(0).Caption = 0 Label1(0).Left = 1.5 Label1(0).Top = 42.5 Label1(0).Visible = TrueFor i = 1 To 45 Load Label1(i) 用数组的方法动态添加控件（横坐标示数） Label1(i).Width = 40 Label1(i).Height = 20 Label1(i).AutoSize = ture Label1(i).BackStyle = 0 Label1(i).FontItalic = T

21、rue Label1(i).FontBold = True Label1(i).FontSize = 10 Label1(i).ForeColor = &HFF& Label1(i).Caption = i Label1(i).Left = 1.5 + i Label1(i).Top = 42.5 Label1(i).Visible = True 动态添加控件(横坐标上的间隔线） Set newobj = Me.Controls.Add(vb.line, Line & i) With newobj .BorderStyle = 3 .X1 = i + 2 .X2 = i + 2 .Y1 = 4

22、1.8 .Y2 = 42.2 End With newobj.Visible = TrueNext iFor i = 46 To 70 Load Label1(i) Label1(i).Width = 40 Label1(i).Height = 20 Label1(i).AutoSize = ture Label1(i).BackStyle = 0 Label1(i).FontItalic = True Label1(i).FontBold = True Label1(i).FontSize = 10 Label1(i).ForeColor = &HFF& Label1(i).Caption

23、= i - 45 Label1(i).Left = 1 Label1(i).Top = (66 - i) * 2 If Val(Label1(i).Caption) 20 Then Label1(i).Visible = True Set newobj = Me.Controls.Add(vb.line, Line & i) With newobj .X1 = 1.9 .X2 = 2.1 .Y1 = 2 * (i - 44) .Y2 = 2 * (i - 44) .BorderStyle = 3 End With newobj.Visible = TrueNext iEnd Sub学生信息管理

24、学生信息查询界面浏览界面 浏览界面代码Private Sub cmdclose_Click() Form1.Hide user.ShowEnd SubPrivate Sub cmdfind_Click() Dim str As String Dim mybookmark As Variant mybookmark = Adodc1.Recordset.Bookmark str = 学号= & Text2.Text & Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find str If Adodc1.Recordset.EOF Then MsgBox

25、指定的条件没有匹配的记录, , 信息提示 Adodc1.Recordset.Bookmark = mybookmark End If End SubPrivate Sub cmdfirst_Click() Adodc1.Recordset.MoveFirst cmdprevious.Enabled = False cmdnext.Enabled = TrueEnd SubPrivate Sub cmdlast_Click()Adodc1.Recordset.MoveLastcmdprevious.Enabled = Truecmdnext.Enabled = FalseEnd SubPriva

26、te Sub cmdnext_Click() Adodc1.Recordset.MoveNext cmdprevious.Enabled = True If Adodc1.Recordset.AbsolutePosition = Adodc1.Recordset.RecordCount Then cmdnext.Enabled = False End If End SubPrivate Sub cmdprevious_Click() Adodc1.Recordset.MovePrevious cmdnext.Enabled = True If Adodc1.Recordset.AbsolutePosition = 1 Then cmdprevious.Enabled = False End If End SubPrivate Sub Command1_Click() Unload Me main.ShowEnd SubPrivate Sub Command2_Click()a = MsgBox(确定退出？, vbOKCancel + vbInformation, 友情提示)If a = 1 ThenEndE