2、课程表结构： 表2.2 编号 字段名称 字段类型 字段宽度 1 课程名称 CHAR 15 2 年级 CHAR 10 3 专业 char 20
3、成绩表结构： 表2.3 编号 字段名称 字段类型 字段宽度 1 学号 CHAR 15 2 课程名称 CHAR 15 3 期中成绩 LONG 4 4 期末成绩 LONG 4 5 总评成绩 LONG 4 6 班级 char 20 4、总分表结构： 表2.4 编号 字段名称 字段类型 字段宽度 1 学号 CHAR 15 2 期中总分 LONG 4 3 期末总分 LONG 4 4 期中名次 LONG 4 5 期末名次 LONG 4 6 班级 char 20
第五章 详细设计 根据系统的主要功能及上一章的总体设计，系统开发进入第二个阶段：详细设计。在这一阶段的工作中，主要任务有以下几项： 1、根据原型化的开发原则，为系统的每个模块功能进行界面设计，作为进一步优化的基础。 2、进行系统的流程分析，为模块的细化做好准备。 3、对每个模块进行详细的算法设计。 3．1 系统界面设计 一、登录及系统主窗口界面设计 该部分界面主要包括登录窗口、系统主窗口、修改密码窗口。 1、登录窗口界面：
（图一） 一张表，所有信息都是根据这张学生档案进行有关的操作，主要的字段有：学号、姓名、年级、专业、性别、出生年月、民族、籍贯、政治面貌、家庭地址、邮政编码、联系电话、入学时间、备注。其中日期的数据类型为日期/时间天型，其它的数据类型为文本型；成绩表中字段为：学号、姓名、年级、专业、学期、考试时间、考试科目、考试地点、课程性质、科目分数、违纪类型、备注；课程表中字段为：专业、年级、学期、课程名称、教材、任课老师、课时、上课地点、课程性质、考试性质；用户资料中的字段包括：用户名、密码、身份。 数据库与VB的连接：本系统的数据链接采用的是ADO方法，打开控制面板，打开ODBC数据源图标，选择“系统DSN”标签，点击“添加”按钮，在弹出的“创建新数据源”对话框中选择名称为“Microsoft Access Drive（*.mdb）”，点击“完成”按钮，在ODBC Microsoft Access 安装对话框中在数据源名中输入信息，在数据库这个框中， 单击“选择”按钮，在弹出的选择数据库这一对话框架中，在驱动器下拉列表框中选择本系统数据库所在驱动器，在目录中选择库所在的文件夹，在文件类型中选择选“Access数据库（*.mdb）”，在数据库名中选择本系统的数据库，点击“确定”按钮即完成数据链接。 在VB中，用ADODC链接数据库，用DataGrid或DATA将库中的数据在界面中显示出来，本系统采用DataGrid。在界面上右击Adodc控制，在弹出的快捷菜单中选择属性，在属性对话框中，在“属性”这一标签中， 选中单选框“Use ODBC Data Source Name”，并在下拉文本框中选择已经配置好的数据源名信息，再在“RecordSoure”标签中，在Commard Text（SQL）文本框中输入查询语句，如：select * from 学生档案。同时，将桌面的DataGrid控件选中，在属性框中，将它的Datasoure设为Adodc。 我们可以设置DataGrid控件的外观：选中该控件，右击，在弹出的快捷菜单中选择“检索字段”，在弹出的对话框中单击“确定”，这时，表格中出现了表的字段。然后再右击，同样，在弹出的快捷菜单中选择“编辑”，我们就可以所在的表格的宽度进行调整。
第六章 系统具体实现 7.1各功能的实现 7.1.1课程管理：课程设置（如：界面如图二） （图二） 运行程序后，进入课程管理模块，课程管理模块的第一块是课程设置，在这模块中可以把专业、年级、学期、课程名称、教材、任课老师、课时、上课地点、课程性质和考试性质等信息输入，以便使用。 下面为其代码： Private Sub Command1_Click() Dim myCon As New ADODB.Connection Dim myRs As New ADODB.Recordset Dim ZhuanYe, NianJi, XueQi, KeCheng, JiaoCai, RenKLS, KeShi, ShangKeDD, KeChengXZ, KaoShiXZ As String ZhuanYe = Text1.Text NianJi = Text2.Text XueQi = DTPicker1.Value KeCheng = Text4.Text JiaoCai = Text5.Text RenKLS = Text6.Text KeShi = Text7.Text ShangKeDD = Text8.Text KeChengXZ = Combo1.Text KaoShiXZ = Combo2.Text If Trim(ZhuanYe) = "" Or Trim(NianJi) = "" Or Trim(XueQi) = "" Or Trim(KeCheng) = "" Or Trim(JiaoCai) = "" Or Trim(RenKLS) = "" Or Trim(KeShi) = "" Or Trim(ShangKeDD) = "" Or Trim(KeChengXZ) = "" Or Trim(KaoShiXZ) = "" Then MsgBox "请填写要修改课程资料的内容！" Combo1.Text = "" Combo2.Text = "" Exit Sub End If
myCon.Open "dsn=信息" myRs.Open "select * from 课程表 where 专业='" & Text1.Text & "'", myCon, 3, 2 &nbs
首页 上一页 4 5 6 7 8 9 10 下一页 尾页 7/11/11
