菜单
　　

     
    参考文献
    [1] 郑阿奇.Visual Basic实用教程（第2版）[M].北京：电子工业出版社,2004.1.20.
    [2] 杨忠宝. VB语言程序设计教程[M].北京：人民邮电出版社,2010.12.15.
    [3] 刘韬.Visual Basic6.0数据库系统开发导航[M].北京：人民邮电出版社,2003.56.112.
    [4] 郑阿奇. SQL Server 实用教程（第2版）[M].北京：电子工业出版社,2005.7.18.
    [5] 林卓然.VB语言程序设计(第2版)[M] .北京：电子工业出版社,2009.25.87
    [6] 王珊,萨师煊.数据库系统概论(第4版)[M].北京：高等教育出版社,2006.37.
    [7] 沈洪,施明利,江鸿宾.VB程序设计案例汇编[M].北京：清华大学出版社,2010.34.54.
    [8]姚茂群. Access 2003数据库案例教程[M].北京：科学出版社,2010.1.15.
    [9] 神龙工作室. Access 2003从入门到精通[M].北京：人民邮电出版社,2011.112.143.
    [10] 李佳，范俊弟，邓剑民. Access2003数据库应用[M].北京：人民邮电出版社,2006.242.247.
    [11] S.K. Gupta , V.K. Agrawal , S.N. Singh ,V. Seshadri , David Mills , An experimental investigation on a fluidized motion conveying system，2006
    [12] Bill Evjen ,Billy Hollis，Professional Visual Basic 2008，Wiley Publishing,2008.
    [13] Bob Reselman , Richard Peasley , Wayne Pruchniak .Visual Basic 6.0 使用指南[M].北京：电子工业出版社,2002.132.137.
    [14] 苏思瑜.设备管理系统的设计与实现[D].武汉：华中科技大学.2004.
    [15] 袁五星.学生档案管理系统的设计[D] .上海：上海应用技术学院,2012.
     
    附录
    登录界面：
    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

    主界面：
    Private Sub 基本信息_Click()
    设备基本信息.Show
    Unload Me
    End Sub
    Private Sub 领用登记_Click()
    设备领用登记.Show
    Unload Me
    End Sub
    Private Sub 领用_Click()
    领用报表.Show
    Unload Me
    End Sub
    Private Sub 消耗_Click()
  1. 上一篇：《计算机网络》课程通用题库管理系统设计与实现
  2. 下一篇：C#公司考勤管理系统的设计实现+流程图+ER图

  1. 基于MATLAB的图像增强算法设计

  2. jsp+sqlserver高校二手商品交...

  3. 基于Kinect的手势跟踪与识别算法设计

  4. JAVA基于安卓平台的医疗护工管理系统设计

  5. java+mysql设备监控记录的大...

  6. ERP软件物料需求计划模块设计

  7. php+mysql志愿者服务平台前端页面设计

  8. 中考体育项目与体育教学合理结合的研究

  9. 酸性水汽提装置总汽提塔设计+CAD图纸

  10. 乳业同业并购式全产业链...

  11. 杂拟谷盗体内共生菌沃尔...

  12. 河岸冲刷和泥沙淤积的监测国内外研究现状

  13. 十二层带中心支撑钢结构...

  14. java+mysql车辆管理系统的设计+源代码

  15. 大众媒体对公共政策制定的影响

  16. 电站锅炉暖风器设计任务书

  17. 当代大学生慈善意识研究+文献综述

　　

About

751论文网手机版...

主页：http://www.751com.cn

关闭返回