管理系统系统登录

管理系统系统登录 管理系统的系统登录一、课程设计题目 管理系统的系统登录二、课程设计时间地点 时间：第18周 星期一、星期四、星期五5至6节及星期二9至12节三、课程设计目的 1 、掌握VB 进行应用程序设计的初步知识.2 、掌握Visual Basic的常用内部控件的使用.3 、了解Visual Basic语言中的数据类型,常量,变量,运算符,表达试和常用内部函数以及他们的使用.4 、学会使用IfElse 和Select Case语句执行分支选择,掌握循环语句的用法5 、掌握控件的常用属性和事件6 、了解过程,变量的作用域及它们的使用,变量的生存期,过程的强调等等7、掌握如何在应用程序窗体上创建菜单,对话框以及多xx界面等.8 、掌握如何利用可视化数据管理器创建数据库,查询以及如何在应用程序中实现Access数据库的连接和访问等等.四、课程设计内容及要求要求能设计一个用户名和密码的简单的数据库，通过VB的数据控件或是ADO技术实现对数据的各种简单操作包括数据的插入、删除、修改和简单查询等操作。五、数据库的创建、存储内容设计及连接1.打开VB 6.0,选择EXE标准工程。 通过“工程”-“添加窗口”，形成“Form1”、 “Form2”、“Form2.(1)创建数据库点击“外接程序”选项中的“可视化数据管理器”，出现VisData界面，点击“文件”、“新建”、“Microsof tAccess” 、“Version 7.0 MDB (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.打开vb 6.0，使用工具箱中的Label、Text、Command控件画出如下页面：本页面实现代码功能代码如下：Public user As StringPublic password As StringPublic try_time As IntegerPrivate Sub Command1_ClickIf Text1.Text = ThenMsgBox 请输入用户名！Text1.SetFocusExit SubEnd IfIf Text2.Text = ThenMsgBox 请输入密码！Text2.SetFocusExit SubEnd 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 IfEnd SubPrivate Sub Command2_ClickEndEnd SubPrivate Sub Command3_ClickForm3.ShowEnd SubPrivate Sub Form_LoadEnd Sub2.点击“工程”，选择“添加窗体”，生成Form2,添加各功能控件，设计形成如下页面：本页面实现代码功能代码如下：Private Sub Command1_ClickData1.Recordset.MoveFirstCommand2.Enabled = FalseIf Command3.Enabled = False ThenCommand3.Enabled = TrueEnd IfEnd SubPrivate Sub Command2_ClickData1.Recordset.MovePreviousIf Data1.Recordset.BOF ThenData1.Recordset.MoveFirstCommand2.Enabled = FalseEnd IfEnd SubPrivate Sub Command3_ClickData1.Recordset.MoveNextIf Data1.Recordset.EOF ThenData1.Recordset.MoveLastCommand3.Enabled = FalseEnd IfIf Command2.Enabled = False ThenCommand2.Enabled = TrueEnd IfEnd SubPrivate Sub Command4_ClickData1.Recordset.MoveLastCommand3.Enabled = FalseIf Command2.Enabled = False ThenCommand2.Enabled = TrueEnd IfEnd SubPrivate Sub Command5_ClickOn Error Resume NextIf Command5.Caption = 添加 Then Command5.Caption = 确认: Data1.Recordset.AddNew: Text1.SetFocusElseCommand5.Caption = 添加: Data1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command6_ClickOn Error Resume NextYS = MsgBox(真的要删除吗?, vbYesNo, 删除该记录)If YS = vbYes Then Data1.Recordset.Delete Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End IfEnd IfEnd SubPrivate Sub Command7_ClickOn Error Resume NextIf Command7.Caption = 修改 Then Command7.Caption = 确认 Data1.Recordset.Edit Text1.SetFocusElseCommand7.Caption = 修改Data1.Recordset.UpdateEnd IfEnd SubPrivate Sub Command8_ClickDim sname As StringOn Error Resume Nextsname = InputBox(请输入要查找的用户名, 按用户名查找)Data1.Recordset.FindFirst 用户名= sname If Data1.Recordset.NoMatch ThenMsgBox 没有这个用户名!End IfEnd SubPrivate Sub Form_LoadEnd Sub3. 点击“工程”，选择“添加窗体”，生成Form3,添加各功能控件，设计形成如下页面：本页面实现代码功能代码如下：Private Sub Command1_ClickIf Text1.Text = Then MsgBox 请输入用户名 Text1.SetFocus Exit SubEnd 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 IfElse MsgBox 两次输入不同,请重新输入 Text3.SetFocus End IfIf Text3.Text = Then Exit SubEnd IfIf Combo1.Text = Then MsgBox 请选择年龄 Combo1.SetFocus Exit SubIf Text4.Text = Then MsgBox 请输入爱好 Text4.SetFocus Exit SubEnd IfEnd IfEnd SubPrivate Sub Command2_ClickText1.Text = Text2.Text = Text3.Text = Combo1.Text = Text4.Text = Text5.Text = End SubPrivate Sub Command3_ClickForm1.ShowForm3.HideEnd SubPrivate Sub Form_LoadEnd Sub4.运行本系统，各功能实现，没有出现错误。5.点击窗口中的“文件”选项，选择“保存工程。”七、课程设计心得 这次的课程设计可以说是我做的最认真的一次设计，因为时间比较宽裕，参阅了好几本参考书，但是在实践中出现好多错误，后来经过同学的帮忙，才做出一个能实现很少功能的系统，页面做的也不够漂亮。 而后来的改善，我做出很多努力，用自己并不全面的知识，花费了很多时间，遇到挺多错误，让我一度很困扰和挫败，但看着系统功能一步步完善，页面越来越来越漂亮，觉得特别有成就感。 通过自己能力完成一次课程设计，也让我在我的专业学习方面增加了自信，当然也可以肯定下我这学期学习vb 的态度，我还是很认真的，在此也谢谢老师平时的教导，我以后会多加努力的，谢谢！ 纪萍萍 08 12 25