VB程序设计学生信息管理系统说明-

1、广西城市职业学院20102011学年第二学期08级毕业统考VB程序设计统考作品VB程序设计课程设计说明书学生信息管理系统专业:08计算机应用与技术班级:08计应2班学号:xxxxxxxxxxxxx班姓名:xxx日期:2011-03-20第1章系统概述1.系统概述本学生信息管理系统可以说是一个综合性的学校学生管理系统,这它集成了学生学籍管理系统、学生成绩管理系统、学生档案管理系统、系统等多种功能,因而具有较强的实用性和先进性。1.1系统及需求分析通过调查,要求系统需要有以下功能:由于操作人员的计算机知识普遍较差,要求有良好的人机界面;由于该系统的使用对象多,要求有较好的权限管理;原始数据修改简单

2、方便,支持多条件修改方便的数据查询,支持多条件查询;在相应的权限下,删除数据方便简单,数据稳定性好;数据计算自动完成,尽量减少人工干预;(1对象运用可行性由于本系统管理的对象单一,都是在校学生,且每个数据内容具有较强的关联性,涉及的计算过程不是很复杂。因此,比较适合于采用数据库管理。且学校用于学生管理的微机都是PIII以上的机器,在存储量、速度方面都能满足数据库运行的要求。(2社会与经济可行性利用学生信息管理系统实现了无纸化办公,提高效率的同时还保护了环境。本来大量的计算、数据统计工作需要几天、甚至一个月完成的工作,可以在几个小时,最多几天内完成,大量节省了人力资本。学生信息管理系统同时也给老

3、师和学生带来了极大的方便。老师可以将课程安排,第一时间录入到系统。学生也可以第一时间登录到该系统,查询自己本学期课程安排和考试方式,大大提高了时间成本。1.2系统设计的背景本系统的设计是在Windows2000中文版操作系统环境下,使用Visual Basic6.0中文版开发成功的。数据库是MIS中的重要支持技术,在MIS开发过程中,如何选择数据库管理是一个重要的问题,目前,数据库产品较多,每种产品都具有各自的特点和适用范围,因此,在选择数据库时,应考虑数据库应用的特点及适用范围,本系统选用的数据库语言介绍如下: Visual Basic语言Visual Basic是一种可视化的、面对对象和条

4、用事件驱动方式的结构化高级程序设计,可用于开发Windows环境下的种类应用程序。它简单易学、效率高,且功能强大,可以与Windows的专业开发工具SDK相媲美,而且程序开发人员不必具有C/C+编程基础。在Visual Basic环境下,利用事件驱动的编程机制、新颖易用的可视化设计工具,使用Windows内部的应用程序接口(API函数,以及动态链接库(DLL、动态数据交换(DDE、对象的链接与嵌入(OLE、开放式数据访问(ODBC等技术,可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。总的来说,Visual Basic具有以下特点:可视化编程:用传统程序设计语言

5、设计程序时,都是通过编写程序代码来设计用户界面,在设计过程中看不到界面的实际显示效果,必须编译后运行程序才能观察。如果对界面的效果不满意,还要回到程序中修改。有时候,这种编程-编译-修改的操作可能要反复多次,大大影响了软件开发效率。Visual Basic提供了可视化设计工具,把Windows界面设计的复杂性“封装”起来,开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局,用系统提供的工具,在屏幕上画出各种“部件”,即图形对象,并设置这些图形对象的属性。Visual Basic自动产生界面设计代码,程序设计人员只需要编写实现程序功能的那部分代码,从而可以大大提高程序设计的效率

6、。面向对象的程序设计4.0版以后的Visual Basic支持面向对象的程序设计,但它与一般的面向对象的程序设计语言(C+不完全相同。在一般的面向对象程序设计语言中,对象由程序代码和数据组成,是抽象的概念;而Visual Basic则是应用面向对象的程序设计方法(OOP,把程序和数据封装起来作为一个对象,并为每个对象赋予应有的属性,使对象成为实在的东西。在设计对象时,不必编写建立和描述每个对象的程序代码,而是用工具画在界面上, Visual Basic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上,都是可视的。结构化程序设计语言Visual Basic是在BASIC语言的基础

7、上发展起来的,具有高级程序设计语言的语句结构,接近于自然语言和人类的逻辑思维方式。Visual Basic语句简单易懂,其编辑器支持彩色代码,可自动进行语法错误检查,同时具有功能强大且使用灵活的调试器和编译器。Visual Basic是解释型语言,在输入代码的同时,解释系统将高级语言分解翻译成计算机可以识别的机器指令,并判断每个语句的语法错误。在设计Visual Basic程序的过程中,随时可以运行程序,而在整个程序设计好之后,可以编译生成可执行文件(.EXE,脱离Visual Basic环境,直接在Windows环境下运行事件驱动编程机制Visual Basic通过事件来执行对象的操作。一个

8、对象可能会产生多个事件,每个事件都可以通过一段程序来响应。例如,命令按钮是一个对象,当用户单击该按钮时,将产生一个“单击“(CLICK事件,而在产生该事件时将执行一段程序,用来实现指定的操作。在用Visual Basic设计大型应用软件时,不必建立具有明显开始和结束的程序,而是编写若干个微小的子程序,即过程。这些过程分别面向不同的对象,由用户操作引发某个事件来驱动完成某种特定的功能,或者由事件驱动程序调用通用过程来执行指定的操作,这样可以方便编程人员,提高效率。访问数据库Visual Basic具有强大的数据库管理功能,利用数据控件和数据库管理窗口,可以直接建立或处理Microsoft Acc

9、ess格式的数据库,并提供了强大的数据存储和检索功能。同时,Visual Basic还能直接编辑和访问其他外部数据库,如dBASE,FoxPro,Paradox等,这些数据库格式都可以用Visual Basic编辑和处理。Visual Basic提供开放式数据连接,即ODBC功能,可通过直接访问或建立连接的方式使用并操作后台大型网络数据库,如SQL Server,Oracle 等。在应用程序中,可以使用结构化查询语言SQL数据标准,直接访问服务器上的数据库,并提供了简单的面向对象的库操作指令和多用户数据库访问的加锁机制和网络数据库的SQL的编程技术,为单机上运行的数据库提供了SQL网络接口,以

10、便在分布式环境中快速而有效地实现客户/服务器(client/server方案。动态数据交换(DDE利用动态数据交换(Dynamic Data Exchange技术,可以把一种应用程序中的数据动态地链接到另一种应用程序中,使两种完全不同的应用程序建立起一条动态数据链路。当原始数据变化时,可以自动更新链接的数据。Visual Basic提供了动态数据交换的编程技术,可以在应用程序中与其他Windows应用程序建立动态数据交换,在不同的应用程序之间进行通信。对象的链接与嵌入(OLE对象的链接与嵌入(OLE将每个应用程序都看做是一个对象(object,将不同的对象链接(link起来,再嵌入(embed

11、某个应用程序中,从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。OLE技术是Microsoft公司对象技术的战略,它把多个应用程序合为一体,将每个应用程序看做是一个对象进行链接和嵌入,是一种应用程序一体化的技术。利用OLE技术,可以方便地建立复合式文档(compound document,这种文档由来自多个不同应用程序的对象组成,文档中的每个对象都与原来的应用程序相联系,并可执行与原来应用程序完全相同的操作。动态链接库(DLLVisual Basic是一种高级程序设计语言,不具备低级语言的功能,对访问机器硬件的操作不太容易实现。但它可以通过动态链接库技术将C/C+或汇编语

12、言编写的程序加入到Visual Basic应用程序中,可以像调用内部函数一样调用其他语言编写的函数。此外,通过动态链接库,还可以调用Windows应用程序接口(API函数,实现SDK所具有的功能。1.3系统的功能简介本系统主要可以实现以下的管理功能:班级管理、学生档案管理、课程管理、成绩管理等等。学生信息管理系统是一个典型的数据库应用程序,由班级管理、学生档案管理、课程管理、成绩管理等模块组成,特规划如下: 该模块的主要任务是维护系统的正常运行和安全性设置,包括添加用户(快捷键:CTRL+A、重新登录(快捷键:CTRL+F1。该模块的主要功能是实现对学生的个人信息的管理工作,包括档案添加、档案

13、浏览、档案查询等功能,从而方便学校管理部门对学校的基本情况的快速查询和了解。该模块对各个班级的课程进行设置,并可在其中设置各门课程的教材选用情况,方便了学校教材管理部门和教务处的教学管理人员的工作。该模块包括基本课程设计和班级课程设置两个模块。学校的成绩管理工作是检验学生学习情况的一个主要手段,本模块包括考试类型设置,共有期中考试和期未考试两种类型,还设置了成绩添加、成绩游览功能模块。1.4系统开发的目标出于本系统是学校学生管理的一个综合性的系统,本系统的设计目标将最终定位于完成以上所述的系统主要业务的基本模型上。第2章系统分析 2.1系统流程在用户启动应用程序时,首先进入登陆界面进行用户的身

14、份验证。如果用户通过身份验证,系统将根据用户的不同级别分别引导用户进入不同的界面,超级管理员和老师可进入各自的管理界面进行操作和查询,而学生用户则只能通过输入姓名、学号来查询自己的信息。2.2数据存储分析:实体联系图1、数据模型设计。首先来做出学生成绩管理系统的E-R图,分析这个问题的实体,从系统分析可以知道,学生的成绩是由任课教师按照课程给出的,学生、课程、教师组成了这个系统的三个实体。2、再分析三个实体之间的联系。首先,这三个实体不是一个统一体,学生成绩与教师没有内在联系,教师必须通过课程实体才能与学生建立联系,因而先不考虑。课程与学生这两个实体是多对多联系;一位学生要学习多门课程,一门课

15、程有多位学生共同学习。而学习成绩是这两个实体“学生”和“成绩”共有的属性,应填在二者的联系“学习”边。因为成绩既不是学生独有的,也不是课程独有的;“学生甲70分”或“英语70分”是不完全的,说“学生甲英语70分”才是正确的,因为70分是学生甲和英语课二者共有的。这个E-R图可画成下图。学生课程成绩学习学生成绩管理系统中学生与课程的E-R图教师与课程这两个实体之间,是一对多联系;一位教师可以都多门课程,而一门课程对于学生成绩来说只能有一位教师(英语、高等数学有多位教师教,但对某个固定的学生来说只能有一位教师。其E-R图,如下所示。教师课程教学教师与课程的E-R图组合到一起,得到最后的E-R图,有

16、了E-R图,n 学生成绩课程m 1教师教学课程n就可以设计数据库。下图为最后的e-r图。1n课程学生领导选修任课nmnn教师第3章系统设计本系统在执行时,先根据不同的操作人员的需要来进行相应的模块,然后可以输入数据或者进行其它的查询或浏览等操作;总体来说,本系统属于一个事务型管理系统。3.2数据库设计数据库是有结构的数据集合,它与一般的数据文件不同,(其中的数据是无结构的是一串文字或数字流。数据库中的数据可以是文字、图象、声音等。Microsoft Access是一种关系式数据库,关系式数据库由一系列表组成,表又由一系列行和列组成,每一行是一个记录,每一列是一个字段,每个字段有一个字段名,字段

17、名在一个表中不能重复。表与表之间可以建立关系(或称关联,连接,以便查询相关联的信息。Access数据库以文件形式保存,文件的扩展名是MDB。班级管理接受数据处理中心档案管理课程管理成绩管理Access2000的6种对象Access2000数据库由六种对象组成,它们是表、查询、窗体、报表、宏和模块。表(Table表是数据库的基本对象,是创建其他5种对象的基础。表由记录组成,记录由字段组成,表用来存贮数据库的数据,故又称数据表。查询(Query查询可以按索引快速查找到需要的记录,按要求筛选记录并能连接若干个表的字段组成新表。窗体(Form窗体提供了一种方便的浏览、输入及更改数据的窗口。还可以创建子

18、窗体显示相关联的表的内容。窗体也称表单。报表(Report报表的功能是将数据库中的数据分类汇总,然后打印出来,以便分析。宏(Macro宏相当于DOS中的批处理,用来自动执行一系列操作。Access列出了一些常用的操作供用户选择,使用起来十分方便。模块(Module模块的功能与宏类似,但它定义的操作比宏更精细和复杂,用户可以根据自己的需要编写程序。模块使用Visual Basic编程。与Access以前的版本比较,Access2000新增了许多功能,字段类型增加了OLE对象和超级链接,特别是与Internet的融合,在数据库中可以直接链接到指定的Web页面或网络文件,也可以把Web页面上的表格导

19、入到数据库。Access2000可以方便地利用各种数据源,包括dBASE, FoxBase,FoxPro,Excel,Word等。Access2000增加了数据库访问的安全机制,可对表一级设置访问许可权。Access2000还可以方便地利用FoxPro 数据库、Excel电子表格的数据,还可以和Word混合使用,打印通用信函或信封。本次数据库采用了Microsoft推出的Access数据库,能够快速方便的和Office的其他套件综合使用。由于Access具有显著的简易性和有效性,大量的桌面数据库系统都采用Access作为后台数据库。使用Access的好处还在于,如果你的系统扩展到Client/

20、Server模式的时候,可以使用Microsoft的数据库服务器软件SQL Server,此时,程序只需要简单的修改一下链接(ADO的数据源就可以,这样,为程序的平滑扩展提供了非常有力的条件。使用VB6.0所提供的“可视化数据管理器”建立数据库以及其中的数据表。a.在VB集成环境中启动数据管理器:单击“外接程序”菜单下的“可视化数据管理器”命令,打开可视化数据管理器“VisData”窗口。b.选择“文件”菜单中的“新建”项,在“新建”子菜单中,选择“Microsoft Access”子菜单中“Version7.0MDB”,在创建数据库对框中选择保存数据库的路径和库文件名(XS后保存。本系统中所

21、涉及到的主要实体共有七个数据表:allkecheng表:课程名称,教材cj表:学号,学期,类型,课程名称,分数class表:年级,班级,教室,年制,专业,班主任,备注classkecheng表:年级,专业,年制,学期,课程名称kaoshileixing表:类型use表:username,password,admin,readonly,qx1,qx2,qx3,qx4xj表:学号,姓名,性别,班级,出生年月,家庭住址,邮政编码,联系电话,入学时间,备注表名字段名称类型宽度小数位数Allkecheng表课程名称文本20教材文本30Cj表学号文本10学期文本50类型文本16课程名称文本20分数单精度型

22、数自动2字Class表年级文本16班级文本20教室文本5年制文本8专业文本16班主任文本8备注备注classkecheng年级文本16专业文本12年制文本8学期文本50课程名称文本20 kaoshileixing类型文本10User表username文本20password文本20Admin文本2readonly文本2Qx1文本2Qx2文本2Qx3文本2Qx4文本2 Xj表学号文本9姓名文本8性别文本2班级文本10出生年月日期/时间家庭住址文本30邮政编码长整型联系电话长整型入学时间日期/时间备注备注第4章系统的功能本部分主要内容为本系统的运行界面以及主要界面的源代码。4.1系统登陆界面:本界

23、面的主要功能是为了对系统进行安全性管理,本系统的用户名和密码保存在USE表中,本系统根据不同的用户而设置了不同的权限,可以用909;909为用户名和密码来登陆本系统。具体设置是:选择“工程”里的“添加窗体”,选择“登录对话框”,保存为“frmdenlu”。并且填写代码,完成与数据库的链接。对窗体的属性进行设置,登录界面添加“某某学校”字样。在“工程”菜单中选择“添加窗体”,打开“添加窗体”对话框,选择添加“窗体”。并将新窗体保存为“denglu”。并且使用菜单编辑器,按照功能流程图的位置制作主页面的下拉菜单。完成后设置主页面属性,将“Caption”命名为“学生信息管理系统”;通过“Pictu

24、re”属性,对主界面的背景进行设置;调整主界面大小,并设置“WindowState”属性为“2-Mixmized”,并将页面调整到屏幕的中央。添加代码,完善学生信息管理系统主页面的代码设计。Private Sub Command1_Click(Dim mrc As ADODB.Recordsettxtsql="select username from use where username='"&Trim(Text1.Text&"'"Set mrc=ExecuteSQL(txtsqlIf mrc.EOF=True ThenM

25、sgBox"用户名错误!",vbExclamation+vbOKOnly,"警告"Text1.SetFocusText1.SelStart=0Text1.SelLength=Len(Text1.TextExit Subusername=mrc.Fields(0txtsql2="select username from use where password='"&Trim(Text2.Text&"'"Set mrc=ExecuteSQL(txtsql2If mrc.EOF=True T

26、henMsgBox"密码错误!",vbExclamation+vbOKOnly,"警告"Text2.SetFocusText2.SelStart=0Text2.SelLength=Len(Text2.TextExit SubEnd Iftxtsql="select username from use where username='"&Trim(Text1.Text&"'and password='"&Trim(Text2.Text&"'&q

27、uot; Set mrc=ExecuteSQL(txtsqlIf mrc.EOF=True ThenMsgBox"用户名称和密码不匹配!",vbExclamation+vbOKOnly,"警告"Exit SubEnd IfMDIForm1.ShowUnload MeEnd SubPrivate Sub Command2_Click(Unload MeEnd SubPrivate Sub Form_Load(Private Sub Text1_KeyPress(KeyAscii As IntegerIf KeyAscii=13ThenText2.SetFo

28、cusEnd IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As IntegerIf KeyAscii=13ThenCommand1.SetFocusEnd IfEnd Sub4.2系统管理模块设计“系统管理”模块分为“添加新用户”和“退出”两个子模块。 在“工程”菜单中选择“添加窗体”,打开“添加窗体”对话框,选择添加“窗体”。并将新窗体保存为“frmuser1”。进行代码设计,代码如下:Private Sub Command1_Click(If Trim(Text1(0.Text=""ThenMsgBox"用户名不能

29、为空!",vbExclamation+vbOKOnly,"警告" Text1(0.SetFocusExit SubEnd IfIf Trim(Text1(1.Text=""ThenMsgBox"密码不能为空!",vbExclamation+vbOKOnly,"警告" Text1(1.SetFocusExit SubEnd IfIf Trim(Text1(2.Text=""ThenMsgBox"确认密码不能为空!",vbExclamation+vbOKOnly,&qu

30、ot;警告" Text1(2.SetFocusExit SubEnd IfIf Trim(Text1(1.Text<>Trim(Text1(2.TextThen MsgBox"确认密码不正确!",vbExclamation+vbOKOnly,"警告" Text1(2.SetFocusExit SubEnd IfDim aa As Integeraa=0If Option1(2.Value=True ThenFor i=0To2If Check1(i.Value=1Thenaa=1Exit ForEnd IfNext iIf aa=0

31、ThenMsgBox"普通用户至少要有一项权限!",vbExclamation+vbOKOnly, "警告"Exit SubEnd IfEnd IfDim mrc As ADODB.Recordsettxtsql="select*from use where username='"&Trim(Text1(0.Text &"'"Set mrc=ExecuteSQL(txtsqlIf mrc.EOF=False ThenMsgBox"已存在该用户!",vbExclam

32、ation+vbOKOnly,"警告" Text1(0.SetFocusText1(0.SelStart=0Text1(0.SelLength=Len(Text1(0.TextExit SubEnd Iftxtsql="select*from use"Set mrc=ExecuteSQL(txtsqlmrc.AddNewmrc.Fields(0=Trim(Text1(0.Textmrc.Fields(1=Trim(Text1(1.TextFor i=0To2If Option1(i.Value=True ThenSelect Case iCase0mrc

33、.Fields("admin"="y"Case1mrc.Fields("readonly"="y"Case2For j=0To2If Check1(j.Value=1ThenSelect Case jCase0mrc.Fields("qx1"="y"Case1mrc.Fields("qx2"="y"Case2mrc.Fields("qx3"="y"End SelectEnd IfNext jEnd

34、 SelectEnd IfNext imrc.UpdateMsgBox"用户添加成功!",vbExclamation+vbOKOnly,"警告"Text1(0.Text=""Text1(1.Text=""Text1(2.Text=""End SubPrivate Sub Command2_Click(Unload MeEnd SubPrivate Sub Form_Load(Option1(2.Value=TrueEnd SubPrivate Sub Form_Resize(Text1(0.Se

35、tFocusEnd SubPrivate Sub Option1_Click(Index As IntegerIf Index<>2ThenFor i=0To2Check1(i.Enabled=FalseNext iElseFor i=0To2Check1(i.Enabled=TrueNext iEnd IfEnd Sub通过代码设计,实现了对三种不同权限的新用户的添加,管理员具有所有得权限,老师在管理员的授权下可以选择系统管理、课程管理与档案管理、课程管理的一种、两种或者全部权限,学生则只有浏览的功能。4.3班级管理在完成了系统的登录页面设计、系统主页面系统设计后,接下来在总体设

36、计思想的指导下完成系统的其余功能模块的设计。这些子模块作为学生信息管理系统的组成部分,在很大程度上增强了所开发系统的整体功能。以下主要讲述班级管理这个功能模块的具体设计和实现。班级管理的主要功能是对各院系的班级的基本信息进行管理,这些信息包括年级、班级、教室、年制、专业、班主任、备注等。相应的管理操作包括:添加记录、修改记录、删除记录、查询记录以及打印记录。执行查询,先输入要进行操作的班级,确定后再进行对应的操作。添加操作可直接添加新的班级记录。在“工程”菜单中选择“添加窗体”,打开“添加窗体”对话框,选择添加“窗体”。并将新窗体保存为“formclass1”。添加代码并且进行属性设置。将“C

37、aption”改为“添加班级”,并且调整窗口大小。“添加系统”模块的界面如下图所示: 在“工程”菜单中选择“添加窗体”,打开“添加窗体”对话框,选择添加“窗体”。并将新窗体保存为“formclass2”。添加代码并且进行属性设置。将“Caption”改为“浏览班级”,并且调整窗口大小。“添加系统”模块的界面如下图所示: 通过设计的浏览班级模块,可以根据年级,对本校的各班级信息进行总体浏览。并且根据需要,对班级设置进行修改,删除,打印。在“工程”菜单中选择“添加窗体”,打开“添加窗体”对话框,选择添加“窗体”。并将新窗体保存为“formclass3”。进行属性设置。将“Caption”改为“班级

38、查询”,并且调整窗口大小。通过设计,此模块可以通过年级、班级、专业对班级设计查询。“添加系统”模块的界面如下图所示: 进行代码设计,代码如下:Private Sub Command1_Click(txtsql=""If Text1(0.Text<>""ThenIf txtsql=""Thentxtsql="年级='"&Trim(Text1(0.Text&"'"Elsetxtsql=txtsql&"and年级='"&a

39、mp;Trim(Text1(0.Text&"'" End IfEnd IfIf Text1(1.Text<>""ThenIf txtsql=""Thentxtsql="班级='"&Trim(Text1(1.Text&"'"Elsetxtsql=txtsql&"and班级='"&Trim(Text1(1.Text&"'" End IfEnd IfIf Text

40、1(2.Text<>""Thenaa=1If txtsql=""Thentxtsql="专业='"&Trim(Text1(2.Text&"'"Elsetxtsql=txtsql&"and专业='"&Trim(Text1(2.Text&"'" End IfEnd IfIf txtsql=""Thenss=MsgBox("你至少要输入一个条件以上才能查询!"

41、,"警告" Text1(0.SetFocusExit SubEnd Iftxtsql="select*from class where"&txtsqlDim mrc As ADODB.RecordsetSet mrc=ExecuteSQL(txtsqlIf mrc.EOF=True Thenzzz=MsgBox("对不起,没有此班级的档案记录!",vbOKOnly,"查询"Formclass3.ZOrder(0Formclass3.Text1(0.SetFocusExit SubEnd IfFormclas

42、s2.printstr=txtsqlclassfind=TrueFormclass2.ShowFormclass2.classshowtitleFormclass2.classshowdataFormclass2.Caption="班级设置查询结果"Formclass2.ZOrder(0End SubPrivate Sub Form_Unload(Cancel As Integerclassfind=FalseEnd Sub必须同时输入一个条件,否则将弹出警告对话框“你至少要输入一个以上条件以上才能查询!”用户可以同时设定一个、两个或者三个条件进行查询。4.4学生档案管理学

43、生档案管理是对全校学生的基本资料进行查询、修改、添加、删除、打印操作。执行查询操作时,可以根据学号、姓名、班级、姓名关键字进行查询。可以对查找到的信息进行修改和删除。添加操作可直接添加相应的学生基本情况。学生信息包括学号、姓名、性别、班级、家庭住址、出生年月、联系电话、入学时间、备注等信息。首先明确档案添加的功能是添加对入学的学生进行入学档案登记,其中包括姓名、性别、班级、联系电话等信息。在“工程”菜单中选择“添加窗体”,打开“添加窗体”对话框,选择添加“窗体”。并将新窗体保存为“form1”。进行属性设置,并且编写代码,完成的页面如下图所示: Private Sub Command1_Cli

44、ck(For j=0To7If Text1(j=""Thenss=MsgBox(Label1(j.Caption&"不能为空!",vbExclamation +vbOKOnly,"警告"Text1(j.SetFocusText1(j.SelStart=0Text1(j.SelLength=Len(Text1(j.TextExit SubEnd IfNextDim mrc As ADODB.Recordsettxtsql1="select*from xj where学号='"&Trim(Tex

45、t1(0.Text& "'"Set mrc=ExecuteSQL(txtsql1If modi=False ThenIf mrc.EOF=False Thensss=MsgBox("已经存在该学号的记录,学号不能重复!", vbExclamation+vbOKOnly,"警告"Text1(0.SetFocusText1(0.SelStart=0Text1(0.SelLength=Len(Text1(0.Textmrc.CloseExit SubEnd IfEnd IfIf Not IsDate(Text1(2.Text

46、Then'判断是否日期格式ssss=MsgBox("应输入日期mm-dd-yy",vbInformation+ vbOKOnly,"警告"Text1(2.SetFocusText1(2.SelStart=0Text1(2.SelLength=Len(Text1(2.TextExit SubEnd IfIf Not IsDate(Text1(6.TextThenssss=MsgBox("应输入日期mm-dd-yy",vbInformation+ vbOKOnly,"警告"Text1(6.SetFocusTex

47、t1(6.SelStart=0Text1(6.SelLength=Len(Text1(6.TextExit SubEnd IfIf modi=True ThenSet mrc=ExecuteSQL(txtsql1Unload MeExit SubEnd Iftxtsql1="select*from xj"Set mrc=ExecuteSQL(txtsql1mrc.AddNewFor i=4To9mrc.Fields(i=Text1(i-2.TextNext imrc.Fields(0=Trim(Text1(0.Textmrc.Fields(1=Trim(Text1(1.Te

48、xtmrc.Fields(2=Trim(Combo1(0.Textmrc.Fields(3=Trim(Combo1(1.Textmrc.UpdateSet mrc=NothingFor j=0To7Text1(j=""NextEnd Sub类似可以进行档案浏览模块设计,完成之后的设计见面如下图所示: 其代码如下:Public Sub showdata(Dim j As IntegerDim i As IntegerDim mrc As ADODB.RecordsetSet mrc=New ADODB.RecordsetSet mrc=ExecuteSQL(txtsqlIf

49、mrc.EOF=False Thenmrc.MoveFirstWith MSF1.Rows=50.Row=1Do While Not mrc.EOF.Rows=.Rows+1.TextMatrix(.Row,i=mrc.Fields(i-1Next i.Row=.Row+1mrc.MoveNextLoopEnd WithElseIf find=True ThenForm3.HideForm4.Showzzz=MsgBox("对不起,没有此学生的档案记录!",vbOKOnly,"查询"Form4.ZOrder(0Form4.Text1(0.SetFocus

50、End IfEnd IfSet mrc=NothingEnd SubPublic Sub tree(Dim nodex As NodeDim mrc As ADODB.RecordsetDim mrc1As ADODB.RecordsetDim str As StringDim a As Stringa="年级"'TreeView1.LineStyle=tvwRootLinesstr="select distinct年级from class order by年级"Set mrc=ExecuteSQL(strstr="select dis

51、tinct年级,班级from class order by年级,班级" Set mrc1=ExecuteSQL(strmrc.MoveFirstDo Until mrc.EOFmrc1.MoveFirstIf mrc1.Fields(0=mrc.Fields(0ThenEnd Ifmrc1.MoveNextLoopa=a&"1"mrc.MoveNextLoopmrc1.Closemrc.CloseSet mrc=NothingSet mrc1=NothingEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Butt

52、on As MSComctlLib.ButtonSelect Case Button.TagCase"find"Form4.ShowCase"modi"sssss=MsgBox("你还没有选择记录!",vbOKOnly+ vbExclamation,"警告"Exit SubElseqxstr=Executeqx(2If qxstr="readonly"Thenss=MsgBox("对不起,你是只读用户不能修改记录,请与管理员联系!",vbInformation+vbOKOnl

53、y,"警告"Exit SubEnd Ifmodi=TrueForm1.ShowForm1.ZOrder0End IfCase"del"Dim mrc As ADODB.RecordsetDim intcount As Integersssss=MsgBox("你还没有选择记录!",vbOKOnly+ vbExclamation,"警告"ElseIf qxstr="readonly"Thenss=MsgBox("对不起,你是只读用户不能删除记录,请与管理员联系!",vbInfo

54、rmation+vbOKOnly,"警告"Exit SubEnd IfSet mrc=ExecuteSQL(txtsqlSet mrc=ExecuteSQL(txtsqlSet mrc=ExecuteSQL(txtsqlTreeView1_DblClickEnd IfEnd If'Case"print"'Form6.Show'Form6.ZOrder0End SelectEnd SubPrivate Sub TreeView1_DblClick(On Error GoTo ssMSF1.ClearExit SubEnd Ifpri

55、ntstr=txtsqlMe.Caption="浏览学生档案"Me.showtitleMe.showdataExit Subss:MSF1.ClearEnd Sub档案查询模块的设计可以根据“班级管理”中的班级查询模块的设计来设计和编写。 具体的代码如下:Private Sub Command1_Click(Dim aa As Integertxtsql=""If Trim(Text1(0.Text<>""Thenaa=1If txtsql=""Thentxtsql="xj.学号='&

56、quot;&Trim(Text1(0.Text&"'"Elsetxtsql=txtsql&"and xj.学号='"&Trim(Text1(0.Text& "'"End IfEnd IfIf Trim(Text1(1.Text<>""Thenaa=1If txtsql=""Thentxtsql="xj.姓名='"&Trim(Text1(1.Text&"'&qu

57、ot;Elsetxtsql=txtsql&"and xj.姓名='"&Trim(Text1(1.Text& "'"End IfEnd IfIf Trim(Text1(2.Text<>""Thenaa=1If txtsql=""Thentxtsql="xj.班级='"&Trim(Text1(2.Text&"'"Elsetxtsql=txtsql&"and xj.班级='

58、"&Trim(Text1(2.Text& "'"End IfEnd IfIf Trim(Text1(3.Text<>""Thenaa=1txtsql=""txtsql="xj.姓名like'%"&Trim(Text1(3.Text&"%'"End IfIf aa=0Thenss=MsgBox("你至少要输入一个条件以上才能查询!","警告"Text1(0.SetFocusExit SubEnd IfDim str As Stringstr="select*from xj where"&txtsqlDim mrc As ADODB.RecordsetSet mrc=ExecuteSQL(strIf mrc.EOF=True Thenzzz=MsgBox("对不起,没有此学生的档案记录!",vbOKOnly,"查询"Form4.ZO