【正文】 gerenyuebao End Sub Private Sub select_cost_get_Click() (0).Caption = 設(shè)備領(lǐng)用月報表 = False drawgetyuebao End Sub Private Sub select_cost_used_Click() (0).Caption = 設(shè)備消耗月報表 = False drawusedyuebao End Sub Private Sub select_data_del_get_Click() setFramusedrepairdel End Sub Private Sub select_data_del_used_Click() setFramusedrepair End Sub Private Sub select_data_del_zk_Click() setFramrepair End Sub Private Sub select_data_new_get_Click() setFramgetgetget End Sub Private Sub select_data_new_used_Click() setFramgetget End Sub Private Sub select_data_new_zk_Click() setFramkuget End Sub Private Sub select_data_repair_get_Click() setFramusedrepairget End Sub Private Sub select_data_repair_used_Click() setFramusedrepairused End Sub Private Sub select_data_repair_zk_Click() setFramrepairrepair End Sub Private Sub select_file_exit_Click() End Sub Private Sub select_select_get_Click() = True = False = False End Sub Private Sub select_select_used_Click() = False = False = True End Sub Private Sub select_select_zu_Click() = True = False = False End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case 設(shè)備查詢 = True = False = False Case 領(lǐng)用查詢 = True = False = False Case 消耗查詢 = False = False = True Case 退出系統(tǒng) End Case 返回 End Select End Sub 、數(shù)據(jù)處理模塊說明 Option Explicit Private Sub Combo2_Click() Dim i As Integer, j As Integer, k As Integer Dim strsql As String Dim rectemp As Recordset On Error Resume Next strsql = select strsql = strsql amp。 _ amp。 Set rectemp = (strsql) If = 0 Then Exit Sub End If (型號 ) = (型號 ) If = True Then Exit Sub Else For i = 1 To 1 (型號 ) Next End If End Sub Private Sub Combo3_Change() If 型號 Then datatorepzk 39。添加數(shù)據(jù)到修改已領(lǐng)用數(shù)據(jù)修改窗體 End If End Sub Private Sub Combo4_Click() Dim i As Integer, j As Integer, k As Integer Dim strsql As String Dim rectemp As Recordset On Error Resume Next strsql = select strsql = strsql amp。 _ amp。 from xiaohaoku where = amp。 Set rectemp = (strsql) If = 0 Then Exit Sub End If (型號 ) = (型號 ) If = True Then Exit Sub Else For i = 1 To 1 (型號 ) Next End If End Sub Private Sub Combo7_Change() If 型號 Then datatorepxhk End If End Sub Private Sub Combo7_click() If 型號 Then datatorepxhk End If End Sub Private Sub Comdcancel_Click() Dim i As Integer For i = 2 To 13 If i 9 Then Text2(i).Text = End If Next End Sub Private Sub Comdcancel1_Click() Dim i As Integer For i = 0 To 2 Text2(i).Text = Next End Sub Private Sub Command2_Click() Dim i As Integer For i = 0 To 2 Text5(i).Text = Next End Sub Private Sub Comdsave_Click() Dim i As Integer, j As Integer, k As Integer 39。On Error Resume Next If (2).Text = Then MsgBox (名稱不能為空，請輸入名稱。 ) Exit Sub End If If (8).Text = Then MsgBox (單價不能為空，請輸入單價。 ) Exit Sub End If If (11).Text = Then MsgBox (使用壽命不能為空，請輸入使用壽命。For i = 1 To If (型號 ) = Text1(3).Text Then If MsgBox(已有此種型號設(shè)備的記錄，是否覆蓋原有數(shù)據(jù)？ , vbYesNo) = vbYes Then 39。Next i Loop With recsetzk .AddNew .Fields(名稱 ) = Text1(2).Text .Fields(型號 ) = Text1(3).Text .Fields(技術(shù)參數(shù) 1) = Text1(4).Text .Fields(技術(shù)參數(shù) 2) = Text1(5).Text .Fields(技術(shù)參數(shù) 3) = Text1(6).Text .Fields(相關(guān)配件型號 ) = Text1(7).Text .Fields(單價 ) = Text1(8).Text .Fields(使用壽命 ) = Text1(11).Text .Fields(廠家 ) = Text1(12).Text .Fields(種類 ) = .Fields(貨架號 ) = Text1(10).Text .Fields(備注 ) = Text1(13).Text .Update End With MsgBox (數(shù)據(jù)已保存 ) End Sub 39。===== 按鈕“確定”用于添加新領(lǐng)用設(shè)備 ======= 39。 ) Exit Sub End If If Text2(1).Text = Then MsgBox (數(shù)量不能為空。 ) Exit Sub End If strsql = select * strsql = strsql amp。 _ amp。 Set rectemp = (strsql) If = 0 Then yiyou = MsgBox(改種的設(shè)備 (輔材 )為新型號 ,是否添加？ , vbYesNo) If yiyou = False Then Exit Sub Else setFramkuget Exit Sub End If End If With rectemp .Edit .Fields(庫存量 ) = .Fields(庫存量 ) + Text2(1).Text .Update End With riqi = CDate(Cobriqi1(0).Text amp。 Cobriqi1(1).Text amp。 Cobriqi1(2).Text) With recsetllk .AddNew .Fields(日期 ) = riqi .Fields(型號 ) = Text2(0).Text .Fields(數(shù)量 ) = Text2(1).Text .Fields(單價 ) = Text2(2).Text .Update End With MsgBox (新數(shù)據(jù)已保存完畢。 from zongku where = amp。 Text5(0).Text amp。 ) Exit Sub End If With rectemp .Edit .Fields(庫存量 ) = .Fields(庫存量 ) Text5(1).Text .Update End With riqi = CDate(Cobriqi2(0).Text amp。 Cobriqi2(1).Text amp。 Cobriqi2(2).Text) If Text5(0).Text = Then MsgBox (型號必須填寫。 ) Exit Sub End If If Text5(4).Text = Then MsgBox (消耗原因必須填