校园网客户端查询系统文档格式.docx
- 文档编号:17192239
- 上传时间:2022-11-28
- 格式:DOCX
- 页数:12
- 大小:148.54KB
校园网客户端查询系统文档格式.docx
《校园网客户端查询系统文档格式.docx》由会员分享,可在线阅读,更多相关《校园网客户端查询系统文档格式.docx(12页珍藏版)》请在冰豆网上搜索。
默认
——
Picture=(Bitmap)
Lable1
校园网信息查询系统
Alignment=2Backstyle=0Font=一号粗体ForeColor=黑
Lable2
账号:
Alignment=2Backstyle=0
Font=四号粗体
Lable3
密码:
Alignment=2Backstyle=0Font=四号粗体
Text1
空白
Maxlength=6
Text2
Maxlength=4PasswordChar="
*"
Command1
管理员入口
Command2
学生入口
Command3
游客入口
Form2,Form3,Form4类似,故以Form2为例
Form2
管理员窗口
选择查看内容
Alignment=2Backstyle=0Font=二号粗体
List1
返回登录
结束
Form5,Form6,Form8,Form9,Form10,Form11类似,以Form5为例
名称
Caption
Data1
学生个人信息
DatabaseName=db1.mdbRecordSource=表1
学号:
Alignment=2Backstyle=0Font=四号粗体
学生姓名:
专业(班级):
Lable4
宿舍:
Lable5
校园网端口:
DataField=学号DataSource=Data1
DataField=学生姓名DataSource=Data1
Text3
DataField=专业(班级)DataSource=Data1
Text4
DataField=宿舍DataSource=Data1
Text5
DataField=校园网端口DataSource=Data1
5)程序代码编写
①Form1的代码编写
PrivateSubtext1_Change()
IfNotIsNumeric(Text1)Then
MsgBox"
账号有非数字字符,请重新输入"
vbExclamation,"
账号有误"
Text1.Text="
"
Text1.SetFocus
EndIf
EndSub
PrivateSubCommand3_Click()
IfText2.Text<
>
"
Then
i=MsgBox("
无需密码,请清空密码输入"
5+vbExclamation,"
密码错误"
)
Ifi=4Then
Text2.Text="
Text2.SetFocus
Else
End
欢迎使用本系统!
vbOKCancel,"
游客入口"
Ifi=1Then
Form4.Show
Form1.Hide
②Form2,Form3,Form4的代码编写类似,故以Form2为例
PrivateSubCommand1_Click()
Form2.Hide
Form1.Show
PrivateSubCommand2_Click()
End
PrivateSubForm_Load()
List1.AddItem"
学生个人信息管理"
校园网端口余额管理"
校园网公告修改"
PrivateSubList1_DblClick()
SelectCaseList1.ListIndex
Case0
Form5.Show
Case1
Form6.Show
Case2
Form8.Show
EndSelect
③Form5,Form6,Form8的代码编写类似,故以Form5为例
OptionExplicit
DimkAsInteger
DimmAsString
Data1.Recordset.MovePrevious
IfData1.Recordset.BOFThen
Data1.Recordset.MoveFirst
EndIf
Text1.Text=Data1.Recordset.Fields("
学号"
Text2.Text=Data1.Recordset.Fields("
学生姓名"
Text3.Text=Data1.Recordset.Fields("
专业(班级)"
Text4.Text=Data1.Recordset.Fields("
宿舍"
Text5.Text=Data1.Recordset.Fields("
端口"
Data1.Recordset.MoveNext
IfData1.Recordset.EOFThen
Data1.Recordset.MoveLast
IfMsgBox("
确认需要修改吗?
vbYesNo)=vbYesThen
Data1.Recordset.Update
MsgBox"
修改成功!
PrivateSubCommand4_Click()
Data1.Recordset.AddNew
k=k+1
Ifk=1Then
Text1.Text="
Text2.Text="
Text3.Text="
Text4.Text="
Text5.Text="
Text1.SetFocus
ElseIfk=2Then
Data1.Recordset.Fields("
)=Text1.Text
Data1.Recordset.Fields("
)=Text2.Text
)=Text3.Text
)=Text4.Text
)=Text5.Text
Data1.Refresh
添加成功!
k=0
PrivateSubCommand5_Click()
确认删除吗?
vbYesNo,"
提示"
)=vbYesThen
Data1.Recordset.Delete
PrivateSubCommand6_Click()
m=InputBox("
请输入你要找的学号"
"
Data1.Recordset.FindFirst"
学号='
&
m&
'
IfData1.Recordset.NoMatchThen
对不起,没有找到你要找的人!
,"
Else
PrivateSubCommand7_Click()
Form5.Hide
Form2.Show
④Form9,Form10,Form11,类似,故以Form9为例
Form9.Hide
Form3.Show
公告"
内容"
6)程序演示
程序运行过程简介
在登录界面(Form1)的密码框中输入正确的密码可分别进入管理员,学生,游客,访客三个不同的界面。
⑴管理员入口(Form2)→学生个人信息管理(Form5)、端口余额管理(Form6)或校园网公告修改(Form8)
⑵学生入口(Form3)→校园网公告(Form9)或校园网余额查询(Form10)
⑶游客入口(Form4)→校园网公告(Form11)或校园网收费查询(弹窗)
现以较复杂的登录界面(Form1)→管理员入口(Form4)→增减学生个人信息(Form5)为例进行程序演示
运行程序,会有这样的一个登录界面(Form1),输入账号(数字字符)和密码(1111)
则会弹出下面的信息框
注:
若输入的学号有非数字的字符,则弹出左上的信息框;
若未输入正确的密码(1111),则会弹出右上的信息框。
按确定进入管理员入口(Form2)
双击列表框中的学生个人信息管理,可进入增减学生个人信息(Form5)
[点击“返回”将会回到登录界面,点击“结束”将会结束运行程序]
使用按钮“上一个”“下一个”可以遍历整个记录集中的记录。
按“添加”按钮可以添加一组新的数据,按“删除”将会直接删除显示的该组数据。
[点击“返回”将会回到管理员入口界面]
7)课程学习与课程设计心得体会
一个学期的VB课即将过去了,回想起一开始拿到VB课本时的感觉,那只有两个字形容——混乱。
课本很厚,然后又一大堆的英文名称,看起来就像看天书一样,不过经过实践后才觉得VB其实挺简单的,或者应该说我们学的VB比较简单,能够比较熟练的进行VB操作和理解代码之后,又觉得挺好玩的。
可惜书上的题目都不算复杂,有时间的话还是想多看点这方面的书。
关于VB的课程设计,个人觉得自己设计得还是简单,没有去网上或图书馆查阅一些资料,所以只能从书上的资料设计了这样的一个程序,设计过程中也收获了不少东西,希望以后有时间能继续改进自己设计出来的这个系统。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 校园网 客户端 查询 系统
![提示](https://static.bdocx.com/images/bang_tan.gif)