管理系统的系统登录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
升级会员 