毕业设计（论文）-VB6.0学生信息管理系统.doc

可行性研究报告随着学校规模的不断扩大，学生数量急剧增加，有关学生的各种信息也成倍增加。面对庞大的信息量，就需要有学生信息管理系统来提高学生管理工作的效率。通过这样的系统，可以做到信息的规范管理、科学统计和快速的查询，从而减少管理方面的工作量。现在的时代是网络普及是时代，学生有条件通过网络方便快捷的查询自己的个人信息。所以，学生信息管理系统既能方便学校管理部门的管理，又能方便学生及时查询个人信息。 从自己学习的角度来说：这次系统的制作过程，无疑加深了自身对网络专业理论知识的理解，大大提高了理论知识的应用水平，而且增强动手能力，可以说是为毕业设计做了很好准备。面对以后强大的就业压力，没有熟练的动手能力，光有满脑袋的理论是不行的，因此本次设计的意义显得十分重要。1系统设计总原则要根据实际情况，在一定的理论和原则指导下进行设计。本文采用如下设计原则实用性原则:系统必须保证实用，切实符合政府部门管理、决策、服务及项业务和职能要求。针对不同级别、不同功能的部门，设计出真正具备实用价并能马上获得实效的管理信息系统。易用性原则:由于基层工作人员的水平参差不齐，要易于操作、易于使用，便于维护。安全性原则:应有健壮的安全防范措施，从硬件、软件以及行政管理等方严格管理，杜绝非法入侵和泄密。稳定性、可靠性:保证系统能长期稳定的不间断运行，采用流行、成熟、稳定、先进的操作系统、数据库、网络协议等，保证系统的稳定性。2经济可行性本系统简单可行，采用所学知识进行开发研究，很经济实用，是经济耐用且好用的一个管理系统。而且本系统所采用的开发工具都是免费的。3技术可行性本系统采用VB6.0和ACCESS进行开发，利用所学技术进行实现功能，技术上很易懂实用。4运行可行性操作系统Windows 2000以上。所以本系统在运行上要求适中，适合学校以及一些公司管理学生或员工信息时使用。4.1功能需求设计用户登录界面，实现登录查看学生的简单信息，还可以通过学号查询一些学生信息.登录后进入管理员页可以对学生信息，成绩，课程，班级进行查找、添加、修改和删除。使管理更加便捷更加系统化。4.2性能需求依据功能需求，系统开发所要使用的硬件环境：cpu400mz以上，内存64mb以上硬盘 至少大约1G空间.分辨率:1024*768软件环境：可使用的软件有VB 6.0和ACCESS开发语言：VB 6.05学生信息管理系统需求分析的主要任务开发本系统要实现的目的是将学生学籍管理实现智能化，信息化，提高学生学籍管理人员的效率。根据学生学籍管理人员日常工作的需要,本程序主要有以下功能, 学生信息管理系统是用户登录用户名和密码，然后登录查看学生的简单信息，还可以通过学号查询一些学生信息.学生信息的查询,删除,添加,修改功能,学生成绩的查询,删除,添加,修改功能,用户的注册,修改,删除,查询功能。使管理更加便捷更加系统化。学生档案管理系统项目应用开发数据库应用程序的开发始终算得上是VB编程中的难点，这是因为你不仅要熟悉VB中关于数据库编程方面的知识（当然这是十分简单的）还要了解数据库的知识。本系统主要用来实现学生基本情况和学生成绩的录入、修改、查询、删除和打印等功能。通过本系统，可以了解如何使用Visual Basic来开发一个比较完整的数据库应用程序。用到的数据库控件有DATA、ADO，添加的一个数据环境。一、系统结构图本系统主要包括学生基本情况更新，学生基本情况维护和学生成绩维护3个大的模块，各个模块的具体功能如图所示：学生档案管理系统学生基本情况更新学生基本情况维护学生成绩维护添加删除修改查询选择专业修改添加删除打印按专业查询添加成绩查找打印按学号查找按专业查找 管理成绩 按学号查找学生成绩管理查找按专业查找打印图1-1 应用程序的功能模块结构图二、数据库的建立本系统用到的数据库是用Visual Basic的外加工具Visual Data Manager(可视化数据管理器)创建，名为student.mdb（是access数据库），其中用到两个表，分别为：基本情况表和学生成绩表。两表的结构如下所示：表1-1 字段名类型宽度学号Text6姓名Test10性别Text2班级Text20出生年月Data/Time8政治面貌Text4家庭住址Text20电话Text8E_mailText20照片Binary0表1-2字段名类型宽度学号Text6课程Test8成绩Long4学期Integer制作过程如下：1、 选择VB外接程序菜单中的可视化数据管理器，进入可视化数据管理器；2、 在可视化数据管理器中选择文件菜单中的新建选项建立数据库文件，然后从数据库厂家列表中选择要创建的数据库类型（本例选择Microsoft Access中的Version MDB 2.0版本）；3、 在选择要创建的Microsoft Access数据库对话框中，输入数据库名student，按确定按钮进入数据库窗口；4、 在数据库窗口中单击鼠标右键并从弹出式菜单中选择新建表来创建student.mdb数据库中的两个表（基本情况表和学生成绩表）。三、各个窗体的设计与实现（一） 主窗体的设计与实现首先在VB中新建一个标准工程并起名为成绩管理，在标准工程中添加一个MDI窗体并起名为Frmmain。主窗体的设计界面如图1-2所示：图1-2 主窗体的设计界面 在主窗体中主要应用了菜单、工具栏和状态栏。下面分别介绍这些组成部分的功能。1、 菜单的设计菜单是Windows应用程序中的重要组成部分，这里将对每个菜单项及其子菜单的功能进行简单介绍，如表1-1所示。表1-3 应用程序的菜单项列表主菜单名子菜单项菜单功能数据维护（Repair）情况表更新（Edit）显示学生情况表更新窗体情况表维护（Cedit）显示学生情况表维护窗体成绩表维护（Cjwh）显示学生成绩表维护窗口退出本系统（Quit1）退出应用程序帮助(Help)关于系统（Absystem）显示关于系统窗体系统帮助（Abhelp）显示系统帮助窗体退出(Exit)推出本系统（Quit）退出应用程序MID应用程序中，父窗体可以有自己的菜单，子窗体也可以有属于自己的菜单。这些菜单的创建都可以利用Menu Editor来进行创建。2、 Imagelist控件程序包括一个Imagelist控件，它用来为工具栏提供图片。在程序的基本控件中没有此项控件，添加此控件的方法是在基本控件的空白处点击鼠标右键，在出现的快捷菜单中选择部件，之后在部件对话框中的部件选项卡中选择Microsoft Windows common controls 6.0控件，确定即可。在窗体中添加一个Imagelist控件，名为默认的Imagelist1，再为此控件添加几个图标。3、工具栏设计工具栏提供了便捷的操作方式来完成应用程序常用的操作。在现在的Windows应用程序中，工具栏已经成为非常主要的组成部分。本例工具栏的设计步骤为：首先在窗体中添加一个toolbar控件，之后为此控件添加6个按钮，并把每个按钮分别和Imagelist1控件的图片绑定。4、状态栏设计在主窗体上添加一个Statusbar控件，用鼠标右键点击此控件，在属性页的对话框中为窗体添加6个窗格，分别放置窗口信息和显示当前日期和时间。5、主窗体界面的代码实现 Private Sub Abhelp_Click()frmabout.ShowEnd SubPrivate Sub CEDIT_Click()Unload FrmjbgxUnload FrmcjwhUnload FrmcjglUnload FrmHELPUnload FrmwelcomeUnload frmaboutLoad FrmjbwhFrmjbwh.ShowEnd SubPrivate Sub cjwh_Click()Unload FrmjbgxUnload FrmjbwhUnload FrmHELPUnload FrmwelcomeUnload frmaboutUnload FrmcjglLoad FrmcjwhFrmcjwh.ShowEnd SubPrivate Sub EDIT_Click()Unload FrmjbwhUnload FrmcjwhUnload FrmHELPUnload FrmcjglUnload FrmwelcomeUnload frmaboutLoad FrmjbgxFrmjbgx.ShowEnd SubPrivate Sub Absystem_Click()Unload FrmjbgxUnload FrmcjwhUnload FrmjbwhUnload FrmwelcomeUnload FrmcjglUnload frmaboutLoad FrmHELPFrmHELP.ShowEnd SubPrivate Sub Ahelp_Click()Unload FrmjbgxUnload FrmcjwhUnload FrmcjglUnload FrmHELPUnload FrmwelcomeUnload FrmjbwhLoad frmaboutfrmabout.ShowEnd SubPrivate Sub cjgx_Click()Unload FrmjbgxUnload FrmjbwhUnload FrmHELPUnload FrmwelcomeUnload frmaboutUnload FrmcjglLoad FrmcjglFrmcjgl.ShowEnd SubPrivate Sub quit_Click()Frmmain.HideUnload FrmmainEnd SubPrivate Sub quit1_Click()Frmmain.HideUnload FrmmainEnd Sub窗体的Load事件代码:Private Sub MDIForm_Load()Load FrmwelcomeFrmwelcome.ShowEnd SubPrivate Sub StatusBar1_PanelClick(ByVal Panel As MSComctlLib.Panel)StatusBar1.Panels(1).Text = DateStatusBar1.Panels(2).Text = TimeEnd Sub工具栏的Buttonclick事件代码:Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Index Case 1Unload FrmjbwhUnload FrmcjglUnload FrmcjwhUnload FrmHELPUnload FrmwelcomeUnload frmaboutLoad FrmjbgxFrmjbgx.Show Case 2Unload FrmjbgxUnload FrmcjwhUnload FrmcjglUnload FrmHELPUnload FrmwelcomeUnload frmaboutLoad FrmjbwhFrmjbwh.Show Case 3Unload FrmjbgxUnload FrmjbwhUnload FrmcjglUnload FrmHELPUnload FrmwelcomeUnload frmaboutLoad FrmcjwhFrmcjwh.Show Case 5Unload FrmjbgxUnload FrmcjwhUnload FrmHELPUnload FrmcjglUnload FrmwelcomeUnload FrmjbwhLoad frmaboutfrmabout.Show Case 6Unload FrmjbgxUnload FrmcjglUnload FrmcjwhUnload FrmjbwhUnload FrmwelcomeUnload frmaboutLoad FrmHELPFrmHELP.Show Case 4Unload FrmHELPUnload FrmjbgxUnload FrmcjglUnload FrmcjwhUnload FrmjbwhUnload FrmwelcomeUnload frmaboutLoad FrmcjglFrmcjgl.Show Case 7Frmmain.HideUnload FrmmainEnd SelectEnd Sub(二)学生基本情况更新窗体的设计与实现首先在工程中添加一个标准窗体并起名为Frmjbgx。再在基本空间上添加一个通用对话框控件，方法是在基本控件的空白处按鼠标右键，选择部件，在部件对话框中选择Microsoft Common Dialog Control 6.0控件，按确定按钮。然后在窗体上添加各种控件，如图1-3设计屏幕，然后添加程序代码。在图中，其主要控件、主要属性、控件说明（一些次要控件如按钮、标签，次要属性如Height、Width除非特别，否则将不特别说明，读者可以根据具体情况来设定）如表1-4所示：图1-3 基本情况更新设计界面表1-3 控件、主要属性、控件说明表控件名称主要控件属性名称属性值功能说明FrmjbgxCaption基本情况更新名称frmjbgxBorderStyle2 SizableMdichildTrue把此窗体作为子窗体WindowstateMaximized运行是最大化Frame名称Frame1Caption基本情况更新CommonDialog名称Commondialog1Data名称Data1ConnectAccess选择Access数据源DatabasenameStudent.mdb选择数据源的名称Recordsource基本情况和数据表进行绑定Image名称Image1StretchTrue调整图片大小以适应该控件EnabledFalse初始状态为不可用Text名称Text1Text9text1_text9和数据库Student.mdb的基本情况表的各个字段进行绑定DatasourceData1Datafield学号E_MAILEnabledFalse初始状态为不可用Command名称Command4Caption放弃EnabledFalse初始状态为不可用Command名称Command10Caption添加照片EnabledFalse初始状态为不可用注意：在设置Data1的Databasename属性时，不要student.mdb之前的路径，这样可以不限制应用程序的路径。窗体的运行结果如图1-4所示：图1-4 基本情况更新窗体的运行结果基本情况更新设计代码实现添加按钮的Click事件代码：Private Sub Command1_Click()On Error Resume Next点击此按钮时，除放弃和添加照片按钮外，其他均不可用Command2.Enabled = Not Command2.EnabledCommand3.Enabled = Not Command3.EnabledCommand4.Enabled = Not Command4.EnabledCommand5.Enabled = Not Command5.EnabledCommand6.Enabled = Not Command6.EnabledCommand7.Enabled = Not Command7.EnabledCommand8.Enabled = Not Command8.EnabledCommand9.Enabled = Not Command9.EnabledCommand10.Enabled = Not Command10.EnabledIf Command1.Caption = 添 加 Then Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Text4.Enabled = True Text5.Enabled = True Text6.Enabled = True Text7.Enabled = True Text8.Enabled = True Text9.Enabled = True Image1.Enabled = True Command1.Caption = 确 定 添加一条空白记录 Data1.Recordset.AddNew Text1.SetFocus Else Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False Text5.Enabled = False Text6.Enabled = False Text7.Enabled = False Text8.Enabled = False Text9.Enabled = False Image1.Enabled = False 把数据真正添加到表中 Data1.Recordset.Update Data1.Recordset.MoveLast Command1.Caption = 添 加 End IfEnd Sub删除按钮的Click事件代码：Private Sub Command2_Click()On Error Resume NextData1.Recordset.DeleteData1.Recordset.MoveNextIf Data1.Recordset.EOF Then Data1.Recordset.MoveLastEnd Sub修改按钮的Click事件代码：Private Sub Command3_Click()On Error Resume NextCommand1.Enabled = Not Command1.EnabledCommand2.Enabled = Not Command2.EnabledCommand4.Enabled = Not Command4.EnabledCommand5.Enabled = Not Command5.EnabledCommand10.Enabled = Not Command10.EnabledIf Command3.Caption = 修 改 Then Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Text4.Enabled = True Text5.Enabled = True Text6.Enabled = True Text7.Enabled = True Text8.Enabled = True Text9.Enabled = True Image1.Enabled = True Data1.Recordset.EDIT Text1.SetFocus Command3.Caption = 确 定Else Command3.Caption = 修 改 Data1.Recordset.Update Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False Text5.Enabled = False Text6.Enabled = False Text7.Enabled = False Text8.Enabled = False Text9.Enabled = False Image1.Enabled = False End IfEnd Sub放弃按钮的Click事件代码：Private Sub Command4_Click()On Error Resume NextCommand1.Caption = 添 加Command3.Caption = 修 改Command1.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = FalseCommand5.Enabled = TrueCommand6.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = TrueCommand9.Enabled = TrueData1.UpdateControlsData1.Recordset.MoveLastText1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseText4.Enabled = FalseText5.Enabled = FalseText6.Enabled = FalseText7.Enabled = FalseText8.Enabled = FalseText9.Enabled = FalseImage1.Enabled = FalseEnd Sub查询按钮的Click事件代码：Private Sub Command5_Click()Dim MNO As StringMNO = InputBox$(请输入学号, 查询窗)Data1.Recordset.FindFirst 学号= & MNO & If Data1.Recordset.NoMatch Then MsgBox 无此学号, , 提示End Sub上一个按钮的Click事件代码：Private Sub Command6_Click()On Error Resume NextData1.Recordset.MovePreviousIf Data1.Recordset.BOF Then Data1.Recordset.MoveFirstEnd Sub下一个按钮的Click事件代码：Private Sub Command7_Click()On Error Resume NextData1.Recordset.MoveNextIf Data1.Recordset.EOF Then Data1.Recordset.MoveLastEnd Sub第一个按钮的Click事件代码：Private Sub Command8_Click()Data1.Recordset.MoveFirstEnd Sub最后一个按钮的Click事件代码：Private Sub Command9_Click()Data1.Recordset.MoveLastEnd Sub添加照片按钮的Click事件代码：Private Sub Command10_Click()调用通用对话框CommonDialog1 = 1On Error Resume NextIf CommonDialog1.FileName = Then Exit SubImage1.Picture = LoadPicture(CommonDialog1.FileName)返回应用程序所在路径ChDrive Mid(App.Path, 1, 1)End Sub窗体的Load事件代码：Private Sub Form_Load()是Frame1框架在窗体加载时水平居中Frame1.Left = Frmjbgx.Width / 2 - Frame1.Width / 2初始化通用对话框CommonDialog1.FileName = *.bmpCommonDialog1.Filter = pictures(*.bmp)|*.bmp|pictures(*.jpg)|*.jpg|all files(*.*)|*.*CommonDialog1.FilterIndex = 1End Sub窗体的Resize事件代码：Private Sub Form_Resize()窗体的尺寸改变是，Frame1始终水平居中Frame1.Left = Frmjbgx.Width / 2 - Frame1.Width / 2End Sub学生成绩管理的设计与实现：控件名称主要控件属性名称属性值功能说明FrmcjblCaption学生成绩管理名称frmcjglBorderStyle2 SizableMdichildTrue把此窗体作为子窗体WindowstateMaximized运行是最大化Frame名称Frame1Caption学生成绩管理CommonDialog名称Commondialog1Data名称Data1ConnectAccess选择Access数据源DatabasenameStudent.mdb选择数据源的名称Recordsource基本情况和数据表进行绑定Text名称Text1Text4text1_text4和数据库Student.mdb的学生成绩表的各个字段进行绑定DatasourceData1Datafield学号学期EnabledFalse初始状态为不可用Command名称Command8Caption放弃EnabledFalse初始状态为不可用注意：在设置Data1的Databasename属性时，不要student.mdb之前的路径，这样可以不限制应用程序的路径。添加按钮的Click事件代码:Private Sub Command5_Click()On Error Resume Next点击此按钮时，除放弃和添加照片按钮外，其他均不可用Command6.Enabled = Not Command6.EnabledCommand7.Enabled = Not Command7.EnabledCommand8.Enabled = Not Command8.EnabledCommand9.Enabled = Not Command9.EnabledCommand1.Enabled = Not Command1.EnabledCommand2.Enabled = Not Command2.EnabledCommand3.Enabled = Not Command3.EnabledCommand4.Enabled = Not Command4.EnabledIf Command5.Caption = 添 加 Then Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Text4.Enabled = True Command5.Caption = 确 定 添加一条空白记录 Data1.Recordset.AddNew Text1.SetFocus Else Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False 把数据真正添加到表中 Data1.Recordset.Update Data1.Recordset.MoveLast Command5.Caption = 添 加 End IfEnd Sub删除按钮的Click事件代码:Private Sub Command6_Click()On Error Resume NextData1.Recordset.DeleteData1.Recordset.MoveNextIf Data1.Recordset.EOF Then Data1.Recordset.MoveLastEnd Sub修改按钮的Click事件代码:Private Sub Command7_Click()On Error Resume NextCommand9.Enabled = Not Command9.EnabledCommand1.Enabled = Not Command1.EnabledCommand3.Enabled = Not Command3.EnabledCommand4.Enabled = Not Command4.EnabledIf Command7.Caption = 修 改 Then Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Text4.Enabled = True Data1.Recordset.Edit Text1.SetFocus Command7.Caption = 确 定Else Command7.Caption = 修 改 Data1.Recordset.Update Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False End IfEnd Sub放弃按钮的Click事件代码:Private Sub Command8_Click()On Error Resume NextCommand5.Caption = 添 加Command7.Caption = 修 改Command5.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = FalseCommand9.Enabled = TrueCommand1.Enabled = TrueCommand2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = TrueData1.UpdateControlsData1.Recordset.MoveLastText1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseText4.Enabled = FalseEnd Sub查询按钮的Click事件代码:Private Sub Command9_Click()Dim MNO As StringMNO = InputBox$(请输入学号, 查询窗)Data1.Recordset.FindFirst 学号= & MNO & If Data1.Recordset.NoMatch Then MsgBox 无此学号, , 提示End Sub上一个按钮的Click事件代码:Private Sub Command1_Click()On Error Resume NextData1.Recordset.MovePreviousIf Data1.Recordset.BOF Then Data1.Recordset.MoveFirstEnd Sub下一个按钮的Click事件代码:Private Sub Command2_Click()On Error Resume NextData1.Recordset.MoveNextIf Data1.Recordset.EOF Then Data1.Recordset.MoveLastEnd Sub第一个按钮的Click事件代码:Private Sub Command3_Click()Data1.Recordset.MoveFirstEnd Sub最后一个按钮的Click事件代码:Private Sub Command4_Click()Data1.Recordset.MoveLastEnd Sub窗体的Load事件代码:Private Sub Form_Load()是Frame1框架在窗体加载时水平居中Frame1.Left = Frmcjgl.Width / 2 - Frame1.Width / 2Frame2.Left = Frmcjgl.Width / 2 - Frame2.Width / 2End Sub窗体的Resize事件代码:Private Sub Form_Resize()窗体的尺寸改变是，Frame1始终水平居中Frame1.Left = Frmcjgl.Width / 2 - Frame1.Width / 2Frame2.Left = Frmcjgl.Width / 2 - Frame2.Width / 2End SubPrivate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)End Sub(三)学生基本情况维护窗体的设计与实现首先在工程中添加一个标准窗体并起名为Frmjbwh。再在工程中添加一个数据环境，数据环境设计器为创建编程的运行时数据访问提供了一个交互的、设计时环境。在设计时，您可以设置 Connection 和 Command 对象的属性值、编写代码响应 ActiveX(R) Data Object (ADO) 事件、执行 Command、创建合计和层次结构。您也可以将 DataEnvironment 对象拖动到窗体或报表中来创建数据绑定控件。使用数据环境设计器，您可以完成下面的工作： 添加一个数据环境设计器到一个 Visual Basic 工程中。 创建 Connection 对象。 基于存储过程、表、视图、同义词和 SQL 语句创建 Command 对象。 基于 Command 对象的一个分组，或通过与一个或多个 Command 对象相关来创建 command 的层次结构。 为 Connection 和 Recordset 对象编写和运行代码。 从数据环境设计器中拖动一个 Command 对象中的字段到一个 Visual Basic 窗体或数据报表设计器。 本例设置数据环境的方法是：选择工程菜单中的添加Data Environment，出现数据环境对话框如图1-5所示。图1-5 数据环境对话框在图1-5中，用鼠标右键单击Dataenvironment1下的Connection1选择属性，出现数据连接属性对话框，如图1-6所示。图1-6 数据连接属性对话框 在图1-6中，在提供程序选项卡中选择数据引擎Microsoft Jet 3.51 OLE DB Provider,按下一步按钮，进入连接选项卡如图1-7所示。图1-7 数据连接属性的连接选项卡在图1-7中，在选择和输入数据库名称下边的文本框中，选择数据库Student.mdb,注意把student.mdb前边的路径删除掉，这样可以不限制应用程序的路径。按确定按钮后，回到数据环境对话框，再用鼠标右键单击Connection1，在弹出的快捷菜单中选择添加命令选项，结果如图1-8所示。图1-8 添加一个命令后的窗口在图1-8中，用鼠标右键单击Command1，在弹出的快捷菜单中选择属性，出现Command1属性对话框，如图1-9所示。图1-9 Command1属性对话框在入1-9中，在数据源下边数据库对象后的下拉表中选择表，在对象名称后的下拉表中选择基本情况。再在高级选项卡中，把锁定类型设成3-开放式，以便数据环境可以进行修改和删除操作。之后，按确定按钮，回到数据环境对话框。在用鼠标右键点击Command1，在出现的快捷菜单中选择添加子命令，结果如图1-10所示。图1-10 添加子命令后窗口在图1-10中，再设置command2的属性，方法同设置Command1属性，把Command2的数据对象设为学生成绩表。在关联选项卡中设置用学号同父命令对象相关联。结果如图1-11所示。图1-11 和父命令对象关联窗口数据环境建立完成后，回到Frmjbwh窗体中，在基本控件中添加一个DataGrid 控件，方法是在基本控件的空白处按鼠标右键，选择部件，在部件对话框中选择Microsoft DataGrid Control 6.0(OLEDB)控件，按确定按钮。DataGrid 控件是一种类似于电子数据表的绑定控件，可以显示一系列行和列来表示 Recordset 对象的记录和字段。可以使用 DataGrid 来创建一个允许最终用户阅读和写入到绝大多数数据库的应用程序。DataGrid 控件可以在设计时快速进行配置，只需少量代码或无需代码。当在设计时设置了 DataGrid 控件的 DataSource 属性后，就会用数据源的记录集来自动填充该控件，以及自动设置该控件的列标头。然后您就可以编辑该网格的列；删除、重新安排、添加列标头、或者调整任意一列的宽度。在窗体上添加各种控件，如图1-12设计屏幕。在图中，其主要控件、主要属性、控件说明如表1-4所示：图1-12 学生基本情况维护设计界面表1-4 控件、主要属性、控件说明表控件名称主要控件属性名称属性值功能说明FrmjbwhCaption基本情况维护名称FrmjbwhBorderStyle2 SizableMdichildTrue把此窗体作为子窗体WindowstateMaximized运行是最大化Datagrid名称Datagrid1DatasourceDataenvironment1把数据环境设成数据源DatamemberCommand1数据成员设成数据环境中的Command1命令 窗体的运行结果如图1-13所示：图1-13 学生基本情况维护的运行结果基本情况维护设计代码实现在通用区域声明一个全局变量key，以便在选择专业时使用：第一章 Public key As String选择班级按钮的Click事件代码：Private Sub selzy_Click()Me.key = 把对话框窗体Dialog设置成显示模式Dialog.Show vbModal按Dialog窗体的key变量的返回值进行筛选If Me.key Then DataEnvironment1.rsCommand1.Filter = 班级= & key & Adodc1.Refresh DataGrid1.Allo