曝光臺(tái) 注意防騙
網(wǎng)曝天貓店富美金盛家居專營(yíng)店坑蒙拐騙欺詐消費(fèi)者
If Adodc1.Recordset.EOF Then
MsgBox "記錄空", vbOKCancel + vbQuestion
End
Else
Adodc1.Recordset.MoveFirst
Exit Sub
End Sub
Private Sub Command6_Click()
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "空記錄", vbOKCancel + vbQuestion
End
Else
Adodc1.Recordset.MoveLast
End If
End Sub
Private Sub Command7_Click()
MDIForm1.Show
frmdengji.Hide
End Sub
圖書借閱和圖書賠償子窗體運(yùn)行后如圖34 和圖35 所示，因?yàn)樗鼈兊拇a和圖書登記子窗體的代碼雷
同，在此不做重復(fù)。
圖34 圖書借閱子窗體運(yùn)行效果
圖35 圖書賠償子窗體運(yùn)行效果
(2) 增加用戶子窗體代碼
增加用戶子窗體是用來增加用戶的用戶名、密碼和權(quán)限的。其運(yùn)行效果如圖36 所示。
單擊“確定”按鈕后，還要返回一個(gè)信息框，提示成功信息，如圖37 所示。
圖36 增加用戶子窗體運(yùn)行效果圖37 成功信息框
窗體部分代碼的思路是，收集輸入的表中的字符串，然后與數(shù)據(jù)庫中的系統(tǒng)的用戶數(shù)據(jù)比較，如果不
存在，則允許添加。
Private Sub Command1_Click()
Dim sql As String
Dim rs_add As New ADODB.Recordset
If Trim(Text1.Text) = "" Then
MsgBox "用戶名不能為空", vbOKOnly + vbExclamation, ""
Exit Sub
Text1.SetFocus
Else
sql = "select * from 系統(tǒng)管理"
rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic
While (rs_add.EOF = False)
If Trim(rs_add.Fields(0)) = Trim(Text1.Text) Then
MsgBox "已有這個(gè)用戶", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Combo1.Text = ""
Exit Sub
Else
rs_add.MoveNext
End If
Wend
If Trim(Text2.Text) <> Trim(Text3.Text) Then
MsgBox "兩次密碼不一致", vbOKOnly + vbExclamation, ""
Text2.SetFocus
Text2.Text = ""
Text3.Text = ""
Exit Sub
ElseIf Trim(Combo1.Text) <> "system" And Trim(Combo1.Text) <> "guest" Then
MsgBox "請(qǐng)選擇正確的用戶權(quán)限", vbOKOnly + vbExclamation, ""
Combo1.SetFocus
Combo1.Text = ""
Exit Sub
Else
rs_add.AddNew
rs_add.Fields(0) = Text1.Text
rs_add.Fields(1) = Text2.Text
rs_add.Fields(2) = Combo1.Text
rs_add.Update
rs_add.Close
下面是返回成功信息對(duì)話框的代碼:
MsgBox "添加用戶成功", vbOKOnly + vbExclamation, ""
Unload Me
End If
End If
End Sub
(3) 修改密碼子窗體代碼
修改密碼子窗體是用來修改用戶密碼的。其運(yùn)行效果如圖38 所示。
圖38 修改密碼子窗體運(yùn)行效果
在“確定”按鈕的Click 事件中添加如下代碼:
Private Sub Command1_Click()
Dim rs_chang As New ADODB.Recordset
Dim sql As String
If Trim(Text1.Text) <> Trim(Text2.Text) Then
MsgBox "密碼不一致!", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
Else
sql = "select * from 系統(tǒng)管理where 用戶名='" & userID & "'"
rs_chang.Open sql, conn, adOpenKeyset, adLockPessimistic
rs_chang.Fields(1) = Text1.Text
rs_chang.Update
rs_chang.Close
MsgBox "密碼修改成功", vbOKOnly + vbExclamation, ""
Unload Me
End If
End Sub
在上述代碼中，首先比較兩個(gè)表中的數(shù)據(jù)是否一致，然后用rs_chang.Fields(1) = Text1.Text 語句把代
碼輸入到數(shù)據(jù)庫中。最后，用MsgBox "密碼修改成功", vbOKOnly + vbExclamation，""語句彈出一個(gè)信息
框，告訴修改成功，如圖39 所示。
顯示目錄
(4) 庫房管理子窗體代碼
庫房管理子窗體是用來管理圖書資料的。其運(yùn)行效果如圖40 所示。
圖40 庫房管理子窗體
實(shí)際上，設(shè)計(jì)庫房管理子窗體的程序代碼與增加用戶子窗體的代碼在思路上是完全相同的。就是在
DataGrid 的文本框中顯示圖書進(jìn)出的清單，最后把填寫的明細(xì)存儲(chǔ)到數(shù)據(jù)庫中。
檢查代碼如下:
Option Explicit
Dim rs_data2 As New ADODB.Recordset
Dim select_row As String
Dim showgrid2 As Boolean
Dim rs_custom As New ADODB.Recordset
Dim jinchu As String ' 進(jìn)出庫標(biāo)志
Dim modify As Boolean ' 修改狀態(tài)標(biāo)志
Private Sub cmdexit_Click()
Unload Me
End Sub
Private Sub Form_Load()
On Error GoTo loaderror
Dim sql As String
sql = "select * from 圖書資料"
rs_custom.CursorLocation = adUseClient
rs_custom.Open sql, conn, adOpenKeyset, adLockPessimistic
While Not rs_custom.EOF
Combo1.AddItem rs_custom.Fields(0)
rs_custom.MoveNext
Wend
findok = True
modify = False ' 非修改狀態(tài)
showgrid2 = False
displaygrid1 ' 調(diào)用顯示Datagrid1 子程序
loaderror:
If Err.Number <> 0 Then
MsgBox Err.Description
中國(guó)航空網(wǎng) www.k6050.com
航空翻譯 www.aviation.cn
本文鏈接地址：
航空講座1(34)
