数据库原理及应用（Access 2007）电子教案沈祥玖 access code.docVIP

Option Compare Database 开发人员：尹涛 E-mail : yintao_001@163.com Public SERVERNAME, TITLE, HELP As String Public Const KFGS As String = 莱博瑞软件公司 用户名称 Public Const YHMC As String = 济南交通高等专科学校 Public Const RJMC As String = 莱博瑞校园网_收费管理系统 用户口令 Public Const BBH As String = V3.0 ProTitle MSGBOXS 的提示信息 Public Const ProTitle As String = 莱博瑞校园网 Public Loginuser As Integer Sub cmdAddProp_Click() Dim pa As String Dim intX As Integer Const DB_Text As Long = 10 pa = CurrentProject.Path \lbr.ico intX = AddAppProperty(AppTitle, DB_Text, TITLE) intX = AddAppProperty(AppIcon, DB_Text, pa) Application.RefreshTitleBar End Sub Function AddAppProperty(strName As String, varType As Variant, varValue As Variant) As Integer Dim dbs As Object, prp As Variant Const conPropNotFoundError = 3270 Set dbs = CurrentDb On Error GoTo AddProp_Err dbs.Properties(strName) = varValue AddAppProperty = True AddProp_Bye: Exit Function AddProp_Err: If Err = conPropNotFoundError Then Set prp = dbs.CreateProperty(strName, varType, varValue) dbs.Properties.Append prp Resume Else AddAppProperty = False Resume AddProp_Bye End If End Function Sub SetStartupProperties() Const DB_Text As Long = 10 Const DB_Boolean As Long = 1 ChangeProperty StartupForm, DB_Text, first ChangeProperty StartupShowDBWindow, DB_Boolean, False ChangeProperty StartupShowStatusBar, DB_Boolean, False ChangeProperty AllowBuiltinToolbars, DB_Boolean, False ChangeProperty AllowFullMenus, DB_Boolean, True ChangeProperty AllowBreakIntoCode, DB_Boolean, False ChangeProperty AllowSpecialKeys, DB_Boolean, True ChangeProperty AllowBypassKey, DB_Boolean, true End Sub Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer Dim dbs As Object, prp As Variant Const conPropNotFoundError = 3270 Set dbs = CurrentDb On Error GoTo Change_Err dbs.Properties