身份证管理系统

《身份证管理系统》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、身份证管理系统vP>结构化编码约定vBR>凡与数据炸操作相关的模块一律加上容错代码，涉及多表操作的模块应该运川“爭务”处理，以保持数据完整性。vBR>编码风格参照下例进彳亍：vBR>PublicSubCheckUser(userlDAsString,passwdAsString)
DimuserDBAsDatabase
DimuserRDAsRecordset
DimdbNameAsString
DimSTRSQLAsString
Screen.MousePointer=1l

2、>OnErrorGoToerrEnd
dbName=App.Path
IfRight(dbName,1)<>；"、”ThendbName=dbName+”、"
dbNamc=dbName+"DataBaseWFSSDataBasc.mdbn
STRSQL="select［用户身份］from［Admin］where［用户ID］="""&userID&",M'and［用户密码］&passwd&"”""vBR>‘打开数据库vBR>SetuserDB=D

3、BEngine.Workspaces(0).OpenDatabase(dbName,False,True)
'检索用八，验证密码
SetuserRD=userDB.OpenRecordset(STRSQL,dbOpenSnapshot)
IfuserRD.RecordCount>0Then
   '设置用户身份
   UscrShcnFcn=userRD!［用丿1身份］
 ： ： '关

4、闭数据库vBR>   userRD.Close
   SetuserRD=Nothing
   userDB.Close
   SetuserDB=Nothing
   '进入用八环境vBR>   LoadFrmMain
   FrmMain.Show
 &n

5、bsp; UnloadFrmLogln
   logOK=True
   userName=userlD
   Screen.MousePointer=vbDefault
Else
   ，关闭数据库vBR>   userRD.Close
   SetuserRD=Nothing
&

6、nbsp;  userDB.Close
   SetuserDB=Nothing
   logOK=False
   Screen.MousePointer=vbDefault
   MsgBox”用户名或密码错误！请至新输入！“，vbOKOnly+vbExclamation,"登陆失贝攵"vBR>Eik1If
ExitSub
errEn

7、d:
   Screen.MousePointer=vbDefault
   MsgBoxErr.Description,vbOKOnly+vbExclamation,"登陆错谋"vBR>   logOK=False
   Err.Clear
   '关闭数据库
   userRD.Close
&n

8、bsp;  SetuserRD=Nothing
   userDB.Close
   SetuserDB=Nothing
   ExitSub
EndSub

4.数据源的约定vBR>需用数据源的组件如：DataGrid-律采用Adodb控件。