数据操作语言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 的菜单编辑器建立菜单或者修改已经存在的菜单。
本系统设计菜单里面有编辑、查询、报表、用户管理、退出。其中编辑菜单下有基本信息、领用登记、消耗登记子菜单。查询菜单下面有领用情况和消耗情况两个子菜单。报表菜单里面则有基本信息汇总、领用情况汇总、消耗情况汇总三个子菜单。而用户管理里面则有修改密码下拉菜单。最后还有一个退出。
上一篇:《计算机网络》课程通用题库管理系统设计与实现
下一篇:C#公司考勤管理系统的设计实现+流程图+ER图

考证平台静态网页设计与制作

java+mysql通用试题库系统后台设计与实现

PHP+IOS的会议管理系统的设计+ER图

基于网络的通用试题库系...

基于消费者个性特征的化...

标准件经销管理系统【959字】

探析动画视听设计元素茬...

AT89C52单片机的超声波测距...

中国学术生态细节考察《...

承德市事业单位档案管理...

C#学校科研管理系统的设计

国内外图像分割技术研究现状

志愿者活动的调查问卷表

医院财务风险因素分析及管理措施【2367字】

公寓空调设计任务书

10万元能开儿童乐园吗,我...

神经外科重症监护病房患...