【正文】 s thumbnailshowing like spectators who lined the railings of his lips.Don39。 if I pursue you I will not catch you, and if I catch youthrough your own slowness and clumsinessI will not kill you, and if I kill you I will not eat you.Nicholas had begun to back away, and at the last。 CStr(i) amp。 CStr(Mon) End IfEnd IfExit FunctionErr:DateChange = End FunctionFunction GetNumFile(str1 As String) As IntegerDim i As IntegerIf str1 = ThenExit FunctionEnd Ifi = 1GetNumFile = 1Do If Not ( + \report\ + str1 amp。 CStr(Mon) Else DateChange = DateChange amp。 CStr(Mon)End IfIf Len(strDate) 7 Then Mon = Day(strDate) If Mon 10 Then DateChange = DateChange amp。 CStr(Mon)Else DateChange = DateChange amp。改變?nèi)掌诟袷?yyyyMMddPublic Function DateChange(strDate As String) As StringOn Error GoTo ErrDim Mon As IntegerDateChange = Year(strDate)Mon = Month(strDate)If Mon 10 Then DateChange = DateChange amp。39。答案39。試題id多項Public DaiAn() 39。試題id單項Public STID1() 39。題數(shù)Public STID() 39?？颇縋ublic Txs(4) As Integer 39?？荚嚂r總間長Public kmName As String 39。判斷權(quán)限Global mFso As New FileSystemObjectPublic Declare Function ShellExecute Lib Alias ShellExecuteA _(ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPublic TimeKS As Integer 39。數(shù)據(jù)表名Public Ok As BooleanPublic IsUserMode As Integer 39。當前的indexPublic strTableName As String 39。用戶名稱Public CurrentIndex As Integer 39。39。管理員 = True = True (1).Enabled = TrueElseIf IsUserMode = 2 Then = False = False (1).Enabled = FalseEnd IfEnd SubPrivate Sub ZiDianmanage_Click() 39。權(quán)限設(shè)置If IsUserMode = 1 Then 39。39。39。39。39。39。39。39。39。39。39。strTableName = 銷售信息表 1End SubPrivate Sub InfoYG_Click() 39。樓房結(jié)構(gòu)strTableName = 樓房結(jié)構(gòu)表 1End SubPrivate Sub InfoLFLX_Click()strTableName = 樓房類型表 1End SubPrivate Sub InfoLFm_Click()strTableName = 樓房信息表 1End SubPrivate Sub InfoLP_Click()strTableName = 樓盤信息表 1End SubPrivate Sub InfoXS_Click() 39。戶型strTableName = 戶型信息表 1End SubPrivate Sub InfoKHm_Click()strTableName = 客戶信息表 1End SubPrivate Sub InfoLFjg_Click() 39。39。39。 \) , , , , , 0, 0, , End IfEnd IfErr:End SubPrivate Sub Gongzitongji_Click() 1End SubPrivate Sub Form_Unload(Cancel As Integer)EndEnd SubPrivate Sub HelpFiles_Click() 39。39。39。39。39。加載權(quán)限設(shè)置End SubPrivate Sub Form_Resize()On Error GoTo Err 39。員工信息查詢strTableName = 員工信息表 1End SubPrivate Sub Form_Load()PrivsSeting 39?？蛻粜畔⒉樵僺trTableName = 客戶信息表 1End SubPrivate Sub FindXS_Click()strTableName = 銷售信息表 1End SubPrivate Sub FindYg_Click() 39。背景 1End SubPrivate Sub Exit_Click()EndEnd SubPrivate Sub FindKh_Click() 39。39。39。order by 組編號,戶號,成員號, CN, adOpenStatic, adLockOptimisticElse select * from amp。 HuKouID amp。 where 組編號=39。Persist Security Info=FalsemiCount = 0Ok = False = GetSetting(, Settings, user_name, ) = Exit SubErr:MsgBox , , 數(shù)據(jù)庫連接錯誤EndEnd SubPrivate Sub Form_Resize() = + 30 = + 30End SubPrivate Sub Label2_Click()EndEnd SubPrivate Sub txtPassword_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenCall cmdOK_ClickEnd IfEnd SubPrivate Sub txtUserName_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenEnd IfEnd SubPrivate Sub Command1_Click()Unload MeEnd SubPrivate Sub Form_Load()On Error GoTo ErrDim rs2 As New If Then If strLook = 文化戶口信息 Then select * from amp。 amp。連數(shù)據(jù)庫代碼If Then = Provider=。三次錯誤,自動退出程序 End End IfExit SubErr: MsgBox 登錄出錯,請找管理員!, vbExclamation Ok = False EndEnd SubPrivate Sub Form_Activate()End SubPrivate Sub Form_Load()On Error GoTo Err39。無權(quán) IsUserMode = 0 MsgBox 你沒有權(quán)限!, vbExclamation, 警告 End End If UserPrivs = Trim((2)) UserName = Trim() Unload Me Exit Sub Else MsgBox 輸入密碼不正確，請重新輸入！, vbOKOnly + vbExclamation, 警告 = End If End If miCount = miCount + 1 If miCount = 3 Then 39。普通用戶權(quán)限 IsUserMode = 2 Else 39。管理員權(quán)限 IsUserMode = 1 ElseIf Trim((2)) = 普通用戶 Then 39。判斷權(quán)限 UserPrivs = If Trim((2)) = 管理員 Then 39。如果有用戶 If Trim((1)) = Trim() Then 39。如果沒有這個用戶 MsgBox 沒有這個帳號，請重新輸入帳號!, vbOKOnly + vbExclamation, 警告 = = Else 39。 If Then txtSql, CN, adOpenStatic, adLockOptimistic If = True Then 39。 amp。判斷是否有這個用戶 txtSql = select * from 用戶信息表 where 用戶名稱 = 39。判斷密碼是否為空 MsgBox 請輸入密碼！, vbOKOnly + vbExclamation, 警告 Exit Sub End If 39。39。39。39。 .mdb, TrueMsgBox 數(shù)據(jù)庫備份成功!, , 提示Unload MeExit SubErr:MsgBox End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Dir1_Change() = End SubPrivate Sub Dir1_Click() = End SubPrivate Sub Drive1_Change() = = End SubPrivate Sub Form_Load()On Error GoTo Err(1).Text = 數(shù)據(jù)庫備份 = GetSetting(, Settings, DatabasePath, C:) = Mid(Trim(), 1, 1) amp。 \ amp。39。 39。 amp。39。初始化代碼On Error GoTo Err = (1).Text = 用戶管理Dim rs1 As New select * from 用戶信息表, CN, adOpenStatic, adLockOptimisticWhile Not If Not IsNull((0)) Then Trim((0))WendErr:End SubPrivate Sub cmdExit_Click()Unload MeEnd SubPrivate Sub Command4_Click() 39。參考文獻 , 《Database system implementation》,機械