VB设备管理系统设计+需求分析+可行性分析(8)
数据操作语言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 的菜单编辑器建立菜单或者修改已经存在的菜单。
本系统设计菜单里面有编辑、查询、报表、用户管理、退出。其中编辑菜单下有基本信息、领用登记、消耗登记子菜单。查询菜单下面有领用情况和消耗情况两个子菜单。报表菜单里面则有基本信息汇总、领用情况汇总、消耗情况汇总三个子菜单。而用户管理里面则有修改密码下拉菜单。最后还有一个退出。