【正文】 2 = 規(guī)格 = 3 = 單位 (1) = 1000 Set Mydb = OpenDatabase( + \) Set myrecordset = (select * from goods) Do While Not = + 1 = 1 = 0 = (GoodsId) = 1 = (GoodsName) = 2 = (Type) = 3 = (Unit) Loop = False = False End Sub Private Sub bo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then End If End Sub Private Sub MSFlexGrid2_DblClick() If = 0 Then Exit Sub End If = 0 = If Then Set myrecordset = (select * from Goods where Goodsid=39。) If Not Then Text2 = (goodsName) Text3 = (type) Text4 = (Unit) Else Exit Sub End If Else MsgBox 請(qǐng)選擇正 確的材料編碼！ , vbOKOnly + vbExclamation, 信息提示 End If = False End Sub Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then End If End Sub Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then End If End Sub Private Sub Text4_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then End If End Sub Private Sub Text5_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then End If End Sub Private Sub Text6_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then End If End Sub Private Sub Text7_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then End If End Sub Private Sub Text8_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then End If End Sub : 代碼分析 : Option Explicit Dim Mydb As Database Dim Myrs1 As Recordset Dim Myrs2 As Recordset Private Sub Command1_Click() Dim mrc As Recordset Dim str1 As String, str2 As String If = True Then If = Then MsgBox 請(qǐng)正確填寫進(jìn)庫單號(hào)碼！ , vbOKOnly + vbExclamation, 信息提示 Exit Sub Else Set Myrs1 = (select * from inlib where 進(jìn)庫單號(hào)碼 =39。) TableInit If = 1 Then Set Myrs2 = (select * from inlibdetail,goods where 進(jìn)庫單號(hào)碼 =39。 And GoodsID = 材料編碼 ) While = False = + 1 = 1 = 0 = (進(jìn)庫單號(hào)碼 ) = 1 = (發(fā)票號(hào)碼 ) = 2 = (進(jìn)庫日期 ) = 3 If IsNull((經(jīng)辦人 )) Then = Else = (經(jīng)辦人 ) End If = 4 If IsNull((保管人 )) Then = Else = (保管人 ) End If = 5 = (goodsid) = 6 = (goodsname) = 7 = (type) = 8 = (unit) = 9 = (數(shù)量 ) = 10 = Format((單價(jià) ), ) = 11 = Format((金額 ), ) = 12 If IsNull((備注 )) Then = Else = (備注 ) End If Wend Else MsgBox 不存在這個(gè)進(jìn)庫單號(hào)碼 , vbOKOnly + vbExclamation, 信息提示 Text1 = Exit Sub End If End If End If If = True Then If = Then MsgBox 請(qǐng)正確填寫發(fā)票號(hào)碼！ , vbOKOnly + vbExclamation, 信息提示 Exit Sub Else Set Myrs1 = (select * from inlib where 發(fā)票號(hào)碼 =39。) TableInit If = 1 Then Set Myrs2 = (select * from inlibdetail where 進(jìn)庫單號(hào)碼 =39。) Set mrc = (select * from goods where goodsid=39。) 。 (材料編碼 ) amp。 (進(jìn)庫單號(hào)碼 ) amp。 Trim(Text2) amp。 Trim(Text1) amp。 Trim(Text1) amp。 Trim() amp。 Exit Sub End If Next i If = Then MsgBox 材料名稱字段不能為空，請(qǐng)?zhí)顚懀?, vbOKOnly + vbExclamation, 警告 Exit Sub End If If = Then MsgBox 規(guī)格型號(hào)字段不能為空，請(qǐng) 填寫！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If = Then MsgBox 計(jì)量單位字段不能為空，請(qǐng)?zhí)顚懀?, vbOKOnly + vbExclamation, 警告 Exit Sub End If If 修 理 Then If = Then MsgBox 數(shù)量字段不能為空，請(qǐng)?zhí)顚憽? amp。 amp。 amp。 amp。 (i, 0) amp。 如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來，請(qǐng)創(chuàng)建一個(gè)報(bào)表。 如果要搜索并檢索符合指定條件的數(shù)據(jù)，包括來自多個(gè)表中的數(shù)據(jù)，就要?jiǎng)?chuàng)建查詢。目前已成為關(guān)系數(shù)據(jù)庫的標(biāo)準(zhǔn)語言 Microsoft Access 介紹 : 使用 Microsoft Access，可以在單一的數(shù)據(jù)庫文件中管理所有的信息。 20 世紀(jì) 70 年代以后開發(fā)的數(shù)據(jù)庫管理系統(tǒng)產(chǎn)品幾乎都是基于關(guān)系的。 第二步：用 Access 建立一個(gè)名為 Pad 的數(shù)據(jù)庫，在庫中建立一個(gè)表 Myset，給表添加四個(gè)字段： backcolor（數(shù)據(jù)）， forecolor(文本）， fontname(文本） ,fontsize（文本）。 ? 定時(shí)器類類的控件： 1) Interval 屬性：表示定時(shí)的時(shí)間間隔 ,以毫秒為單位。 2) Mutselect 屬性 :可以設(shè)置列表框?yàn)閱芜x或允許多選屬性 . 3) Selectd 屬性 :標(biāo)示一個(gè)數(shù)組 ,數(shù)組各元素為 : 4) Selected(0),selected(1)? ? 滾動(dòng)條類的控件： 1) Value 屬性：滾動(dòng)條上滑塊所在位置由 value 值所決定。 4） GotFocus 事件：在對(duì)象獲的焦點(diǎn)時(shí)發(fā)生。 15) Value 屬性：設(shè)置或返回控件的狀態(tài)。 11) DragIcon 屬性：設(shè)置或返回圖標(biāo)，它將在拖放操作中做為指針顯示