资源描述:
《管理系统系统登录》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、管理系统的系统登录一、课程设计题目管理系统的系统登录二、课程设计时间地点时间:第18周星期一、星期四、星期五5至6节及星期二9至12节三、课程设计目的1、掌握VB进行应用程序设计的初步知识.2、掌握VisualBasic的常用内部控件的使用.3、了解VisualBasic语言中的数据类型,常量,变量,运算符,表达试和常用内部函数以及他们的使用.4、学会使用If……Else和SelectCase语句执行分支选择,掌握循环语句的用法5、掌握控件的常用属性和事件6、了解过程,变量的作用域及它们的使用,变量的生存期,过程的强调等等7、掌握如何在应用程序窗体上创建菜单,对话框以
2、及多文档界面等.8、掌握如何利用可视化数据管理器创建数据库,查询以及如何在应用程序中实现Access数据库的连接和访问等等.四、课程设计内容及要求要求能设计一个用户名和密码的简单的数据库,通过VB的数据控件或是ADO技术实现对数据的各种简单操作包括数据的插入、删除、修改和简单查询等操作。五、数据库的创建、存储内容设计及连接1.打开VB6.0,选择EXE标准工程。通过“工程”-“添加窗口”,形成“Form1”、“Form2”、“Form3”,分别添加data控件。2.(1)创建数据库点击“外接程序”选项中的“可视化数据管理器”,出现VisData界面,点击“文件”、“新
3、建”、“MicrosoftAccess”、“Version7.0MDB(7)”,选择保存数据库的地址,数据库名为wjpp.mdb.(2)数据库的存储内容设计在数据库窗口,右击“Properties”,选择“新建表”,在跳出的“表结构”窗口的“表名称”中填写wjpp,再点击“添加字段”,填写“名称”为“用户名”,点击“确定”,依此步骤依次在“添加字段”中输入“密码”、“性别”、“年龄”、“爱好”,然后“生成表”,最后打开wjpp,添加要存储的内容,关闭wjpp.mdb.(3)数据库的连接在Form1属性窗口中点击“DatabassName”属性中的“…”,在跳出的窗口中
4、点击“wjpp”,然后打开,把“RecordSource”属性改为“wjpp”,依次操作Form2、Form3,并且把Form2、Form3中创建的5个Command控件:“用户名”、“密码”、“性别”、“年龄”、“爱好”的“RecordSource”属性改为“data1”,依次选折“DataField”属性为“用户名”、“密码”、“性别”、“年龄”、“爱好”,从而实现数据库的连接。六、课程设计步骤及页面设计1.打开vb6.0,使用工具箱中的Label、Text、Command控件画出如下页面:本页面实现代码功能代码如下:PublicuserAsStringPubli
5、cpasswordAsStringPublictry_timeAsIntegerPrivateSubCommand1_Click()IfText1.Text=""ThenMsgBox"请输入用户名!"Text1.SetFocusExitSubEndIfIfText2.Text=""ThenMsgBox"请输入密码!"Text2.SetFocusExitSubEndIfData1.DatabaseName="E:VB课程设计管理系统.mdb"Data1.RecordSource="select*from管理系统"user=Text1.Textpassword=Tex
6、t2.Text'Data1.Refresh'User=Data1.Recordset.Fields("登陆用户")'Password=Data1.Recordset.Fields("登陆密码")Data1.Recordset.FindFirst"用户名='"&user&"'"IfData1.Recordset.NoMatchThenMsgBox"用户名错误",vbOKOnly+vbCritical,"错误"Text1.SetFocusElseData1.Recordset.FindFirst"密码='"&password&"'"IfData1.Recordset.No
7、MatchThenMsgBox"密码错误",vbOKOnly+vbCritical,"错误"Text2.SetFocusElseForm1.HideForm2.ShowEndIfEndIfEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubCommand3_Click()Form3.ShowEndSubPrivateSubForm_Load()EndSub2.点击“工程”,选择“添加窗体”,生成Form2,添加各功能控件,设计形成如下页面:本页面实现代码功能代码如下:PrivateSubCommand