曝光臺(tái) 注意防騙 網(wǎng)曝天貓店富美金盛家居專(zhuān)營(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
圖書(shū)借閱和圖書(shū)賠償子窗體運(yùn)行后如圖34 和圖35 所示，因?yàn)樗鼈兊拇�碼和圖書(shū)登記子窗體的代碼雷
同，在此不做重復(fù)。
圖34 圖書(shū)借閱子窗體運(yùn)行效果
圖35 圖書(shū)賠償子窗體運(yùn)行效果
(2) 增加用戶(hù)子窗體代碼
增加用戶(hù)子窗體是用來(lái)增加用戶(hù)的用戶(hù)名、密碼和權(quán)限的。其運(yùn)行效果如圖36 所示。
單擊“確定”按鈕后，還要返回一個(gè)信息框，提示成功信息，如圖37 所示。
圖36 增加用戶(hù)子窗體運(yùn)行效果圖37 成功信息框
窗體部分代碼的思路是，收集輸入的表中的字符串，然后與數(shù)據(jù)庫(kù)中的系統(tǒng)的用戶(hù)數(shù)據(jù)比較，如果不
存在，則允許添加。
Private Sub Command1_Click()
Dim sql As String
Dim rs_add As New ADODB.Recordset
If Trim(Text1.Text) = "" Then
MsgBox "用戶(hù)名不能為空", 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è)用戶(hù)", 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)選擇正確的用戶(hù)權(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ì)話(huà)框的代碼:
MsgBox "添加用戶(hù)成功", vbOKOnly + vbExclamation, ""
Unload Me
End If
End If
End Sub
(3) 修改密碼子窗體代碼
修改密碼子窗體是用來(lái)修改用戶(hù)密碼的。其運(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 用戶(hù)名='" & 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 語(yǔ)句把代
碼輸入到數(shù)據(jù)庫(kù)中。最后，用MsgBox "密碼修改成功", vbOKOnly + vbExclamation，""語(yǔ)句彈出一個(gè)信息
框，告訴修改成功，如圖39 所示。
顯示目錄
(4) 庫(kù)房管理子窗體代碼
庫(kù)房管理子窗體是用來(lái)管理圖書(shū)資料的。其運(yùn)行效果如圖40 所示。
圖40 庫(kù)房管理子窗體
實(shí)際上，設(shè)計(jì)庫(kù)房管理子窗體的程序代碼與增加用戶(hù)子窗體的代碼在思路上是完全相同的。就是在
DataGrid 的文本框中顯示圖書(shū)進(jìn)出的清單，最后把填寫(xiě)的明細(xì)存儲(chǔ)到數(shù)據(jù)庫(kù)中。
檢查代碼如下:
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)出庫(kù)標(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 圖書(shū)資料"
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)