文档管理方法的实现(2)

上一节中，我们介绍了文档管理软件的设计方法，在这一节里，我们将通过程序讲解部分功能的实现方法。

实现方法：

1．   先建立好上面的数据库，这里略。启动Visual Basic 6.0。在新建项目中选择标准EXE确定，则进入开发环境中，把工程名换名为FileManage。增加一个模块并命名为ModPublic，在模块中定义一些全局变量。代码如下：

Public objDB As _
  New ADOAccess

Public CurrNode As _
  MSComctlLib.Node   '树结点

Public nodX As Object          '在拖动的项

Public gUserName As String     '用户名

Public gUserId As String       '用户号

Public gShareType As Integer   '共享类型

Public Type people           '自定义
  userId As String
  userName As String
End Type

Public yg() As people

说明：上面的ADOAccess是本人编写的一个组件，在计算机世界网的应用与方案栏中的《Visual Basic.NET中访问数据的方法 》一文可找到。是一个功能强大的数据访问组件，有关数据操作都封装在里面，仅需直接调用就可。 

2．   增加一个登录表单，命名为frmLogin，在上面放入控件二个标签，二个文本控件并命名为txtUser、txtID，一个按钮控件并命名为cmdLogin。如下图：

在其代码窗口中编号代码如下：

Private Sub Form_Load()
   objDB.ConnAccess (App.Path + "	est.mdb")
End Sub

Private Sub cmdLogin_Click()

  Dim strWhere As String

  Dim recTemp As ADODB.Recordset

  gUserName = txtUser.Text

  gUserId = txtID.Text

 'strWhere = "UserName='" & txtUser.Text & "' and userid='" & txtID.Text & "'"

  If gUserName = "" Then
     MsgBox "请输入用户！", vbExclamation + vbOKOnly, "错误"
     Exit Sub
  End If

  If gUserId = "" Then
     MsgBox "请输入用户密码！", vbExclamation + vbOKOnly, "错误"
Exit Sub 
  End If

 strWhere = "UserName='" & gUserName & "' and passwd='" & gUserId & "'"

 Set recTemp = objDB.OpenTable("yg_tab", strWhere)

   If Not recTemp.EOF Then
      gUserId = recTemp!userId
      frmBrowse.Show
   Else
      MsgBox "非法的用户，请重新登录！", vbExclamation + vbOKOnly, "错误"
      txtUser.Text = ""
      txtID.Text = ""
      Exit Sub
   End If
End Sub

说明：上面的代码在表单的Load事件中连接数据库test.mdb,在登录按钮的单击事件中先取得用户名和密码，然后进行验证，确定后则进入下一表单，否则提示出错信息。