基于VB的文档信息管理系统

1．对象命名约定

下面为在编码过程中会用到的对象统一的命名，如下表1.2对象统一的命名所示:

                         表1.2 对象统一的命名

２．常量和变量的命名约定

下面为在编码过程中会用到的常量和变量统一的命名，如表1.3所示:

                       表1.3常量和变量命名约定

编码应清晰、可读性好，运用缩进、空行，结合大小写区别等方法保持程序结构良好。

3．结构化编码约定

凡与数据库操作相关的模块一律加上容错代码，涉及多表操作的模块应该运用“事务”处理，以保持数据完整性。

编码风格参照下例进行：

Public Sub CheckUser(userID As String, passwd As String)

Dim userDB As Database

Dim userRD As Recordset

Dim dbName As String

Dim STRSQL As String

Screen.MousePointer = 11

On Error GoTo errEnd

dbName = App.Path

If Right(dbName, 1) <> "、" Then dbName = dbName + "、"

dbName = dbName + "DataBase、WFSSDataBase.mdb"

STRSQL = "select [用户身份] from [Admin] where [用户ID]=""" & userID & """ and [用户密码]=""" & passwd & """"

''打开数据库

Set userDB = DBEngine.Workspaces(0).OpenDatabase(dbName, False, True)

''检索用户,验证密码

Set userRD = userDB.OpenRecordset(STRSQL, dbOpenSnapshot)

If userRD.RecordCount > 0 Then

    ''设置用户身份

    UserShenFen = userRD![用户身份]

    ''关闭数据库

    userRD.Close

    Set userRD = Nothing

    userDB.Close

    Set userDB = Nothing

    ''进入用户环境

    Load FrmMain

    FrmMain.Show

    Unload FrmLogIn

    logOK = True

    userName = userID

    Screen.MousePointer = vbDefault

Else

    ''关闭数据库

    userRD.Close

    Set userRD = Nothing

    userDB.Close

    Set userDB = Nothing

    logOK = False

    Screen.MousePointer = vbDefault

    MsgBox "用户名或密码错误！请重新输入！", vbOKOnly + vbExclamation, "登陆失败"

End If

Exit Sub

errEnd：

    Screen.MousePointer = vbDefault

    MsgBox Err.Description, vbOKOnly + vbExclamation, "登陆错误"

    logOK = False

    Err.Clear

    ''关闭数据库

    userRD.Close

    Set userRD = Nothing

    userDB.Close

    Set userDB = Nothing

    Exit Sub

End Sub

本文选自计算机毕业设计http://myeducs.cn
论文文章部分只是部分简介，如需了解更多详情请咨询本站客服！QQ3710167