学生管理信息系统

1、 华科学院计算机科学与技术系计算机专业 软件工程课程设计报告 （2010/2011学年 第一学期）学生姓名： 强海荣学生班级： 计算机072202H学生学号： 200722030217指导教师： 赵旭俊 2010年12月27日目录第一章 系统概述11.1 系统开发的背景11.2 系统开发的意义11.3 系统开发的目标1第二章 需求分析22.1 综合要求22.1.1 功能要求22.1.2 性能需求22.2 数据流图22.3 数据字典52.4 系统E-R图9第三章 概要设计113.1 合理方案设计113.2 系统功能模块设计113.3数据库设计12第四章 详细设计144.1 数据库及表创建144.

2、1.1 新建表144.1.2 设计表164.2 结构程序设计174.2.1 添加信息程序流程图174.2.2 修改信息程序流程图174.2.3 删除信息程序流程图184.2.4 查询信息程序流程图194.2.5 系统程序流程图194.3 人机界面设计21第五章 系统编码与实现225.1 创建工程项目225.2 工程主窗体225.3 用户登陆窗体235.4 学生信息窗体255.4.1 学生信息添加窗体255.4.2 学生信息删改（删除、修改）窗体295.4.3 学生信息查询窗体31第六章 系统测试346.1 测试方法346.2测试用例346.2.1 用户登陆346.2.2 学生信息35结束语37

3、参考文献38第一章 系统概述1.1 系统开发的背景随着学校规模的不断扩大，专业、班级、学生的数量急剧增加，有关学生各门课程的成绩的各种信息量也成倍增长，而目前许多高校的学生信息管理仍停留在复杂的人工操作上，重复工作较多，工作量大，效率低，因此，迫切需要开发学生管理信息系统来提高管理工作的效率。1.2 系统开发的意义学生管理信息系统，在学生信息的规范管理、科学统计和快速查询方面具有较大的实用意义。它提高了信息的开放性，大大地改善了学生、教师对其最新信息查询的准确性。为了能够学以致用，通过对学生管理信息系统的简单开发，不仅可以巩固书本上所学知识，从而能够对所学内容加以深化，拓宽自己的知识面。通过学

4、习与实践相结合，提高自己的编程能力，为今后的毕业设计和以后的软件开发奠定了基础。1.3 系统开发的目标学生管理信息系统是面向教育部门的学生管理系统，包括学生基本信息管理，学生成绩管理等工作，是利用计算机进行集中管理而开发的系统。该系统是以Visual Basic 6.0为开发环境，以SQL 2000为后台数据库进行开发的管理系统，力求与实际相结合具有查询、管理等功能，使教育的管理趋于计算机化，使之更加方便、快捷以提高工作效率。根据学生管理的需求和特点，该系统实施后，应达到以下目标：1. 灵活地运用表格输入数据，使信息传递更快捷；2. 系统采用人机对话方式，界面美观友好、数据存储安全可靠；3.

5、键盘操作，快速响应；4. 实现各种信息的添加、删除、修改、查询等；5. 系统运行稳定、安全可靠。第二章 系统需求分析2.1 综合要求2.1.1 功能要求在学生管理信息系统中，主要有用户登陆、学生信息管理、班级信息管理、学生成绩管理、课程信息管理、用户信息管理等功能。1. 用户登陆管理员登陆，普通用户对信息的查询登陆，管理员和普通用户必须在登陆页面输入用户名及密码，只有验证通过方可进入其它操作。2. 学生信息管理包括4个功能模块：学生信息添加、学生信息修改、学生信息删除和学生信息查询。3. 班级信息管理包括4个功能模块：班级信息添加、班级信息修改、班级信息删除和班级信息查询。4. 学生成绩管理包

6、括4个功能模块：学生成绩添加、学生成绩修改、学生成绩删除和学生成绩查询。5. 课程信息管理包括4个功能模块：课程信息添加、课程信息修改、课程信息删除和课程信息查询。6. 用户信息管理包括2个功能模块：用户信息添加和用户密码修改。2.1.2 性能需求要求该系统易操作、可维护、具有开放性，时刻保持数据的有效性与安全性，并且只有管理员才能对数据进行修改。开发环境：Visual Basic 6.0.数据库：SQL Server2000.操作系统：Windows XP.2.2 数据流图分析学生管理信息系统的数据来源和去向，绘制出数据流图的顶层数据流图，如图2-1所示。学生信息班级信息显示信息显示信息显示

7、信息显示信息学生信息D1管理员普通用户登 陆1学生信息管 理显 示用户2班级信息管 理3课程信息管 理4学生成绩管 理成绩信息班级信息班级信息D2课程信息D3成绩信息D4成绩信息课程信息课程信息图2-1 学生管理信息系统的顶层数据流图按自顶向下、逐层分解的方法对顶层数据流图进一步细化，绘制出0层数据流图，如图2.2所示。用户学生信息成绩信息成绩信 息显示显示课程信息显示成绩信息显示班级信息用户信息用户信息用户信息课程信息课程信息班级信息学生信息用户显示学生信息1.1学生信息管 理1.2添加删除修改记 录用户信息更新学生信息D1D1学生信息2.1班级信息管 理2.2添加删除修改记 录D2学生信息

8、D2更新班级信息班级信息3.1课程信息管 理3.2添加删除修改记 录D3课程信息D3更新课程信息4.1成绩信息管 理4.2添加删除修改记 录D4成绩信息D4更新成绩信息图2.2 学生管理信息系统的0层数据流图2.3 数据字典该学生信息管理系统的数据字典如下：（1）、数据名称：学生信息数据流数据字典数据名： 录入学生的基本信息来源： 管理员数据结构：学号+姓名+性别+出生日期+班级编号+入学时间+住址+备注简要说明：该学生信息管理系统的主要结构，定义了一个学生的基本信息 数据项数据字典数据名： 学号存储处： 学生信息表数据元素：类型：字符型 长度：50 含义：学生的唯一标识简要说明：在学生信息表

9、中可以唯一的标识每一位学生数据名： 入学时间存储处： 学生信息表数据元素：类型：datetime 长度：8 含义：学生的入学时间信息简要说明：记录每一位学生的入学时间 数据加工数据字典项目名： 添加学生信息输入： 学生信息输出：简要说明：可以添加学生信息项目名： 修改学生信息输入： 学生信息（2）、数据名称：班级信息数据流数据字典数据名： 录入班级的基本信息来源： 管理员数据结构：班级编号+班级名称+辅导员+系名称+班主任简要说明：该学生信息管理系统的主要结构之一，定义了一个班级的基本信息 数据项数据字典数据名： 班级编号存储处： 班级信息表数据元素：类型：字符型 长度：50 含义：班级的唯一

10、标识简要说明：在班级信息表中可以唯一的标识每一门课程数据名： 班主任存储处： 班级信息表数据元素：类型：字符 长度：50 含义：该课程的负责人简要说明：记录每一个班级的班主任 数据加工数据字典项目名： 添加班级信息输入： 班级信息输出：简要说明：可以添加班级信息项目名： 修改班级信息输入： 班级信息输出：简要说明：可以修改错误的班级信息（3）、数据名称：学生成绩信息数据流数据字典数据名： 录入学生成绩信息来源： 管理员数据结构：学号+课程编号+成绩简要说明：该学生信息管理系统的主要结构之一 数据项数据字典数据名： 学号存储处： 成绩信息表数据元素：类型：字符型 长度：50 含义：学生的唯一标识

11、简要说明：在成绩信息表中可以唯一的标识每一位学生数据名： 成绩存储处： 成绩信息表数据元素：类型：numeric 长度：9 含义：学生的成绩信息简要说明：记录每一位学生的成绩信息 数据加工数据字典项目名： 添加成绩信息输入： 成绩信息输出：简要说明：可以添加成绩信息项目名： 查询成绩信息输入： 输出： 成绩信息简要说明：可以查询每一位学生的成绩信息（4）、数据名称：课程信息表数据流数据字典数据名： 录入课程的基本信息来源： 管理员数据结构：课程编号+课程名称+课程类型+开课时间+学时+学分简要说明：该学生信息管理系统的主要结构之一 数据项数据字典数据名： 课程编号存储处： 课程信息表数据元素：

12、类型：字符型 长度：50 含义：课程的唯一标识简要说明：在课程信息表中可以唯一的标识每一门课程数据名： 开课时间存储处： 课程信息表数据元素：类型：datetime 长度：8 含义：学生的开课时间信息简要说明：记录每一门的课程的开课时间 数据加工数据字典项目名： 添加课程信息输入： 课程信息输出：简要说明：可以添加课程信息项目名： 修改课程信息输入： 课程信息输出：简要说明：可以修改错误的课程信息2.4 系统E-R图绘制学生管理信息系统的E-R图，如图2-3所示。成 绩课 程选修考试选修111nnm学 生考试n1班 级图2.3学生管理信息系统的E-R图学 生姓名学号性别出生日期班级编号电话号码

13、入学时间备注住址图2.4 学生实体图班 级班级编号班级名称辅导员系名称班主任图2.5 班级实体图课 程课程编号课程名称课程类型开课时间学时学分 图2.6课程实体图成 绩学号课程编号成绩图2.7 成绩实体图第三章 系统概要设计3.1 合理方案设计在需求分析的基础上，寻找实现学生管理信息系统的各种不同的方案，并选取若干个合理方案，经分析比较，从中选出一个最佳方案。本方案是在Visual Basic 6.0、SQL Server2000的环境下，实现对学生管理信息系统的用户登陆、学生信息管理、班级信息管理、学生成绩管理、课程信息管理、用户信息管理等功能。3.2 系统功能模块设计学生管理信息系统功能包

14、括可视化窗口，对各种信息的添加、修改、删除和查询等具体功能如图3-1所示。学生管理信息系统学生信息管理课程信息管理用户信息管理用户信息添加用户密码修改学生信息添加学生信息修改学生信息删除学生信息查询班级信息管理班级信息添加班级信息修改班级信息删除班级信息查询课程信息添加课程信息修改课程信息删除课程信息查询学生成绩管理学生成绩添加学生成绩修改学生成绩删除学生成绩查询图3.1 学生管理信息系统功能模块3.3数据库设计在需求分析阶段所确定的学生管理信息系统数据需求的基础上，进一步设计数据库。1. 系统用户数据表（用户信息表）记录系统所有用户名和密码信息，表中的各个字段以及各个字段的说明如表3-1所示

15、：表3-1 用户信息表结构列 名数据类型长 度说 明用户名varchar50允许空密码varchar50允许空用户类型char10允许空2. 学生信息表记录学生学号、姓名等基本信息，表中的各个字段以及各个字段的说明如表3-2所示：表3-2 学生信息表结构列 名数据类型长 度说 明学号varchar50主 键姓名varchar50允许空性别varchar10允许空出生日期datetime8允许空班级编号varchar50允许空电话号码varchar50允许空入学时间datetime8允许空住址varchar100允许空备注varchar200允许空3. 班级信息表记录班级编号、班级名称及相关的信

16、息，表中各个字段以及各个字段的说明如表3-3所示：列 名数据类型长 度说 明班级编号varchar50主 键班级名称varchar50允许空辅导员varchar50允许空系名称varchar50允许空班主任varchar50允许空表3-3 班级信息表结构 4. 课程信息表记录课程编号、课程名称等相关信息，表中各个字段以及各个字段的说明如表3-4所示：列 名数据类型长 度说 明课程编号varchar50主 键课程名称varchar50允许空课程类型varchar50允许空开课时间carhar10允许空课时int4允许空学分int4允许空表3-4 课程信息表结构5. 学生成绩表记录学生学号、课程编

17、号及相关的成绩，表中各个字段以及各个字段的说明如表3-5所示：表3-5 学生成绩表结构列 名数据类型长 度说 明学号varchar50主 键课程编号varchar50主 键成绩numeric9允许空 第四章 系统详细设计4.1 数据库及表创建启动SQL2000 Server，右击“数据库”点击“新建数据库”，在弹出的“数据库属性”对话框中可键入数据库名及其它信息，如图4-1所示：图4.1 新建数据库 新建表数据库创建完毕后，点击可打开。右击“表”选择“新建表”，可以进行表的创建以及进行相关的表属性设置。1. 用户信息表如图4-2所示：图4.2 新建用户信息表2. 学生信息表如图4-3所示：图4

18、.3 新建学生信息表3. 班级信息表如图4-4所示：图4.4 新建班级信息表4. 课程信息表如图4-5所示：图4.5 新建课程信息表5. 学成成绩表如图4-6所示：图4.6 新建学生成绩表 设计表创建完表后右击对应表名“打开表”“返回所有行”，可对表进行添加、修改、插入、删除等相应编辑操作。1. 设计用户信息表如图4-7所示：图4.7 设计用户信息表2. 设计学生信息表如图4-8所示：图4.8 设计学生信息表3. 设计班级信息表如图4-9所示： 图4.9 设计班级信息表4. 设计课程信息表如图4-10所示：图4.10 设计课程信息表5. 设计学生成绩表如图4-11所示：图4.11 设计学生成绩

19、表4.2 结构程序设计 添加信息程序流程图绘制添加信息流程图，如图4-12所示。否是编辑信息输入无误添加成功结束开始图4.12 添加信息 修改信息程序流程图绘制修改信息流程图如图4-13所示。修改信息编辑信息输入无误是否结束开始图4.13 修改信息 删除信息程序流程图绘制删除信息流程图如图4-14所示。无法删除开始否是否是是否删除不删除正在使用删除成功结束图4.14 删除信息 查询信息程序流程图绘制查询信息流程图如图4-15所示是提示不存在信息是否存在显示信息如入查询信息数据库否开始结束图4.15 查询信息 系统程序流程图采用自顶向下、逐步求精的程序设计方法，使用顺序、选择和循环这3种基本控制

20、结构进行连接，并且每个代码块只有一个入口和出口。4.3 人机界面设计认真处理好系统响应时间、用户帮助设施、出错信息处理和命令交互这4个问题。先创建设计模型，接下来用原型实现这个设计模型并由用户调试和评估原型，然后根据用户意见修改原型。1. 系统响应时间：稳定在1秒。2. 用户帮助设施：选择附加的帮助设施。3. 出错信息处理：1）当输入用户名不存在时，给出提示；2）当输入密码不正确时，给出提示；3）当查询信息不存在时，给出提示；4）其他出错提示。4. 命令交互：用户既可以从菜单中选择软件功能，也可以通过键盘命令序列调用软件功能。第五章 系统编码与实现5.1 创建工程项目图5.1 VB 6.0界面

21、1. 启动VB 6.0，出现VB 6.0运行界面，如图5-1所示：2. 点击“文件”“保存工程”保存当前工程文件。5.2 工程主窗体在VB程序设计中，主界面负责应用程序的主界面，由它调用其它模块。因此，主界面应该具有操作性好、界面清晰、使用户能够很方便地找到所需功能的特点。本系统的主界面部在相应的系统菜单组成，用户只需要点击相应的菜单使可调出对应的系统模块。工程主窗体如图5-2 所示。图5.2 工程主窗体5.3 用户登陆窗体本模块用于用户登陆窗体主要由文本框及命令按钮组成，利用ADODC控件及DataGrid控件实现程序代码与SQL数据的连接（如图5-3所示）。图5.3 用户登陆窗体对应代码如

22、下：Option ExplicitPrivate Sub Command1_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim cn_str As StringDim rs_str As Stringcn_str = "driver=sql server;server=.;uid=sa;pwd=;database=XSXX"cn.Open cn_strrs_str = "select * from mima where name='" & Trim(T

23、ext1.Text) & "'"rs.Open rs_str, cn, adOpenKeyset, adLockOptimisticIf Text1.Text <> "" And Text2.Text <> "" Then If rs.RecordCount > 0 Then If Text2.Text = Trim(rs.Fields("code") Then 'MsgBox "成功登录！", 64, "提示" MDIf

24、rm_main.Show Unload Me 'Me.Hide Else MsgBox "输入的密码不对，请重新输入！", 64, "提示" Text2.SetFocus Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text) End If Else MsgBox "没有该操作员！", 64, "提示" End IfElse If Text1.Text = "" And Text2.Text <> "" T

25、hen MsgBox "请输入操作员!", 64, "提示" Text1.SetFocus ElseIf Text1.Text <> "" And Text2.Text = "" Then MsgBox "请输入密码！", 64, "提示" Text2.SetFocus ElseIf Text1.Text = "" And Text2.Text = "" Then MsgBox "请输入操作员和密码！",

26、 64, "提示" Text1.SetFocus End IfEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Text1.Text = ""Text2.Text = ""Me.Icon = LoadPicture("")Label5.Caption = Year(Date)End SubPrivate Sub Text1_Change()End Sub5.4 学生信息窗体本窗体通过ADODC控件连接数据库

27、的学生表，可以实现对学生信息的添加、修改删除和查询。 学生信息添加窗体学生信息的添加窗体，如图5-4所示。图5.4 学生信息添加窗体对应代码如下：Option ExplicitDim s, y, i, jDim rs As New ADODB.RecordsetPrivate Sub Form_Load()MS1.Rows = 2MS1.Cols = 10y = Array("序号", "学号(*)", "姓名", "性别", "出生日期", "班级编号", "电话

28、号码", "入学时间", "住址", "备注")For i = 0 To MS1.Cols - 1 MS1.TextMatrix(0, i) = y(i) MS1.FixedAlignment(i) = 4 MS1.ColAlignment(i) = 4NextMS1.FixedRows = 1: MS1.FixedCols = 1MS1.TextMatrix(1, 0) = 1MS1.ColWidth(0) = 450Toolbar1.Buttons(8).Enabled = FalseToolbar1.Buttons(1

29、0).Enabled = FalseMS1.Enabled = FalseText1.Text = ""End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)Unload MeMDIfrm_main.Picture1.Visible = TrueEnd SubPrivate Sub Form_Resize()MS1.Width = Me.Width - 200MS1.Height = Me.HeightFor i = 1 To MS1.Cols - 1 MS1.ColWidt

30、h(i) = MS1.Width / 9.3NextEnd SubPrivate Sub MS1_Click()If MS1.Row >= 1 And MS1.TextMatrix(MS1.Row - 1, MS1.Cols - 1) <> "" Then Text1.Visible = True Text1.SetFocusEnd IfEnd SubPrivate Sub MS1_EnterCell()Module1.entercell MS1, Text1End SubPrivate Sub MS1_RowColChange()For i = 1 To

31、 MS1.Rows - 1 MS1.TextMatrix(i, 0) = iNextEnd SubPrivate Sub Text1_Change()MS1.Text = Text1.TextEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyUp Then Module1.moveup MS1, Text1End IfIf KeyCode = vbKeyRight Or KeyCode = vbKeyReturn Then Module1.moveright MS1,

32、Text1End IfIf KeyCode = vbKeyDown Then Module1.movedown MS1, Text1End IfIf KeyCode = vbKeyLeft Then Module1.moveleft MS1, Text1End IfEnd SubPrivate Sub MS1_Scroll()Text1.Width = MS1.CellWidth: Text1.Height = MS1.CellHeightText1.Left = MS1.Left + MS1.CellLeft: Text1.Top = MS1.CellTop + MS1.TopEnd Sub

33、Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Key Case "add" Toolbar1.Buttons(8).Enabled = True Toolbar1.Buttons(10).Enabled = True Text1.Visible = True: Text1.Text = "" MS1.Enabled = True Text1.SetFocus Text1.Width = MS1.CellWidth: Text1.

34、Height = MS1.CellHeight Text1.Left = MS1.CellLeft + MS1.Left: Text1.Top = MS1.CellTop + MS1.Top Case "save" For i = 1 To MS1.Rows - 1 If MS1.TextMatrix(i, 1) <> "" Then rs.Open "select * from student_info", cnn, adOpenKeyset, adLockOptimistic rs.AddNew For j = 1 T

35、o MS1.Cols - 1 If MS1.TextMatrix(i, j) <> "" Then rs.Fields(j - 1) = Trim(MS1.TextMatrix(i, j) Next j rs.Update rs.Close End If Next MsgBox "添加成功！", 64, "提示" For i = 1 To MS1.Rows - 1 For j = 1 To MS1.Cols - 1 MS1.TextMatrix(i, j) = "" Next j Next i MS1.

36、Rows = 2 Text1.Visible = False MS1.Enabled = False Toolbar1.Buttons(8).Enabled = False Toolbar1.Buttons(10).Enabled = False Case "cancel" For i = 1 To MS1.Rows - 1 For j = 1 To MS1.Cols - 1 MS1.TextMatrix(i, j) = "" Next j Next i MS1.Rows = 2 Text1.Visible = False MS1.Enabled = F

37、alse Toolbar1.Buttons(8).Enabled = False Toolbar1.Buttons(10).Enabled = False Case "close" Unload Me MDIfrm_main.Picture1.Visible = TrueEnd SelectEnd Sub 学生信息删改（删除、修改）窗体学生信息的删改窗体，如图5-5所示。图5.5 学生信息删改窗体对应代码如下：Option ExplicitDim i As IntegerPrivate Sub Command1_Click()Adodc1.RecordSource = &q

38、uot;select * from student_info where student_info." & Combo1.Text & " like + '" & Text1.Text & "' + '%'"Adodc1.RefreshEnd SubPrivate Sub Command2_Click()End SubPrivate Sub Command3_Click()If Adodc1.Recordset.RecordCount <> 0 ThenEnd IfEn

39、d SubPrivate Sub Command4_Click()If Adodc1.Recordset.RecordCount <> 0 ThenEnd IfEnd SubPrivate Sub Command5_Click()End SubPrivate Sub Command6_Click()DataGrid1.AllowUpdate = TrueCommand9.Enabled = TrueEnd SubPrivate Sub Command7_Click()'DataGrid1.AllowDelete = TrueDim iOn Error Resume Next

40、i = MsgBox("是否确定删除该记录？", 64, "提示")If i = vbOK Then Adodc1.RefreshEnd IfEnd SubPrivate Sub Command8_Click()MDIfrm_main.Picture1.Visible = TrueUnload MeEnd SubPrivate Sub Command9_Click()DataGrid1.AllowUpdate = FalseDataGrid1.AllowDelete = FalseDataGrid1.RefreshMsgBox "操作成功！&q

41、uot;, 64, "提示"Command9.Enabled = FalseEnd SubPrivate Sub Form_Activate()Combo1.AddItem "学号"Combo1.AddItem "姓名"Combo1.ListIndex = 0Text1.Text = ""Command9.Enabled = FalseEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)MDIfrm_main.Pi

42、cture1.Visible = TrueEnd SubPrivate Sub Form_Resize()Frame1.Width = Me.Width - 300DataGrid1.Width = Me.Width - 300DataGrid1.Height = Me.HeightFor i = 0 To 8 DataGrid1.Columns(i).Width = (DataGrid1.Width - 450) / 9NextEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode =

43、vbKeyReturn Then Command1.SetFocusEnd Sub 学生信息查询窗体学生信息的查询窗体，如图5-6所示。图5.6 学生信息查询窗体对应代码如下：Option ExplicitDim i As IntegerPrivate Sub Command1_Click()Select Case Combo2.Text Case Is = "like" Adodc1.RecordSource = "select * from student_info where student_info." & Combo1.Text &am

44、p; " like '%' + '" & Text1.Text & "' + '%' " Adodc1.Refresh Case Is = "=" Adodc1.RecordSource = "select * from student_info where student_info." & Combo1.Text & " = '" & Text1.Text & "'&quo

45、t; Adodc1.RefreshEnd SelectEnd SubPrivate Sub Command2_Click()Unload MeMDIfrm_main.Picture1.Visible = TrueEnd SubPrivate Sub Form_Activate()Combo1.AddItem ("学号")Combo1.AddItem ("姓名")Combo1.AddItem ("班级编号")Combo1.ListIndex = 0Combo2.AddItem ("like")Combo2.AddIt

46、em ("=")Combo2.ListIndex = 1Text1.Text = ""End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)MDIfrm_main.Picture1.Visible = TrueEnd SubPrivate Sub Form_Resize()Shape1.Width = Me.Width - 300DataGrid1.Width = Me.Width - 300DataGrid1.Height = Me.HeightFor i = 0 To 8 DataGrid1.