管理系统的系统登录.docx
《管理系统的系统登录.docx》由会员分享，可在线阅读，更多相关《管理系统的系统登录.docx（10页珍藏版）》请在冰豆网上搜索。
管理系统的系统登录
管理系统的系统登录
一、课程设计题目
管理系统的系统登录
二、课程设计时间地点
时间：
第18周星期一、星期四、星期五5至6节及星期二9至12节
三、课程设计目的
1、掌握VB进行应用程序设计的初步知识.
2、掌握VisualBasic的常用内部控件的使用.
3、了解VisualBasic语言中的数据类型,常量,变量,运算符,表达试和常用内部函数以及他们的使用.
4、学会使用If……Else和SelectCase语句执行分支选择,掌握循环语句的用法
5、掌握控件的常用属性和事件
6、了解过程,变量的作用域及它们的使用,变量的生存期,过程的强调等等
7、掌握如何在应用程序窗体上创建菜单,对话框以及多文档界面等.
8、掌握如何利用可视化数据管理器创建数据库,查询以及如何在应用程序中实现Access数据库的连接和访问等等.
四、课程设计内容及要求
要求能设计一个用户名和密码的简单的数据库，通过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=""Then
MsgBox"请输入密码！
"
Text2.SetFocus
ExitSub
EndIf
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&"'"
IfData1.Recordset.NoMatchThen
MsgBox"密码错误",vbOKOnly+vbCritical,"错误"
Text2.SetFocus
Else
Form1.Hide
Form2.Show
EndIf
EndIf
EndSub
PrivateSubCommand2_Click（）
End
EndSub
PrivateSubCommand3_Click（）
Form3.Show
EndSub
PrivateSubForm_Load（）
EndSub
2.点击“工程”，选择“添加窗体”，生成Form2,添加各功能控件，设计形成如下页面：
本页面实现代码功能代码如下：
PrivateSubCommand1_Click（）
Data1.Recordset.MoveFirst
Command2.Enabled=False
IfCommand3.Enabled=FalseThen
Command3.Enabled=True
EndIf
EndSub
PrivateSubCommand2_Click（）
Data1.Recordset.MovePrevious
IfData1.Recordset.BOFThen
Data1.Recordset.MoveFirst
Command2.Enabled=False
EndIf
EndSub
PrivateSubCommand3_Click（）
Data1.Recordset.MoveNext
IfData1.Recordset.EOFThen
Data1.Recordset.MoveLast
Command3.Enabled=False
EndIf
IfCommand2.Enabled=FalseThen
Command2.Enabled=True
EndIf
EndSub
PrivateSubCommand4_Click（）
Data1.Recordset.MoveLast
Command3.Enabled=False
IfCommand2.Enabled=FalseThen
Command2.Enabled=True
EndIf
EndSub
PrivateSubCommand5_Click（）
OnErrorResumeNext
IfCommand5.Caption="添加"Then
Command5.Caption="确认":
Data1.Recordset.AddNew:
Text1.SetFocus
Else
Command5.Caption="添加":
Data1.Recordset.MoveLast
EndIf
EndSub
PrivateSubCommand6_Click（）
'OnErrorResumeNext
YS=MsgBox（"真的要删除吗?
",vbYesNo,"删除该记录"）
IfYS=vbYesThen
Data1.Recordset.Delete
Data1.Recordset.MoveNext
IfData1.Recordset.EOFThen
Data1.Recordset.MoveLast
EndIf
EndIf
EndSub
PrivateSubCommand7_Click（）
OnErrorResumeNext
IfCommand7.Caption="修改"Then
Command7.Caption="确认"
Data1.Recordset.Edit
Text1.SetFocus
Else
Command7.Caption="修改"
Data1.Recordset.Update
EndIf
EndSub
PrivateSubCommand8_Click（）
DimsnameAsString
OnErrorResumeNext
sname=InputBox（"请输入要查找的用户名","按用户名查找"）
Data1.Recordset.FindFirst"用户名="&"'"&sname&"'"
IfData1.Recordset.NoMatchThen
MsgBox"没有这个用户名!
"
EndIf
EndSub
PrivateSubForm_Load（）
EndSub
3.点击“工程”，选择“添加窗体”，生成Form3,添加各功能控件，设计形成如下页面：
本页面实现代码功能代码如下：
PrivateSubCommand1_Click（）
IfText1.Text=""Then
MsgBox"请输入用户名"
Text1.SetFocus
ExitSub
EndIf
IfText2.Text=Text3.TextThen
Form1.Data1.Recordset.FindFirst"用户名='"&Text1.Text&"'"
IfForm1.Data1.Recordset.NoMatchThen
Form1.Data1.Recordset.AddNew
Form1.Data1.Recordset.Fields（"用户名"）=Text1.Text
Form1.Data1.Recordset.Fields（"密码"）=Text2.Text
Form1.Data1.Recordset.Update
MsgBox"用户密码已添加成功"
UnloadMe
Else
Form1.Data1.Recordset.Edit
Form1.Data1.Recordset.Fields（"用户名"）=Text1.Text
Form1.Data1.Recordset.Fields（"密码"）=Text2.Text
Form1.Data1.Recordset.Update
MsgBox"用户密码已修改成功"
UnloadMe
EndIf
Else
MsgBox"两次输入不同,请重新输入"
Text3.SetFocus
EndIf
IfText3.Text=""Then
ExitSub
EndIf
IfCombo1.Text=""Then
MsgBox"请选择年龄"
Combo1.SetFocus
ExitSub
IfText4.Text=""Then
MsgBox"请输入爱好"
Text4.SetFocus
ExitSub
EndIf
EndIf
EndSub
PrivateSubCommand2_Click（）
Text1.Text=""
Text2.Text=""
Text3.Text=""
Combo1.Text=""
Text4.Text=""
Text5.Text=""
EndSub
PrivateSubCommand3_Click（）
Form1.Show
Form3.Hide
EndSub
PrivateSubForm_Load（）
EndSub
4.运行本系统，各功能实现，没有出现错误。
5.点击窗口中的“文件”选项，选择“保存工程。
”
七、课程设计心得
这次的课程设计可以说是我做的最认真的一次设计，因为时间比较宽裕，参阅了好几本参考书，但是在实践中出现好多错误，后来经过同学的帮忙，才做出一个能实现很少功能的系统，页面做的也不够漂亮。
而后来的改善，我做出很多努力，用自己并不全面的知识，花费了很多时间，遇到挺多错误，让我一度很困扰和挫败，但看着系统功能一步步完善，页面越来越来越漂亮，觉得特别有成就感。
通过自己能力完成一次课程设计，也让我在我的专业学习方面增加了自信，当然也可以肯定下我这学期学习vb的态度，我还是很认真的，在此也谢谢老师平时的教导，我以后会多加努力的，谢谢！
纪萍萍
081225
升级会员 