管理系统系统登录

《管理系统系统登录》由会员分享，可在线阅读，更多相关《管理系统系统登录（13页珍藏版）》请在装配图网上搜索。

1、管理系统系统登录 　 管理系统的系统登录 　一、课程设计题目 　 管理系统的系统登录 　二、课程设计时间地点 　 时间：第18周 星期一、星期四、星期五5至6节及星期二9至12节 　三、课程设计目的 1 、掌握VB 进行应用程序设计的初步知识. 　2 、掌握Visual Basic的常用内部控件的使用. 　3 、了解Visual Basic语言中的数据类型,常量,变量,运算符,表达试和常用内部函数以及他们的使用. 　4 、学会使用If……Else 和Sele

2、ct Case语句执行分支选择,掌握循环语句的用法 　5 、掌握控件的常用属性和事件 　6 、了解过程,变量的作用域及它们的使用,变量的生存期,过程的强调等等 　7、掌握如何在应用程序窗体上创建菜单,对话框以及多xx界面等. 　8 、掌握如何利用可视化数据管理器创建数据库,查询以及如何在应用程序中实现Access数据库的连接和访问等等. 　四、课程设计内容及要求 　要求能设计一个用户名和密码的简单的数据库，通过VB的数据控件或是ADO技术实现对数据的各种简单操作包括数据的插入、删除、修改和简单查询等操作。 　五、数据库的创建、存储内容设计及连接 　1.打开VB 6.0,选择EX

3、E标准工程。 　 通过“工程”-“添加窗口”，形成“Form1”、 “Form2”、“Form 　2.(1)创建数据库 　点击“外接程序”选项中的“可视化数据管理器”，出现VisData界面，点击“文件”、“新建”、“Microsof tAccess” 、“Version 7.0 MDB (7)”,选择保存数据库的地址，数据库名为wjpp.mdb. 　 （2）数据库的存储内容设计 　 在数据库窗口，右击“Properties”,选择“新建表”，在跳出的“表结构”窗口的“表名称”中填写wjpp，再点击“添加字段”，填写“名称”为 “用户名”，点击“确定”，

4、依此步骤依次在“添加字段”中输入“密码”、“性别”、“年龄”、“爱好”，然后“生成表”， 　最后打开wjpp,添加要存储的内容，关闭wjpp.mdb. 　 (3)数据库的连接 　 在Form1属性窗口中点击“DatabassName ”属性中的“…”，在跳出的窗口中点击“wjpp”，然后打开，把“RecordSource”属性改为“wjpp”,依次操作Form2、Form3，并且把Form2、Form3中创建的5个Command控件：“用户名”、“密码”、“性别”、“年龄”、“爱好”的“RecordSource”属性改为“data1”,依次选折“DataFie

5、ld”属性为“用户名”、“密码”、“性别”、“年龄”、“爱好” 　六、课程设计步骤及页面设计 　 1.打开vb 6.0，使用工具箱中的Label、Text、Command控件画出如下页面： 　本页面实现代码功能代码如下： 　Public user As String 　Public password As String 　Public try_time As Integer 　Private Sub Command1_Click 　If Text1.Text = Then 　MsgBox 请输入用户名！ 　Text1.SetFocus 　Exit Sub 　

6、End If 　If Text2.Text = Then 　MsgBox 请输入密码！ 　Text2.SetFocus 　Exit Sub 　End If 　 Data1.DatabaseName = E:\VB课程设计\管理系统.mdb 　 Data1.RecordSource = select * from 管理系统 　 user = Text1.Text 　 password = Text2.Text 　 Data1.Refresh 　 User = Data1.Recordset.Fields(登陆用户) 　 Pas

7、sword = Data1.Recordset.Fields(登陆密码) 　 Data1.Recordset.FindFirst 用户名= user 　 If Data1.Recordset.NoMatch Then 　 MsgBox 用户名错误, vbOKOnly + vbCritical, 错误 　 Text1.SetFocus 　 Else 　 Data1.Recordset.FindFirst 密码= password 　 If Data1.Recordset.NoMatch Then 　

8、 MsgBox 密码错误, vbOKOnly + vbCritical, 错误 　 Text2.SetFocus 　 Else 　 Form1.Hide 　 Form2.Show 　 End If 　 End If 　End Sub 　Private Sub Command2_Click 　End 　End Sub 　Private Sub Command3_Click 　Form3.Show 　End Sub 　Private Sub Form_Load 　End Sub 　2.点击“

9、工程”，选择“添加窗体”，生成Form2,添加各功能控件，设计形成如下页面： 　本页面实现代码功能代码如下： 　Private Sub Command1_Click 　Data1.Recordset.MoveFirst 　Command2.Enabled = False 　If Command3.Enabled = False Then 　Command3.Enabled = True 　End If 　End Sub 　Private Sub Command2_Click 　Data1.Recordset.MovePrevious 　If Data1.Recordset

10、.BOF Then 　Data1.Recordset.MoveFirst 　Command2.Enabled = False 　End If 　End Sub 　Private Sub Command3_Click 　Data1.Recordset.MoveNext 　If Data1.Recordset.EOF Then 　Data1.Recordset.MoveLast 　Command3.Enabled = False 　End If 　If Command2.Enabled = False Then 　Command2.Enabled = True 　End

11、If 　End Sub 　Private Sub Command4_Click 　Data1.Recordset.MoveLast 　Command3.Enabled = False 　If Command2.Enabled = False Then 　Command2.Enabled = True 　End If 　End Sub 　Private Sub Command5_Click 　On Error Resume Next 　If Command5.Caption = 添加 Then 　 Command5.Caption = 确认: Data1.Reco

12、rdset.AddNew: Text1.SetFocus 　Else 　Command5.Caption = 添加: Data1.Recordset.MoveLast 　End If 　End Sub 　Private Sub Command6_Click 　On Error Resume Next 　YS = MsgBox(真的要删除吗?, vbYesNo, 删除该记录) 　If YS = vbYes Then 　 Data1.Recordset.Delete 　 Data1.Recordset.MoveNext 　 If Data1.Recordse

13、t.EOF Then 　 Data1.Recordset.MoveLast 　 End If 　End If 　End Sub 　Private Sub Command7_Click 　On Error Resume Next 　If Command7.Caption = 修改 Then 　 Command7.Caption = 确认 　 Data1.Recordset.Edit 　 Text1.SetFocus 　Else 　Command7.Caption = 修改 　Data1.Recordset.Update 　E

14、nd If 　End Sub 　Private Sub Command8_Click 　Dim sname As String 　On Error Resume Next 　sname = InputBox(请输入要查找的用户名, 按用户名查找) 　Data1.Recordset.FindFirst 用户名= sname 　If Data1.Recordset.NoMatch Then 　MsgBox 没有这个用户名! 　End If 　End Sub 　Private Sub Form_Load 　End Sub 　3. 点击“工程”，选择“添加窗体”，

15、生成Form3,添加各功能控件，设计形成如下页面： 　本页面实现代码功能代码如下： 　Private Sub Command1_Click 　If Text1.Text = Then 　 MsgBox 请输入用户名 　 Text1.SetFocus 　 Exit Sub 　End If 　 If Text2.Text = Text3.Text Then 　 Form1.Data1.Recordset.FindFirst 用户名= Text1.Text 　 If Form1.Data1.Recordset.NoMatch Then 　

16、 Form1.Data1.Recordset.AddNew 　 Form1.Data1.Recordset.Fields(用户名) = Text1.Text 　 Form1.Data1.Recordset.Fields(密码) = Text2.Text 　 Form1.Data1.Recordset.Update 　 MsgBox 用户密码已添加成功 　 Unload Me 　 Else 　 Form1.Data1.Recordset.Edit 　 Form1.Data1.Recordset.Fields(用户名) = Text

17、1.Text 　 Form1.Data1.Recordset.Fields(密码) = Text2.Text 　 Form1.Data1.Recordset.Update 　 MsgBox 用户密码已修改成功 　 Unload Me 　 End If 　Else 　 MsgBox 两次输入不同,请重新输入 　 Text3.SetFocus 　 End If 　If Text3.Text = Then 　 Exit Sub 　End If 　If Combo1.Text = Then 　 MsgBox 请选

18、择年龄 　 Combo1.SetFocus 　 Exit Sub 　If Text4.Text = Then 　 MsgBox 请输入爱好 　 Text4.SetFocus 　 Exit Sub 　End If 　End If 　End Sub 　Private Sub Command2_Click 　Text1.Text = 　Text2.Text = 　Text3.Text = 　Combo1.Text = 　Text4.Text = 　Text5.Text = 　End Sub 　Private Sub Co

19、mmand3_Click 　Form1.Show 　Form3.Hide 　End Sub 　Private Sub Form_Load 　End Sub 　4.运行本系统，各功能实现，没有出现错误。 　5.点击窗口中的“文件”选项，选择“保存工程。” 　七、课程设计心得 　 这次的课程设计可以说是我做的最认真的一次设计，因为时间比较宽裕，参阅了好几本参考书，但是在实践中出现好多错误，后来经过同学的帮忙，才做出一个能实现很少功能的系统，页面做的也不够漂亮。 　 而后来的改善，我做出很多努力，用自己并不全面的知识，花费了很多时间，遇到挺多错误，让我一度很困扰和挫败，但看着系统功能一步步完善，页面越来越来越漂亮，觉得特别有成就感。 　 通过自己能力完成一次课程设计，也让我在我的专业学习方面增加了自信，当然也可以肯定下我这学期学习vb 的态度，我还是很认真的，在此也谢谢老师平时的教导，我以后会多加努力的，谢谢！ 　 纪萍萍 　 08 12 25