VB+SQL书店图书管理系统(任务书+开题报告+论文) 第5页
6 第六章 软件编码设计标准与规范
6.1 一、对象命名约定
对象名 对象类型 命名约定（前缀码）
Form 窗体 Frm
Command 按钮 Cmd
Label 标签 Lab
TextBox 文本框 Txt
ComboBox 组合框 ComB
ListBox 列表框 LstB
Adodb 数据库访问对象 Adodb
DataGrid 数据表格显示组件 DataGrid
Frame 框架 Fam
Option 单选框 Opt
CheckBox 复选框 Chk
PictureBox 图象显示组件 PtB
CommonDialog 通用对话框组件 ComDlg
Timer 时间组件 Tim
ToolBar 工具栏 TlBar
Menu 菜单 Mnu
SSTab 页框 SSTab
ImageList 界面资源组件 ImgLst
6.2 二、常量和变量命名约定
变量名 数据类型 变量类型 含义
UserShenFen String 全局变量 用户身份标志
LogOK Boolean 全局变量 登陆状态
UserName String 全局变量 用户名
GongYingShangID String 全局变量 供应商编号
GongYingShang String 全局变量 供应商名称
TuShuBianHao String 全局变量 图书编号
DingJia Single 全局变量 图书定价
ShuMing String 全局变量 书名
HuiYuanKaHao String 全局变量 会员卡号
HYXingMing String 全局变量 会员姓名
HYDengJi String 全局变量 会员等级
6.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, "登陆失败"

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >>