具栏 TlBar Menu 菜单 Mnu SSTab 页框 SSTab ImageList 界面资源组件 ImgLst
3.2 常量和变量命名约定
表3-2常量和变量的命名
变量名 数据类型 变量类型 含义 UserShenFen String 全局变量 用户身份标志 LogOK Boolean 全局变量 登陆状态 UserName String 全局变量 用户名 GongYingShangID String 全局变量 供应商编号 GongYingShang String 全局变量 供应商名称 TuShuBianHao String 全局变量 图书编号 DingJia Single 全局变量 图书定价 ShuMing String 全局变量 书名 HuiYuanKaHao String 全局变量 会员卡号 HYXingMing String 全局变量 会员 HYDengJi String 全局变量 会员等级 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 = Tru
上一篇:
网络编程论文(网络聊天室JAVA版)(word文档)
下一篇:
9月大一新生自我介绍