【正文】 備注 xinghao Long int 0 主鍵 Shuliang int 0 danjia int 0 yiqi Datetime 1 消耗庫(kù) 表 字段名稱 數(shù)據(jù)類型 是否允許空值 備注 xinghao Long int 0 主鍵 yiqi Datetime 0 Shuliang Varchar(50) 0 zerenren Long int 0 zerenzu Int 0 xiaohaoyuanyin text 0 總庫(kù) 表 字段名稱 數(shù)據(jù)類型 是否允許空值 備注 mingchan Varchar(40) 0 主鍵 xinghao Long int 0 外鍵 Jishucanshu1 Varchar(40) 0 Jishucanshu2 Varchar(40) 0 Jishucanshu3 Varchar(50) 0 pinjianxinghao Datetime 0 danjia int 0 kuzenliang Long int 0 shiyongshouming Varchar(200) 0 chuangjia text 0 zhongli Text 0 接下來(lái)就利用上面創(chuàng)建的表實(shí)現(xiàn)數(shù)據(jù)庫(kù)的設(shè)計(jì) :如 消耗表 (其余表的與之 同 ) 數(shù)據(jù)庫(kù)之間的關(guān)系指明兩個(gè)庫(kù)之間共享一個(gè)共同的關(guān)鍵字值。 ) End Sub 、主界面模塊說(shuō)明 隨著計(jì)算機(jī)技術(shù)的不斷發(fā)展，計(jì)算機(jī)應(yīng)用于各大領(lǐng)域，給人們的生活帶來(lái)了極大的便利，人們的生活水平也得到很大提高，更加喜歡追求美好事物，因此，任何事物的第一印象是非常重要。 % If startime = 20 Then = False End If DoEvents End Sub 接下來(lái) 在 Visual 自帶功能 ”菜單編 輯器 ”編輯窗體界面中的相關(guān)數(shù)據(jù)信息 ， 形成的前臺(tái)用戶界面如圖： 前臺(tái)是用戶進(jìn)行綜合管理、進(jìn)入其它操作模塊的唯一的接口，主要連接的界面窗口有： 數(shù)據(jù)處理、數(shù)據(jù)查詢、成本核算三個(gè)功能模 數(shù)據(jù)處理包括新設(shè)備的添加、修改、刪除；及領(lǐng)用設(shè)備和消耗設(shè)備的修改、刪除 。H80000005 Else Combo1(0).Enabled = False Combo1(0).BackColor = amp。H80000005 Else Combo1(2).Enabled = False Combo1(2).BackColor = amp。H80000005 Else Combo2(0).Enabled = False Combo2(0).BackColor = amp。H80000005 Else Combo2(2).Enabled = False Combo2(2).BackColor = amp。H80000005 Text2(0).Enabled = True Text2(0).BackColor = amp。H80000005 Text2(1).Enabled = True Text2(1).BackColor = amp。H80000005 Else Text2(2).Enabled = False Text2(2).BackColor = amp。H80000005 Cobriqi1(13).Enabled = True Cobriqi1(13).BackColor = amp。H80000005 Cobriqi1(20).Enabled = True Cobriqi1(20).BackColor = amp。H8000000F Cobriqi1(18).Enabled = False Cobriqi1(18).BackColor = amp。H80000005 Cobriqi1(16).Enabled = True Cobriqi1(16).BackColor = amp。H80000005 Cobriqi1(23).Enabled = True Cobriqi1(23).BackColor = amp。H8000000F Cobriqi1(21).Enabled = False Cobriqi1(21).BackColor = amp。 from zongku where = amp。=================添加數(shù)據(jù)到修改總庫(kù)窗體 End If End Sub Private Sub Combo3_click() If 型號(hào) Then datatorepzk 39。 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。Dim yiyou As Boolean 39。 ) Exit Sub End If If (10).Text = Then MsgBox (貨架號(hào)不能為空，請(qǐng)輸入貨架號(hào)。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。======================================================== 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)不能為空。 from zongku where = amp。 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。 Set rectemp = (strsql) If = 0 Then MsgBox (型號(hào)輸入錯(cuò)誤 (庫(kù)中無(wú)改型號(hào)設(shè)備 /輔材 )，請(qǐng)重新輸入。 _ amp。 ) 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ù)量必須填寫。 amp。 _ amp。 _ amp。 Text2(0).Text amp。 ) Exit Sub End If If Text2(2).Text = Then MsgBox (單價(jià)不能為空。======================================================== 39。 ) Exit Sub End If If = 1 Then End If Do While Not 39。 ) Exit Sub End If If (3).Text = Then MsgBox (型號(hào)不能為空，請(qǐng)輸入型號(hào)。 _ amp。 from lingliaoku where = amp。 amp。H8000000F Cobriqi1(23).Enabled = False Cobriqi1(23).BackColor = amp。H8000000F Cobriqi1(16).Enabled = False Cobriqi1(16).BackColor = amp。H80000005 Cobriqi1(21).Enabled = True Cobriqi1(21).BackColor = amp。H8000000F Cobriqi1(20).Enabled = False