学生管理会计案例大赛?
基于VB的学生信息管理系统的设计摘要：本系统针对高校学生信息的特点以及管理中的弊端而设计，实现了学生信息管理的信息化、减轻了管理人员的工作负担，能够规范、高效地管理大量的学生信息，该系统旨在更好地管理高校的教学和资源的整合，推动科技成果的转化，推进高校改革，提高高校的办学效率。 关键词：信息管理；VB；系统近几年来，随着各高校办公自动化工作的推进，学生信息管理自动化也被摆上了日程。在学校工作中占有很大比重的一项就是每学期的学生信息管理工作。由于教工、教室和设备的相对紧张，如何进行合理地安排和分配，从而充分利用教学资源是我们不得不面对的问题。 而人工进行管理不仅任务重，效率低，而且易出错...全部
基于VB的学生信息管理系统的设计摘要：本系统针对高校学生信息的特点以及管理中的弊端而设计，实现了学生信息管理的信息化、减轻了管理人员的工作负担，能够规范、高效地管理大量的学生信息，该系统旨在更好地管理高校的教学和资源的整合，推动科技成果的转化，推进高校改革，提高高校的办学效率。
关键词：信息管理；VB；系统近几年来，随着各高校办公自动化工作的推进，学生信息管理自动化也被摆上了日程。在学校工作中占有很大比重的一项就是每学期的学生信息管理工作。由于教工、教室和设备的相对紧张，如何进行合理地安排和分配，从而充分利用教学资源是我们不得不面对的问题。
而人工进行管理不仅任务重，效率低，而且易出错，难于维护，想要排出一张各方面都满意的信息管理表非常困难。并且随着高校规模的扩大手工管理的难度和工作量呈几何级数增长。学生信息管理系统正是为了减轻教务人员工作量，实现学校管理科学发展观自动化，解决管理难这一老大难题的教务办公软件。
本系统以中文版Visual Basic 6。0为前台开发工具，用Microsoft Access2000作为后台数据库。系统的操作对人员的素质的要求不高，只需对他们稍加培训便能胜任。本系统最大的优点就是学生的所有信息及全部操作完全可以通过各功能模块直接写入后台数据库，操作简单易行，使信息管理流程能够在一个安全可视的环境下运行。
1学生信息管理系统的设计学生信息管理系统的设计主要是为了更好的实现学校学生信息的系统化、规范化和自动化。其主要功能包括操作员权限设置、便于信息管理、信息的查询、以及生成各种报表。其中查询包括姓名查询、学号查询、班级查询、性别查询、年龄、电话及住址查询、组合查询、模糊查询等，查询可按建表输入的时间，进行统计人数和成绩等统计，查询其中的一种或多种方法。
1。1系统设计思想和特点现状：学校管理工作对于学校的决策者和管理者来说至关重要。但一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点，如：效率低、保密性差。另外，时间一长，将产生大量的文件和数据，这对于查找、更新和维护都带来了不少的困难。
设计思想：《学生信息管理系统》采用面向对象的程序设计思想为基本的设计指导思想。本系统主要实施目标是帮助学校的学生档案管理人员对学校学生信息进行管理。本系统优点：检索迅速、查询方便、可靠性高、存储量大、保密性好、寿命长、成本低等。
这些优点能够极大地提高学生信息管理的效率，也是学校的科学化、正规化管理的重要条件。1。2系统目标和功能模块本信息管理系统在追求完善的同时应达到以下目标：1)界面友好、易于操作；2)实现基本信息管理，包括操作员的注册及权限设置，所需基本信息的建立与设置等功能；3)实现数据库管理，包括数据库的自动创建，备份与恢复；4)实现智能跟踪用户操作，智能容错处理，数据统计与分析等功能；5)真正意义上实现该高校从原始的手工阶段走向了方便快捷的计算机实现阶段。
功能模块如图1所示。运行主窗体如图2。2。3登录模块设计登录界面是进入系统的大门，是对管理员身份的验证，只有输入了正确的名称和密码，才有权进入系统。因为系统有许多管理员，他们拥有不同的权限，当有不同的用户登录到系统中时，系统便会根据数据库中记载的内容而赋予其不同的权限关键代码如下：Dim a As StringDim b As StringDim str As StringDim strr As Stringstr=InStr(Text2。
Text,"'")If str<>0 ThenMsgBox"不能输入非法字符！！",vbCritical+vbOKOnly,"错误"Exit SubElsestrr=InStr(Text1。Text,"'")If strr<>0 ThenMsgBox"不能输入非法字符！！",vbCritical+vbOKOnly,"错误"Exit SubEnd IfEnd Ifa=Trim(Text1)b=Trim(Text2)If a=""ThenMsgBox"用户名不能为空!",vbCritical,"错误"Text1。
SetFocusText1。SelStart=0Text1。SelLength=Len(Text1)ElseDim r As New ADODB。RecordsetSet r=DataEnvironment1。
rsuserDim c As StringStatic nTryCount As Integerc="select*from用户登陆where用户名='"&a&"'"If r。State=adStateOpen Then r。
Closer。Open cIf r。EOF ThenMsgBox"无此用户!请重新登陆!!",vbCritical,"错误"Text1。SetFocusText1。SelStart=0Text1。
SelLength=Len(Text1)nTryCount=nTryCount+1If nTryCount>=5 ThenMsgBox"您无权操作本系统！",vbCritical,"错误"Unload MeEnd IfElseIf b=Trim(r。
Fields(1))Thenquanxian=Trim(r。Fields(2))MDIForm1。ShowUnload MeElseMsgBox"密码错误!请重新登陆!!",vbCritical,"错误"Text2。
SetFocusText2。SelStart=0Text2。SelLength=Len(Text2)nTryCount=nTryCount+1If nTryCount>=5 ThenMsgBox"您无权操作本系统！",vbCritical,"错误"Unload MeEnd IfEnd IfEnd IfEnd If图End Sub2。
4信息管理和信息查询模块设计信息管理和信息查询分别如图3。关键代码如下：On Error Resume NextDim str As StringDim strr As StringSelect Case Command2。
CaptionCase"启用组合查找"Select Case Combo1。TextCase"学号"str=InStr(Text9。Text,"'")If str<>0 ThenMsgBox"不能输入非法字符！！",vbCritical+vbOKOnly,"错误"Exit SubElsestrr=InStr(Text10。
Text,"'")If strr<>0 ThenMsgBox"不能输入非法字符！！",vbCritical+vbOKOnly,"错误"Exit SubEnd IfEnd IfTYCZCase"姓名"str=InStr(Text9。
Text,"'")If str<>0 ThenMsgBox"不能输入非法字符！！",vbCritical+vbOKOnly,"错误"Exit SubElsestrr=InStr(Text10。
Text,"'")If strr<>0 ThenMsgBox"不能输入非法字符！！",vbCritical+vbOKOnly,"错误"Exit SubEnd IfEnd IfTYCZCase"年龄"str=InStr(Text9。
Text,"'")If str<>0 ThenMsgBox"不能输入非法字符！！",vbCritical+vbOKOnly,"错误"Exit SubElsestrr=InStr(Text10。
Text,"'")If strr<>0 ThenMsgBox"不能输入非法字符！！",vbCritical+vbOKOnly,"错误"Exit SubEnd IfEnd IfTYCZCase"性别"str=InStr(Text9。
Text,"'")If str<>0 ThenMsgBox"不能输入非法字符！！",vbCritical+vbOKOnly,"错误"Exit SubElsestrr=InStr(Text10。
Text,"'")If strr<>0 ThenMsgBox"不能输入非法字符！！",vbCritical+vbOKOnly,"错误"Exit SubEnd IfEnd IfSEXCase"所属班级"str=InStr(Text9。
Text,"'")If str<>0 ThenMsgBox"不能输入非法字符！！",vbCritical+vbOKOnly,"错误"Exit SubElsestrr=InStr(Text10。
Text,"'")If strr<>0 ThenMsgBox"不能输入非法字符！！",vbCritical+vbOKOnly,"错误"Exit SubEnd IfEnd IfTYCZCase"家庭地址"str=InStr(Text9。
Text,"'")If str<>0 ThenMsgBox"不能输入非法字符！！",vbCritical+vbOKOnly,"错误"Exit SubElsestrr=InStr(Text10。
Text,"'")If strr<>0 ThenMsgBox"不能输入非法字符！！",vbCritical+vbOKOnly,"错误"Exit SubEnd IfEnd IfTYCZEnd SelectCase"关闭组合查找"str=InStr(Text9。
Text,"'")If str<>0 ThenMsgBox"不能输入非法字符！！",vbCritical+vbOKOnly,"错误"Exit SubElsestrr=InStr(Text10。
Text,"'")If strr<>0 ThenMsgBox"不能输入非法字符！！",vbCritical+vbOKOnly,"错误"Exit SubEnd IfEnd IfIf Combo1。
Text="性别"Or Combo2。Text="性别"ThenCombinationElseCombination_Faintness_nosexEnd IfEnd SelectPublic Sub TYCZ()On Error Resume NextDim a As New ADODB。
RecordsetSet a=DataEnvironment1。rsstudentDim b As StringIf Trim(Combo3。Text)<>"模糊"Thenb="select*from学生信息表where"&Trim(Combo1。
Text)&""&Trim(Combo3。Text)&"'"&Trim(Text9。Text)&"'"If a。State=adStateOpen Then a。Closea。Open bdgreElseb="select*from学生信息表where"&Trim(Combo1。
Text)&"like'%"&Trim(Text9。Text)&"%'"If a。State=adStateOpen Then a。Closea。Open bdgreEnd IfEnd SubPublic Sub dgre()DataGrid1。
DataMember=""DataGrid1。RefreshDataEnvironment1。rsstudent。RequeryDataGrid1。DataMember="Student"DataGrid1。
RefreshEnd Sub3结束语本系统达到了预期的要求，系统设计是根据学校的学生信息管理流程，合理设置各种操作模块，各管理员和操作员之间分工明确，并且能够及时、准确地记录每次操作信息。操作简单易行，定期审核，确保了数据的正确性。
从根本上解决了学生管理的计算机实现方式，对学校管理来讲是一个大的跨越。收起
