VB设备管理系统设计+需求分析+可行性分析(8)
时间:2016-11-23 19:01 来源:毕业论文 作者:毕业论文 点击:次
数据操作语言Data Manipulation Language(DML），用来插入、修改、删除、查询，可以修改数据库中的数据。操作：make/ 例如：INSERT（插入）、UPDATE（修改）、DELETE（删除）语句、SELECT（查询） 数据控制语言Data Controlling Language（DCL），用来控制数据库组件的存取允许、存取权限等。控制：control/ 例如：GRANT、REVOKE、COMMIT、ROLLBACK等语句。 SQL语言包括三种主要程序设计语言类别的语句：数据定义语言（DDL），数据操作语言（DML）及数据控制语言（DCL）。 Visual Basic 6.0和SQL语句根据各模块所需的功能及与数据库的连接，编制一些语句出来，使各窗体和数据能够显示出来。具体程序后面章节介绍。 5 设备管理系统设计 5.1 用户登录模块 功能：输入用户名和密码，如果用户名和密码正确，按确定按钮进入主界面；否则提示用户明确的错误信息。如密码错误，用户名错误等。只要有一个是错误的就不能进入主界面。如果按取消则退出系统。运行后的界面如下图5.1所示 图5.1 登录界面 程序代码如下： Dim cnt As Integer Dim Conn As New ADODB.Connection Private Sub command1_Click() Dim sql As String Dim rs_login As New ADODB.Recordset If Trim(Text1.Text) = "" Then MsgBox "没有这个用户", vbOKOnly + vbExclamation, "" Text1.SetFocus Else sql = "select * from登录界面 where 用户名='" & Text1.Text & "'" rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_login.EOF = True Then MsgBox "没有这个用户", vbOKOnly + vbExclamation, "" Text1.SetFocus Else If Trim(rs_login.Fields(1)) = Trim(Text2.Text) Then userID = Text1.Text rs_login.Close Unload Me 主界面.Show Else MsgBox "密码不正确", vbOKOnly + vbExclamation, "" Text2.SetFocus End If End If End If cnt = cnt + 1 If cnt = 3 Then Unload Me End If Exit Sub End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Dim connectionstring As String connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App. Path & "设备管理系统.mdb " & "Persist Security Info=False" conn.Open connectionstring cnt = 0 End Sub 5.2 主界面 主界面主要采用两种：菜单和工具栏。如图5.2所示 图5.2 主界面 菜单是程序最重要的特性之一，大多数程序都依赖一个定义良好的菜单使程序易于使用和文护，Visual Basic也提供了强大的创建菜单功能是程序更加标准。 您可以使用Visual Basic的Application Wizard也可以使用Visual Basic 的菜单编辑器建立菜单或者修改已经存在的菜单。 本系统设计菜单里面有编辑、查询、报表、用户管理、退出。其中编辑菜单下有基本信息、领用登记、消耗登记子菜单。查询菜单下面有领用情况和消耗情况两个子菜单。报表菜单里面则有基本信息汇总、领用情况汇总、消耗情况汇总三个子菜单。而用户管理里面则有修改密码下拉菜单。最后还有一个退出。 (责任编辑：qin) |