软件工程课程设计学生信息管理系统_第1页
软件工程课程设计学生信息管理系统_第2页
软件工程课程设计学生信息管理系统_第3页
软件工程课程设计学生信息管理系统_第4页
软件工程课程设计学生信息管理系统_第5页
已阅读5页,还剩22页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

1、实 验 报 告班级:0307402 学号: 姓名:实验时间:2010年5月 学时:8学时实验地点: 老图书馆实验楼课程名称:软 件 工 程 实验项目名 称: 学生信息管理系统 一、 实验目的与任务:1.目的:通过实验课程,熟悉和基本掌握软件的工程设计方法、软件工程设计的表达形式、以及实现工程设计的辅助软件工程工具的使用。使学生在进行一个计算机应用系统开发过程中,学习所应该采取的步骤、方法,掌握需求分析、概要设计、系统设计和详细设计的主要环节,达到全面领会和贯通所学习的理论知识,以适应将来实际工作的需要。2.任务:学校主要有总务处、政教处、教导处、培训处四大块。其中教导处的工作最为繁重,工作人员

2、多,信息量大。除财务部门有专人及专用软件进行信息处理外,其它各类的数据处理都由班主任以及教导处工作人员人工完成。教导处目前有几十个班级的学生,处理的信息主要有三大类:学生信息、成绩数据、课程信息。本系统主要着眼于以上部分,建立数据库以及对数据的各种操作功能。对于学生信息,各班的班主任及学校领导由于各种分类和了解的需要,经常性地进行各种查询。例如:查询一个班级中团员的人数,男、女生的人数,住宿或通宿学生的人数等等。教导处在每一届学生进校时必须进行分班,设置学号;每一届学生毕业,要进行学生信息备份;对于成绩管理,课任教师要进行本科目成绩登记,计算平均分、优秀率、及格率;班主任在期中考试和期末考试后

3、计算本班学生总分,排名次;教导处要统计补考学生人数及相应名单,每学期进行学生成绩备份;学校领导则可通过查询工具来了解学生成绩情况。对于课程信息,教导处每学期要进行课程安排、课任教师分配、一周课程安排、中途课程调整等等。二、 实验的基本要求:1. 软件开发绘图工具visio实验要求:熟悉visio的工作环境及组成;掌握visio软件绘制图表的基本操作;熟练使用visio的图形模板绘制出专业图表。2. 软件需求分析实验要求:掌握系统的功能描述、性能描述方法;掌握需求分析工具数据流图、数据字典等;掌握系统需求分析的步骤和方法。3. 软件系统设计实验要求:掌握系统总体结构的设计;掌握系统接口设计,数据

4、结构设计;掌握系统概要设计的步骤和方法。4. 软件详细设计实验要求:掌握模块的程序描述;熟练使用流程图、pdl等详细描述工具;掌握详细设计的步骤和方法。5.软件测试和调试实验要求:掌握软件测试的基本技术和概念;掌握软件测试的方法;掌握程序调试的常用技术。 三、实验内容和步骤:(一) 可行性分析学生信息,作为一个学校,就有一定的工作量存在,而学生信息,它的工作量可能是其它信息工作量的几倍,班级的增加、班级的查找、班级的修改;学生档案;课程管理;成绩管理;缴费管理;统计等等,每个信息的数据都在不断地变化着,如果采用人工的方式进行操作,那么,一天的工作量,足以让人觉得比较繁琐,吃不消。针对这样的情况

5、,采用让数据的查询变得简单化,数据变的更让每个人都在任何时刻都可以了解到。学生信息管理系统是为本校开发的,本系统所采用的语言是visual basic,用microsoft access 2000数据库完成。该系统总体有四部分组成,包括学生信息查询、教务信息维护、学生选课及用户管理。通过本系统,把本校内部查询学生信息、教务信息、学生选课各个环节进行有效地计划、组织和控制。通过本校内部的信息,依据统一数据信息进行管理,把任何一块信息所产生的数据变动及时地反映给其它相关信息,做到数据共享。本系统主要信息流程为:教务信息维护接受学生的信息,学生信息查询根据教务信息维护的学生信息做出对所接收的信息合理

6、性进行判断,并交于信息维护进行相应的修改,再把信息存入数据库中。学生选课是对学生进行相应选择自己相关的课程。最后进行打印。采用本系统,能够使整个系统内部所有信息的工作简化,提高工作效益。由于采用统一的数据信息,使相关资料能够快速地查询所需的数据、资料及其它信息的,使信息快速高效运行。(二) 系统设计1. 系统功能描述本系统的主要任务是实现对学校教导处的学生信息管理、成绩管理、课程管理及相关查询。其主要功能包括:(1)学生信息管理功能班级管理。提供给班主任进行本班学生的信息更新、删除。添加学生。以班级为单位,进行学生入库。其中分为单个添加和成批添加。单个添加学生供数量较少的学生信息入库;成批添加

7、可以从现存的学生信息excel文件中成批录入到数据库中。删除学生。当学生毕业后,学生信息转移备份数据库中,系统的基本数据库中需要删除学生信息。该功能主要进行成批地删除学生信息,如连续学号区段的多位学生信息删除,整个班级的删除,所有学生信息的删除。新生管理。本部分的功能主要有新生导入、分班、及设置学号。新生导入实现从现存的excel新生名单中录入学生信息。分班功能实现按新生的报考专业、成绩及性别进行分班。设置学号实现自动为各班学生编发学号。学生信息备份。在学生信息删除前,将其按班级为单位保存到备份数据库。(2)学生成绩管理功能分数录入。以班级为单位,录入各科目的期中、期末、总评成绩。总分及名次。

8、计算指定班级学生的总分及名次。补考成绩录入。修改总评成绩,以决定最终补考人数。成绩备份。为指定班级及指定的学期数的学生成绩保存到备份数据库中。(3)课程信息管理功能课程管理。提供本学期各年级各专业所开课程名称的录入、修改、删除。它是学生成绩管理的基础。用以保证数据库中一致性原则。(4)查询功能。学生信息查询。根据用户的要求,查询学生数据库的所有可能的信息,其中包括成绩查询。备份成绩查询。按班级为单位查询备份数据库的学生信息,补考情况。2. 数据描述(1) 系统流程图 半页(2) 数据流图根据以上的系统功能描述,设计出数据流图如下:顶层数据流图与0层数据流图(图1至图2)(2个图一样大)学生信息

9、管理系统用户学生信息管理系统系统时钟学生信息管理成绩管理当前日期课程信息管理查询要求查询结果统计表图1 顶层数据流图1层数据流图(图3至图4) 2个图 一页 学生信息管理模块分层数据流图(图9至图15)(8个图) 三页成绩管理模块分层数据流图:(图16至18)(三个图)九行乘以3查询模块分层数据流图:(图24) 一个图 九行(3) 数据字典数据流条目: 学生信息管理模块:学生信息管理要求=新生数据处理要求|班级数据管理要求|添加数据要求|数据删除要求|数据备份要求新生数据处理要求=新生数据|班级数目|起始学号|班级名称|专业班级数据管理要求=班级名称|修改要求添加数据要求=单个学生数据单|成批

10、数据单数据删除要求=起止学号|班级名称|所有学生数据数据备份要求=班级名称|学期数新生数据=姓名+性别+出生日期+家庭住址+原毕业学校+政治面貌+入学总分起始学号=数字15班级名称=会计04(1)| 会计04(2)|会计04(3)| 计算机软件04(1)|会计03(1)| 会计03(2)|会计03(3)| 计算机软件03(1)|会计02(1)| 会计02(2)|会计02(3)| 计算机软件02(1)|网络技术03(1)| 网络技术04(1)| 机电03(1)| 机电02(1) | 机电04(1)| 网络技术02(1)| 网络技术02(1)修改要求=姓名+性别+出生日期+家庭住址+原毕业学校+政

11、治面貌+入学总分+专业+班级+是否住宿单个学生数据单=姓名+性别+出生日期+家庭住址+原毕业学校+政治面貌+入学总分+班级+是否住宿成批数据单=姓名+性别+出生日期+家庭住址+原毕业学校+政治面貌+入学总分+班级+是否住宿性别=男|女政治面貌=团员|非团员是否住宿=住宿|通学成绩管理模块:成绩管理要求=成绩录入要求|总分计算要求|成绩备份要求成绩录入要求=班级名称+成绩数据总分计算要求=班级名称+成绩数据成绩备份要求=班级名称+学期数成绩数据=姓名+课程名称+分数成绩表=学号+姓名+期中成绩总分+期末成绩总分+期中名次+期末名次课程信息管理模块:课程管理要求=课程表维护要求|教师课程表维护要求

12、|排课要求课程表维护要求=课程名称+年级+专业教师课程表维护要求=教师姓名+任教班级+课程名称+周课时数年级=一年级|二年级|三年级任教班级=会计04(1)| 会计04(2)|会计04(3)| 计算机软件04(1)|会计03(1)| 会计03(2)|会计03(3)| 计算机软件03(1)|会计02(1)| 会计02(2)|会计02(3)| 计算机软件02(1)|网络技术03(1)| 网络技术04(1)| 机电03(1)| 机电02(1) | 机电04(1)| 网络技术02(1)| 网络技术02(1)查询模块:查询要求=查询条件查询结果=学生信息统计表|学生成绩统计表|学生总分名次统计表|教师信

13、息统计表|备份信息统计表加工条目:学生信息管理模块加工条目:加工编号:2.2.2.1加工名称:检查记录有效性输入:新生数据输出:有效的新生记录、无效的新生记录加工逻辑:根据新生记录if 格式有效 then读取记录 else 无效格式记录,启动excel调整格式endif加工编号:2.2.2.2加工名称:启动excel调整输入:新生记录输出:有效的新生记录加工逻辑:根据新生记录按要求调整加工编号:2.2.2.3加工名称:读取新生记录输入:新生数据输出:写入学生表文件加工逻辑:根据新生记录do while 新生记录不为空 then读取记录,写学生表文件,班级值为“新生”loop加工编号:2.2.3

14、.1加工名称:统计新生数据输入:班级为“新生”记录输出:各专业新生人数,各专业男女生人数加工逻辑:根据各专业新生记录,查询所有会计专业且班级为“新生”的记录,并计算记录数查询所有会计专业且性别为“男”且班级为“新生”的记录,并计算记录数查询所有会计专业且性别为“女”且班级为“新生”的记录,并计算记录数查询所有计算机软件专业且班级为“新生”的记录,并计算记录数查询所有计算机软件专业且性别为“男”且班级为“新生”的记录,并计算记录数查询所有计算机软件专业且性别为“女”且班级为“新生”的记录,并计算记录数查询所有网络技术专业且班级为“新生”的记录,并计算记录数查询所有网络技术专业且性别为“男”且班级

15、为“新生”的记录,并计算记录数查询所有网络技术专业且性别为“女”且班级为“新生”的记录,并计算记录数查询所有机电专业且班级为“新生”的记录,并计算记录数查询所有机电专业且性别为“男”且班级为“新生”的记录,并计算记录数查询所有机电专业且性别为“女”且班级为“新生”的记录,并计算记录数加工编号:2.2.3.2加工名称:按报考专业、男女比例及入学总分分班输入:各专业班数,各专业新生数据,各专业男生人数,各专业女生人数输出:各班学生名单写入学生表文件,并设置班级名称加工逻辑:根据新生记录各专业男女生名单按入学总分降序排序 do while 男女生新生记录不为空 then按专业、根据班数,依次取男女生

16、记录,更改其班级名称写入学生表文件loop加工编号:2.2.4.1加工名称:查询相关记录输入:学生记录,班级名称输出:指定班级的学生名单加工逻辑:根据学生记录,查询所有班级名称等于输入值的学生记录加工编号:2.2.4.2加工名称:按总分降序设置学号输入:指定班级学生记录,起始学号输出:写入学生表文件,成绩表文件,总分表文件加工逻辑:do while 学生记录非空 学生记录的学号域 =起始学号总分表中添加一记录,学号域=起始学号查询课程表,n=该专业一年级所开课程数在成绩表中添加n个记录,学号域=起始学号 起始学号=起始学号+1loop加工编号:2.3.1加工名称:查询相关记录输入:学生记录,班

17、级名称输出:指定班级的学生名单加工逻辑:根据学生记录,查询所有班级名称等于输入值的学生记录加工编号:2.3.2加工名称:修改学生记录输入:指定班级学生记录,修改要求输出:学生信息加工逻辑:根据修改要求,改写学生数据加工编号:2.4.2.1加工名称:数据录入输入:单个学生数据输出:学生表,成绩表,总分表加工逻辑:根据学生数据单,接受录入 在学生表中添加一记录,并将录入信息作为记录的值 在总分表中添加一记录,学号域为录入学号值,班级域为班级值,其余域为0 判断该生所在年级和专业,查询课程表,n=本学期所开课程数在成绩表中添加n个记录,学号域均为录入学号值,班级域为班级值,其余域为0加工编号:2.4

18、.3.1加工名称:检查数据格式输入:学生记录输出:有效格式的学生记录,无效格式的学生记录加工逻辑:根据学生记录 if 格式有效 输出有效格式记录 else 输出无效格式记录 endif加工编号:2.4.3.2加工名称:启动excel调整输入:无效格式学生记录输出:有效格式学生记录加工逻辑:启动excel进行人工调整加工编号:2.4.3.3加工名称:逐行读取记录输入:有效格式学生记录输出:写入学生表,总分表,成绩表加工逻辑: do while 学生记录不为空 在学生表中添加一记录,用学生记录值更新各域 在总分表中添加一记录,用学生记录值中的学号值更新学号域,班级域为班级值 判断学生所在年级和专业

19、,n=本学期该专业所开课程数 在成绩表中添加n个记录,学号域为学生记录值中的学号值,班级域为班级值 loop加工编号:2.6.1加工名称:查询备份数据输入:班级名称输出:备份数据加工逻辑:在学生表中查询班级名称等于输入值的学生数据加工编号:2.6.2加工名称:数据备份输入:备份数据输出:备份数据文件加工逻辑: if 数据已备份 then 退出 else 生成备份文件 endif加工编号:2.5.1加工名称:确认数据类型输入:删除数据单输出:班级名称,起止学号,所有数据加工逻辑: case1 按班级删除 获得班级名称 case2 按起止学号删除 获得起止学号 case3 按所有数据 查询学生表中

20、的所有学生数据加工编号:2.5.2加工名称:删除指定范围数据输入:起止学号输出:更新学生表,总分表,成绩表加工逻辑:在学生表、成绩表、总分表中查询学号值大于起始学号并小于终止学号的学生记录 从各表中删除这些记录加工编号:2.5.3加工名称:删除指定班级数据输入:班级名称输出:更新学生表、成绩表、总分表加工逻辑:查询学生表中班级名称为输入值的记录 从学生表中删除这些记录 从总分表中删除这些记录 从成绩表中删除这些记录加工编号:2.5.4加工名称:删除所有学生数据输入:所有学生记录输出:更新学生表、总分表、成绩表加工逻辑:删除学生表、总分表、成绩表中的所有学生数据成绩管理模块加工条目加工编号:3.

21、2.1加工名称:查询学生及课程信息输入:班级名称输出:指定班级的学生名单及本学期所开课程加工逻辑:查询学生表中班级名称为输入值的记录 判断所在年级和专业,查询课程表获得本学期所开课程加工编号:3.2.2加工名称:成绩录入输入:学生名单,课程信息,成绩录入数据输出:更新成绩表加工逻辑:选择课程名称,录入成绩 写入成绩表加工编号:3.3.1加工名称:查询成绩数据输入:班级名称输出:指定班级的学生名单及成绩数据加工逻辑:判断成绩表,获得指定班级的学生成绩数据加工编号:3.3.2加工名称:计算总分及名次输入:成绩数据输出:总分与名次信息,更新总分表加工逻辑:依次计算各记录总成绩,写入总分表 对总分表进

22、行按总分降序排序,写入名次加工编号:3.4.1加工名称:查询成绩数据输入:备份数据单输出:备份数据加工逻辑:对学生表和成绩表做笛卡尔积,获得指定班级的成绩与学生数据加工编号:3.4.2加工名称:数据备份输入:备份数据,备份班级名称输出:成绩备份文件加工逻辑:根据备份班级名称生成成绩备份文件课程信息管理模块数据加工条目: 加工编号:5.2.1加工名称:确认维护要求输入:维护要求输出:录入要求、修改要求加工逻辑:判断对课程的录入或者修改 加工编号:5.2.2加工名称:课程数据录入输入:课程数据单,录入要求输出:更新课程表文件加工逻辑:根据录入要求,录入课程数据 在课程表中添加一新记录,将录入数据作

23、为新记录值加工编号:5.2.3加工名称:课程数据修改输入:课程数据单,修改要求输出:更新课程文件加工逻辑:查询课程信息,根据修改要求进行修改,并更新课程文件查询模块加工条目:加工编号:6.2.1加工名称:要求加工输入:学生信息查询要求输出:查询规则加工逻辑: case1 查询要求涉及学生表|成绩表|总分表 在学生表|成绩表|总分表中查询 case2 查询要求涉及学生表和成绩表 将学生表与成绩表做笛卡尔积,与查询条件形成sql语句 case3 查询要求涉及学生表和总分表将学生表与总分表做笛卡尔积,与查询条件形成sql语句case4 查询要求涉及学生表和成绩表、总分表将学生表与成绩表、总分表做笛卡

24、尔积,与查询条件形成sql语句case5 查询要求涉及总分表和成绩表 将总分表与成绩表做笛卡尔积,与查询条件形成sql语句最后将sql语句作为查询规则输出加工编号:6.2.2加工名称:查询处理输入:查询规则输出:查询结果加工逻辑:根据查询规则查询指定表,并显示结果3. 数据库设计(1)库设计:本系统涉及到的信息主要有5类:学生信息、成绩信息、教师信息、图书信息、后备信息。由于成绩信息和教师信息与学生信息关系密切,因此将这三类信息存放在同一数据库中,以提高多种信息同时读取的速度。按以上分析,将系统的数据库设计为三个:、学生数据库:该数据库为中包含有以下各表:学生表:记录学生的基本信息,是进行学生

25、及其它各类信息处理的基础。成绩表:记录学生的期中、期末及总评的各科成绩。总分表:记录学生的期中、期末及总评的总分及名次。课程表:记录各专业各年级开课情况,在添加学生记录时,可根据该表的情况决定在成绩表添加学生记录的个数。后备数据库: 该数据库主要保存两类信息:学生信息、成绩信息。其数据表是按用户的要求在运行过程中动态建立的。(2)表设计: 、学生表结构:编号字段名称字段类型字段宽度1学号char152姓名char103性别char24出生日期date85电话char106家庭住址char507班级char208原毕业学校char509是否住宿char410政治面貌char611入学总分long

26、412专业char20、课程表结构:编号字段名称字段类型字段宽度1课程名称char152年级char103专业char20、成绩表结构:编号字段名称字段类型字段宽度1学号char152课程名称char153期中成绩long44期末成绩long45总评成绩long46班级char20、总分表结构:编号字段名称字段类型字段宽度1学号char152期中总分long43期末总分long44期中名次long45期末名次long46班级char20(三) 详细设计在这一阶段的工作中,主要任务有以下几项:1、根据原型化的开发原则,为系统的每个模块功能进行界面设计,作为进一步优化的基础。2、进行系统的流程分析

27、,为模块的细化做好准备。3、对每个模块进行详细的算法设计。 待添加的隐藏文字内容2登录及系统主窗口界面设计,该部分界面主要包括登录窗口、系统主窗口、修改密码窗口:1、登录窗口界面: 本系统中使用到的数据表主要有班级表、成绩表、缴费表、课程表、学生档案、用户资料,由这六个表,组成了名为信息的数据库。其中学生档案是本系统主要的一张表,所有信息都是根据这张学生档案进行有关的操作,主要的字段有:学号、姓名、年级、专业、性别、出生年月、民族、籍贯、政治面貌、家庭地址、邮政编码、联系电话、入学时间、备注。其中日期的数据类型为日期/时间天型,其它的数据类型为文本型;成绩表中字段为:学号、姓名、年级、专业、学

28、期、考试时间、考试科目、考试地点、课程性质、科目分数、违纪类型、备注;课程表中字段为:专业、年级、学期、课程名称、教材、任课老师、课时、上课地点、课程性质、考试性质;用户资料中的字段包括:用户名、密码、身份。数据库与vb的连接:本系统的数据链接采用的是ado方法,打开控制面板,打开odbc数据源图标,选择“系统dsn”标签,点击“添加”按钮,在弹出的“创建新数据源”对话框中选择名称为“microsoft access drive(*.mdb)”,点击“完成”按钮,在odbc microsoft access 安装对话框中在数据源名中输入信息,在数据库这个框中, 单击“选择”按钮,在弹出的选择数

29、据库这一对话框架中,在驱动器下拉列表框中选择本系统数据库所在驱动器,在目录中选择库所在的文件夹,在文件类型中选择选“access数据库(*.mdb)”,在数据库名中选择本系统的数据库,点击“确定”按钮即完成数据链接。 在vb中,用adodc链接数据库,用datagrid或data将库中的数据在界面中显示出来,本系统采用datagrid。在界面上右击adodc控制,在弹出的快捷菜单中选择属性,在属性对话框中,在“属性”这一标签中, 选中单选框“use odbc data source name”,并在下拉文本框中选择已经配置好的数据源名信息,再在“recordsoure”标签中,在commard

30、 text(sql)文本框中输入查询语句,如:select * from 学生档案。同时,将桌面的datagrid控件选中,在属性框中,将它的datasoure设为adodc。(四) 系统具体实现1、各功能的实现、课程管理:课程设置运行程序后,进入课程管理模块,课程管理模块的第一块是课程设置,在这模块中可以把专业、年级、学期、课程名称、教材、任课老师、课时、上课地点、课程性质和考试性质等信息输入,以便使用。下面为其代码:private sub command1_click()dim mycon as new adodb.connectiondim myrs as new adodb.recor

31、dsetdim zhuanye, nianji, xueqi, kecheng, jiaocai, renkls, keshi, shangkedd, kechengxz, kaoshixz as stringzhuanye = text1.textnianji = text2.textxueqi = dtpicker1.valuekecheng = text4.textjiaocai = text5.textrenkls = text6.textkeshi = text7.textshangkedd = text8.textkechengxz = combo1.textkaoshixz =

32、combo2.textif 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 subend ifmycon.open dsn=信息myrs.open sele

33、ct * from 课程表 where 专业= & text1.text & , mycon, 3, 2 myrs!年级 = text2.text myrs!学期 = dtpicker1.value myrs!课程名称 = text4.text myrs!教材 = text5.text myrs!任课老师 = text6.text myrs!课时 = text7.text myrs!上课地点 = text8.text myrs!课程性质 = combo1.text myrs!考试性质 = combo2.textmyrs.updatemyrs.closemycon.closemsgbox 您确定

34、要修改吗?, vbyesno, 提示frm_updategrean.adodc1.refreshfrm_updategrean.datagrid1.refreshtext1.text = text2.text = text3.text = text4.text = text5.text = text6.text = text7.text = text8.text = combo1.text = combo2.text = end subprivate sub command2_click() unload meend subprivate sub command3_click() unload

35、 me frm_findgrean.show 1end subprivate sub datagrid1_click()frm_updategrean.adodc1.recordsource = select * from 课程表 where 专业 = & trim(datagrid1.row) & text1.text = frm_updategrean.adodc1.recordset.fields(专业)text2.text = frm_updategrean.adodc1.recordset.fields(年级)text3.text = frm_updategrean.adodc1.r

36、ecordset.fields(学期)text4.text = frm_updategrean.adodc1.recordset.fields(课程名称)text5.text = frm_updategrean.adodc1.recordset.fields(教材)text6.text = frm_updategrean.adodc1.recordset.fields(任课老师)text7.text = frm_updategrean.adodc1.recordset.fields(课时)text8.text = frm_updategrean.adodc1.recordset.fields(

37、上课地点)combo1.text = frm_updategrean.adodc1.recordset.fields(课程性质)combo2.text = frm_updategrean.adodc1.recordset.fields(考试性质)end subprivate sub dtpicker1_callbackkeydown(byval keycode as integer, byval shift as integer, byval callbackfield as string, callbackdate as date)end subprivate sub form_activa

38、te()frm_findgrean.adodc1.recordsource = strtiaojianfrm_findgrean.adodc1.refreshset datagrid1.datasource = frm_findgrean.adodc1end subprivate sub form_load()combo1.additem (必修)combo1.additem (选修)combo1.additem (自开)combo2.additem (考试)combo2.additem (查考)text1.text = text2.text = text3.text = text4.text

39、 = text5.text = text6.text = text7.text = text8.text = combo1.text = combo2.text = end subprivate sub text1_change()end subprivate sub text2_change()end subprivate sub text8_change()end sub、课程管理:课程查询当输入查询类别、运算符和条件后可以查找到所需要的课程设置,或按查询时间来查询,输入所要查找的时间段,就可查到所要的课程设置。代码如下:dim sqlstr as stringprivate sub co

40、mbo1_change()end subprivate sub combo2_change()end subprivate sub combo4_change()end subprivate sub combo5_change()end subprivate sub combo7_change()end subprivate sub command1_click()dim a as stringdim kccx1 as stringdim kccx2 as stringdim str1 as stringdim str2 as stringif option3.value = true the

41、na = trim(combo2)select case a case = kccx1 = & combo1.text & & combo2.text & & trim(text1) & case like kccx1 = instr(1, & combo1.text & , & trim(text1.text) & )0 end selecta = trim(combo4)select case a case = kccx2 = & combo3.text & & combo4.text & & trim(text2) & case like kccx2 = instr(1, & combo

42、3.text & , & trim(text2.text) & )0 end selectif option1.value = true then if kccx1 = then strtiaojian = select * from 课程表 where & kccx2 elseif kccx2 = then strtiaojian = select * from 课程表 where & kccx1 else strtiaojian = select * from 课程表 where & kccx1 & and & kccx2 end ifelseif option2.value = true

43、 then if kccx1 = then strtiaojian = select * from 课程表 where & kccx2 elseif kccx2 = then strtiaojian = select * from 课程表 where & kccx1 else strtiaojian = select * from 课程表 where & kccx1 & or & kccx2 end ifelse if kccx1 = then strtiaojian = select * from 课程表 where & kccx2 elseif kccx2 = then strtiaoji

44、an = select * from 课程表 where & kccx1 else msgbox 请选择连接方式!, vbokonly, 警告 exit sub end ifend ifif (kccx1 & kccx2) = then msgbox 请输入查询类别!, vbokonly, 警告exit subelse unload me frm_updategrean.show 1end ifend ifif option4.value = true then if val(combo6) val(combo9) then msgbox 请正确选择年份!, vbokonly + vbexcl

45、amation, 信息提示 combo6.setfocus exit sub else if val(combo6) = val(combo9) then if val(combo7) val(combo10) then msgbox 请正确选择月份!, vbokonly + vbexclamation, 信息提示 combo7.setfocus exit sub else if val(combo7) = val(combo10) then if val(combo8) val(combo11) then msgbox 请正确选择日期!, vbokonly + vbexclamation,

46、信息提示 combo8.setfocus exit sub end if end if end if end if end if if combo6.text = or combo7.text = or combo8.text = or combo9.text = or combo10.text = or combo11.text = then msgbox 请输入完整的日期, vbokonly, 警告 exit sub end if str1 = trim(combo6) & - & trim(combo7) & - & trim(combo8) str2 = trim(combo9) & - & trim(combo10) & - & trim(combo11) str1 = format(str1, yyyy-mm-dd) s

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论