毕业设计（论文）-VB和Assecc学生信息管理系统

1、第一章前言随着学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息也成倍增长。面 对庞大的信息量，有必要开发学生信息管理系统来提高学生管理工作的效率。通过这样的系 统，可以做到信息的规范管理、科学统计和快速查询，从而减少管理方面的工作量。学生信息管理系统是一个教育单位不可缺少的部分，它的内容对于学校的决策者和管 理者來说都至关重要，所以学牛信息管理系统设计是以能够为用户提供充足的信息和快捷的 查询手段为核心内容的。一直以來人们所使用的传统的人工管理文件信息的方式实在是太落 后，它存在着许许多多的缺点，效率低、保密性差的问题尤其突出。另外工作量稍微一大, 将会有大量的文件和数据需要维护，有些

2、问题是人工所无法解决的。随着科学技术的不断提高，计算机应用越来越广泛，其强大的功能已为人们所深刻认 识，它已进入人类社会的各个领域并发挥着越來越重要的作用。作为计算机应用的一部分, 使用计算机对学生信息进行管理，具有着手工管理所无法比拟的优点，检索快捷、查找方便、 可靠性高、存储量大、保密性好、寿命长、成本低等。这些显而易见的优点能够极大地提高 学校管理人员的工作效率，也即提高进行学生信息管理的效率。本学生信息管理系统包括学籍信息管理、班级信息管理、课程信息管理、成绩信息管 理四大模块。管理员可以拥有完全的权限管理系统，而学生用户只拥有查询学籍信息和查询 成绩信息的权限。学生学籍管理工作包括学

3、生档案、学籍、成绩、升学等内容的管理；遵从 以往旧式的工作方式，该工作的工作量大，管理繁琐，既耗人力，又耗物力；如今面对大量 的学生数据、报表，手工处理方式已经很难跟上现代化的步伐。随着计算机技术及网络通讯 技术的飞速发展，许多学校已经有了较好的计算机应用甚-至网络硕件建设基础。因此为提高 学校管理工作的现代化、科学化水平，保证信息处理的即吋化、准确化，开发-套对学生学 籍进行管理的软件是极其重要的，而且是必需的。本系统正是为解决这一问题而设计的，大大减少了以往学籍管理工作的工作量，提高了工作 效率，节省了资源，适应时代的步伐。本系统采用微软的assecc 2000作为后台数据库，assecc

4、 2000是一套大型数据库开发 系统，能对大量数据进行处理和管理，性能优越；并使用visual basic 6. 0开发前台软件, visual basic 6. 0与assecc 2000同是微软的产品，它们之间的对话通信是十分好，效率 也很高。使用windows 98操作系统作为开发平台。本系统采用visual basic 6.0为开发工具，后台数据库釆用access 2000,操作系统 为 windows98。一.目的背景与意义1研究的背景随着学校规模的不断扩大，学生和老师的数量的急剧增加,有关学生的信息也在成倍的增加。 在口常教学活动中，需要提収的信息随之不断增加。在这种情况下，使用传

5、统的手工操作方 式，容易发生数据丢失，统计错误，劳动强度也很大，并且速度太慢。由于学校规模进一步 扩大，学生人数逐年上升，学生信息的管理也变得越来越复杂。2.开发的意义学生信息管理系统软件克服了这些缺点。通过计算机信息管理技术的应用，它可以方便快捷 地提供查询服务。有效的数据库管理系统可以保证数据的正确性。这为教学办公带來了极大 的便利，通过这个系统不论是老师还是学生都可以方便的查询口己需要的信息。同时学校也 也可以方便的根据系统提供的信息进行相应的决策。为此，切实有效的把学生信息管理系统引入学校教务管理中，对于促进学校管理制度和提高 学校教学质量有着显著意义，更方便各个专业老师对学生信息的系

6、统化管理，提高办公效率, 以达到更合理化，方便化等要求。3 项目目的随着学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长。面对庞 大的信息量，就需要有学生信息管理系统来提高学生管理工作的效率。通过这样的系统，可 以做到信息的规范管理、科学统计和快速的查询，从而减少管理方面的工作量。关键词：学生信息管理系统；vb； ado控件。第二章可行性研究学生信息，作为一个学校，就有一定的工作量存在，而学生信息，它的工作量可能是 其它信息工作量的几倍，班级的增加、班级的查找、班级的修改；学生档案；课程管理；成 绩管理；缴费管理；统计等等，每个信息的数据都在不断地变化着，如果釆用人工的方式

7、进 行操作，那么，一天的工作量，足以让人觉得比较繁琐，吃不消。钊对这样的情况，采用让 数据的查询变得简单化，数据变的更让每个人都在任何时刻都可以了解到。在学校，尤其是在各大高校，对于学生的管理是相当重要，而ii也是相当麻烦的，它 是学校管理屮最基本的一项常规性工作。而长期以来，学校管理都是依赖人工来进行的，面 对如此众多的学生信息，其工作量是相当相当巨大的。这样不仅仅浪费了大量的人力物力, 而且由于人工管理存在着大量的不可预知性，造成学生信息管理的一些不规范，使得信息管 理陷入“事倍功半”的地步。开发本系统就是为了解决学校在管理屮的一些不规范，使学生信息的管理向着规范化、 简单化、有效化的方向

8、发展。根据学生信息管理系统的呈木流程和高校学生信息管理的实际要求，本系统需要实现以 下功能：> 学生基本信息的录入，基本信息包括学生的基本情况、所在班级、所学课 程和成绩等；> 要求在系统中能够对学生信息精心灵活的浏览和查询；>要求在系统屮能够对班级信息进行输入、查询和修改等；> 要求能够对学校基本课程信息录入、修改和设置等；>要求能够对学生成绩信息进行输入、修改和查询等；> 基于权限的管理，本系统可以提供给管理员或者学生本人使用。对学生类用户，只能查看信息；而对于管理员类用户而言，可以管理所有的学生信息。学生信息管理系统是为本校开发的，木系统所采用的语言是

9、visual basic,用 microsoft access 2000数据库完成。该系统总体有四部分组成，包括学生信息查询、教务信 息维护、学生选课及用户管理。通过本系统，把本校内部查询学生信息、教务信息、学生选 课各个环节进行有效地计划、组织和控制。通过本校内部的信息，依据统一数据信息进行管 理，把任何一块信息所产生的数据变动及时地反映给其它相关信息，做到数据共享。本系统主要信息流程为：教务信息维护接受学生的信息，学生信息查询根据教务信 息维护的学生信息做出对所接收的信息合理性进行判断，并交于信息维护进行相应的修改, 再把信息存入数据库中。学生选课是对学生进行相应选择自己相关的课程。最后进

10、行打印。 采用本系统，能够使整个系统内部所有信息的工作简化，提高工作效益。由于采用统一-的数 据信息，使相关资料能够快速地查询所需的数据、资料及其它信息的，使信息快速高效运行。第三章需求分析学生信息管理系统是将学生的学籍、成绩、课程、班级等有机结合，综合应用的一个学 生信息管理软件，它使学校对学生的信息管理由以往的手工作业向自动化、网络化、信息化 迈进了一大步。从而使学校的学籍管理人员从繁重的学籍管中解放出来，大到提高了工作效 率，减轻了管理人员的工作量。需求分析就是描述系统的需求，分析的根本目的是在开发者和提出需求的人员建立一种 理解和沟通的机制。因此，学生信息管理系统的需求分析也应该是开发

11、人员和用户或者客户 一起完成的。需求分析的第一步是描述学生信息管理系统的功能，即定义用例，以确定系统的功能需 求。学生信息管理系统用不着例分析主要涉及规格说明的阅读和分析，需要和学生信息管理 系统的潜在用户进行讨论。一个学校的角色是教师、学生、各级管理者和系统管理员。学生和各级管理者是系统的 用户，而系统管理员是系统管理者，虽然系统管理员也是一个学生，但这并不影响系统的功 能。学生信息管理系统的用例包括：系统信息管理（包括用户管理、密码管理）班级信息管理（添加班级信息管理、修改班级信息管理）课程信息管理（包括添加课程信息管理、修改课程信息管理、设置课程信息管理）成绩信息管理（包括添加成绩信息管

12、理、修改成绩信息管理、杳询成绩信息管理）第四章系统设计过程3. 1系统设计3. 1.1系统功能的分析系统开发的总体任务是实现学生信息管理的系统化、规范化和自动化。系统功能分析是在系统开发的总体任务的基础上完成的。学生信息管理系统需要完成的 功能主要有：学生信息的查询，包括学生基本信息、所在班级、已学课程和成绩等。学生信息的修改。班级管理信息的输入，包括输入班级设置、年级信息等。班级管理信息的查询。班级管理信息的修改。学校基本课程信息的输入。基本课程信息的修改。学生课程的设置和修改。学生成绩信息的修改。学生成绩信息的查询。学生成绩信息的统计。3. 1. 2系统功能模块设计对上述各项功能进行集中、

13、分块，按照结构化程序设计的要求，得到下图所示的系统功 能模块图。图1系统功能模块图3. 2 数据库设计数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应 用系统的效率以及实现的效果产生影响。合理的数据库结构设计可以提高数据存储的效率, 保证数据的完整和一致。同时，合理的数据库结构也将有利于程序的实现。设计数据库系统吋应该首先充分了解用户各个方面的需求,包括现有的以及将来可能增 加的需求。3. 2. 1数据库需求分析用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结构能充 分满足各种信息的输出和输入。收集基本数据、数据结构以及数据处理的流程，组成一份

14、详 细的数据字典，为后面的具体设计打下基础。数据流程图：图2系统数据流程图数据项和数据结构：学生基本信息：包插的数据项有：学生学号、学生姓名、性别、出生日期、班号、联 系电话、入校口期、家庭住址、备注等。班级信息：包括的数据项有：班号、所在班级、班主任姓名、所在教室等。课程基本信息：包插的数据项有：课程号、课程名称、课程类别、课程描述等。课程设置信息：包括的数据项有：年级信息、所学课程等。学生基本信息：包括的数据项有：考试编号、所在班级、学生学号、学生姓名、所学 课程、考试分数等。3. 2. 2数据库概念结构设计在得到数据项和数据结构以后，就可以设计出满足用户需求的各种实体，以及他们之间 的关

15、系，为逻辑设计打下基础。实体有：学生实体、班级实体、年级实体、课程实体。学生实体e-r图：班级实体e-r图:课程实体e-r图:年级实体e-r图:3. 2. 3数据库逻辑结构设计现在需要将上面的数据库概念结构转化为assecc 2000数据库系统所支持的实际数据模 型，也就是数据库的逻辑结构。在上面的实体以及实体之间关系的基础上，形成数据库中的 表以及各个表之间的关系。学生信息管理系统数据库中学生成绩表格的设计结果如下所示：表1成绩设置表学生成绩信息表：列名数据类型说明exam_nochar(10)考试编号student_ld1nt学生学号student_namechar (10)学牛姓名cla

16、ss_n0tnt (4)学生班号course_namechar (10)课程名称resultfloat(8)分数表2学生成绩信息表3. 3学生管理系统主窗体的创建3. 3. 1创建工程项目student_mis3. 3. 3创建主窗体的菜单在主窗体中，单击鼠标右键，选择弹出式菜单中的menu editor”命令，创建菜单结 构如下表：系统添加用户修改密码推出系统 班级管理.添加班级信息 修改班级信息 课程设置添加课程信息 修改课程信息 设置年级课程 成绩管理添加成绩信息 修改成绩信息 查询成绩信息 帮助使用说明图7主窗体菜单结构表3. 3.4创建公用模块在visual basic +可以用公用

17、模块来存放整个工程项目公用的函数、全局变量等。整 个工程项目中的任何地方都可以调用公用模块中的函数、变量，这样可以极大地提高代码的 效率。在项目资源管理器中为项目添加一个module,保存为modulel.baso下面就可以开始 添加需要的代码了。由于系统中各个功能模块都将频繁使用数据库中的各种数据，因此需要一个公共的数据 操作函数，用以执行各种sql语句。添加函数executesqloexecutesql函数有两个参数：sql和msgstring。其中sql用来存放需要执行的squ吾 句，msgstring用来返回执行的提示信息。函数执行吋，首先判断sql语句中包含的内容： 当执行查询操作时

18、,executesql函数将返冋一个与函数同名的记录集对象(recordset), 所有满足条件的记录包含在对彖中；当执行如删除、更新、添加等操作时，不返回记录集对 象。在executesql函数屮使用了 connect string函数，这个函数用来连接数据库。由于在后面的程序中，需要频繁检查各种文本框的内容是否为空，这里定义了 txsttxt 函数。如果文本框内容为空时，函数将返回true,否则将返回false。rtl于学生信息管理系统启动后，需要对用户进行判断。如果登录者是授权用户，将进入 系统，否则将停止程序的执行，这个判断需要在系统运行的最初进行，因此将代码放在公用 模块中。3.4成

19、绩管理模块的创建成绩管理模块主要实现如下功能：添加成绩信息修改成绩信息查询成绩信息3.4.1添加成绩信息窗体的创建选择“成绩管理i添加成绩信息”菜单，将出现“添加成绩信息”窗口。“添加成绩信息”窗体中控件的属性设置见下表：添加成绩信息窗体功能特点：对成绩信息的添加;实现方法：用ado控件向数据库读取。控件属性属性取值frmaddresult(form)namefrmaddresultcaption添加成绩信息mdichildtruecomboexamtypenamecomboexamtypecomboclassnonamecomboclassnocombocoursenamecombocour

20、setxtresultnametxtresultcombostdnamecombostdtxtnamenametxtnamecmdoknamecmdokcaption确定添加cmdcanelnamecmdcanelcaption退出添加lablelcaption考试编号lable2caption选择班号label3caption选择学号lable4caption姓名lable5caption选择课程lable6caption分数表5添加成绩信息窗体中控件及其属性设置表选择班级后，将触发click事件，学号的文本框中自动加入相关班级的所有学号。 单击“确认添加”按钮，将输入内容添加到数据库中。代

21、码如下：private sub about click()frmabout. showend subprivate sub addcinfomenu_click() frniaddclassinfo. show frmaddclassinfo. height = 3120 frmaddclassinf() width = 5925end subprivate sub addcoursemcnu_c1ick() frmaddcourseinfo. showend subprivate sub addresultmenu click() frmaddrosu11. show frmaddresul

22、t. width = 6750 frmaddresult. height = 3645end subprivate sub addsinfomenu click()frmaddsinfo. show frmaddsinfo. height = 6070 frmaddsinfo. width = 8670end subprivate sub addusermenu click() frmadduser.showsbstatusbar. panels (1). text ="添加用户 end subprivate sub exitmenu click()endend subprivate

23、 sub exitsinfomcnu_c1ick()unload frminquireinfoend subprivate sub gradecoursemenu click()frmsetcourseinfo. showend subprivate sub howtomenu click ()frmabout. showend subprivate sub inquireelassmenu click() frmlnquireclass. show frmlnquireclass. height = 5600 frmlnquireclass. width = 8070end subpriva

24、te sub inquireresultmenu_click () frmlnquireresult.show frminquireresult.height = 5600 frminquireresult. width = 8070end subprivate sub inquiresinfomenu click()frminquiresinfo. showfrminquiresinfo. height = 6000 frmtnquiresinfo. width = 10275end subprivate sub mdiform load()me. left = getsetting(app

25、. title, "settings", "mainleft", 1000)me. top = getsetting(app.title, "settings", "mdintop", 1000)me. width 二 getsetting(app.title, "settings", "mainwidth", 6500)me. height = getsetting(app. title, "settings", z，mainheightz 6500)e

26、nd subprivate sub mdiform_unload(cancel as integer)if me. windowstate <> vbminimized thensavesetting app.title,z/setti ngs，zzma in loft", me. leftsavesetting app.title,z，setti ngs，zma in top", he. topsavesetting app.title,"settings", ，zmainwidth，z, me. widthsavesetting app.

27、 title,"settings", "mainheight", me- heightend ifend subprivate sub modifycinfomenu click ()frnimodifyc lass info. showend subprivate sub modifycoursemenu click() frmmodi fyeourseinfo. showend subprivate sub modi fypwdmenu_c1ick () frmmodifyuserinf() showend subprivate sub modify

28、resultmenu click() fnnmodifyresult show frmmodifyresult. height = 5600 frmmodifyresult. width = 7750end subprivate sub modifysinfo_menu_click() frmmodifysinfo. show frmmodifysinfo. height = 7590 frmmodi fysi nfo. width = 8295end sub1.修改成绩信息窗体的创建选择“成绩管理修改成绩信息”菜单，将岀现“修改成绩信息”窗口。 图9修改成绩信息窗体中控件及其属性设置表控件的

29、属性设置和修改方法详见表21。图9功能特点：对成绩信息的修改，更新，取消修改，删除等功能; 实现方法：用ado控件直接向数据库读取，对数据库进行操作。 源代码如下：dim mrc as adodb recordsetdim mybookmark as vari antprivate sub cancelcomniand_click () mrc bookmark = niybookmark call viewdata firstcommande enabled = true lastcommand enabled = true previouscommandenabled = true nex

30、tcommand enabled = true updatecommand. enabled 二 false cancelcommand .enabled = false comboexamtype enabled = false comboclassno.enabled = false combostd. enabled = false combocourse. enabled = false txtnamc .enabled = falsetxtresult. enabled = falseend subprivate sub combosid click()dim mrcc as ado

31、db. recordsetdim txtsql as stringdim msgtext as stringtxtsql = "select * from student info where student id 二'& combosid text & set mrcc = executesql(txtsql, msgtext)txtname. text = mrcc!student namemrcc closeend subprivate sub de1etecommand_c1ick()dim msgtext as stringmybookmark =

32、mrc bookmarkstr2$ = msgbox(，z是否删除当前记录？ “，vbokcancel,删除当前记录")if str2$ = vbok thenmrc. movenexti f mrc. eof thenmrc movefirstmybookmark 二 mrc. bookmarkmrc. movelastmrc. deletemrc closetxtsql = "select * from result info"set mrc = executesql(txtsql, msgtext)mrc.movelastcall viewdataelsem

33、ybookmark = mrc bookmarkmrc.movepreviousmrc.deletemrc.closetxtsql = "select * from result_info"set mrc = executesql(txtsql, msgtext)mrc. movelastcal 1 vi ewdata.end ifelsemrc. bookmark = mybookmarkcal 1 viewdataend ifend subprivate sub editcommand click()dim mrcc as adodb. recordsetdim txt

34、sql as stringdim msgtext as stringfirstcommandenabled = false lastcommand enabled = false previ ouscommand .enabled = false nextcommand. enabled 二 false updatecommand .enabled = true cancelcoinniand enabled = true comboexamtype enabled = true comboclassno.enabled = true comboside enabled = true comb

35、ocourse. enabled = true txtnameenabled = true txtresult. enabled = true comboexamtype. addttem "2004 期屮" comboexamtype. additem "2004 期末 comboexamtype. add item "2003 期屮 comboexamtype. addi tem "2003 期末" txtsql = "select * from class info " set mrcc = executes

36、ql(txtsql, msgtext) while (mrcc. eof = false)comboclassno. addltem nii'cc!class_no mrcc. movencxtwendmrcc. closemybookmark = mrc< bookmarkend subprivate sub firstconunand_cl ick ()mrc movefirstcal 1 viewdataend subprivate sub form loadodim txtsql as stringdim msgtext as stringcomboexamtype. e

37、nabled = false comboclassno. enabled = false combosidenabled = false combocourse enabled = false txtname. en况bled 二 false txtresult .enabled = false updatecommandenablod = false canoelcommand. enabled = false txtsql = "select * from resuitlnfo set mrc = executesql(txtsql, msgtext) if mrc. eof 二

38、 false thenmrc movefirstcall viewdatamybookmark 二 mrc. bookmarkelsemsgbox "没有纪录！ “，vbokonly + vbexclamation,警告"exit subend ifend subpublie sub viewdata()comboexamtype. text = mrc!exam no comboclassno.text = mrc!class_no combosid.text = mrc!student id combocourse. text = mrc!course name txt

39、name. text = mrc!student_name txtresult. text = mrc!resultend subprivate sub lastcommand click()mix. movelastcal 1 vi ewdataend subprivate sub nextcommand_click()mrc movenexttf mrc. eof thenmsgbox "当前己经是最后一条记录！ “，vbokonly + vbexclamation,消息 mrc movepreviousend ifcall viewdataend subprivate sub

40、previouscommand_click ()mrc. movepreviousif mrc. boe thenmsgbox "当前已经是最后一条记录！ ”，vbokonly + vbexclamation,消息" mrc movenextend tfcall viewdataend subprivate sub updatecoiimiand click()dim msgtext as stringif not testtxt(comboexamtype.text) thenmsgbox "请输入考试编号！"，vbokon 1 y + vbexcla

41、mation, 警告exit subend iftf not testtxt(comboclassno. text) thenmsgbox "请选择班号！"，vbokonly + vbexclamation,警告"exit subend iftf not testtxt(combostd.text) thenmsgbox "请选择学号！"，vbokonly + vbexclamation, 警告"exit subend ifif not testtxt (combocourse. text) thenmsgbox "请选择课

42、程！"，vbokonly + vbexclamation,警告"exit subend ifif not testtxt(txtresult.text) thonmsgbox "请输入分数！"，vbokon ly + vbexc lama lion,"警告"exit subend ifif not isnumeric (txtresult. text) thenmsgbox "分数请输入数字！"，vbokon 1 y + vbexclamation,"警告exit subcomboexamtype. te

43、xt combosid. text txtnamc. text comboclassno. text combocourse. text txtresult. textend ifmrc. fields (0)mrc. fields (1)mrc. fields(2)mrc. fields (3)mrc. fields(4)mrc. fields (5)mrc updatemrc close修改成绩成功！气vbokonly + vbexclamation, 警告msgboxcomboexamtype. clearcomboclassno. clearcombosid. clear comboc

44、ourse cleartxtsql = "select * from result info"set mrc = executesql(txtsql, msgtext)mrc. movelastcall viewdatafirstcommand.enabled = true lastcommand. enabled = true previouscommand .enabled = truenextcommandenabled = trueupdatecoiimuind. enabled = falsecancel command. enabled = falsecombo

45、examtype. enabled = fal secomboclassno.enabled = falsecombosidenabled = falsecombocourse enabled = falsetxtname. enabled = falsetxtresult. enabled = falseend subprivate sub comboclassno click()dim mrcc as adodb. recordsetdim txtsql as stringdim msgtext as stringtxtsql = "select * from student_i

46、nfo where class_n0 二'& comboclassno. text &"set mrcc = executesql(txtsql, msgtext)while (mrcc. eof = false)combosidaddltem mrcc!student idmrcc. movencxtwendmrcc. closetxtsql = "select * from class_tnfo where class_no 二'& comboclassno. text & 八"set mrcc = execut

47、esql(txtsql, msgtext)grade = mrcc!grademrcc.closetxtsql = "select * from gradecourse_info where grade 二'& grade & 八"set mrcc = executesql(txtsql, msgtext)while (mrcc. eof = false)combocourseaddltem mrcc!course namemrcc. movenextwendmrcc. closeend sub2. 查询成绩信息窗体的创建选择“成绩管理i查询成绩信息

48、”菜单，将出现“查询成绩信息”窗i l图10查询成绩信息窗体查询成绩信息控件及其属性设置和查询方法详见表22o功能特点：对数据信息进行查询；实现方法：用ado控件直接向数据读取。源代码如下：private sub cmdexit click()unload meend subprivate sub cmdinquire_click()dim txtsql as stringdim msgtext as stringdim dd(4) as booleandim mrc as adodb. recordsettxtsql = "select * from result_info whe

49、re "if checkl(0). value thenif trim(txtstd. text) = thensmeg = 学号不能为空msgbox smeg, vbokonly + vbexclamation,"警告"txtsid. setfocusexit subelseif not isnumeric(trim(txtsid. text) thenmsgbox "请输入数字！ ”，vbokonly + vbexclamation,警告"ex i t subtxtsid. setfocusend ifdd(o) = truetxtsql

50、= txtsql & "student id = '"& trim(txtsid. text) &end ifend ifif checkl(1). value thenif trim(txtname. text)=thensmeg = 姓名不能为空msgbox smeg, vbokonly txtname. setfocusexit subelsedd(l) = trueif dd(o) thentxtsql = txtsql &elsetxtsql = txtsqlend if+ vbexclamation,"警告and

51、 student name 二'"& txtname. text &"student name 二txtname. text &end ifend tfififcheckl (2) value then trim(txtcourse. text) smeg二课程不能为空 msgbox smeg, vbokon1y txtcourse setfocus exit sub+ vbexclamation,"警告"elsedd(2) = trueif dd(o) or dd(l) thentxtsql = txtsql &

52、 and course_name 二'& txtcourse. text &elsetxtsql 二 txtsql & "course_name = txtcourse. text & "end ifend ifend ifif not (dd(o) or dd(l) or dd(2) or dd(3) thenmsgbox 请设置查询方式！ ”，vbokonly + vbexclamation,警告"exit subend iftxtsql = txtsql & " order by student_td

53、set mrc 二 executesql(txtsql, msgtext)with myflexgrid.rows = 2cellalignment=4textmatrix(1,0)=考试编号.textmatrix(1,1)=学号.textmatrix(1,2)=姓名”.textmatrix(1,3)=班号 textmatrix(1,4)=课程名称textmatrix(1,5)=分数do while not mrc. eoe rows = rows + 1 cellalignment = 4 textmatrix (. rows textmatrix(. rows textmatrixc ro

54、ws tcxtmatrix(. rows textmatrix (. rows textmatrix (. rows1, 0) = mrc. eields (0)1, 1) = mrc. fields (1)1, 2) = mrc. fields (2)1, 3) = mrc. fields(3)1, 4) = mrc. fields (4)1, 5) = mrc. eields (5)mrc. movenextloopend withmrc. closeend subprivate sub form_load()with myflexgrid cel 1 al igninont二 4.tex

55、tmatrix(1,0)=考试编号textmatrix(1,1)=学号.textmatrix(1,2)=姓名 textmatrix (1,3)=班号.textmatrix(1,4)=课程名称textmatrix(1,5)=分数end withend subas single)private sub framel_dragdrop(source as control, x as single, yend sub3. 登录窗体功能特点：对系统用户的管理进行操作; 实现方法：用ado控件进行操作。源代码如下：option explicitprivate declare function getuse

56、rname lib "iidvdpi32. dll" alias，getusernamea，/ (byvaiipbuffer as string, nsize as long) as longpub1i c ok as boolean'记录确定次数dim micount as integerprivate sub form load ()dim sbuffer as stringdim isize as longsbuffer = space$(255)isize = len(sbuffer)cal1 getusername(sbuffer, isize)if isize > 0 thentxtusername. text =elsetxtusername .text = vbnulistringend ifok = falsemicount 二 0end subprivate sub cmdcancel_click()ok = falseme. hideend