VB课程设计报告.docx
《VB课程设计报告.docx》由会员分享，可在线阅读，更多相关《VB课程设计报告.docx（13页珍藏版）》请在冰豆网上搜索。
VB课程设计报告
VB学生管理系统课程设计报告
班级：
************
姓名：
************
学号：
************
专业：
************
指导老师：
********
一课程设计目的
课程设计为学生提供一个及动手又动脑，独立实践的机会，将课本上的VB理论知识和实践有机的结合起来。
锻炼学生的分析解决实际问题的能力。
提高用VB编程实现具体问题的能力。
通过课程设计,培养综合运用本门课程及有关先修课程的基本知识去解决某一实际问题的实际本领,加深对该课程知识的理解。
主要培养以下能力:
查阅资料，自学，理论结合实际。
二课程设计题目
利用VB语言设计一个学生管理系统，登陆系统后，学生可以自由查询学生信息，但是不能作更改等操作。
管理员通过输入管理员密码后根据提示可以对学生信息作添加、删除、修改等操作。
要求退出系统后能保存信息。
三设计思路
首先设计一个登陆窗体，能够输入用户名和密码，用户名或密码错误则弹出错误对话框，并且让用户从新输入用户名和密码。
输入正确后，关闭本窗体，打开新的操作窗体，能够区分只进行查找操作还是进行其他操作，并区分是否有权限进行相应的操作。
能够直接输入学号，并跳转到主要操作窗体进行查找操作。
选择其他操作则需要输入管理员密码。
管理员权限下，可以进行查找、修改、删除、添加学生信息等操作。
流程图如下：
否
是
否
是
是
四窗口显示
输入密码错误：
登入系统后：
输入学号直接查询：
如果需要其他操作：
在次输入密码后多出来各个选项：
修改信息：
五代码实现
1登入系统代码
Publicpwd
PrivateSubCommand1_Click（）
pwd=Text2.Text
IfText1.Text="caijv"Then
IfText2.Text="123456"Then
UnloadForm1
Form2.Show
Else
MsgBox"密码错误！
"
EndIf
ElseIfzhuce=1Then
UnloadForm1’关闭窗体1，打开窗体2
Form2.Show
Else
MsgBox"您输入的用户名或密码不正确！
"&vbNewLine&"或者网络连接失败。
"
EndIf
EndSub
PrivateSubCommand2_Click（）
End
EndSub
PrivateSubForm_Load（）
zhuce=0
EndSub
PrivateSubLabel3_Click（）
MsgBox"现在不开放注册！
"
EndSub
2查找或选择其他操作代码实现
PrivateSubCommand1_Click（）
win=1
num=Text1.Text
UnloadForm2
Form3.Show
EndSub
PrivateSubCommand2_Click（）
pwd=InputBox（"请再次输入登录密码：
",s）
Ifpwd=Form1.pwdThen
win=2
UnloadForm2
Form3.Show
Else
MsgBox"密码错误！
"
EndIf
EndSub
3查找信息代码
PrivateSubCommand4_Click（）
OnErrorResumeNext
Dimi,j
j=0
IfText1.Text=""Then
Else
num=Text1.Text
EndIf
da=Split（a,""）
Fori=0To10
Ifda（5*i+0）=numThen
Text1.Text=da（5*i+0）
Text2.Text=da（5*i+1）
Text3.Text=da（5*i+2）
Text4.Text=da（5*i+3）
Text5.Text=da（5*i+4）
j=1
EndIf
Nexti
Ifj=0Then
MsgBox"未找到学号为：
"&Text1.Text&"的同学！
"
EndIf
EndSub
4删除学生信息代码：
PrivateSubCommand2_Click（）
OnErrorResumeNext
IfText1.Text<>""Then
s=InputBox（"删除本学生信息？
Y/N",s）
Ifs="y"Then
OpenApp.Path&"/data.txt"ForInputAs#1
DoWhileNotEOF
（1）
LineInput#1,sline
's=s&sline&vbCrLf
a=a&sline&""
Loop
Close#1
da=Split（a,""）
Fori=0To10
Ifda（5*i+0）=Text1.TextThen
da（5*i+0）=""
da（5*i+1）=""
da（5*i+2）=""
da（5*i+3）=""
da（5*i+4）=""
EndIf
Nexti
OpenApp.Path&"/data.txt"ForOutputAs#1
Fori=0To50
Print#1,da（i）
Nexti
Close#1
EndIf
Else
MsgBox"请输入信息！
"
EndIf
EndSub
5添加学生信息
PrivateSubCommand1_Click（）
IfText1.Text=""Then
MsgBox"请输入信息！
"
Else
s=InputBox（"你将要保存数据？
Y/N",s）
Ifs="y"Then
OpenApp.Path&"/data.txt"ForAppendAs#1
Print#1,Text1.Text&""&Text2.Text&""&Text3.Text&""&Text4.Text&""&Text5.Text
Close#1
MsgBox"保存成功，重启系统后显示"
EndIf
EndIf
EndSub
6数据文档（data.txt）
10001秦佳网络工程610100
10002颜网络工程61060
10003呵呵是么######收到
六程序使用介绍
本程序使用了一个data.txt文本文档作为数据储存文件，添加删除操作都由这个文本文档完成记录。
遇到BUG，添加数据信息后需要重启才能完美读取数据并运行，否则查询不到。
七附件
请点击：
我的主页
在下载资源中寻找资料
升级会员 