管理系统的系统登录

一、课程设计题目

管理系统的系统登录

二、课程设计时间地点

时间：第 18 周 星期一、星期四、星期五 5 至 6 节及星期二 9 至 12 节

三、课程设计目的

1、掌握 VB 进行应用程序设计的初步知识 .

2、掌握 Visual Basic 的常用内部控件的使用 .

3、了解 Visual Basic 语言中的数据类型 ,常量,变量,运算符 ,表 达试和常用内部函数以及他们的使用 .

4、学会使用If Else和Select Case语句执行分支选择，

掌握循环语句的用法

5、掌握控件的常用属性和事件

6、了解过程 ,变量的作用域及它们的使用 ,变量的生存期 ,过程 的强调等等

7、掌握如何在应用程序窗体上创建菜单 , 对话框以及多文档 界面等.

8 、掌握如何利用可视化数据管理器创建数据库 ,查询以及如何

在应用程序中实现 Access 数据库的连接和访问等等

四、课程设计内容及要求 要求能设计一个用户名和密码的简单的数据库，通过 VB 的数据控件或是 ADO 技术实现对数据的各种简单操作包括数据 的插入、删除、修改和简单查询等操作。

五、数据库的创建、存储内容设计及连接

1.打开 VB 6.0, 选择 EXE 标准工程。

通过“工程”“添加窗口，形成Forml ”、 Form2 ”、

“Form3 ” ,分别添加 data 控件。

2.(1) 创建数据库 点击“外接程序”选项中的“可视化数据管理器，”出现 VisData 界面，点击“文件、”“新建、”“ Microsof tAccess ” 、“ Version 7.0

MDB (7) ” ,选择保存数据库的地址，数据库名为 wjpp.mdb.

(2)数据库的存储内容设计

在数据库窗口，右击“ Properties ” ,选择“新建表，”在跳出的

“表结构 窗口的“表名称”中填写jpp，再点击“添加字段，填写“名称” 为 “用户名，”点击“确定，”依此步骤依次在“添加字段”中输入“密码、“”性 别”、“年龄、”“爱好，”然后“生成表，” 最后打开wjpp,添加要存储的内容，关闭 wjpp.mdb.

(3)数据库的连接

在Forml属性窗口中点击“DatabassName ”属性中的

“在跳出的窗口中点击“wjpp,然后打开，把“RecordSource ”属

性改为 Wjpp ” ,依次操作Form2、Form3，并且把Form2、Form3中

创建的5个Comma nd控件：“用户名”“密码”性别”“年龄”“爱好”的

RecordSource ”属性改为datal ”，依次选折“DataField ”属性为

“用户名”“密码”“性别“年龄” “爱好”从而实现数据库的连接。

六、课程设计步骤及页面设计

1.打开vb 6.0，使用工具箱中的Label、Text、Comma nd控

Public user As String

Public password As Stri ng

Public try_time As In teger

Private Sub Command1_Click（）

If Text1.Text = "" Then

MsgBox "请输入用户名！ "

Text1.SetFocus

Exit Sub

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（" 登陆用户 "）

' Password = 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

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.点击“工程”选择“添加窗体，生成Form2,添加各功能控件，设计形

成如下页面：

本页面实现代码功能代码如下：

Private Sub Comma nd1_Click()

Datal .R ecordset.MoveFirst

Comma nd2.E nabled = False

If Comma nd3.E nabled = False Then

Comma nd3.E nabled = True

End If

End Sub

Private Sub Command2_Click()

Data1.Recordset.MovePrevious

If Data1.Recordset.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 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.Recordset.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.Recordset.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

End 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•点击“工程”选择“添加窗体，生成Form3,添加各功能控件，设计

形成如下页面：

本页面实现代码功能代码如下：

Private Sub Comma nd1_Click()

If Text1.Text = "" The n

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

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（" 用户名 "） = Text1.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 " 请选择年龄 "

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 Command3_Click()

Form1.Show

Form3.Hide

End Sub

Private Sub Form_Load()

End Sub 4.运行本系统，各功能实现，没有出现错误。

5.点击窗口中的“文件”选项，选择“保存工程”。 七、课程设计心得

这次的课程设计可以说是我做的最认真的一次设计，因为时间 比较宽裕，参阅了好几本参考书，但是在实践中出现好多错误，后来 经过同学的帮忙， 才做出一个能实现很少功能的系统， 页面做的也不 够漂亮。

而后来的改善，我做出很多努力，用自己并不全面的知识，花 费了很多时间，遇到挺多错误，让我一度很困扰和挫败，但看着系统 功能一步步完善，页面越来越来越漂亮，觉得特别有成就感。

通过自己能力完成一次课程设计，也让我在我的专业学习方面 增加了自信，当然也可以肯定下我这学期学习 vb 的态度，我还是很

认真的，在此也谢谢老师平时的教导，我以后会多加努力的，谢谢！

纪萍萍

08 12

本文来源：https://www.2haoxitong.net/k/doc/041cb1e4b6daa58da0116c175f0e7cd18525185a.html