管理系统的系统登录Word文档下载推荐.docx
- 文档编号:16425508
- 上传时间:2022-11-23
- 格式:DOCX
- 页数:10
- 大小:420.52KB
管理系统的系统登录Word文档下载推荐.docx
《管理系统的系统登录Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《管理系统的系统登录Word文档下载推荐.docx(10页珍藏版)》请在冰豆网上搜索。
要求能设计一个用户名和密码的简单的数据库,通过VB的数据控件或是ADO技术实现对数据的各种简单操作包括数据的插入、删除、修改和简单查询等操作。
五、数据库的创建、存储内容设计及连接
1.打开VB6.0,选择EXE标准工程。
通过“工程”-“添加窗口”,形成“Form1”、“Form2”、“Form3”,分别添加data控件。
2.
(1)创建数据库
点击“外接程序”选项中的“可视化数据管理器”,出现VisData界面,点击“文件”、“新建”、“MicrosoftAccess”、“Version7.0MDB(7)”,选择保存数据库的地址,数据库名为wjpp.mdb.
(2)数据库的存储内容设计
在数据库窗口,右击“Properties”,选择“新建表”,在跳出的“表结构”窗口的“表名称”中填写wjpp,再点击“添加字段”,填写“名称”为“用户名”,点击“确定”,依此步骤依次在“添加字段”中输入“密码”、“性别”、“年龄”、“爱好”,然后“生成表”,
最后打开wjpp,添加要存储的内容,关闭wjpp.mdb.
(3)数据库的连接
在Form1属性窗口中点击“DatabassName”属性中的“…”,在跳出的窗口中点击“wjpp”,然后打开,把“RecordSource”属性改为“wjpp”,依次操作Form2、Form3,并且把Form2、Form3中创建的5个Command控件:
“用户名”、“密码”、“性别”、“年龄”、“爱好”的“RecordSource”属性改为“data1”,依次选折“DataField”属性为“用户名”、“密码”、“性别”、“年龄”、“爱好”,从而实现数据库的连接。
六、课程设计步骤及页面设计
1.打开vb6.0,使用工具箱中的Label、Text、Command控件画出如下页面:
本页面实现代码功能代码如下:
PublicuserAsString
PublicpasswordAsString
Publictry_timeAsInteger
PrivateSubCommand1_Click()
IfText1.Text="
"
Then
MsgBox"
请输入用户名!
Text1.SetFocus
ExitSub
EndIf
IfText2.Text="
请输入密码!
Text2.SetFocus
Data1.DatabaseName="
E:
\VB课程设计\管理系统.mdb"
Data1.RecordSource="
select*from管理系统"
user=Text1.Text
password=Text2.Text
'
Data1.Refresh
User=Data1.Recordset.Fields("
登陆用户"
)
Password=Data1.Recordset.Fields("
登陆密码"
Data1.Recordset.FindFirst"
用户名='
&
user&
"
'
IfData1.Recordset.NoMatchThen
MsgBox"
用户名错误"
vbOKOnly+vbCritical,"
错误"
Text1.SetFocus
Else
Data1.Recordset.FindFirst"
密码='
password&
密码错误"
Text2.SetFocus
Form1.Hide
Form2.Show
EndIf
EndSub
PrivateSubCommand2_Click()
End
PrivateSubCommand3_Click()
Form3.Show
PrivateSubForm_Load()
2.点击“工程”,选择“添加窗体”,生成Form2,添加各功能控件,设计形成如下页面:
Data1.Recordset.MoveFirst
Command2.Enabled=False
IfCommand3.Enabled=FalseThen
Command3.Enabled=True
Data1.Recordset.MovePrevious
IfData1.Recordset.BOFThen
Data1.Recordset.MoveNext
IfData1.Recordset.EOFThen
Data1.Recordset.MoveLast
Command3.Enabled=False
IfCommand2.Enabled=FalseThen
Command2.Enabled=True
PrivateSubCommand4_Click()
PrivateSubCommand5_Click()
OnErrorResumeNext
IfCommand5.Caption="
添加"
Command5.Caption="
确认"
:
Data1.Recordset.AddNew:
Else
Command5.Caption="
Data1.Recordset.MoveLast
PrivateSubCommand6_Click()
YS=MsgBox("
真的要删除吗?
vbYesNo,"
删除该记录"
IfYS=vbYesThen
Data1.Recordset.Delete
Data1.Recordset.MoveNext
IfData1.Recordset.EOFThen
PrivateSubCommand7_Click()
IfCommand7.Caption="
修改"
Command7.Caption="
Data1.Recordset.Edit
Command7.Caption="
Data1.Recordset.Update
PrivateSubCommand8_Click()
DimsnameAsString
sname=InputBox("
请输入要查找的用户名"
"
按用户名查找"
Data1.Recordset.FindFirst"
用户名="
sname&
IfData1.Recordset.NoMatchThen
没有这个用户名!
3.点击“工程”,选择“添加窗体”,生成Form3,添加各功能控件,设计形成如下页面:
请输入用户名"
ExitSub
IfText2.Text=Text3.TextThen
Form1.Data1.Recordset.FindFirst"
Text1.Text&
IfForm1.Data1.Recordset.NoMatchThen
Form1.Data1.Recordset.AddNew
Form1.Data1.Recordset.Fields("
用户名"
)=Text1.Text
密码"
)=Text2.Text
Form1.Data1.Recordset.Update
用户密码已添加成功"
UnloadMe
Form1.Data1.Recordset.Edit
MsgBox"
用户密码已修改成功"
UnloadMe
EndIf
两次输入不同,请重新输入"
Text3.SetFocus
IfText3.Text="
IfCombo1.Text="
请选择年龄"
Combo1.SetFocus
IfText4.Text="
请输入爱好"
Text4.SetFocus
Text1.Text="
Text2.Text="
Text3.Text="
Combo1.Text="
Text4.Text="
Text5.Text="
Form1.Show
Form3.Hide
4.运行本系统,各功能实现,没有出现错误。
5.点击窗口中的“文件”选项,选择“保存工程。
”
七、课程设计心得
这次的课程设计可以说是我做的最认真的一次设计,因为时间比较宽裕,参阅了好几本参考书,但是在实践中出现好多错误,后来经过同学的帮忙,才做出一个能实现很少功能的系统,页面做的也不够漂亮。
而后来的改善,我做出很多努力,用自己并不全面的知识,花费了很多时间,遇到挺多错误,让我一度很困扰和挫败,但看着系统功能一步步完善,页面越来越来越漂亮,觉得特别有成就感。
通过自己能力完成一次课程设计,也让我在我的专业学习方面增加了自信,当然也可以肯定下我这学期学习vb的态度,我还是很认真的,在此也谢谢老师平时的教导,我以后会多加努力的,谢谢!
纪萍萍
081225
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 管理 系统 登录
![提示](https://static.bdocx.com/images/bang_tan.gif)