【正文】 ) Exit Sub End If With recsetxhk .AddNew .Fields(日期 ) = riqi .Fields(型號(hào) ) = Text5(0).Text .Fields(數(shù)量 ) = Text5(1).Text .Fields(責(zé) 任組 ) = .Fields(責(zé)任人 ) = .Fields(消耗原因 ) = Text5(4).Text .Update
。 ) Exit Sub End If If Text5(1).Text = Then MsgBox (數(shù)量必須填寫(xiě)。 _ amp。 amp。 Set rectemp = (strsql) If = 0 Then MsgBox (型號(hào)輸入錯(cuò)誤 (庫(kù)中無(wú)改型號(hào)設(shè)備 /輔材 )，請(qǐng)重新輸入。 _ amp。 ) End Sub Private Sub Command1_Click() Dim i As Integer, j As Integer Dim riqi As Date Dim rectemp As Recordset Dim strsql As String Dim yiyou As Boolean On Error Resume Next strsql = select * strsql = strsql amp。 _ amp。 amp。 Text2(0).Text amp。 from zongku where = amp。 ) Exit Sub End If If Text2(2).Text = Then MsgBox (單價(jià)不能為空。======================================================== Private Sub Comdok1_Click() Dim i As Integer, j As Integer Dim riqi As Date Dim strsql As String Dim rectemp As Recordset Dim yiyou As Boolean On Error Resume Next If Text2(0).Text = Then MsgBox (型號(hào)不能為空。======================================================== 39。If yiyou = True Then With recsetzk .Edit .Fields(名稱 ) = Text1(2).Text .Fields(型號(hào) ) = 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)配件型號(hào) ) = Text1(7).Text .Fields(單價(jià) ) = Text1(8).Text .Fields(使用壽命 ) = Text1(11).Text .Fields(廠家 ) = Text1(12).Text .Fields(種類 ) = .Fields(貨架號(hào) ) = Text1(10).Text .Fields(備注 ) = Text1(13).Text .Update End With MsgBox (數(shù)據(jù)已修改 ) End If Exit Sub End If 39。 ) Exit Sub End If If = 1 Then End If Do While Not 39。 ) Exit Sub End If If (10).Text = Then MsgBox (貨架號(hào)不能為空，請(qǐng)輸入貨架號(hào)。 ) Exit Sub End If If (3).Text = Then MsgBox (型號(hào)不能為空，請(qǐng)輸入型號(hào)。Dim yiyou As Boolean 39。 _ amp。 Set rectemp = (strsql) If = 0 Then Exit Sub End If (型號(hào) ) = (型號(hào) ) If = True Then Exit Sub Else For i = 1 To 1 (型號(hào) ) Next End If End Sub Private Sub Combo5_Change() If 型號(hào) Then datatorepllk End If End Sub Private Sub Combo5_Click() If 型號(hào) Then datatorepllk End If End Sub Private Sub Combo6_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。 from lingliaoku where = amp。=================添加數(shù)據(jù)到修改總庫(kù)窗體 End If End Sub Private Sub Combo3_click() If 型號(hào) Then datatorepzk 39。 amp。 from zongku where = amp。H8000000F Cobriqi1(23).Enabled = False Cobriqi1(23).BackColor = amp。H8000000F Cobriqi1(21).Enabled = False Cobriqi1(21).BackColor = amp。H8000000F Cobriqi1(16).Enabled = False Cobriqi1(16).BackColor = amp。H80000005 Cobriqi1(23).Enabled = True Cobriqi1(23).BackColor = amp。H80000005 Cobriqi1(21).Enabled = True Cobriqi1(21).BackColor = amp。H80000005 Cobriqi1(16).Enabled = True Cobriqi1(16).BackColor = amp。H8000000F Cobriqi1(20).Enabled = False Cobriqi1(20).BackColor = amp。H8000000F Cobriqi1(18).Enabled = False Cobriqi1(18).BackColor = amp。H8000000F Cobriqi1(13).Enabled = False Cobriqi1(13).BackColor = amp。H80000005 Cobriqi1(20).Enabled = True Cobriqi1(20).BackColor = amp。H80000005 Cobriqi1(18).Enabled = True Cobriqi1(18).BackColor = amp。H80000005 Cobriqi1(13).Enabled = True Cobriqi1(13).BackColor = amp。H80000005 Else Combo2(7).Enabled = False Combo2(7).BackColor = amp。H80000005 Else Text2(2).Enabled = False Text2(2).BackColor = amp。H8000000F Text2(1).Enabled = False Text2(1).BackColor = amp。H80000005 Text2(1).Enabled = True Text2(1).BackColor = amp。H8000000F Text2(0).Enabled = False Text2(0).BackColor = amp。H80000005 Text2(0).Enabled = True Text2(0).BackColor = amp。H80000005 Else Combo2(3).Enabled = False Combo2(3).BackColor = amp。H80000005 Else Combo2(2).Enabled = False Combo2(2).BackColor = amp。H80000005 Else Combo2(1).Enabled = False Combo2(1).BackColor = amp。H80000005 Else Combo2(0).Enabled = False Combo2(0).BackColor = amp。H80000005 Else Combo1(3).Enabled = False Combo1(3).BackColor = amp。H80000005 Else Combo1(2).Enabled = False Combo1(2).BackColor = amp。H80000005 Else Combo1(1).Enabled = False Combo1(1).BackColor = amp。H80000005 Else Combo1(0).Enabled = False Combo1(0).BackColor = amp。 成本核算包括對(duì)每月設(shè)備的運(yùn)行狀態(tài)（領(lǐng)用、消耗）以領(lǐng)用報(bào)表、消耗報(bào)表、班組報(bào)表和個(gè)人報(bào)表四表分別進(jìn)行統(tǒng)計(jì)分析。 % If startime = 20 Then = False