专业综合实践 说明书.docx

1、专业综合实践 说明书 目 录第一章 绪论 11.1课题简介 11.2设计内容 1第二章 软件设计与实现 22.1主界面的设计与实现 22.2登陆界面的设计与实现 3第一章 绪论1.1课题简介Visual Basic是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。从任何标准来说，VB都是世界上使用人数最多的语言不管是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Acti

2、veX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。VB 的中心思想就是要便于程序员使用，无论是新手或者专家。VB使用了可以简单建立应用程序的GUI 系统，但是又可以开发相当复杂的程序。VB 的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组件的属性和方法。因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。过去的版本里面 VB 程序的性能问题一直被放在了桌面上，但是随着计算机速度的飞速增加，关于性能的争论已经越来越少。窗体控件的增加和改变可以用拖放技术实现。一个排列满控件的工具箱用来显示可用控件（比如文本框或者按钮)

3、。每个控件都有自己的属性和事件。默认的属性值会在控件创建的时候提供，但是程序员也可以进行更改。很多的属性值可以在运行时候随着用户的动作和修改进行改动，这样就形成了一个动态的程序。举个例子来说：窗体的大小改变事件中加入了可以改变控件位置的代码，在运行时候每当用户更改窗口大小，控件也会随之改变位置。在文本框中的文字改变事件中加入相应的代码，程序就能够在文字输入的时候自动翻译或者阻止某些字符的输入。VB 的程序可以包含一个或多个窗体，或者是一个主窗体和多个子窗体，类似于操作系统的样子。有很少功能的对话框窗口（比如没有最大化和最小化按钮的窗体）可以用来提供弹出功能。 1.2设计内容 整个学生信息管理系

4、统主要分为四个部分，按照主界面的菜单项分为登陆，信息录入，信息显示和信息查询四 个主要功能。其中登陆功能为整个系统运行的前提，信息录入是信息查询和信息显示的基础。整个系统运用数组的方式将同行元素看做一条学生信息或课程信息，在完成对数组信息补充之后将会利用数组角标定位记录，其中学生的基本信息的存储主要是以学生号为主要索引，而课程基本信息和选课情况则是 以课程号和记录号为索引来实现查找和翻阅。整个学生信息管理系统的结构图如下第二章 软件设计与实现2.1主界面的设计与实现 Private Sub form_load() iTotalStudent = 0 系统刚显示的时候，学生数为0End SubP

5、rivate Sub IDM_DISPLAYStudent_Click()FrmDisplayStudent.ShowEnd SubPrivate Sub IDM_INPUTStudent_Click() FrmInputStudent.ShowEnd SubPrivate Sub IDM_LOGIN_Click() FrmLogin.ShowEnd SubPrivate Sub IDM_INPUTCourse_Click() FrmInputclass.ShowEnd Sub Private Sub IDM_INPUTXK_Click() FrmInputsc.ShowEnd SubPriv

6、ate Sub IDM_SEARCH_cno_Click()Frmsearchcno.ShowEnd SubPrivate Sub IDM_DISPLAYCourse_Click()Frmdisplaycno.ShowEnd SubPrivate Sub IDM_STATISTICS_total_Click()Frmtotal.ShowEnd SubPrivate Sub IDM_SEARCH_score_Click()Frmscore.ShowEnd Sub2.2登陆 界面的设计与实现Private Sub BtnExit_Click() EndEnd SubPrivate Sub BtnL

7、ogin_Click() If TxtUser.Text = student And TxtPwd.Text = 1218260103 Then Me.Hide: FrmMain.Show Else MsgBox 账号不存在! End If End SubPrivate Sub Command1_Click()End SubPrivate Sub modkey_Click()FrmModkey.ShowEnd Sub2.3 修改密码 界面的设计与实现Private Sub Command1_Click()If Txtcno.Text = student And TxtoldKey.Text =

8、 1218260103 Then key(2) = Trim(Txtnewkey.Text) MsgBox 密码修改成功, vbInformation, 提示 Me.Hide: FrmMain.Show Else MsgBox 账号和密码不匹配! End If End SubPrivate Sub Command2_Click()Unload MeEnd Sub2.4 学生基本信息录入界面的设计与实现Private Sub cmdAdd_Click() Dim i As Integer 用来临时保存最后一个学生的序号 i = iTotalStudent If i = 100 Then MsgB

9、ox 数据过多，需要先删除数据, vbInformation, 提示 Else For n = 0 To iTotalStudent If TxtNo.Text = Sno(n) Then MsgBox 数据已经录入无需重新录入, vbInformation, 提示 Else 学号检查的代码 如果已经存在，提示不能录入该条数据 If TxtNo.Text = 100 Then MsgBox 数据过多，需要先删除数据, vbInformation, 提示 Else For n = 0 To iTotalcno If Txtcno.Text = Cno(n) Then MsgBox 课程数据已经录

10、入无需重新录入, vbInformation, 提示 Else If Txtcno.Text 100 Then MsgBox 课程基本信息录入成功, vbInformation, 提示 Cno(i) = Trim(Txtcno.Text) Cname(i) = Trim(Txtcname.Text) teacher(i) = Trim(Txtteacher.Text) msh(i) = Trim(Txtmsh.Text) iTotalcno = iTotalcno + 1 Txtcno.Text = Txtcname.Text = Txtmsh.Text = Txtteacher.Text =

11、 Else MsgBox 课程号码格式有误，请重新输入, vbInformation, 提示 End If End If Exit For Next n End IfEnd SubPrivate Sub Command2_Click() Unload MeEnd Sub2.6 显示学生基本信息界面的设计与实现Dim iCurrentStudent As Integer 用来保存当前正在浏览第几条学生记录，注意数组下表是从零开始的 ，iTotalStudent从1开始Private Sub CmdExit_Click() Unload MeEnd Sub 显示下一条学生信息Private Sub

12、 CmdNext_Click() If iTotalStudent = 0 Then MsgBox 尚未录入数据, vbInformation, 提示 Else iCurrentStudent = iCurrentStudent + 1 If iCurrentStudent = iTotalStudent Then iCurrentStudent = iTotalStudent - 1 End If DisplayStudent (iCurrentStudent) End IfEnd Sub 显示上一条学生信息Private Sub CmdPrev_Click() If iTotalStude

13、nt = 0 Then MsgBox 尚未录入数据, vbInformation, 提示 Else iCurrentStudent = iCurrentStudent - 1 If iCurrentStudent = 100 Then MsgBox 数据过多，需要先删除数据, vbInformation, 提示 Else For n = 0 To iTotalcno If Txtcno.Text = Cno(n) Then MsgBox 课程数据已经录入无需重新录入, vbInformation, 提示 Else If Txtcno.Text 100 Then MsgBox 课程基本信息录入成

14、功, vbInformation, 提示 此段代码将窗体中的数据保存在对应的数组中 Cno(i) = Trim(Txtcno.Text) 学号信息 Cname(i) = Trim(Txtcname.Text) teacher(i) = Trim(Txtteacher.Text) msh(i) = Trim(Txtmsh.Text) iTotalcno = iTotalcno + 1 Txtcno.Text = Txtcname.Text = Txtmsh.Text = Txtteacher.Text = Else 此处可以增加检查录入格式是否正确的代码，比如学号位数等 MsgBox 课程号码格

15、式有误，请重新输入, vbInformation, 提示 End If End If Exit For Next n End IfEnd SubPrivate Sub Command2_Click() Unload Me End Sub2.8 查询课程基本信息界面的设计与实现Dim iCurrentcno As IntegerPrivate Sub Command1_Click() iCurrentcno = yizhicno.Text iCurrentStudent = iCurrentStudent + 1 If iTotalcno = 0 Then MsgBox 尚未录入课程数据, vb

16、Information, 提示 ElseIf iCurrentcno 0 And iCurrentcno 1000 Then For n = 1 To iTotalcno If iCurrentcno = Cno(n) Then Txtcname.Text = Cname(n) TxtTeacher.Text = teacher(n) describe.Text = msh(n) End If Next n Exit For End If End If End IfEnd Sud Private Sub Command2_Click() Unload MeEnd Sub2.9 查询学生成绩界面

17、的设计与实现Private Sub Command1_Click() iCurrentcno = Val(Txtcno.Text) iCurrentsno = Val(Txtsno.Text) If iTotalscore = 0 Then MsgBox 尚未录入成绩数据, vbInformation, 提示 ElseIf iCurrentscore 0 And iCurrentscore 1000 Then For n = 1 To iTotalscore If Txtcno = ACno(n) And Txtsno = ASno(n) Then Txtcno.Text = ACno(n)

18、And Txtsno.Text = ASno(n) Txtscore.Text = Score(n) End If Exit For Next n End IfEnd SubPrivate Sub Command2_Click() Unload MeEnd Sub2.10 统计选课人数界面的设计与实现Dim iCurrentcno As IntegerPrivate Sub Command1_Click()iCurrentcno = Val(Txtcno.Text)Dim number As Integernumber = 1 For n = 0 To iTotalStudent If Txtcno.Text = Cno(n) Then nunber = number + 1 End If Exit For Next n Txttotal.Text = numberEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub