VB+SQL学生信息管理系统

1、日期2006年12月8日计算机网络数据库设计题目:学号姓名专业学生信息管理系统xxxxxxxx随着学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长。面对庞大的信息量需要有学生管理系统来提高学生管理工作的效率。通过这样的系统可以做到信息的规范管理、科学统计和快速查询、修改、增加、删除等，从而减少管理方面的工作量。本系统主要用于学校学生信息管理，总体任务是实现学生信息关系的系统化、规范化和自动化，其主要任务是用计算机对学生各种信息进行日常管理，如查询、修改、增加、删除，另外还考虑到学生选课，针对这些要求设计了学生信息管理系统本系统主要用于学校学生信息管理，总体任务是实现学生信息

2、关系的系统化、规范化和自动化，其主要任务是用计算机对学生各种信息进行日常管理，如查询、修改、增加、删除，另外还考虑到学生选课，针对这些要求设计了学生信息管理系统。本系统主要包括学生信息查询、教务信息维护和学生选课三部分。其功能主要有：1有关学籍等信息的输入，包括输入学生基本信息、所在班级、所学课程和成绩等。2学生信息的查询，包括查询学生基本信息、所在班级、已学课程和成绩等。3学生信息的修改。4班级管理信息的输入，包括输入班级设置、年级信息等。5班级管理信息的查询。6班级管理信息的修改。7学生课程的设置和修改。学生信息管理系统是为本校开发的，本系统所采用的语言是VisualBasic，用Micr

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

4、简化，提高工作效益。由于采用统一的数据信息，使相关资料能够快速地查询所需的数据、资料及其它信息的，使信息快速高效运行。本系统中使用到的数据表主要有班级表、成绩表、缴费表、课程表、学生档案、用户资料，由这六个表，组成了名为信息的数据库（如图一）。其中学生档案是本系统主要的叵信息:数垂库-Inix|國國可園国園圍I!圍诵打开隧设计側圉新連迪X-0蛊1H使坤说计阱创建表使坤向导创建表通过辅人数馆创建表交费表谍眾表图一）李生档索一张表，所有信息都是根据这张学生档案进行有关的操作，主要的字段有：学号、姓名、年级、专业、性别、出生年月、民族、籍贯、政治面貌、家庭地址、邮政编码、联系电话、入学时间、备注。其

5、中日期的数据类型为日期/时间天型，其它的数据类型为文本型；成绩表中字段为：学号、姓名、年级、专业、学期、考试时间、考试科目、考试地点、课程性质、科目分数、违纪类型、备注；课程表中字段为：专业、年级、学期、课程名称、教材、任课老师、课时、上课地点、课程性质、考试性质；用户资料中的字段包括：用户名、密码、身份。数据库与VB的连接：本系统的数据链接采用的是ADO方法，打开控制面板，打开ODBC数据源图标，选择“系统DSN”标签，点击“添加”按钮，在弹出的“创建新数据源”对话框中选择名称为“MicrosoftAccessDrive（*.mdb）”，点击“完成”按钮，在ODBCMicrosoftAcce

6、ss安装对话框中在数据源名中输入信息，在数据库这个框中，单击“选择”按钮，在弹出的选择数据库这一对话框架中，在驱动器下拉列表框中选择本系统数据库所在驱动器，在目录中选择库所在的文件夹，在文件类型中选择选“Access数据库（*.mdb）”，在数据库名中选择本系统的数据库，点击“确定”按钮即完成数据链接。在VB中，用ADODC链接数据库，用DataGrid或DATA将库中的数据在界面中显示出来，本系统采用DataGrid。在界面上右击Adodc控制，在弹出的快捷菜单中选择属性，在属性对话框中，在“属性”这一标签中，选中单选框“UseODBCDataSourceName”，并在下拉文本框中选择已经

7、配置好的数据源名信息，再在“RecordSoure”标签中，在CommardText（SQL）文本框中输入查询语句，女口：select*from学生档案。同时，将桌面的DataGrid控件选中，在属性框中，将它的Datasoure设为Adodc。我们可以设置DataGrid控件的外观：选中该控件，右击，在弹出的快捷菜单中选择“检索字段”，在弹出的对话框中单击“确定”，这时，表格中出现了表的字段。然后再右击，同样，在弹出的快捷菜单中选择“编辑”，我们就可以所在的表格的宽度进行调整。系统功能（查询模块）1查询信息的情况；2判断信息是否符合要求；3将符合条件的信息进行打印流程图23数据库设计231库

8、设计本系统涉及到的信息主要有5类：学生信息、成绩信息、教师信息、图书信息、后备信息。由于成绩信息和教师信息与学生信息关系密切，因此将这三类信息存放在同一数据库中，以提高多种信息同时读取的速度。按以上分析，将系统的数据库设计为三个：一、学生数据库：该数据库为中包含有以下各表：1、学生表：记录学生的基本信息，是进行学生及其它各类信息处理的基础。2、成绩表：记录学生的期中、期末及总评的各科成绩。3、总分表：记录学生的期中、期末及总评的总分及名次。4、课程表：记录各专业各年级开课情况，在添加学生记录时，可根据该表的情况决定在成绩表添加学生记录的个数。三、后备数据库：该数据库主要保存两类信息：学生信息、

9、成绩信息。其数据表是按用户的要求在运行过程中动态建立的。232表设计：1、学生表结构：表2.1编号字段名称字段类型字段宽度2、课程表结构表2.23、成绩表结构表2.34、总分表结构表2.41学号CHAR152姓名CHAR103性别CHAR24出生日期DATE85电话CHAR106家庭住址CHAR507班级CHAR208原毕业学校CHAR509是否住宿CHAR410政治面貌CHAR611入学总分LONG412专业char20编号字段名称字段类型字段宽度1课程名称CHAR152年级CHAR103专业char20编号字段名称字段类型字段宽度1学号CHAR152课程名称CHAR153期中成绩LONG4

10、4期末成绩LONG45总评成绩LONG46班级char20编号字段名称字段类型字段宽度1学号CHAR152期中总分LONG43期末总分LONG44期中名次LONG45期末名次LONG46班级char20第五章详细设计根据系统的主要功能及上一章的总体设计，系统开发进入第二个阶段：详细设计。在这一阶段的工作中，主要任务有以下几项：1、根据原型化的开发原则，为系统的每个模块功能进行界面设计，作为进一步优化的基础。2、进行系统的流程分析，为模块的细化做好准备。3、对每个模块进行详细的算法设计。31系统界面设计一、登录及系统主窗口界面设计该部分界面主要包括登录窗口、系统主窗口、修改密码窗口。1、登录窗口

11、界面：ifn:打学生1W息管理系系统设置迫班级管理喲档案管理切课程管理成绩管理交费管理打印统计埋）帮助本系统中使用到的数据表主要有班级表、成绩表、缴费表、课程表、学生档案、用户资料，由这六个表，组成了名为信息的数据库（如图一）。其中学生档案是本系统主要的叵信息:数据库-lolX|诵打开隧设计側雷新建（阻X-0壺1H國可可国園in圍国图使坤说计龄创建表使坤向导创建表通过辅人数幄创建表谡糅表佣户茨制李生档完（图一）一张表，所有信息都是根据这张学生档案进行有关的操作，主要的字段有：学号、姓名、年级、专业、性别、出生年月、民族、籍贯、政治面貌、家庭地址、邮政编码、联系电话、入学时间、备注。其中日期的数

12、据类型为日期/时间天型，其它的数据类型为文本型；成绩表中字段为：学号、姓名、年级、专业、学期、考试时间、考试科目、考试地点、课程性质科目分数、违纪类型、备注；课程表中字段为：专业、年级、学期、课程名称、教材、任课老师、课时、上课地点、课程性质、考试性质；用户资料中的字段包括：用户名、密码、身份。数据库与VB的连接：本系统的数据链接采用的是ADO方法，打开控制面板，打开ODBC数据源图标，选择“系统DSN”标签，点击“添加”按钮，在弹出的“创建新数据源”对话框中选择名称为“MicrosoftAccessDrive（*.mdb）”，点击“完成”按钮，在ODBCMicrosoftAccess安装对话

13、框中在数据源名中输入信息，在数据库这个框中，单击“选择”按钮，在弹出的选择数据库这一对话框架中，在驱动器下拉列表框中选择本系统数据库所在驱动器，在目录中选择库所在的文件夹，在文件类型中选择选“Access数据库（*.mdb）”，在数据库名中选择本系统的数据库，点击“确定”按钮即完成数据链接。在VB中，用ADODC链接数据库，用DataGrid或DATA将库中的数据在界面中显示出来，本系统采用DataGrid。在界面上右击Adodc控制，在弹出的快捷菜单中选择属性，在属性对话框中，在“属性”这一标签中，选中单选框“UseODBCDataSourceName”，并在下拉文本框中选择已经配置好的数据

14、源名信息，再在“RecordSoure”标签中，在CommardText（SQL）文本框中输入查询语句，女口：select*from学生档案。同时，将桌面的DataGrid控件选中，在属性框中，将它的Datasoure设为Adodc。我们可以设置DataGrid控件的外观：选中该控件，右击，在弹出的快捷菜单中选择“检索字段”，在弹出的对话框中单击“确定”，这时，表格中出现了表的字段。然后再右击，同样，在弹出的快捷菜单中选择“编辑”，我们就可以所在的表格的宽度进行调整。各功能的实现课程管理：课程设置（如：界面如图二）图二）运行程序后，进入课程管理模块，课程管理模块的第一块是课程设置，在这模块中可

15、以把专业、年级、学期、课程名称、教材、任课老师、课时、上课地点、课程性质和考试性质等信息输入，以便使用。下面为其代码：PrivateSubCommand1_Click()DimmyConAsNewADODB.ConnectionDimmyRsAsNewADODB.RecordsetDimZhuanYe,NianJi,XueQi,KeCheng,JiaoCai,RenKLS,KeShi,ShangKeDD,KeChengXZ,KaoShiXZAsStringZhuanYe=Text1.TextNianJi=Text2.TextXueQi=DTPicker1.ValueKeCheng=Text4.

16、TextJiaoCai=Text5.TextRenKLS=Text6.TextKeShi=Text7.TextShangKeDD=Text8.TextKeChengXZ=Combo1.TextKaoShiXZ=Combo2.TextIfTrim(ZhuanYe)=OrTrim(NianJi)=OrTrim(XueQi)=OrTrim(KeCheng)=OrTrim(JiaoCai)=OrTrim(RenKLS)=OrTrim(KeShi)=OrTrim(ShangKeDD)=OrTrim(KeChengXZ)=OrTrim(KaoShiXZ)=ThenMsgBox请填写要修改课程资料的内容！C

17、ombo1.Text=Combo2.Text=ExitSubEndIfmyCon.Open小$口=信息myRs.Openselect*from课程表where专业=&Text1.Text&,myCon,3,2myRs!年级=Text2.TextmyRs!学期=DTPickerl.ValuemyRs!课程名称=Text4.TextmyRs!教材=Text5.TextmyRs!任课老师=Text6.TextmyRs!课时=Text7.TextmyRs!上课地点=Text8.TextmyRs!课程性质=Combol.TextmyRs!考试性质=Combo2.TextmyRs.UpdatemyRs.C

18、losemyCon.CloseMsgBox您确定要修改吗？,vbYesNo,提示Frm_UpdateGrean.Adodcl.RefreshFrm_UpdateGrean.DataGridl.RefreshText1.Text=Text2.Text=Text3.Text=Text4.Text=Text5.Text=Text6.Text=Text7.Text=Text8.Text=Combo1.Text=Combo2.Text=EndSubPrivateSubCommand2_Click（）UnloadMeEndSubPrivateSubCommand3_Click（）UnloadMeFrm_F

19、indGrean.Show1EndSubPrivateSubDataGrid1_Click（）Frm_UpdateGrean.Adodc1.RecordSource=select*from课程表where专业=&Trim（DataGrid1.Row）&Textl.Text=Frm_UpdateGrean.Adodcl.Recordset.Fields（专业）Text2.Text=Frm_UpdateGrean.Adodc1.Recordset.Fields（年级）Text3.Text=Frm_UpdateGrean.Adodc1.Recordset.Fields（学期）Text4.Text=F

20、rm_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（上课地点）Combo1.Text=Frm_UpdateGrean.Adodc1.R

21、ecordset.Fields（课程性质）Combo2.Text=Frm_UpdateGrean.Adodc1.Recordset.Fields（考试性质）EndSubPrivateSubDTPicker1_CallbackKeyDown（ByValKeyCodeAsInteger,ByValShiftAsInteger,ByValCallbackFieldAsString,CallbackDateAsDate）EndSubPrivateSubForm_Activate（）Frm_FindGrean.Adodc1.RecordSource=strTiaoJianFrm_FindGrean.Ad

22、odc1.RefreshSetDataGrid1.DataSource=Frm_FindGrean.Adodc1EndSubPrivateSubForm_Load（）Combo1.AddItem（必修）Combo1.AddItem（选修）Combo1.AddItem（自开）Combo2.AddItem（考试）Combo2.AddItem（查考）Text1.Text=Text2.Text=Text3.Text=Text4.Text=Text5.Text=Text6.Text=Text7.Text=Text8.Text=Combo1.Text=Combo2.Text=EndSubPrivateSu

23、bText1_Change（）EndSubPrivateSubText2_Change（）EndSubPrivateSubText8_Change（）EndSub课程管理：课程查询（如：界面如图三）图三）当输入查询类别、运算符和条件后可以查找到所需要的课程设置，或按查询时间来查询，输入所要查找的时间段，就可查到所要的课程设置。代码如下：DimsqlstrAsStringPrivateSubCombo1_Change()EndSubPrivateSubCombo2_Change()EndSubPrivateSubCombo4_Change()EndSubPrivateSubCombo5_Chan

24、ge()EndSubPrivateSubCombo7_Change()EndSubPrivateSubCommand1_Click()DimaAsStringDimKCCX1AsStringDimKCCX2AsStringDimstr1AsStringDimstr2AsStringIfOption3.Value=TrueThena=Trim(Combo2)SelectCaseaCase=KCCX1=&Combo1.Text&Combo2.Text&Trim(Text1)&CaselikeKCCX1=Instr(1,&Combo1.Text&,&Trim(Text1.Text)&)0EndSel

25、ecta=Trim(Combo4)SelectCaseaCase=KCCX2=&Combo3.Text&Combo4.Text&Trim(Text2)&CaselikeKCCX2=Instr(1,&Combo3.Text&,&Trim(Text2.Text)&)0EndSelectIfOption1.Value=TrueThenIfKCCX1=ThenstrTiaoJian=select*from课程表where&KCCX2ElseIfKCCX2=ThenstrTiaoJian=select*from课程表where&KCCX1ElsestrTiaoJian=select*from课程表whe

26、re&KCCX1&and&KCCX2EndIfElseIfOption2.Value=TrueThenIfKCCX1=ThenstrTiaoJian=select*from课程表where&KCCX2ElseIfKCCX2=ThenstrTiaoJian=select*from课程表where&KCCX1ElsestrTiaoJian=select*from课程表where&KCCX1&or&KCCX2EndIfElseIfKCCX1=ThenstrTiaoJian=select*from课程表where&KCCX2ElseIfKCCX2=ThenstrTiaoJian=select*from

27、课程表where&KCCX1ElseMsgBox请选择连接方式！,vbOKOnly,警告ExitSubEndIfEndIfIf(KCCX1&KCCX2)=ThenMsgBox请输入查询类别！,vbOKOnly,警告ExitSubElseUnloadMeFrm_UpdateGrean.Show1EndIfEndIfIfOption4.Value=TrueThenIfVal(Combo6)Val(Combo9)ThenMsgBox请正确选择年份！,vbOKOnly+vbExclamation,信息提示Combo6.SetFocusExitSubElseIfVal(Combo6)=Val(Combo

28、9)ThenIfVal(Combo7)Val(Combo10)ThenMsgBox请正确选择月份！,vbOKOnly+vbExclamation,信息提示Combo7.SetFocusExitSubElseIfVal(Combo7)=Val(Combo10)ThenIfVal(Combo8)Val(Combo11)ThenMsgBox请正确选择日期！,vbOKOnly+vbExclamation,信息提示Combo8.SetFocusExitSubEndIfEndIfEndIfEndIfEndIfIfCombo6.Text=OrCombo7.Text=OrCombo8.Text=OrCombo

29、9.Text=OrCombo10.Text=OrCombo11.Text=ThenMsgBox请输入完整的日期,vbOKOnly,警告ExitSubEndIfstr1=Trim(Combo6)&-&Trim(Combo7)&-&Trim(Combo8)str2=Trim(Combo9)&-&Trim(Combo10)&-&Trim(Combo11)str1=Format(str1,yyyy-mm-dd)str2=Format(str2,yyyy-mm-dd)Ifsqlstr=Thensqlstr=&Trim(Combo5.Text)&=#&Format(str1,yyyy-mm-dd)&#an

30、d&Trim(Combo5.Text)&=#&Format(str1,yyyy-mm-dd)&#and&Trim(Combo5.Text)&=#&Format(str2,yyyy-mm-dd)&#EndIfIfsqlstr=ThenMsgBox请先输入查找时间！ExitSubEndIfstrTiaoJian=select专业,年级,学期,课程名称,教材,任课老师,课时,上课地点,课程性质,考试性质from课程表where&sqlstrUnloadMeFrm_UpdateGrean.Show1EndIfIfOption3.ValueTrueAndOption4.ValueTrueThenMsgB

31、ox请选择查询方式！,vbOKOnly,警告ExitSubEndIfEndSubPrivateSubCommand3_Click（）UnloadMeEndSubPrivateSubForm_Load（）Dimi,jAsIntegerFori=1999To2010Combo6.AddItemiCombo9.AddItemiNextiCombo6.ListIndex=0Combo9.ListIndex=0Fori=1To12Combo7.AddItemiCombo10.AddItemiNextiCombo7.ListIndex=0Combo10.ListIndex=0Fori=1To31Combo

32、8.AddItemiCombo11.AddItemiNextiCombo8.ListIndex=0Combo11.ListIndex=0Combo1.AddItem（专业）Combo1.AddItem（年级）Combo1.AddItem（课程名称）Combo1.AddItem（教材）Combo1.AddItem（任课老师）Combo1.AddItem（课时）Combo1.AddItem（课程性质）Combo1.AddItem（考试性质）Combo2.AddItem（=）Combo3.AddItem（专业）Combo3.AddItem（年级）Combo3.AddItem（课程名称）Combo3.

33、AddItem（教材）Combo3.AddItem（任课老师）Combo3.AddItem（课时）Combo3.AddItem（课程性质）Combo3.AddItem（考试性质）Combo4.AddItem（=）Combo5.AddItem（学期）Combo1.Text=Combo2.Text=Text1.Text=Combo3.Text=Combo4.Text=Text2.Text=Combo5.Text=Combo6.Text=Combo7.Text=Combo8.Text=Combo9.Text=Combo10.Text=Combo11.Text=EndSub7.1.2打印统计运行打印统

34、计后可以按条件把符合条件的各种信息以报表形式罗列出来，各种信息还可以以打印出来或以报表形式保存。打印统计包括班级统计分析、档案统计分析、课程统计分析、成绩统计分析和交费统计分析五类。班级统计分析（如：界面如图四）图四）代码如下：PrivateSubCommand1_Click（）DimSQLoriginalAsStringDimSQLaddAsStringDimSQLorderAsStringDimstrSqlAsStringSQLoriginal=SELECT年级,专业,人数,辅导员,备注FROM班级表SQLadd=WHERE年级=年级AND专业=专业SQLorder=IfCheck1.Va

35、lue=1AndIsNumeric(Text1)ThenSQLadd=SQLadd+and年级=+Text1+EndIfIfCheck2.Value=1AndNotIsNull(Text2)ThenSQLadd=SQLadd+and专业=+Text2+EndIfIfCheck3.Value=1AndIsNumeric(Text3)ThenSQLadd=SQLadd+and人数=+Text3+EndIfIfCheck4.Value=1AndNotIsNull(Text4)ThenSQLadd=SQLadd+and辅导员=+Text4+EndIfstrSql=SQLoriginal+SQLadd+

36、SQLordeIfDat_Main.rsDat_Class.State=1ThenDat_Main.rsDat_Class.CloseEndIfDat_Main.rsDat_Class.OpenstrSqlDat_Class.ShowvbModalText1.Text=Text2.Text=Text3.Text=Text4.Text=EndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()Text1.Text=Text2.Text=Text3.Text=Text4.Text=EndSubPrivateSubText1

37、_Change()EndSubPrivateSubText3_Change()EndSub档案分析统计（如：界面如图五）图五）代码如下：PrivateSubCommand1_Click()DimSQLoriginalAsStringDimSQLaddAsStringDimSQLorderAsStringDimstrSqlAsStringOnErrorResumeNextSQLoriginal=SELECT*FROM学生档案SQLadd=WHERE学号=学号AND姓名=姓名SQLorder=IfCheck1.Value=1AndIsNumeric(Text1)ThenSQLadd=SQLadd+

38、and学号=+Text1+EndIfIfCheck2.Value=1AndNotIsNull(Text2)ThenSQLadd=SQLadd+and姓名=+Text2+EndIfIfCheck3.Value=1AndNotIsNull(Text3)ThenSQLadd=SQLadd+and专业=+Text3+EndIfIfCheck4.Value=1AndIsDate(DTPicker1)ThenSQLadd=SQLadd+and出生年月=#&DTPicker1.Value&#EndIfstrSql=SQLoriginal+SQLadd+SQLordeIfDat_Main.rsDat_Stru

39、dent.State=1ThenDat_Main.rsDat_Strudent.CloseEndIfDat_Main.rsDat_Strudent.OpenstrSqlDat_Strudent.ShowvbModalText1.Text=Text2.Text=Text3.Text=EndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()Combo1.AddItem(男)Combo1.AddItem(女)Text1.Text=Text2.Text=Text3.Text=EndSubPrivateSubText1_Cha

40、nge()EndSub课程统计分析（如：界面如图六）图六）代码如下：PrivateSubCommand1_Click()DimSQLoriginalAsStringDimSQLaddAsStringDimSQLorderAsStringDimstrSqlAsStringSQLoriginal=SELECT*FROM课程表SQLadd=WHERE专业=专业AND课程名称=课程名称SQLorder=IfCheck1.Value=1AndNotIsNull(Text1)ThenSQLadd=SQLadd+and专业=+Text1+EndIfIfCheck2.Value=1AndNotIsNull(C

41、ombo1)ThenSQLadd=SQLadd+and课程性质=+Combo1+EndIfIfCheck3.Value=1AndNotIsNumeric(Text2)ThenSQLadd=SQLadd+and课时=+Text2+EndIfIfCheck4.Value=1AndNotIsNull(Text3)ThenSQLadd=SQLadd+and课程名称=+Text3+EndIfstrSql=SQLoriginal+SQLadd+SQLordeIfDat_Main.rsDat_Grean.State=1ThenDat_Main.rsDat_Grean.CloseEndIfDat_Main.r

42、sDat_Grean.OpenstrSqlDat_Grean.ShowvbModalText1.Text=Combo1.Text=Text2.Text=Text3.Text=EndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()Text1.Text=Text2.Text=Text3.Text=Combo1.Text=Combo1.AddItem(必修)Combo1.AddItem(选修)Combo1.AddItem(自开)EndSubPrivateSubText3_Change()EndSub成绩统计分析（如：界面

43、如图七）代码如下：PrivateSubCommand1_Click()DimSQLoriginalAsStringDimSQLaddAsStringDimSQLorderAsStringDimstrSqlAsStringOnErrorResumeNextSQLoriginal=SELECT*FROM成绩表SQLadd=WHERE学号=学号AND姓名=姓名SQLorder=IfCheck1.Value=1AndIsNumeric(Text1)ThenSQLadd=SQLadd+and学号=+Text1+EndIfIfCheck2.Value=1AndNotIsNull(Text2)ThenSQLadd=SQLadd+and姓名=+Text2+EndIfIfCheck3.Value=1AndNotIsNull(Text3)ThenSQLadd=SQLadd+and考试科目=+Text3+EndIfIfCheck4.Value=1ThenSQLadd=SQLadd+and科目分数60EndIfstrSql=SQLoriginal+SQLadd+S