数据库技术之学生成绩管理系统程序设计

合集下载

学生成绩查询管理系统

学生成绩查询管理系统

目录摘要 (1)关键词 (1)前言 (2)一、系统设计相关技术介绍 (3)1.技术 (3)2.C#语言 (5)二、系统运行环境 (7)1、的调试环境 (7)2、软件要求 (8)三、系统分析 (8)1、系统总体分析 (8)2、系统需要解决的主要问题 (9)3、系统应该具备的基本功能 (9)四、系统模块简介 (10)1、系统功能模块图 (10)2、系统功能模块说明 (10)1)学生管理 (10)2)教师管理 (10)2、使用的各种流程图 (11)1)、系统使用例图 (11)2)、考生在线考试活动图 (12)五、系统数据库的介绍 (13)1、系统数据库设计思路 (13)2、主要的数据库表单(STDINFO) (13)1)学生信息数据表(stdInfo) (13)2)教师表(administrator) (14)3)成绩表(achievement) (14)六、系统功能实现 (14)1系统主界面 (14)2系统后台管理登录页面 (15)3学生界面 (16)4学生信息变更查询 (17)5系统后台管理登录主页面 (18)6学生信息添加管理 (19)七、相关代码模块 (22)结论及体会 (31)参考文献 (32)说明书评语 (33)摘要人类已进入21世纪,科学技术突飞猛进,经济知识和信息产业初见端倪,特别是信息技术和网络技术的讯速发展和广泛应用,对社会的政治,经济,军事,文化等领域产生越来越深刻.学生成绩管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学生成绩查询管理系统应该能够为用户提供充足的信息和快捷的查询手段。可以说它是完全为学生朋友服务的系统,并且适用于各所高校.本论文叙述到的学生成绩管理系统是用IIS+ASP网页编程+SQL数据库实现的.关键词考试查询系统 C# SQL2005Server前言学生成绩管理工作是高校教育工作的一项重要内容。

教务管理工作是指学校管理人员按照一定教育方针,运用先进的管理手段,组织、协调、指挥并指导各用户活动,以便高效率、高质量地完成各项教学任务,完成国家所制定的教育目标。

数据库课程设计报告(学生成绩管理系统)

数据库课程设计报告(学生成绩管理系统)

学生成绩管理系统姓名:王一学号:200513理学院信息05-1班学生成绩管理系统概述学生成绩管理系统可以广泛应用于大专院校、职业学校、高中以及初中小学等。

该系统具有一些基本的学生查询、输入、修改等功能。

下图为系统的主界面系统工具部分提供了:初始化:用于清空各个数据表的数据。

密码修改:用于管理员修改密码。

退出输入编辑部分提供了:成绩输入:用于输入学生的成绩。

学生信息输入:用于添加新的学生信息。

专业信息输入:用于添加新的专业及成绩。

查询部分提供了:学生成绩查询:用于查询符合条件的学生的成绩。

专业查询:用于查询专业信息。

统计打印部分提供了:打印学生的成绩。

关于:提供本系统的信息以及作者的信息。

需求分析在学校的教学管理中老师的角色是管理员。

而学生只能查询因此系统应包含一下的功能:1.要求系统能够初始化,以便新学期输入新的学生信息,管理员权限管理,以便不同的老师能同一学期共同使用本系统。

2.要求系统提供学生的信息输入,成绩输入,专业信息输入,这是本系统能管理学生信息的基础。

3.要求系统提供学生的信息查询,专业查询功能,这是本系统的主要功能,使本系统能随时查询.4.要求系统提供打印学生成绩的功能,并能做成绩单以便学期末总结使用。

5.本系统的运行的要求,本软件的信息,便于维护软件;作者的联系信息,便于沟通。

6.系统运行时要有一个友好的系统界面,便于操作。

7.为了系统的安全以及学生信息的保密,系统进入时要核对用户名及密码。

系统配置运行稳定的数据库应用系统有一个相对最优的系统配置方案。

根据用户的实际情况以及维护水平来确定。

数据库设计在学生成绩管理系统中,首先要创建学生成绩管理系统的数据库概念模型,同时在上面的实体以及实体的关系的基础上,形成数据库中的表以及各表之间的关系。

本系统需要创建四个表系统数据表(xt)学生成绩管理系统的实体关系简图在需求分析,概念设计的基础上得到数据库的逻辑结构,创建一个数据库,包含上述三个表,首先创建一个项目保存为“学生成绩管理系统”给系统添加上述的三个表界面设计采用模块化思想可以大大提高设计的效率,减少不必要的错误。

毕业论文————学生成绩管理系统设计及实现【范本模板】

毕业论文————学生成绩管理系统设计及实现【范本模板】

学生成绩管理系统的设计与实现【摘要】本论文叙述了我校学成绩管理的现状以及Visual basic6.0语言的概况。

重点介绍了学生成绩管理系统的实现过程:包括系统分析、系统调查、数据流程分析、功能设计、数据库设计、系统物理配置方案、系统实现、系统测试和调试.本系统主要功能有用户管理、学生注册、班级信息录入、学生信息录入、班级课程录入、学校专业信息录入、课程信息录入、学生成绩录入、教师信息录入、数据更新。

包括功能需求描述、数据库设计等内容.第四章介绍了本系统的具体实现。

第五章关于本系统开发过程中的结论及体会。

【关键词】学生成绩管理系统,功能,特点,论文内容。

【Abstract】This thesis describes my school the present condition of the score management and the gener al situation of the Visual basic6.0 languages .The point introduced the student the result manag ement system carries out the process 。

.。

.。

.。

.。

such as function request description and th e database design.。

.etc。

.A concrete realization that introduced this system .Chapter 5 concer ning conclusion within this system development process and realize。

【KeyWords】the Student result management system,function, characteristics,thesis contents目录摘要.前言第一章引言1.1 开发背景1.2开发目标1.3 项目提出的意义1. 4 系统开发所用的技术准备第二章系统分析2。

数据库课程设计_学生成绩管理系统

数据库课程设计_学生成绩管理系统

1。

概述1.1 简单介绍本系统实现的内容该学生成绩管理系统,实现简单的密码修改、成绩查询、课程查询、学生查询等操作,并能实现简单的数据统计。

此系统主要完成用户密码登录、用户密码的修改、成绩查询、课程查询、学生查询、具体成绩查询等基本功能.(一)用户密码登录:在登录程序之前会先弹出一个登录对话框,在正确的输入了数据库中存储的用户和密码后才能登录程序.(二)用户密码的修改在成功登录了程序之后用户可以根据自己的需要修改当前密码.(三)成绩查询1。

成绩修改前选中要修改的成绩信息,然后进行修改。

2.成绩添加直接弹出添加对话框,然后进行添加。

3.成绩删除前选中要删除的成绩信息,然后直接删除。

(四) 课程查询1。

课程修改实现对课程名、学时、学分的修改。

2.课程添加对一门新开设的课程进行录入,并存入数据库。

3。

课程删除对一门不再开设的课程进行删除,并从数据库中删除。

(五)学生查询1。

学生信息修改修改选中当前学生的信息。

2。

学生信息添加增加新学生的信息。

3。

学生信息删除删除选中当前学生信息。

1。

2 开发环境简介1)Microsoft visual c++ 6。

0Visual C++是一个功能强大的可视化软件开发工具。

自1993年Microsoft公司推出Visual C++1。

0后,随着其新版本的不断问世,Visual C++已成为专业程序员进行软件开发的首选工具.Visual C++6.0不仅是一个C++编译器,而且是一个基于Windows操作系统的可视化集成开发环境(integrated development environment,IDE)。

Visual C++6.0由许多组件组成,包括编辑器、调试器以及程序向导AppWizard、类向导Class Wizard等开发工具. 这些组件通过一个名为Developer Studio的组件集成为和谐的开发环境。

2)Microsoft SQL Server 2000和与系统相关的SQL 语言介绍数据定义DDL(data definition language)数据定义语言是指对数据的格式和形态下定义的语言,他是每个数据库要建立时候时首先要面对的,举凡数据分哪些表格关系、表格内的有什么栏位主键、表格和表格之间互相参考的关系等等,都是在开始的时候所必须规划好的.2。

学生成绩管理系统

学生成绩管理系统

目录1 需求分析 (1)1.1行业现状 (1)1.2可行性分析 (2)1.3 系统运行环境 (3)2 系统设计 (4)2.1 E-R图 (4)2.2 数据字典 (6)3 代码 (9)总结 (10)参考文献 (11)1 需求分析该学生成绩管理系统,实现简单的密码修改、成绩查询、课程查询、学生查询等操作,并能实现简单的数据统计。

此系统主要完成用户密码登陆、用户密码的修改、成绩查询、课程查询、学生查询、具体成绩查询等基本功能。

(一)用户密码登录:在登录程序之前会先弹出一个登录对话框,在正确的输入了数据库中存储的用户和密码后才能登录程序。

(二)用户密码的修改在成功登录了程序之后用户可以根据自己的需要修改当前密码。

(三)成绩查询1.成绩修改前选中要修改的成绩信息,然后进行修改。

2.成绩添加直接弹出添加对话框,然后进行添加。

3.成绩删除前选中要删除的成绩信息,然后直接删除。

(四) 课程查询1.课程修改实现对课程名、学时、学分的修改。

2.课程添加对一门新开设的课程进行录入,并存入数据库。

3.课程删除对一门不再开设的课程进行删除,并从数据库中删除。

(五)学生查询1 .学生信息修改修改选中当前学生的信息。

2 .学生信息添加增加新学生的信息。

3.学生信息删除删除选中当前学生信息。

1.1 行业现状在现代,高科技的飞跃发展,计算机的大量普及,使得人们生活节奏越来越快。

因此对教育行业的多元信息进行有效的管理工作,也成为教育行业中的重中之重。

目前,学校工作繁杂、资料重多,虽然各类管理信息系统已进入高校,但还未普及,而对于学生成绩管理来说,目前还没有一套完整的、统一的系统。

为各高校教务工作人员减轻负,提高工作效率,所以制作了学生成绩管理系统。

学生成绩管理系统依据开发要求主要应用于教育系统,完成对日常的教育工作中学生成绩档案的数字化管理。

比较系统地对教务、教学上的各项服务和信息进行管理,使数据管理更现代化、自动化、智能化、人性化。

学生成绩管理系统设计报告

学生成绩管理系统设计报告

附录一应用程序综合设计汇报——题目: 学生成绩管理系统2023年1月1.需求分析学生成绩管理系统是学生管理系统旳重要构成部分, 对学生旳德、智、体全面评估有很大旳作用, 因此学生成绩管理系统应当可认为顾客提供以便旳查询平台和数据存储功能。

老式是使用人工旳方式对学生旳信息进行存储, 对于个人旳学生成绩来说, 数据旳整顿和分析就显得很麻烦, 不利于查找、更新和维护。

因此, 顾客但愿制作一种学生成绩管理系统, 来提高老师旳工作效率, 同步予以老师便利。

根据与顾客旳交流, 一般对学生成绩管理系统有如下几点旳规定:A.可认为顾客提供以便旳数据查询功能, 满足复杂、多样旳数据查询需求。

一般我们所需要旳数据都不是可以从原始数据库中直接读取旳, 往往需要一定旳加工, 这样才能使老式复杂旳人工操作变得简朴又精确。

B、成绩管理要可以提供学校考试安排旳管理, 学生考试成绩旳管理, 以及学生单科和总成绩旳记录和分析等功能。

这些是一种学生成绩管理系统最重要旳功能构成, 包括数据旳集成、整合和分析。

上述是顾客对系统需求和功能需求旳两点规定, 我根据顾客对功能旳需求, 将整个学生成绩管理系统提成两个大旳模块, 即基本信息设置模块和成绩管理模块(如图1)。

为了能使本系统可以基本独立, 通过度析, 我又添加了学生基本信息添加功能和班级基本信息添加功能, 这样系统就可以实现本系统旳全面界面化。

2.概要设计根据需求分析, 成绩管理系统重要是实现对考试和学生成绩旳管理功能, 我设计旳整个学生成绩管理系统分为两个大旳模块, 分别为基本信息设置模块和成绩管理模块, 这两个模块包括了成绩管理系统旳所有数据存储和功能需求, 为了愈加清晰了分解学生成绩管理系统, 每个大模块又由几种子功能模块构成, 完毕顾客旳需求。

两个大模块旳子模块详细划分如图2所示:基本信息设置是成绩管理系统中某些基本数据旳添加和修改, 为了可以实现本学生成绩管理系统旳独立性, 我在基本信息设置模块中添加了学生和班级信息添加模块, 以便顾客能直接添加新增旳数据, 而不需要通过程序员来完毕。

数据库课程设计学生成绩管理系统设计

数据库课程设计学生成绩管理系统设计

《数据库原理与应用》课程设计项目名称:学生成绩管理系统目录第一章实训目的、要求及步骤实训目的实训要求实训步骤第二章数据库设计需求分析数据库概念分析数据库逻辑设计第三章系统操作说明及运行结果数据定义数据查询操作数据更新操作第四章程序设计创建数据库输入数据第五章总结及人员分工第一章实训目的、要求及步骤一、实训目的1.通过课程设计,使学生进一步巩固所学的知识,考查学生对数据库理论及知识的理解能力和综合运用能力2.培养学生自主学习、独立思考的能力,学会查找资料并善于分析资料的能力3. 通过对学校日常教学管理中的课程、选课、学生、教师、成绩等相关内容进行分析,完成具有学生管理、成绩管理、课程管理等相关功能的小型数据库管理应用系统二、实训要求1、完成进学生、班级、课程表的维护2、完成成绩表的浏览查找3、完成成绩表的维护4、按班级、按课程计算平均成绩、最高成绩、最低成绩、及格率5、统计某学生、某学期的所有课程的平均成绩。

6、完成用户管理功能7、完成数据备份与恢复功能所需的知识点:E-R关系图;数据库表设计,数据库表维护等。

三、实训步骤遵循“自顶向下、逐步细化”的设计方法,认真分析并理解课程设计题目的要求,进行相应功能分析、算法分析,数据流程分析,E-R关系图分析,进行概要设计;1、需求分析界定系统范围,描述系统需求(包括数据需求和功能需求)2、概念结构设计画出系统各部分(子系统)E-R模型图3、逻辑结构设计(1)完成E-R模型向关系模型的转换(2)对关系模型进行优化(如果需要)4、物理结构设计(针对SQL Sever 2000)(1)存储结构设计(如数据表的构成,字段名称,字段数据类型,字段长度),选择合适的数据库表结构(2)完整性约束设计(如主键约束、非空约束、默认值约束、检查约束、唯一约束)5、将所设计表的结构在SQL Sever上实现,要求单独建立数据库并生成备份文件(备份数据库或导出数据库表到文本文件)。

学生成绩管理系统数据库设计实验报告

学生成绩管理系统数据库设计实验报告

学生成绩管理系统数据库课题: 雇员信息管理系统姓名:学号:同组姓名:专业班级:指导教师:设计时间:2012年6月4号----2012年6月10日一、需求分析阶段1.信息需求对学校而言,学生成绩管理系统是所有工作的首要之选,但是高校学生的成绩管理工作量大、繁杂,人工处理非常困难。

因此,借助于强大计算机的处理能力,能够把人从繁重的成绩管理工作中解脱出来,并且更加准确、安全、清晰的管理环境。

2.功能需求能够进行数据库的数据定义、数据操纵、数据控制等处理功能。

具体功能应包括:系统应该提供课程安排数据的添加、插入、删除、更新、查询;成绩的添加、修改、删除、查询,学生及教职工基本信息查询的功能。

3. 安全性与完整性要求对于学生成绩管理系统数据库来讲,由于其主要数据是学生成绩,只能由本人以及所教老师及教务处知道,因此做好数据安全性是重中之重。

另外,要求所有在校学生的信息都要录入其中,并且要设计好个别情况。

二、概念结构设计阶段概念结构设计阶段是整个数据库设计的关键,它通过对用户需求进行综合、归纳与抽象,形成一个独立于具体DBMS的概念模型。

设计成绩管理数据库包括学生、成绩、课程、教师四个关系。

E-R图如下三、详细设计阶段详细结构是独立于任何一种数据模型的信息结构。

详细结构的任务是把概念结构设计阶段设计好的基本E-R图转化为宜选用的DBMS所支持的数据模型相符合的逻辑结构,并对其进行优化。

E-R图向关系模型转化要解决的问题是如何将实体型和实体间的联系转化为关系模式,如何确定这些关系模式的属性和码。

设计学生成绩管理数据库,包括课程、学生、教师、成绩四个关系, 其关系模式中对每个实体定义的属性如下:课程信息表Class:(课程号,课程名,教师号,学分,学时)学生信息表Student1:(学号,姓名,性别,年龄,专业,系别)成绩表Score:(学号号,课程名,成绩)教师表Teacher1:(教师号,教师名,教师性别,教师系别)2、学生信息表(student1)四、数据库实现数据库实施是指建立数据库,编制与调试应用程序,组织数据入库,并进行试运行。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

数据库技术之学生成绩管理系统程序设计<数据库技术>课程设计<学生成绩管理系统>程序附录用户登陆窗口代码: Dim username As String, userpass As String Private Sub Command1_Click() Adodc1.Recordset.MoveFirstAdodc1.Recordset.Find ("userID='" & Text1 & "'") IfAdodc1.Recordset.EOF ThenMsgBox "无此用户,请重新输入!"Exit SubElseabc = Adodc1.Recordset.Fields(1)If Text2 = Trim(abc) ThenMsgBox "欢迎使用本系统,点击进入!", vbOKOnly, "登陆" Me.HideForm2.ShowElseMsgBox " 用户名或密码不正确, 请重新输入!"Text1 = ""Text2 = ""Exit SubEnd IfEnd IfEnd SubPrivate Sub Command2_Click() EndEnd Sub添加记录代码:Private Sub Command1_Click() Adodc1.Recordset.AddNewText1 = InputBox(" 请输入学生学号", " 添加学号")Text2= InputBox("请输入学生姓名", " 添加姓名")Text3= InputBox("请输入学生性别", " 添加性别")Text4= InputBox("请输入学生年龄", " 添加年龄")If Not IsNumeric(Text4) Then MsgBox " 请输入数值" Text4.SetFocusEnd IfText5 = InputBox(" 请输入学生系别", " 添加系别") resu = MsgBox(" 确认添加到数据库", vbOKCancel, " If resu =确认添加") vbOK ThenAdodc1.Recordset.UpdateElseAdodc1.Recordset.DeleteEnd IfEnd SubPrivate Sub Command2_Click()Me.HideForm2.ShowEnd Sub学生查询代码:Private Sub Command1_Click()If Text1 = "" ThenMsgBox " 请输入查询条件"Text1.SetFocusEnd IfIf Option1.Value = True ThenAdodc1.Recordset.Find ("sno='" & Text1 & " '")If Adodc1.Recordset.EOF Then MsgBox " 没有该学生ElseIf Option2.Value = True ThenAdodc1.Recordset.Find ("sname='" & Text1 & " '")If Adodc1.Recordset.EOF Then MsgBox " 没有该学生" End IfEnd SubPrivate Sub Option1_Click()Text2 = ""Adodc1.Recordset.MoveFirstEnd SubPrivate Sub Option2_Click()Text1 = ""Adodc1.Recordset.MoveFirstEnd Sub 成绩查询代码:Private Sub Command1_Click()If Text4 = "" ThenMsgBox " 请输入查询的学号"Text4.SetFocusEnd IfAdodc1.Recordset.MoveFirst abcd = "Sno='" & Text4 & " '" Adodc1.Recordset.Find (abcd)If Adodc1.Recordset.EOF ThenMsgBox " 没有该学生记录"Text4.SetFocusEnd IfEnd SubPrivate Sub Text4_Change()If Len(Text4) > 0 ThenCommand1.Enabled = TrueElseCommand1.Enabled = FalseEnd IfEnd Sub修改记录代码:Private Sub Adodc1_MoveComplete(ByVal adReason AsADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) Adodc1.Caption = Adodc1.Recordset.AbsolutePosition & "/"& Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command1_Click(Index As Integer)Select Case IndexCase 0Adodc1.Recordset.MoveFirst ' 一条Case 1Adodc1.Recordset.MovePrevious ' 一条If Adodc1.Recordset.BOFAdodc1.Recordset.MoveFirstCase 2Adodc1.Recordset.MoveNext 'If Adodc1.Recordset.EOFAdodc1.Recordset.MoveLastCase 3Adodc1.Recordset.MoveLast ' 后一条Case 4Dim mno As Stringmno = InputBox(" 请输入学号", " 查找窗") 存到变量内Adodc1.Recordset.MoveFirst ' 录指针到第一条记录上Adodc1.Recordset.Find ("sno='" & mno & "'") '用.Find 方法查找指定科目第上Then 下一条Then最If Adodc1.Recordset.EOF Then MsgBox " 无此学号!" & Adodc1.Recordset.AbsolutePosition, , " 提示"End SelectEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.UpdateEnd Sub成绩添加代码:Private Sub Command1_Click()Dim adc As StringAdodc1.Recordset.AddNewa: Text1 = InputBox(" 输入学生学号", " 添加成绩")mm = Len(Text1)For i = 1 To mmabc = Mid(Text1, i, 1)If abc < "0" Or abc > "9" ThenMsgBox " 输入格式不正确请重新输入"GoTo aEnd IfNext ib: Text2 = InputBox(" 输入课程号", " 添加成绩")mm = Len(Text2)For i = 1 To mmabc = Mid(Text2, i, 1)If abc < "0" Or abc > "9" ThenMsgBox " 输入格式不正确请重新输入"GoTo bEnd IfNext ic: Text3 = InputBox(" 输入学生成绩", " 添加成绩")mm = Len(Text3)For i = 1 To mmabc = Mid(Text3, i, 1)If abc < "0" Or abc > "9" ThenMsgBox " 输入格式不正确请重新输入"GoTo aEnd IfNext iresu = MsgBox(" 确认添加数据库??", vbOKOnly, " 确认添加") If resu = vbOK ThenAdodc1.Recordset.Update ElseText1 = ""Text2 = ""Text3 = ""End IfEnd Sub学生档案管理代码:Private Sub Command1_Click(Index As Integer) Select Case IndexCase 0Adodc1.Recordset.MoveFirst ' 一条Case 1Adodc1.Recordset.MovePrevious ' 一条If Adodc1.Recordset.BOFAdodc1.Recordset.MoveFirstCase 2Adodc1.Recordset.MoveNext 'If Adodc1.Recordset.EOFAdodc1.Recordset.MoveLastCase 3Adodc1.Recordset.MoveLast ' 后一条上Then下一条ThenCase 4Dim mno As Stringmno = InputBox(" 请输入学号", " 查找窗")存到变量内Adodc1.Recordset.MoveFirst ' 录指针到第一条记录上Adodc1.Recordset.Find ("sno='" & mno & "'") ' 用.Find 方法查找指定科目If Adodc1.Recordset.EOF Then MsgBox " Adodc1.Recordset.AbsolutePosition, , " 提示End SelectEnd SubPrivate Sub Command2_Click()Dim abcd As StringDim find1a: If Option1.Value = Option2.Value ThenMsgBox " 请选择查询条件!"Exit SubEnd IfIf Text6.Text = "" Then ' 将输入值移动记无此学号!" &MsgBox " 请输入查询条件"Text1.SetFocusExit SubEnd IfIf Option1.Value = True ThenAdodc1.Recordset.Find ("sno='" & Text6 & " '")If Adodc1.Recordset.EOF Then MsgBox " 没有该学生" ElseIf Option2.Value = True ThenAdodc1.Recordset.Find ("sname='" & Text6 & " '")If Adodc1.Recordset.EOF Then MsgBox " 没有该学生" End IfEnd SubPrivate Sub Command3_Click()If Option3.Value = True ThenAdodc1.Recordset.UpdateText1.Locked = TrueText2.Locked = TrueText3.Locked = TrueText4.Locked = TrueText5.Locked = TrueElseAdodc1.Recordset.DeleteAdodc1.Recordset.Update End IfEnd SubPrivate Sub Option1_Click() Text6 = "" Adodc1.Recordset.MoveFirst End SubPrivate Sub Option2_Click() Text6 = "" Adodc1.Recordset.MoveFirst End SubPrivate Sub Option3_Click() Command3.Enabled = True Text1.Locked = False Text2.Locked = False Text3.Locked = False Text4.Locked = False Text5.Locked = False End SubPrivate Sub Option4_Click() Command3.Enabled = True End Sub。

相关文档
最新文档