044VB文档管理信息系统

1.2 系统标准与规范
制定界面设计标准规范的目的是为了规范和统一软件界面设计制定软件界面设计标准与规范。
首先考虑标准化，在标准化的基础上进行界面的美工设计。
简单易用、简洁明了、兼容性好、标准、规范。
界面约定，除主界面外，所有子界面均采用模式窗体，即该窗体不消失，不可以在本程序内将焦点移出子窗体。
编码设计标准与规范，为了在编码过程中，能够快速的、有效的阅读，我们有必要为为对象约定一个规范的编码命名约定。
1．对象命名约定
下面为在编码过程中会用到的对象统一的命名，如下表1.2对象统一的命名所示:
表1.2 对象统一的命名
对象名 对象类型 命名约定（前缀码）
Form 窗体 Frm
Command 按钮 Cmd
Label 标签 Lab
TextBox 文本框 Txt
ComboBox 组合框 ComB
ListBox 列表框 LstB
Adodb 数据库访问对象 Adodb
DataGrid 数据表格显示组件 DataGrid
Frame 框架 Fam 【买计算机毕业论文就到www.think58.com】
Option 单选框 Opt
CheckBox 复选框 Chk
PictureBox 图象显示组件 PtB
CommonDialog 通用对话框组件 ComDlg
Timer 时间组件 Tim

copyright think58 [资料来源：http://THINK58.com]

ToolBar 工具栏 TlBar
Menu 菜单 Mnu
SSTab 页框 SSTab
ImageList 界面资源组件 ImgLst 内容来自think58

[版权所有：http://think58.com]

[资料来源：http://think58.com]

内容来自think58

[来源：http://think58.com]

think58好，好think58 [资料来源：http://think58.com]

think58好，好think58

２．常量和变量的命名约定
下面为在编码过程中会用到的常量和变量统一的命名，如表1.3所示:
表1.3常量和变量命名约定
变量名 数据类型 变量类型 含义
UserShenFen String 全局变量 用户身份标志
LogOK Boolean 全局变量 登陆状态
UserName String 全局变量 用户名
GongYingShangID String 全局变量 文档标题
GongYingShang String 全局变量 文档类型
TuShuBianHao String 全局变量 入库日期
DingJia Single 全局变量 下发日期
ShuMing String 全局变量 入库人
HuiYuanKaHao String 全局变量 文档资料
HYXingMing String 全局变量 主要内容
HYDengJi String 全局变量 备注
编码应清晰、可读性好，运用缩进、空行，结合大小写区别等方法保持程序结构良好。 copyright think58 [来源：http://www.think58.com]

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
'设置用户身份

think58.com

[资料来源：THINK58.com]

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 think58好，好think58

[资料来源：http://THINK58.com]

4．数据源的约定
需用数据源的组件如：DataGrid一律采用Adodb控件。有特殊需求的情况如：身份验证应引用DAO(数据访问对象)。
copyright think58