曝光臺 注意防騙 網曝天貓店富美金盛家居專營店坑蒙拐騙欺詐消費者

CommandButton
Command2 取消
(3) 修改密碼子窗體如圖26 所示。
圖26 修改密碼子窗體
(4) 庫房管理子窗體如圖27 所示。
圖27 庫房管理子窗體
其控件如表6 所示。
表6 庫房管理子窗體控件
控件類別控件Name 控件Text
TextBox Text1 (空)
ComboBox Combo1
MSFlexGrid MSFlexGrid1
(5) 查詢子窗體如圖28 所示，其控件如表7 所示。
圖28 查詢子窗體
表7 查詢子窗體控件
控件類別控件Name 控件Text
OptionButton Option1 按編號查詢
Option2 按購買日期查詢
Label1 從
Label2 到
Label3 從
Label4 年
Label5 月
Label6 日
Label7 到
Label8 年
Label9 月
Label
Label10 日
Combo(0) ComboBox Combo1 (空)
Combo(1) ComboBox Combo1 (空)
Comboy(0) ComboBox Comboy (空)
Comboy(1) ComboBox Comboy (空)
Combom(0) ComboBox Combom (空)
Combom(1) ComboBox Combom (空)
Combod(0) ComboBox Combod (空)
Combod(1) ComboBox Combod (空)
Command1 查詢
CommandButton
Command2 取消
(6) 用戶登錄子窗體如圖29 所示。
(7) 值班管理子窗體如圖30 所示，其控件如表8 所示。
圖29 用戶登錄子窗體圖30 值班管理子窗體
(8) 投訴管理子窗體如圖31 所示，其控件如表9 所示。
圖31 投訴管理子窗體
建立公共模塊
1、顯示目錄
建立公共模塊可以提高代碼的效率，同時使得修改和維護代碼都很方便。
創建公共模塊的步驟如下:
(1) 在菜單中選擇“工程”→“添加模塊”命令，則出現模塊對話框，如圖32 所示。
(2) 選擇模塊圖標后，單擊“打開”按鈕，則模塊已經添加到項目中了。默認情況下名為Module1。
圖32 模塊對話框
(3) 在模塊中定義整個項目的公共變量。
Public conn As New ADODB.Connection ' 標記連接對象
Public userID As String ' 標記當前用戶ID
Public userpow As String ' 標記用戶權限
Public find As Boolean ' 標記查詢
Public sqlfind As String ' 查詢語句
Public rs_data1 As New ADODB.Recordset
Public findok As Boolean
Public frmdata As Boolean
Public Const keyenter = 13 ' enter 鍵的ASCII 碼
在主窗體添加完菜單之后，就要為各個子菜單創建事件處理程序。
主窗體代碼
在本項目中，子菜單事件都是Click 事件，這里先給出主窗體部分的代碼。
下面是響應“增加用戶”子菜單Click 事件，調出增加用戶窗體代碼。
Private Sub adduser_Click()
frmadduser.Show
End Sub
下面是響應“查詢輸出”子菜單Click 事件，調出查詢輸出窗體代碼。
Private Sub chaxunshuchu_Click()
frmfind.Show
End Sub
下面是響應“退出”子菜單Click 事件，調出退出窗體代碼。
Private Sub exit_Click()
Unload Me
End Sub
下面是響應“圖書登記”子菜單Click 事件，調出圖書登記窗體代碼。
Private Sub checkin_Click()
frmdengji.Show
End Sub
下面是響應“修改密碼”子菜單Click 事件，調出修改密碼窗體代碼。
Private Sub changepwd_Click()
frmchangepwd.Show
End Sub
下面是響應“圖書借閱”子菜單Click 事件，調出圖書借閱窗體代碼。
Private Sub borrow_Click()
frmjieyue.Show
End Sub
下面是響應“圖書賠償”子菜單Click 事件，調出圖書賠償窗體代碼。
Private Sub tushupeichang_Click()
frmpeichang.Show 1
End Sub
下面是響應“值班管理”菜單Click 事件，調出值班管理窗體代碼。
Private Sub zhibanguanli_Click()
frmzhiban.Show 1
End Sub
下面是響應“投訴管理”子菜單Click 事件，調出投訴管理窗體代碼。
Private Sub tousuguanli_Click()
frmtousu.Show 1
End Sub
2、各子窗體的代碼
在各個子窗體建立好后，就可以根據各個子窗體的功能給它們添加相應代碼了。
(1) 圖書登記子窗體代碼
本窗體用來填寫圖書登記的信息，用ADO 來連接數據庫，是本窗體的重點。采用MDI 的子程序，所
以運行后，它出現在主程序的界面下，如圖33 所示。
圖33 圖書登記子窗體
按鈕控件要求先填寫基本信息，然后與數據庫信息比較。
Private Sub Command1_Click()
On Error GoTo adderr
Text1.SetFocus
Adodc1.Recordset.AddNew
Exit Sub
adderr:
MsgBox Err.Description
End Sub
Private Sub Command2_Click()
On Error GoTo deleteerr
With Adodc1.Recordset
If Not .EOF And Not .BOF Then
If MsgBox("刪除當前記錄嗎?", vbYesNo + vbQuestion) = vbYes Then
.Delete
.MoveNext
If .EOF Then .MoveLast
End If
End If
End With
Exit Sub
deleteerr:
MsgBox Err.Description
End Sub
Private Sub Command3_Click()
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
MsgBox "這是最后一條記錄", vbOKCancel + vbQuestion
Adodc1.Recordset.MoveLast
End If
End Sub
Private Sub Command4_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
MsgBox "這是第一條記錄", vbOKCancel + vbQuestion
Adodc1.Recordset.MoveFirst
End If
End Sub
Private Sub Command5_Click()
　
中國航空網 m.k6050.com
航空翻譯 www.aviation.cn
本文鏈接地址：航空講座1(33)