专业综合实践 说明书

目录

第一章绪论 (1)

1.1课题简介 (1)

1.2设计内容 (1)

第二章软件设计与实现 (3)

2.1主界面的设计与实现 (3)

2.2登陆界面的设计与实现 ................................................................ 错误！未定义书签。

第一章绪论

1.1课题简介

Visual Basic是一种由Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。从任何标准来说，VB都是世界上使用人数最多的语言——不管是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

VB 的中心思想就是要便于程序员使用，无论是新手或者专家。VB使用了可以简单建立应用程序的GUI 系统，但是又可以开发相当复杂的程序。VB 的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组件的属性和方法。因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。过去的版本里面VB 程序的性能问题一直被放在了桌面上，但是随着计算机速度的飞速增加，关于性能的争论已经越来越少。

窗体控件的增加和改变可以用拖放技术实现。一个排列满控件的工具箱用来显示可用控件（比如文本框或者按钮)。每个控件都有自己的属性和事件。默认的属性值会在控件创建的时候提供，但是程序员也可以进行更改。很多的属性值可以在运行时候随着用户的动作和修改进行改动，这样就形成了一个动态的程序。举个例子来说：窗体的大小改变事件中加入了可以改变控件位置的代码，在运行时候每当用户更改窗口大小，控件也会随之改变位置。在文本框中的文字改变事件中加入相应的代码，程序就能够在文字输入的时候自动翻译或者阻止某些字符的输入。

VB 的程序可以包含一个或多个窗体，或者是一个主窗体和多个子窗体，类似于操作系统的样子。有很少功能的对话框窗口（比如没有最大化和最小化按钮的窗体）可以用来提供弹出功能。

1.2设计内容

整个学生信息管理系统主要分为四个部分，按照主界面的菜单项分为登陆，信息录入，信息显示和信息查询四个主要功能。其中登陆功能为整个系统运行的前提，信息录入是信息查询和信息显示的基础。整个系统运用数组的方式将

同行元素看做一条学生信息或课程信息，在完成对数组信息补充之后将会利用数组角标定位记录，其中学生的基本信息的存储主要是以学生号为主要索引，而课程基本信息和选课情况则是以课程号和记录号为索引来实现查找和翻阅。

整个学生信息管理系统的结构图如下

第二章软件设计与实现2.1主界面的设计与实现

Private Sub form_load()

iTotalStudent = 0 '系统刚显示的时候，学生数为0

End Sub

Private Sub IDM_DISPLAYStudent_Click() FrmDisplayStudent.Show

End Sub

Private Sub IDM_INPUTStudent_Click() FrmInputStudent.Show

End Sub

Private Sub IDM_LOGIN_Click()

FrmLogin.Show

End Sub

Private Sub IDM_INPUTCourse_Click() FrmInputclass.Show

End Sub

Private Sub IDM_INPUTXK_Click()

FrmInputsc.Show

End Sub

Private Sub IDM_SEARCH_cno_Click() Frmsearchcno.Show

End Sub

Private Sub IDM_DISPLAYCourse_Click() Frmdisplaycno.Show

End Sub

Private Sub IDM_STATISTICS_total_Click() Frmtotal.Show

End Sub

Private Sub IDM_SEARCH_score_Click() Frmscore.Show

End Sub

2.2登陆界面的设计与实现

Private Sub BtnExit_Click()

End

End Sub

Private Sub BtnLogin_Click()

If TxtUser.Text = "student" And TxtPwd.Text = "1218260103" Then Me.Hide: FrmMain.Show

Else

MsgBox "账号不存在!"

End If

End Sub

Private Sub Command1_Click()

End Sub

Private Sub modkey_Click()

FrmModkey.Show

End Sub

2.3 修改密码界面的设计与实现

Private Sub Command1_Click()

If Txtcno.Text = "student" And TxtoldKey.Text = "1218260103" Then key(2) = Trim(Txtnewkey.Text)

MsgBox " 密码修改成功", vbInformation, "提示"

Me.Hide: FrmMain.Show