VB学生信息管理系统及源代码
VB课程设计-学生成绩处理系统
长江大学Ｙanｇtｚe unｉveｒsｉtyＶB课程设计实习报告专业班级﹕储运1１001学生学号﹕20１007078学生姓名﹕彭壮班级序号﹕１6指导老师﹕冯翠丽完成时间﹕2011－１2—22一.设计题目学生成绩管理系统二．设计思路从文本中读取文件数据,利用VB的顺序结构，选择结构，循环结构编写程序代码，最终将各代码写入界面设计中的各菜单下.三．程序实现的目标本程序将实现从文本中读取数据，赋值数据，运算数据，实现对学生的加权平均值，名次，全班每门课的分数段，不及格同学名单，优等生名单等运算，并写入文件。
四.程序设计框图五。
运行结果原始成绩课程学分原始成绩和原始课程学分文件读取原始课程文件加权平均分成绩排名每门课程的班级平均分加权平均分分布每门课程及分布成绩条优等生名单不及格学生名单成绩查询系统按姓名查找示例﹕按学号查找示例﹕按名次查找示例﹕六.源程序模块代码：Type xscｊbxh As Ｓtringxm Ａs Ｓｔｒiｎgcj(1 Tｏ５）ＡｓIntegｅrａvｅr As ＳｉnglｅｍｃAs IntｅgerEnｄTyｐeTｙｐe keｃhen编号AｓIntｅgeｒ课程名As Strｉng学分As ＳingleEnd TｙpePublic sｔｕ（) As xｓcjbPｕblic ｋｅ（) AsｋechenPubliｃＮ%, M%,Zxf%Ｐuｂlic str Ａs Striｎg窗体代码：①Fｏrｍ1：Ｐｕblic Ｆunｃtion spａcｅ1（BｙVａl ssｓAs String）Diｍx％x ＝IｎStr（ｓsｓ, ＂＂）ＤｏWｈｉleｘ> 0sｓｓ＝Ｒeｐlace(ｓss，”", ”＂)x = InStr(ｓsｓ，" ”）Looｐsｐacｅ1 = ｓsｓEｎｄFuncｔｉonPrivａte Sｕb ajｑｆｓpｍ_Clicｋ（）Dim ｔ！, k As SinglｅFoｒm1.ClsＦorm1.ＦoｎtSize= 12Ｆorm1。
基于ASP+ACCESS的学生信息管理系统(源代码及全套资料)
摘要随着科学技术的发展，计算机领域不断取得新的研究成果。
并不断地代替和延伸脑力劳动方面发挥越来越重要的作用，无论是工业还是日常生活都越来越离不开计算机，尤其是在学校里，随着不同高校的的不断扩大和招生人数的不断增加，要处理大量的学生数据信息显得尤为的重要。
学生的信息管理是学校工作中一项重要的内容。
本系统论文主要是管理学生的资料。
重点介绍其功能：信息添加、信息修改、信息的删除及信息查询。
使用进行静态页面设计 ,应用A S P 程序进行后台管理操作，并用A ccess 进行后台数据库的连接设计。
主要是以四大功能进行系统的设计和实现。
关键词： Dreamw eaver M X 2004 系统站点设计 A S P A ccess 数据库1 .1 开发工具的介绍1 . 1 . 1 AS PASP （ Ac t i ve Se ve r Pa g e s 动态网页）是微软公司推出的一种用以取代CGI ( Common Ga t e wa y I nt e r f a c e ) 技术。
目前， I nt e r ne t 上的许多基于W i ndows 平台的W e b 站点已开始应用 ASP 来替换 CGI 。
ASP 是在服务器端脚本编译环境，使用它可以创建和运行动态、交互的 W e b 服务器应用程序。
ASP 可以与 HT ML 页、脚本命令和 Ac t i ve X 组件组合创建交互的 W e b 页和基于 W e b 的功能强大的应用程序。
ASP 应用程序很容易开发和修改。
ASP 是一个位于服务器端的脚本运行环境。
通过这种环境，用户可以创建和运行动态的交互式W e b 服务器应用程序，如交互式动态网页，包括使用H T M L表单收集和处理信息、上传与下载等。
通常情况下，用户通过浏览器看到的网页大多是静态的，目前I nt e r ne t 上的许多站点，仍然提供“静态”（ s t a t i c ）的主页内容。
学生信息管理系统java课程设计(含源代码)
JAVA 程序设计 课程设计陈述宇文皓月课 题: 学生信息管理系统 姓 名： 学 号： 同组姓名： 专业班级： 指导教师： 设计时间：目 录1、需要实现的功能32、设计目的3 1、功能模块划分32、数据库结构描述43、系统详细设计文档64、各个模块的实现方法描述95、测试数据及期望结果11一、系统描述1、需求实现的功能1.1、录入学生基本信息的功能学生基本信息主要包含：学号、姓名、年龄、出生地、专业、班级总学分，在拔出时，如果数据库已经存在该学号，则不克不及再拔出该学号。
1.2、修改学生基本信息的功能在管理员模式下，只要在表格中选中某个学生，就可以对该学生信息进行修改。
评阅意见：评定成绩：指导老师签名：年 月 日1.3、查询学生基本信息的功能可使用“姓名”对已存有的学生资料进行查询。
1.4、删除学生基本信息的功能在管理员模式下，只要选择表格中的某个学生，就可以删除该学生。
1.5、用户登陆用分歧的登录权限可以进入分歧的后台界面，从而实现权限操纵。
1.6、用户登陆信息设置可以修改用户登陆密码2、设计目的学生信息管理系统是一个教育单位不成缺少的部分。
一个功能齐全、简单易用的信息管理系统不单能有效地减轻学校相关工作人员的工作负担，它的内容对于学校的决策者和管理者来说都至关重要。
所以学生信息管理系统应该能够为用户提供充足的信息和快捷的查询手段。
但一直以来人们使用传统人工的方式管理文件档案、统计和查询数据，这种管理方式存在着许多缺点，如：效率低、保密性差、人工的大量浪费；另外时间一长，将发生大量的文件和数据，这对于查找、更新和维护都带来了很多困难。
随着科学技术的不竭提高，计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。
作为计算机应用的一部分，使用计算机对学校的各类信息进行管理，具有手工管理无法比较的优点。
例如：检索迅速、查询方便、效率高、可靠性好、存储量大、保密性好、寿命长、成本低等。
VB+ACCESS大型机房学生上机管理系统论文
摘要本论文以西电基础教学实验中心学生上机管理系统为背景，论述了管理信息系统的概念，结构及系统开发的基本原理和方法。
全文共分为绪论、开发方法的选择、系统分析、系统设计、系统实施、结束语等六章。
首先论述了该系统的开发背景和系统的简单介绍；然后，讨论了结构化生命周期法、原型法和面向对象这三种开发方法的技术，根据需要选择合适的开发方法；结合本系统详细阐述了系统分析、系统设计的技术及应用，尤其在机房管理人员和上机人员的交流方面采用了C/S结构进行解决；此文还论述了在开发过程中遇到的问题及学到的东西。
通过开发这个机房学生上机管理系统，进一步明确了开发研制一个管理信息系统的方法和思想，加深了对管理信息系统的认识，巩固了以前所学的信息系统开发方面的知识，提高了软件开发的水平，为今后在工作岗位上学好用好计算机打下了坚实的基础。
关键词：VISUAL BASIC 6.0 MIS 系统开发面向对象AbstractThe paper is based on the student operate cumputer management of Basic Teaching Experiment Center of Xidian Uniersity,It discusses the concept and method about MIS(management information system) and the basic theory and method about system develop,The whole paper can be divided into six chapters including Introduction,the option of Developing Method,Systems Analysis,Systems Design,the Realication of System, Tag and so on.First of all,it discussis develop background and synopsis of this system;then,it discussis three technologies of developing methods,namely,it involves in the way of SDLC(StructuredDevelopment Life Cycle),the way of Prorotype,the way of OO(Object Oriented),and the way of this system;it elaborately expound the technologies and appviation of Systems Analysis and System Design,especially the communion between Management and Students by meas of C/S(Client/Server);it also discussis the question and the knowledge during develop this system;during develop this system, I understand the thinking and method of develop MIS. Advance the level of software develop, ground for future.[Key Word] VISUAL BASIC 6.0 MIS(Management Information System) Development of system OO(Object Oriented)目录第1章绪论 (1)1.1 系统开发的背景 (1)1.1.1 管理信息系统的产生 (1)1.1.2 管理信息系统的发展 (2)1.2 系统简介 (2)1.2.1 系统特点 (2)1.2.2系统实用性 (3)第2章开发方法的选择 (4)2.1 软件工程方法概述 (4)2.2 结构化生命周期法简介 (4)2.3 快速原型法简介 (5)2.4 面向对象的开发方法简介 (6)2.5 本系统开发方法的选择 (7)第3章系统分析 (9)3.1 系统分析的概念 (9)3.2 系统的初步调查 (9)3.3 可行性研究 (9)3.3.1 开发新系统的经济可行性 (9)3.3.2开发新系统的技术可行性 (10)3.3.3 开发新系统的组织管理可行性 (10)3.3.4 操作可行性 (11)3.4 系统的详细调查 (11)3.5 新系统逻辑模型的提出 (11)3.5.1 数据流图 (12)3.5.2 数据字典 (12)第4章系统设计 (16)4.1 系统设计的概念 (16)4.2 系统总体设计 (16)4.2.1 系统总体布局方案的确定 (16)4.2.2 系统总体功能结构的设计 (16)4.3 系统详细设计 (16)4.3.1 代码设计 (16)4.3.2 数据库设计 (18)4.3.3系统物理配置方案设计 (21)4.3.4 用户界面设计 (21)第5章系统实施 (25)5.1 系统开发工具的选择 (25)5.2 数据库产品的选择 (25)5.3 开发平台的选择 (25)5.4 程序设计 (25)第6章结束语 (27)6.1 所做工作及收获 (27)6.2 进一步的展望 (27)致辞 (28)参考文献 (28)附录 (29)第1章绪论随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。
vb项目开发案例全程实录
vb项目开发案例全程实录以VB项目开发案例全程实录为题，我将为您列举10个案例，每个案例包含至少800字的详细描述。
1. 学生成绩管理系统这个案例是一个简单的学生成绩管理系统，使用VB开发。
系统包括学生信息的录入、成绩的录入和查询等功能。
首先，用户可以通过界面输入学生的基本信息，包括姓名、学号、性别等。
然后，用户可以输入学生的各科成绩，并计算出总分和平均分。
最后，用户可以通过学号或姓名查询学生的成绩。
该系统使用VB的窗体和控件进行界面设计，通过VB的数据库连接功能实现与数据库的交互。
2. 酒店管理系统这个案例是一个酒店管理系统，使用VB开发。
系统包括客房管理、客户管理、订单管理等功能。
首先，用户可以通过界面查看酒店的各类客房信息，并进行预订和入住操作。
然后，用户可以管理客户信息，包括添加、修改和删除客户信息。
最后，用户可以查看订单信息，包括已预订和已入住的订单，并进行退房操作。
该系统使用VB的窗体和控件进行界面设计，通过VB的数据库连接功能实现与数据库的交互。
3. 超市收银系统这个案例是一个超市收银系统，使用VB开发。
系统包括商品管理、库存管理、销售管理等功能。
首先，用户可以通过界面添加、修改和删除商品信息，并查看商品的库存情况。
然后，用户可以进行销售操作，包括添加购物车、结算和打印小票。
最后，用户可以查看销售统计信息，包括每日销售额、每月销售额等。
该系统使用VB的窗体和控件进行界面设计，通过VB的数据库连接功能实现与数据库的交互。
4. 图书管理系统这个案例是一个图书管理系统，使用VB开发。
系统包括图书的录入、借阅和归还等功能。
首先，用户可以通过界面添加、修改和删除图书信息，并查看图书的借阅情况。
然后，用户可以进行借阅操作，包括选择图书和输入借阅者信息。
最后，用户可以归还图书，并更新图书的借阅情况。
该系统使用VB的窗体和控件进行界面设计，通过VB的数据库连接功能实现与数据库的交互。
5. 学生选课系统这个案例是一个学生选课系统，使用VB开发。
vb图书管理系统源代码
Borbook：Public sqltxt As StringPublic rno As String '保存读者借书证号Public bno As String '保存读者图书编号Public xm As String '保存读者姓名Public dw As String '保存读者单位Public rs As ADODB.RecordsetPrivate Sub Comm1_Click()rno = Trim(Text1(0).Text)If rno = "" ThenMsgBox "借书证号不能为空,请输入", vbOKOnly, "信息提示"Comm2.Enabled = FalseElsesqltxt = "select * from reader where 借书证号='" + rno + "'"Set rs = exesql(sqltxt)If rs.RecordCount = 0 ThenMsgBox "该读者未登记,不能借书", vbOKOnly, "信息提示"Comm2.Enabled = FalseElseText2(0).Text = rs.Fields("姓名")Text2(1).Text = str(rs.Fields("借书总数"))Text2(2).Text = str(rs.Fields("借书总数") - rs.Fields("已借书数"))If Val(Trim(Text2(2).Text)) > 0 Thenxm = rs.Fields("姓名")dw = rs.Fields("单位")Comm2.Enabled = TrueElseMsgBox "该读者已借满图书,不能再借!", vbOKOnly, "信息提示"Comm2.Enabled = FalseEnd IfEnd IfEnd IfEnd SubPrivate Sub Comm2_Click()If Val(Trim(Text2(2).Text)) = 0 ThenMsgBox "该读者已借满图书,不能再借!", vbOKOnly, "信息提示"Comm2.Enabled = FalseExit SubEnd Ifbno = Trim(Text1(1).Text)If bno = "" ThenMsgBox "图书编号不能为空,请输入", vbOKOnly, "信息提示"Comm2.Enabled = FalseElsesqltxt = "select * from book where 图书编号='" + bno + "'"Set bs = exesql(sqltxt)If bs.RecordCount = 0 ThenMsgBox "图书编号不对旳,请重新输入", vbOKOnly, "信息提示"ElseIf bs.Fields("借否") = "借" ThenMsgBox "该图书编号相应旳图书已借出,不能再借!", vbOKOnly, "信息提示"Elsesqltxt = "select * from borrow"Set brs = exesql(sqltxt)brs.AddNewbrs.Fields("图书编号") = bnobrs.Fields("书名") = bs.Fields("书名")brs.Fields("作者") = bs.Fields("作者")brs.Fields("出版社") = bs.Fields("出版社")brs.Fields("借书证号") = rnobrs.Fields("姓名") = xmbrs.Fields("单位") = dwbrs.Fields("借书日期") = Datebrs.Updatebs.Fields("借否") = "借"bs.Updaters.Fields("已借书数") = rs.Fields("已借书数") + 1rs.UpdateText2(2).Text = str(rs.Fields("借书总数") - rs.Fields("已借书数"))End IfEnd IfEnd IfEnd SubPrivate Sub retCom_Click()Unload MeEnd SubPrivate Sub Form_Load()Comm2.Enabled = FalseEnd SubPrivate Sub DataGrid1_Click()End SubPrivate Sub Form_Load()'阐明:为什么使用recs,而不直接使用adodc1.recordset.recordcount?在调用edbook1窗体添加一种记录(拟定)后,再'返回到本表单,若不在Form_Activate()事件过程中调用adodc1.refresh进行刷新,adodc1.recordset.recordcount值'仍未增1,这样调用encomm过程时出错;若在Form_Activate()事件过程中调用adodc1.refresh进行刷新,'adodc1.recordset.recordcount值增1了,调用encomm过程时也对旳,但返回本窗体时,目前行总是第一行,显然也不行,'由于顾客在添加或修改后但愿在datagrid1中显示目前操作旳那条记录.recs = Adodc1.Recordset.RecordCountEnd SubPrivate Sub Form_Activate()DataGrid1.SetFocusCall encommEnd SubPrivate Sub Comm1_Click()flag = 1edbook1.Show vbModalEnd SubPrivate Sub Comm2_Click()flag = 2edbook1.Show vbModalEnd SubPrivate Sub Comm3_Click()If MsgBox("真旳要删除[" + Trim(Adodc1.Recordset.Fields("书名")) + "]吗?", vbYesNo, "信息提示") = vbYes ThenAdodc1.Recordset.Deleterecs = recs - 1Call encommEnd IfEnd SubPrivate Sub Comm4_Click()Unload MePrivate Sub selcmd1_Click() '拟定Dim str As Stringstr = "" '条件体现式If Trim(Text1(0).Text) <> "" ThenIf str = "" Thenstr = "图书编号='" + Trim(Text1(0).Text) + "'"Elsestr = str + " and 图书编号='" + Trim(Text1(0).Text) + "'"End IfEnd IfIf Trim(Text1(1).Text) <> "" ThenIf str = "" Thenstr = "书名='" + Trim(Text1(1).Text) + "'"Elsestr = str + " and 书名='" + Trim(Text1(1).Text) + "'"End IfEnd IfIf Trim(Text1(2).Text) <> "" ThenIf str = "" Thenstr = "作者='" + Trim(Text1(2).Text) + "'"Elsestr = str + " and 作者='" + Trim(Text1(2).Text) + "'"End IfEnd IfIf Trim(Text1(3).Text) <> "" ThenIf str = "" Thenstr = "出版社='" + Trim(Text1(3).Text) + "'"Elsestr = str + " and 出版社='" + Trim(Text1(3).Text) + "'"End IfEnd IfIf Trim(Text1(4).Text) <> "" ThenIf str = "" Thenstr = "借否='" + Trim(Text1(4).Text) + "'"Elsestr = str + " and 借否='" + Trim(Text1(4).Text) + "'"End IfEnd IfIf str <> "" ThenAdodc1.RecordSource = "select * from book where " + strAdodc1.RefreshElseAdodc1.RecordSource = "select * from book"Adodc1.RefreshEnd Ifrecs = Adodc1.Recordset.RecordCountIf recs = 0 ThenMsgBox "没有任何满足条件旳记录", vbOKOnly, "信息提示" End IfCall encommEnd SubPrivate Sub selcmd2_Click() '重置Text1(0).Text = ""Text1(1).Text = ""Text1(2).Text = ""Text1(3).Text = ""Text1(4).Text = ""End SubPrivate Sub encomm() '自定义子过程:判断Adodc1中与否存在记录If recs = 0 ThenComm2.Enabled = FalseComm3.Enabled = FalseElseComm2.Enabled = TrueComm3.Enabled = TrueEnd IfEnd SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) Call endata(KeyAscii)End SubEdbook1：Dim rs As ADODB.RecordsetPrivate Sub Form_Load()If flag = 2 Then '修改操作Text1(0).Text = edbook.Adodc1.Recordset.Fields("图书编号") & ""Text1(1).Text = edbook.Adodc1.Recordset.Fields("分类号") & ""Text1(2).Text = edbook.Adodc1.Recordset.Fields("书名") & ""Text1(3).Text = edbook.Adodc1.Recordset.Fields("作者") & ""DataCombo1.Text = edbook.Adodc1.Recordset.Fields("出版社") & ""Text1(4).Text = edbook.Adodc1.Recordset.Fields("定价") & ""Text1(5).Text = edbook.Adodc1.Recordset.Fields("入库日期") & ""Text1(0).Enabled = FalseElse '添加操作Text1(5).Text = DateEnd IfEnd SubPrivate Sub Form_Activate()Adodc1.Refresh '数据源刷新End SubPrivate Sub Comm1_Click()If Trim(Text1(0).Text) = "" Or Trim(Text1(2).Text) = "" Or Trim(Text1(3).Text) = "" Or Trim(Text1(5).Text) = "" ThenMsgBox "加*数据项不能为空,请重新设立", vbOKOnly, "信息提示"Exit SubEnd IfIf flag = 1 Then '添加操作sqltxt = "select * from book where 图书编号='" + Trim(Text1(0).Text) + "'" '对book中记录进行判断Set rs = exesql(sqltxt)If rs.RecordCount <> 0 ThenMsgBox "存在相似旳图书编号", vbOKOnly, "信息提示"Text1(0).SetFocusrs.CloseExit SubElsers.CloseEnd Ifedbook.Adodc1.Recordset.AddNewedbook.Adodc1.Recordset.Fields("图书编号") = Trim(Text1(0).Text)edbook.Adodc1.Recordset.Fields("分类号") = Trim(Text1(1).Text)edbook.Adodc1.Recordset.Fields("书名") = Trim(Text1(2).Text)edbook.Adodc1.Recordset.Fields("作者") = Trim(Text1(3).Text)edbook.Adodc1.Recordset.Fields("出版社") = Trim(DataCombo1.Text)edbook.Adodc1.Recordset.Fields("定价") = Val(Trim(Text1(4).Text))edbook.Adodc1.Recordset.Fields("入库日期") = Format(Trim(Text1(5).Text), "yyyy-mm-dd")edbook.Adodc1.Recordset.Fields("借否") = "否"edbook.Adodc1.Recordset.Updaterecs = recs + 1Else '修改操作edbook.Adodc1.Recordset.Fields("图书编号") = Trim(Text1(0).Text)edbook.Adodc1.Recordset.Fields("分类号") = Trim(Text1(1).Text)edbook.Adodc1.Recordset.Fields("书名") = Trim(Text1(2).Text)edbook.Adodc1.Recordset.Fields("作者") = Trim(Text1(3).Text)edbook.Adodc1.Recordset.Fields("出版社") = Trim(DataCombo1.Text)edbook.Adodc1.Recordset.Fields("定价") = Val(Trim(Text1(4).Text))edbook.Adodc1.Recordset.Fields("入库日期") = Format(Trim(Text1(5).Text), "yyyy-mm-dd")edbook.Adodc1.Recordset.UpdateEnd IfUnload MeEnd SubPrivate Sub Comm2_Click()Unload MeEnd SubPrivate Sub selcom_Click()tna = "press"cap = "出版社"edrec.Show vbModalEnd SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)If Index = 1 ThenIf KeyAscii = 13 Thensqltxt = "select * from book where 分类号='" + Trim(Text1(1).Text) + "'" '对book中记录进行判断Set rs = exesql(sqltxt)If rs.RecordCount > 0 ThenText1(2).Text = rs.Fields("书名")Text1(3).Text = rs.Fields("作者")Text1(4).Text = rs.Fields("定价")DataCombo1.Text = rs.Fields("出版社")rs.CloseText1(5).SetFocusElseCall endata(KeyAscii)End IfEnd IfElseCall endata(KeyAscii)End IfEnd SubPrivate Sub DataCombo1_KeyPress(KeyAscii As Integer) Call endata(KeyAscii)End SubDim msg As StringPrivate Sub Form_Load()recs = Adodc1.Recordset.RecordCountEnd SubPrivate Sub Form_Activate()Call encommEnd SubPrivate Sub Comm1_Click()flag = 1edlev1.Show vbModalEnd SubPrivate Sub Comm2_Click()flag = 2edlev1.Show vbModalEnd SubPrivate Sub Comm3_Click()If MsgBox("真旳要删除[" + Trim(Adodc1.Recordset.Fields("级别")) + "]吗?", vbYesNo, "信息提示") = vbYes ThenAdodc1.Recordset.Deleterecs = recs - 1Call encommEnd IfEnd SubPrivate Sub Comm4_Click()Unload MeEnd SubPrivate Sub encomm()If recs = 0 ThenComm2.Enabled = FalseComm3.Enabled = FalseElseComm2.Enabled = TrueComm3.Enabled = TrueEnd IfEnd SubDim cond As StringPrivate Sub Form_Load()If flag = 2 ThenText1(0).Text = edlev.Adodc1.Recordset.Fields("级别")Text1(1).Text = edlev.Adodc1.Recordset.Fields("过期罚款")Text1(2).Text = edlev.Adodc1.Recordset.Fields("借书总数")Text1(3).Text = edlev.Adodc1.Recordset.Fields("借书天数")End IfEnd SubPrivate Sub Comm1_Click()If Trim(Text1(0).Text) = "" Or Trim(Text1(1).Text) = "" Or Trim(Text1(2).Text) = "" Or _ Trim(Text1(3).Text) = "" ThenMsgBox "数据项不全,请重新设立", vbOKOnly, "信息提示"Text1(0).SetFocusExit SubEnd IfIf flag = 1 Then '添加操作If edlev.Adodc1.Recordset.RecordCount > 0 Then '原记录个数大于0cond = "级别='" + Trim(Text1(0).Text) + "'"edlev.Adodc1.Recordset.MoveFirst '每次从头开始查找edlev.Adodc1.Recordset.Find (cond)If Not edlev.Adodc1.Recordset.EOF() ThenMsgBox "存在完全相似旳记录", vbOKOnly, "信息提示"Text1(0).SetFocusExit SubEnd IfEnd Ifedlev.Adodc1.Recordset.AddNewedlev.Adodc1.Recordset.Fields("级别") = Trim(Text1(0).Text)edlev.Adodc1.Recordset.Fields("过期罚款") = Val(Trim(Text1(1).Text))edlev.Adodc1.Recordset.Fields("借书总数") = Val(Trim(Text1(2).Text))edlev.Adodc1.Recordset.Fields("借书天数") = Val(Trim(Text1(3).Text))edlev.Adodc1.Recordset.Updaterecs = recs + 1Else '修改操作n = edlev.Adodc1.Recordset.AbsolutePositioncond = "级别='" + Trim(Text1(0).Text) + "'"edlev.Adodc1.Recordset.MoveFirst '每次从头开始查找edlev.Adodc1.Recordset.Find (cond)If Not edlev.Adodc1.Recordset.EOF() And edlev.Adodc1.Recordset.AbsolutePosition <> n ThenMsgBox "存在完全相似旳记录", vbOKOnly, "信息提示"edlev.Adodc1.Recordset.MoveFirst '这两个语句恢复原记录位置edlev.Adodc1.Recordset.Move (n - 1)Text1(0).SetFocusExit SubEnd Ifedlev.Adodc1.Recordset.MoveFirst '这两个语句恢复原记录位置edlev.Adodc1.Recordset.Move (n - 1)edlev.Adodc1.Recordset.Fields("级别") = Trim(Text1(0).Text)edlev.Adodc1.Recordset.Fields("过期罚款") = Val(Trim(Text1(1).Text))edlev.Adodc1.Recordset.Fields("借书总数") = Val(Trim(Text1(2).Text))edlev.Adodc1.Recordset.Fields("借书天数") = Val(Trim(Text1(3).Text))edlev.Adodc1.Recordset.UpdateEnd IfUnload MeEnd SubPrivate Sub Comm2_Click()Unload MeEnd SubEdreader：Private Sub DataGrid1_Click()End SubPrivate Sub Form_Load()recs = Adodc1.Recordset.RecordCountEnd SubPrivate Sub Form_Activate()DataGrid1.SetFocusCall encommEnd SubPrivate Sub Comm1_Click()flag = 1edreader1.Show vbModalEnd SubPrivate Sub Comm2_Click()flag = 2edreader1.Show vbModalEnd SubPrivate Sub Comm3_Click()If MsgBox("真旳要删除[" + Trim(Adodc1.Recordset.Fields("姓名")) + "]吗?", vbYesNo, "信息提示") = vbYes ThenAdodc1.Recordset.Deleterecs = recs - 1Call encommEnd IfEnd SubPrivate Sub Comm4_Click()Unload MeEnd SubPrivate Sub selcmd1_Click() '设立条件拟定Dim str As Stringstr = "" '条件体现式If Trim(Text1(0).Text) <> "" ThenIf str = "" Thenstr = "借书证号='" + Trim(Text1(0).Text) + "'"Elsestr = str + " and 借书证号='" + Trim(Text1(0).Text) + "'"End IfEnd IfIf Trim(Text1(1).Text) <> "" ThenIf str = "" Thenstr = "姓名='" + Trim(Text1(1).Text) + "'"Elsestr = str + " and 姓名='" + Trim(Text1(1).Text) + "'"End IfEnd IfIf Trim(Text1(2).Text) <> "" ThenIf str = "" Thenstr = "单位='" + Trim(Text1(2).Text) + "'"Elsestr = str + " and 单位='" + Trim(Text1(2).Text) + "'"End IfEnd IfIf Trim(Text1(3).Text) <> "" ThenIf str = "" Thenstr = "级别='" + Trim(Text1(3).Text) + "'"Elsestr = str + " and 级别='" + Trim(Text1(3).Text) + "'"End IfEnd IfIf Trim(Text1(4).Text) <> "" ThenIf str = "" Thenstr = "性别='" + Trim(Text1(4).Text) + "'"Elsestr = str + " and 性别='" + Trim(Text1(4).Text) + "'"End IfEnd IfIf str <> "" ThenAdodc1.RecordSource = "select * from reader where " + strAdodc1.RefreshElseAdodc1.RecordSource = "select * from reader"Adodc1.RefreshEnd Ifrecs = Adodc1.Recordset.RecordCountIf recs = 0 ThenMsgBox "没有任何满足条件旳记录", vbOKOnly, "信息提示" End IfCall encommEnd SubPrivate Sub selcmd2_Click() '设立条件重置Text1(0).Text = ""Text1(1).Text = ""Text1(2).Text = ""Text1(3).Text = ""Text1(4).Text = ""End SubPrivate Sub encomm() '自定义子过程:判断Adodc1中与否存在记录If recs = 0 ThenComm2.Enabled = FalseComm3.Enabled = FalseElseComm2.Enabled = TrueComm3.Enabled = TrueEnd IfEnd SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) Call endata(KeyAscii)End SubEdreader1：Dim rs As ADODB.RecordsetPrivate Sub Form_Load()If flag = 2 Then '修改操作Text1(0).Text = edreader.Adodc1.Recordset.Fields("借书证号") & ""Text1(1).Text = edreader.Adodc1.Recordset.Fields("姓名") & ""If edreader.Adodc1.Recordset.Fields("性别") = "男" Thenopt1.Value = TrueElseopt2.Value = TrueEnd IfDataCombo2.Text = edreader.Adodc1.Recordset.Fields("单位") & ""DataCombo1.Text = edreader.Adodc1.Recordset.Fields("级别") & ""Text1(2).Text = edreader.Adodc1.Recordset.Fields("过期罚款") & ""Text1(3).Text = edreader.Adodc1.Recordset.Fields("借书总数") & ""Text1(4).Text = edreader.Adodc1.Recordset.Fields("借书天数") & ""Text1(5).Text = edreader.Adodc1.Recordset.Fields("登记日期") & ""Text1(0).Enabled = FalseElse '添加操作Text1(5).Text = DateEnd IfEnd SubPrivate Sub Form_Activate()Adodc1.Refresh '数据源刷新Adodc2.Refresh '数据源刷新DataCombo1.RefreshDataCombo2.RefreshEnd SubPrivate Sub Comm1_Click()If Trim(Text1(0).Text) = "" Or Trim(Text1(1).Text) = "" Or Trim(Text1(5).Text) = "" Or Trim(DataCombo1.Text) = "" ThenMsgBox "加*数据项不能为空,请重新设立", vbOKOnly, "信息提示"Exit SubEnd IfIf flag = 1 Then '添加操作sqltxt = "select * from reader where 借书证号='" + Trim(Text1(0).Text) + "'" '对reader中记录进行判断Set rs = exesql(sqltxt)If rs.RecordCount <> 0 ThenMsgBox "存在相似旳借书证号", vbOKOnly, "信息提示"Text1(0).SetFocusrs.CloseExit SubElsers.CloseEnd Ifedreader.Adodc1.Recordset.AddNewedreader.Adodc1.Recordset.Fields("借书证号") = Trim(Text1(0).Text)edreader.Adodc1.Recordset.Fields("姓名") = Trim(Text1(1).Text)If opt1.Value = True Thenedreader.Adodc1.Recordset.Fields("性别") = "男"Elseedreader.Adodc1.Recordset.Fields("性别") = "女"End Ifedreader.Adodc1.Recordset.Fields("单位") = Trim(DataCombo2.Text)edreader.Adodc1.Recordset.Fields("级别") = Trim(DataCombo1.Text)edreader.Adodc1.Recordset.Fields("过期罚款") = Trim(Text1(2).Text)edreader.Adodc1.Recordset.Fields("借书总数") = Val(Trim(Text1(3).Text))edreader.Adodc1.Recordset.Fields("借书天数") = Val(Trim(Text1(4).Text))edreader.Adodc1.Recordset.Fields("已借书数") = 0edreader.Adodc1.Recordset.Fields("登记日期") = Format(Trim(Text1(5).Text), "yyyy-mm-dd")edreader.Adodc1.Recordset.Updaterecs = recs + 1Else '修改操作edreader.Adodc1.Recordset.Fields("借书证号") = Trim(Text1(0).Text)edreader.Adodc1.Recordset.Fields("姓名") = Trim(Text1(1).Text)If opt1.Value = True Thenedreader.Adodc1.Recordset.Fields("性别") = "男"Elseedreader.Adodc1.Recordset.Fields("性别") = "女"End Ifedreader.Adodc1.Recordset.Fields("单位") = Trim(DataCombo2.Text)edreader.Adodc1.Recordset.Fields("级别") = Trim(DataCombo1.Text)edreader.Adodc1.Recordset.Fields("过期罚款") = Trim(Text1(2).Text)edreader.Adodc1.Recordset.Fields("借书总数") = Val(Trim(Text1(3).Text))edreader.Adodc1.Recordset.Fields("借书天数") = Val(Trim(Text1(4).Text))edreader.Adodc1.Recordset.Fields("登记日期") = Format(Trim(Text1(5).Text), "yyyy-mm-dd")edreader.Adodc1.Recordset.Updateedreader.Adodc1.Recordset.UpdateEnd IfUnload MeEnd SubPrivate Sub Comm2_Click()Unload MeEnd SubPrivate Sub selcom1_Click()edlev.Show vbModalEnd SubPrivate Sub selcom2_Click()tna = "depart"cap = "单位"edrec.Show vbModalEnd SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)Call endata(KeyAscii)End SubPrivate Sub DataCombo1_LostFocus()If Adodc1.Recordset.RecordCount > 0 ThenIf Trim(DataCombo1.Text) <> "" ThenAdodc1.Recordset.MoveFirstAdodc1.Recordset.Find ("级别='" & Trim(DataCombo1.Text) & "'")Text1(2).Text = Adodc1.Recordset.Fields("过期罚款")Text1(3).Text = Adodc1.Recordset.Fields("借书总数")Text1(4).Text = Adodc1.Recordset.Fields("借书天数")End IfElseMsgBox "没有任何级别项可选,请设立", vbOKOnly, "信息提示" End IfEnd SubPrivate Sub DataCombo1_KeyPress(KeyAscii As Integer)Call endata(KeyAscii)End SubPrivate Sub DataCombo2_KeyPress(KeyAscii As Integer)endata (KeyAscii)End SubDim msg As StringPrivate Sub Form_Load()Adodc1.RecordSource = "select * from " + tnaAdodc1.Refreshrecs = Adodc1.Recordset.RecordCountDataGrid1.Columns(0).Caption = capDataGrid1.Columns(0).DataField = "fn"End SubPrivate Sub Form_Activate()Call encommEnd SubPrivate Sub Comm1_Click()flag = 1edrec1.Show vbModalEnd SubPrivate Sub Comm2_Click()flag = 2edrec1.Show vbModalEnd SubPrivate Sub Comm3_Click()If MsgBox("真旳要删除[" + Trim(Adodc1.Recordset.Fields("fn")) + "]吗?", vbYesNo, "信息提示") = vbYes ThenAdodc1.Recordset.Deleterecs = recs - 1Call encommEnd IfEnd SubPrivate Sub Comm4_Click()Adodc1.Recordset.UpdateBatchAdodc1.Recordset.CloseUnload MeEnd SubPrivate Sub encomm()If recs = 0 ThenComm2.Enabled = FalseComm3.Enabled = FalseElseComm2.Enabled = TrueComm3.Enabled = TrueEnd IfEnd SubDim cond As StringPrivate Sub Form_Load()Label1.Caption = capIf flag = 1 ThenText1.Text = ""ElseText1.Text = edrec.Adodc1.Recordset.Fields("fn")End IfEnd SubPrivate Sub Comm1_Click()If Trim(Text1.Text) = "" ThenMsgBox "数据项不能为空,请重新设立", vbOKOnly, "信息提示"Text1.SetFocusExit SubEnd IfIf flag = 1 Then '添加操作If edrec.Adodc1.Recordset.RecordCount > 0 Then '原记录个数大于0cond = "fn='" + Trim(Text1.Text) + "'"edrec.Adodc1.Recordset.MoveFirst '每次从头开始查找edrec.Adodc1.Recordset.Find (cond)If Not edrec.Adodc1.Recordset.EOF() ThenMsgBox "存在完全相似旳记录", vbOKOnly, "信息提示"Text1.SetFocusExit SubEnd IfEnd Ifedrec.Adodc1.Recordset.AddNewedrec.Adodc1.Recordset.Fields("fn") = Trim(Text1.Text)edrec.Adodc1.Recordset.Updaterecs = recs + 1Else '修改操作n = edrec.Adodc1.Recordset.AbsolutePositioncond = "fn='" + Trim(Text1.Text) + "'"edrec.Adodc1.Recordset.MoveFirst '每次从头开始查找edrec.Adodc1.Recordset.Find (cond)If Not edrec.Adodc1.Recordset.EOF() And edrec.Adodc1.Recordset.AbsolutePosition <> n ThenMsgBox "存在完全相似旳记录", vbOKOnly, "信息提示"edrec.Adodc1.Recordset.MoveFirst '这两个语句恢复原记录位置edrec.Adodc1.Recordset.Move (n - 1)Text1.SetFocusExit SubEnd Ifedrec.Adodc1.Recordset.MoveFirst '这两个语句恢复原记录位置edrec.Adodc1.Recordset.Move (n - 1)edrec.Adodc1.Recordset.Fields("fn") = Trim(Text1.Text)edrec.Adodc1.Recordset.UpdateEnd IfUnload MeEnd SubPrivate Sub Comm2_Click()Unload MeEnd SubMenu：Private Sub MDIForm_Load()If Not userlevel = "系统管理员" Thenmenu21.Enabled = Falsemenu31.Enabled = Falsemenu41.Enabled = Falsemenu42.Enabled = FalseEnd IfEnd SubPrivate Sub menu11_Click()borbook.Show vbModalEnd SubPrivate Sub menu12_Click()retbook.Show vbModalEnd SubPrivate Sub menu13_Click()EndEnd SubPrivate Sub menu21_Click()edbook.Show vbModalEnd SubPrivate Sub menu22_Click()qubook.Show vbModalEnd SubPrivate Sub menu31_Click()edreader.Show vbModalEnd SubPrivate Sub menu32_Click()qureader.Show vbModalEnd SubPrivate Sub menu41_Click()setuser.Show vbModalEnd SubPrivate Sub menu42_Click()If MsgBox("本功能要清除系统中所有数据,真旳初始化吗?", vbYesNo, "确认初始化操作")= vbYes ThenCall deldata("book")Call deldata("reader")Call deldata("borrow")Call deldata("rlevel")Call deldata("depart")Call deldata("press")Call deldata("oper")MsgBox "系统初始化完毕,下次只能以1234/1234(顾客名/口令)进入本系统", vbOKOnly, "信息提示"End IfEnd SubPass：Public n As IntegerPrivate Sub Command1_Click()Dim mrc As ADODB.Recordsettxtsql = "select * from oper where 顾客名='" & _Trim$(Text1(0).Text) & "'" & " And 口令= '" & Trim$(Text1(1).Text) + "'"Set mrc = exesql(txtsql)If mrc.RecordCount = 0 Then '未找到顾客记录n = n + 1If n < 3 ThenMsgBox "没有这个顾客,继续登录", vbOKOnly + vbExclamation, "信息提示"Text1(0).Text = ""Text1(1).Text = ""Text1(0).SetFocusElseMsgBox "已登录失败三次,退出系统", vbOKOnly + vbExclamation, "信息提示"mrc.CloseUnload MeEnd IfElse '找到合法顾客记录userlevel = Trim(mrc.Fields("级别"))mrc.CloseUnload Memenu.Show '调用menu窗体End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()n = 0 'n保存登录旳次数End SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)Call endata(KeyAscii)End SubQubook：Private Sub Comm1_Click()Dim sqltxt As StringIf Adodc1.Recordset.Fields("借否") = "借" Thenno = Trim(Adodc1.Recordset.Fields("图书编号"))sqltxt = "select * from borrow where 图书编号='" + no + "'"Set rs = exesql(sqltxt)If rs.RecordCount = 0 ThenMsgBox "该图书没有借书记录", vbOKOnly, "信息提示"ElseMsgBox "图书编号:" + no + Chr(10) + Chr(13) + _"书名:" + Trim(rs.Fields("书名")) + Chr(10) + Chr(13) + _"借书人:" + Trim(rs.Fields("姓名")) + Chr(10) + Chr(13) + _"单位:" + Trim(rs.Fields("单位")) + Chr(10) + Chr(13) + _"借书日期:" + Format(rs.Fields("借书日期"), "yyyy.mm.dd"), vbOKOnly, "查找成果"End Ifrs.CloseElseMsgBox "该书没有外借,不能显示借书人", vbOKOnly, "信息提示"End IfEnd SubPrivate Sub Comm2_Click()Unload MeEnd SubPrivate Sub Form_Activate()Adodc1.RefreshDataGrid1.RefreshDataGrid1.SetFocusCall encommEnd SubPrivate Sub selcmd1_Click() '设立条件拟定Dim str As Stringstr = "" '条件体现式If Trim(Text1(0).Text) <> "" ThenIf str = "" Thenstr = "图书编号='" + Trim(Text1(0).Text) + "'"Elsestr = str + " and 图书编号='" + Trim(Text1(0).Text) + "'"End IfEnd IfIf Trim(Text1(1).Text) <> "" ThenIf str = "" Thenstr = "书名='" + Trim(Text1(1).Text) + "'"Elsestr = str + " and 书名='" + Trim(Text1(1).Text) + "'"End IfEnd IfIf Trim(Text1(2).Text) <> "" ThenIf str = "" Thenstr = "作者='" + Trim(Text1(2).Text) + "'"Elsestr = str + " and 作者='" + Trim(Text1(2).Text) + "'"End IfEnd IfIf Trim(Text1(3).Text) <> "" ThenIf str = "" Thenstr = "出版社='" + Trim(Text1(3).Text) + "'"Elsestr = str + " and 出版社='" + Trim(Text1(3).Text) + "'"End IfEnd IfIf Trim(Text1(4).Text) <> "" ThenIf str = "" Thenstr = "借否='" + Trim(Text1(4).Text) + "'"Elsestr = str + " and 借否='" + Trim(Text1(4).Text) + "'"End IfEnd IfIf Trim(Text1(5).Text) <> "" ThenIf str = "" Thenstr = "定价=" + Trim(Text1(5).Text)Elsestr = str + " and 定价=" + Trim(Text1(5).Text)End IfEnd IfIf str <> "" ThenAdodc1.RecordSource = "select * from book where " + strAdodc1.RefreshElseAdodc1.RecordSource = "select * from book"Adodc1.RefreshEnd IfIf Adodc1.Recordset.RecordCount = 0 ThenMsgBox "没有任何满足条件旳记录", vbOKOnly, "信息提示"。
基于ASPACCESS的学生信息管理系统源代码及全套资料
基于ASPACCESS的学生信息管理系统源代码及全套资料1摘要随着科学技术的发展，计算机领域不断取得新的研究成果。
并不断地代替和延伸脑力劳动方面发挥越来越重要的作用，无论是工业还是日常生活都越来越离不开计算机，尤其是在学校里，随着不同高校的的不断扩大和招生人数的不断增加，要处理大量的学生数据信息显得尤为的重要。
学生的信息管理是学校工作中一项重要的内容。
本系统论文主要是管理学生的资料。
重点介绍其功能：信息添加、信息修改、信息的删除及信息查询。
使用进行静态页面设计 ,应用 A S P 程序进行后台管理操作，并用 A ccess 进行后台数据库的连接设计。
主要是以四大功能进行系统的设计和实现。
关键词： Dreamw eaver M X 系统站点设计 A S P A ccess 数据库1 .1 开发工具的介绍1 . 1 . 1 AS PASP （ Ac t i ve Se ve r Pa g e s 动态网页）是微软公司推出的一种用以取代 CGI ( Common Ga t e wa y I nt e r f a c e ) 技术。
目前， I nt e r ne t 上的许多基于Wi ndows 平台的 We b 站点已开始应用 ASP 来替换 CGI 。
ASP 是在服务器端脚本编译环境，使用它可以创建和运行动态、交互的 We b 服务器应用程序。
ASP 可以与 HTML 页、脚本命令和 Ac t i ve X 组件组合创建交互的We b 页和基于 We b 的功能强大的应用程序。
ASP 应用程序很容易开发和修改。
ASP 是一个位于服务器端的脚本运行环境。
通过这种环境，用户可以创建和运行动态的交互式 We b 服务器应用程序，如交互式动态网页，包括使用 HTML 表单收集和处理信息、上传与下载等。
通常情况下，用户通过浏览器看到的网页大多是静态的，目前 I nt e r ne t 上的许多站点，仍然提供“静态”（ s t a t i c ）的主页内容。
VB第六章 构建宿舍管理系统项目主窗体
任务6.2 了解项目使用的数据库
6.2.2 数据内容
任务6.3 建立Windows应用程序
1.启动VS 2010集成开发环境。
2.在“起始页”页面上，单击创建栏中的“项目”链接，打开“新建 项目”对话框。
3.在“新建项目”对话框中，选中左侧列表中的“Visaul Basic”， 然后在“模板”列表中选中“Windows窗体应用程序”选项。 4.在“名称”文本框中，输入项目的名称 “宿舍管理系统”，然后 选择项目保存的位置，最后，单击“确定”按钮。项目建立完毕。
任务6.5 使用窗体控件
6.5.2 使用工具条控件
现43..在按选我如照中们果上添开要面加始将的的为添方Bu宿加法tt为舍好on管的工按理工具钮栏系 具，统 条添在的 项加属其主 转性他窗 换窗体 成工口具添 其中按加 他，一 形钮将。个 式Na工 ，me具 可属栏 以性： 右设击置这为个项， 在“快ts捷bt菜nA单dd中Us选er择”“，转并换分为别”设命置令Te，xt就属可性以和转Im换ag成e属其性他，的然形后式将。 1D.i将sp工la具yS箱ty中le的属T性oo设lS置tr为ip“控I件ma拖ge拽An到dT主ex窗t”体，Ma最in后中将。 TextImageRelation属性设置为“ImageBeforeText”(图片在文字前面 2).。选T中ex组tI件ma栏ge中Re新la出ti现on的属M性en设uS置tr效ip果控如件图，所在示工。具栏编辑条中选择 “Button”选项，为工具栏添加一个Button按钮。
将窗体设置为MDI父窗体，IsMdiContainer属性设置为“True”时，窗 体为MDI父窗ቤተ መጻሕፍቲ ባይዱ（其背景色默认为深灰色）。
任务6.4 建立MDI窗体
学生信息管理系统(详细步骤)
目录前言．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．2第一章编程环境基础知识．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．31.1ASP的特点．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．31.2程序使用的对象及其属性和方法．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．51.3Web服务器的选择．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．61.4IIS简介．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．7 第二章需求分析．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．7 2．1功能需求．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．7 2．2性能需求．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．7 第三章总体设计．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．72.1 系统功能分析．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．72.2 系统功能模块划分．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．102.3 系统结构设计图．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．16 第四章详细设计．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．17 4．1 模块详细设计．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．17结束语．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．44参考文献．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．44前言今天的中国已经加入了WTO，利用计算机进行现代化管理已经接近于普及。
基于VB6.0的学生公寓管理系统的实现
（ ）系统设 置 。包括用户 管理 、公寓设置 、数据 １
备 份 、数 据 转 换 和 退 出 ：
（ ）公寓管 理 。包括学生请假 、学生违规 和床位 ２
图 １ 系统 的 总体 功能 结构
作者 简介 ： 霞（９ ７ ）女 ， 士 ， 师 ， 究方 向： 李菊 １７ 一 ， 硕 讲 研 计算机 应用 技术 。
・
信 息 资 源 建设 与管 理 ・
农 业 网 络信 息
ＡＧＲｒ ｃ观 见 Ｎ ＷＯＲＫ 砸１ ＥＴ ＤＲＭＡ ０ｌ 刀－Ⅳ
２１ ０ １年 第 １ ０期
基 于 Ｖ ６０的学生公 寓管理 系统 的实现 Ｂ．
李菊霞
（ 山西农 业 大学信 息科 学 与工 程学 院 ，山西 太谷 ０ ００ ） ３８ １
的可修改性 、可扩展性 ） 。
物 品 ，在其子 系统 中又有卫 生评定及统计 和设备 报修 及统计 ： （ ）记 录查 看及 删 除 。包括 对 卫 生 、请 假 、违 ４ 规 、资产 的查询及 修改与删除 ； （ ）值 班记 录及 帮助 。包 括每 日一 记和关 于系统 ５
的使 用 。
摘
要 ：学生公 寓管理 系统是 以高校 的公 寓管理 方 式为例 设计 的 一种 实用 型管 理 系统 ，其 目的是 实现 学生公 寓管理 工作
的信 息化 ，提 高公 寓管 理 的工作 效率 。
关键 词 ：Ｖ ６ ；公 寓管 理 ；信 息 管理 Ｂ． ０ 中图 分类 号 ：Ｔ ３２ Ｐ ９ 文献 标识 码 ：Ａ 文章 编码 ：１７ —２ １２ １ ）０ ０３— ５ ６２ ６ ５（０ １１—０ ６ ０
的 总 体 功 能 结 构［ 如 图 １ 示 。 ２ １ ， 所 系 统 主 要 功 能 包 括［ ３ １ ：
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB学生信息管理系统及源代码 Option Explicit '标识是否能关闭 Dim mbClose As Boolean
'标识当前要显示的照片的文件 Dim mstrFileName As String Private Sub Form_Load() On Error Resume Next If frmMain.mnUserType = 1 Then '学生用户 fraSeek.Enabled = False fraBrowse.Enabled = False cmdAdd.Enabled = False cmdDelete.Enabled = False txtSerial.Enabled = False dcbClass.Enabled = False grdScan.Enabled = False If Not (DataEnv.rsStudent.EOF And DataEnv.rsStudent.BOF) Then Dim Temp As String Temp = "name = " & "'" & frmMain.msUserName & "'" DataEnv.rsStudent.MoveFirst DataEnv.rsStudent.Find Temp '刷新所绑定的控件 Call RefreshBinding End If Exit Sub Else fraSeek.Enabled = True fraBrowse.Enabled = True cmdAdd.Enabled = True cmdDelete.Enabled = True txtSerial.Enabled = True dcbClass.Enabled = True grdScan.Enabled = True End If Dim rsDep As New ADODB.Recordset, rsClass As New ADODB.Recordset Set rsDep = DataEnv.rsDepartment Set rsClass = DataEnv.rsClass rsDep.Open '从Department表中读取数据，填充cboDep组合框到中 cboDep.Clear cboDep.AddItem "全部" '将各个系的id号作为ItemData附加到组合框中 cboDep.ItemData(0) = 0 While Not rsDep.EOF cboDep.AddItem rsDep("Name") cboDep.ItemData(cboDep.ListCount - 1) = rsDep("id") rsDep.MoveNext Wend cboDep.ListIndex = 0 ''从class表中读取数据，填充到cboClass组合框中 cboClass.Clear cboClass.AddItem "全部" While Not rsClass.EOF cboClass.AddItem rsClass("Name") rsClass.MoveNext Wend cboClass.ListIndex = 0 cmdList.Value = True fraManage.Enabled = True mbClose = True '调用grdScan_Change事件显示记录明细 Call grdScan_Change End Sub '当DataEnv.rsStudent的当前记录发生变化时，刷新所绑定的控件(用户改变了当前记录) Sub RefreshBinding() On Error Resume Next With DataEnv.rsStudent If DataEnv.rssqlSeek.BOF And DataEnv.rssqlSeek.EOF Then '如果不存在任何记录，则清空所有的绑定的内容 txtSerial = "" txtName = "" dtpBirth.Value = "" txtTelephone = "" txtAddress = "" txtResume = "" imgPhoto.Picture = LoadPicture(Null) Else '否则和相应的字段进行绑定 txtSerial = .Fields("serial") txtName = .Fields("name") dtpBirth.Value = .Fields("birthday") txtTelephone = .Fields("tel") txtAddress = .Fields("address") txtResume = .Fields("resume") cboSex.Text = .Fields("sex") dcbClass.Text = .Fields("class") imgPhoto.Picture = LoadPicture(ReadImage(.Fields("photo"))) End If End With End Sub
''在DataEnv.rsStudent中查询serial为sSerial的学籍信息 Sub SeekStudent(sSerial As String) If Not (DataEnv.rsStudent.EOF And DataEnv.rsStudent.BOF) Then Dim Temp As String Temp = "serial = " & "'" & sSerial & "'"
DataEnv.rsStudent.MoveFirst DataEnv.rsStudent.Find Temp
'刷新所绑定的控件 Call RefreshBinding End If End Sub
''当改变记录集时，需要刷新用户导航的网格控件 Sub RefreshGrid() grdScan.DataMember = "" grdScan.Refresh DataEnv.rssqlSeek.Requery grdScan.DataMember = "sqlSeek" grdScan.Refresh
'刷新各个绑定控件 Call grdScan_Change End Sub
''用以在浏览时，根据当前记录所出的位置不同，来改变各个浏览按钮的状态 Sub ChangeBrowseState() With DataEnv.rssqlSeek If .State = adStateClosed Then .Open '如果没有任何记录，使某些按钮无效；否则则使这些按钮有效 If .BOF And .EOF Then cmdAdd.Enabled = True cmdEdit.Enabled = False cmdDelete.Enabled = False cmdUpdate.Enabled = False cmdReport.Enabled = False fraBrowse.Enabled = False Else cmdAdd.Enabled = True cmdEdit.Enabled = True cmdDelete.Enabled = True cmdUpdate.Enabled = False cmdReport.Enabled = True fraBrowse.Enabled = True End If ''假如处于记录的头部 If .BOF Then If Not .EOF Then DataEnv.rsStudent.MoveFirst cmdPrevious.Enabled = False cmdFirst.Enabled = False Else cmdPrevious.Enabled = True cmdFirst.Enabled = True End If ''假如处于记录的尾部 If .EOF Then If Not .BOF Then DataEnv.rsStudent.MoveLast cmdNext.Enabled = False cmdLast.Enabled = False Else cmdNext.Enabled = True cmdLast.Enabled = True End If End With mstrFileName = "" End Sub
Private Sub cboDep_Click() Dim rsClass As New ADODB.Recordset Dim strSQL '根据所选的系的不同，采用不同的SQL语句 If cboDep.ItemData(cboDep.ListIndex) = 0 Then strSQL = "select * from 班级信息表" Else strSQL = "select * from 班级信息表 where dept_id=" & cboDep.ItemData(cboDep.ListIndex) End If rsClass.Open strSQL, DataEnv.Con '将所查到的rsClass中的内容来填充cboClass cboClass.Clear cboClass.AddItem "全部" While Not rsClass.EOF cboClass.AddItem rsClass("Name") rsClass.MoveNext Wend cboClass.ListIndex = 0
rsClass.Close Set rsClass = Nothing End Sub
Private Sub cmdAdd_Click() '添加记录 fraSeek.Enabled = False fraBrowse.Enabled = False grdScan.Enabled = False DataEnv.rsStudent.AddNew dtpBirth.Value = "1980-01-01" fraInfo.Enabled = True fraBrowse.Enabled = False cmdAdd.Enabled = False cmdEdit.Enabled = False cmdDelete.Enabled = False