【正文】 = (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。 Exit Sub End If Next i If = Then MsgBox 材料名稱字段不能為空，請(qǐng)?zhí)顚?xiě)！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If = Then MsgBox 規(guī)格型號(hào)字段不能為空，請(qǐng) 填寫(xiě)！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If = Then MsgBox 計(jì)量單位字段不能為空，請(qǐng)?zhí)顚?xiě)！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If 修 理 Then If = Then MsgBox 數(shù)量字段不能為空，請(qǐng)?zhí)顚?xiě)。 amp。 amp。 39。 amp。 此進(jìn)庫(kù)單中未填寫(xiě)材料信息，請(qǐng)?zhí)顚?xiě)。 amp。 39。 amp。 Set mrc = (SQLstring) 39。 (i, 0) amp。 第二章 系統(tǒng)的設(shè)計(jì) 3． 1 系統(tǒng)的功能結(jié)構(gòu)設(shè)計(jì) 3． 2 系統(tǒng)的數(shù)據(jù)庫(kù)設(shè)計(jì) 1. 商品表 : 表 : 主界面 系統(tǒng) 物資管理 倉(cāng)庫(kù)管理 物資信息查詢 數(shù)據(jù)統(tǒng)計(jì) 表 : 表 : 5:Outlib 表 : 6:outlibdetail 表 : 3． 3 界面設(shè)計(jì)與代碼設(shè)計(jì) : 代碼分析 : Option Explicit Dim Myws As Workspace Dim Mydb As Database Dim Myrs1 As Recordset Dim Myrs2 As Recordset Private Sub cmdAdd_Click() Dim count As Integer, i As Integer Dim SQLstring As String Dim mrc As Recordset, mrcc As Recordset Dim Num As Integer, price As Single If = Then MsgBox 進(jìn)庫(kù)單號(hào)碼不能為空，請(qǐng)?zhí)顚?xiě)！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If While = False If (進(jìn)庫(kù)單號(hào)碼 ) = Then MsgBox 此進(jìn)庫(kù)單號(hào)碼已經(jīng)存在，請(qǐng)認(rèn)真核查！ , vbOKOnly + vbExclamation, 警告 = = = = = Exit Sub Else End If Wend If = Then MsgBox 發(fā)票號(hào)碼不能為空，請(qǐng)?zhí)顚?xiě)！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If = Then MsgBox 進(jìn)庫(kù)日期不能為空，請(qǐng)?zhí)顚?xiě)！ , vbOKOnly + vbExclamation, 警告 Exit Sub Else If IsDate() Then Text3 = Format(Text3, yyyymmdd) Else MsgBox 進(jìn) 庫(kù) 時(shí) 間 格 式 應(yīng) 為 ： yyyymmdd, vbOKOnly + vbExclamation, 警告 = Exit Sub End If End If If 1 Then (進(jìn)庫(kù)單號(hào)碼 ) = (發(fā)票號(hào)碼 ) = (進(jìn)庫(kù)日期 ) = If = Then (經(jīng)辦人 ) = Null Else (經(jīng)辦人 ) = End If If = Then (保管人 ) = Null Else (保管人 ) = End If count = For i = 1 To (count 1) (進(jìn)庫(kù)單號(hào)碼 ) = (材料編碼 ) = (i, 0) (數(shù)量 ) = Val((i, 4)) If (i, 5) = Then (單價(jià) ) = Null Else (單價(jià) ) = Val((i, 5)) End If (金額 ) = Val((i, 6)) If (i, 7) = Then (備注 ) = Null Else (備注 ) = (i, 7) End If SQLstring = select * from msurplus where 材 料編 碼 =39。 如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來(lái)，請(qǐng)創(chuàng)建一個(gè)報(bào)表。 如果要簡(jiǎn)單地直接在某個(gè)表中查看、輸入 及更改數(shù)據(jù)，請(qǐng)創(chuàng)建一個(gè)窗體。 如果要搜索并檢索符合指定條件的數(shù)據(jù)，包括來(lái)自多個(gè)表中的數(shù)據(jù)，就要?jiǎng)?chuàng)建查詢。 如果要保存數(shù)據(jù)，請(qǐng)為每一種類型的信息創(chuàng)建一個(gè)表。目前已成為關(guān)系數(shù)據(jù)庫(kù)的標(biāo)準(zhǔn)語(yǔ)言 Microsoft Access 介紹 : 使用 Microsoft Access，可以在單一的數(shù)據(jù)庫(kù)文件中管理所有的信息。 關(guān)系數(shù) 據(jù)庫(kù)系統(tǒng)與非關(guān)系數(shù)據(jù)庫(kù)系統(tǒng)的區(qū)別是：關(guān)系系統(tǒng)只有 “ 表 “ 這一種數(shù)據(jù)結(jié)構(gòu)；而非關(guān)系數(shù)據(jù)庫(kù)系統(tǒng)還有其他數(shù)據(jù)結(jié)構(gòu)，對(duì)這些數(shù)據(jù)結(jié)構(gòu)有其他的操作。 20 世紀(jì) 70 年代以后開(kāi)發(fā)的數(shù)據(jù)庫(kù)管理系統(tǒng)產(chǎn)品幾乎都是基于關(guān)系的。 如果你的機(jī)器沒(méi) 安裝有 Access，可通過(guò) VB 建庫(kù)。 第二步：用 Access 建立一個(gè)名為 Pad 的數(shù)據(jù)庫(kù)，在庫(kù)中建立一個(gè)表 Myset，給表添加四個(gè)字段： backcolor（數(shù)據(jù)）， forecolor(文本）， fontname(文本） ,fontsize（文本）。為 false 時(shí)處于休眠狀態(tài) . Visual 連接數(shù)據(jù)庫(kù)的主要方式以下幾種方式：一是： 用 data 控件進(jìn)行數(shù)據(jù)庫(kù)鏈接 ，二是 利用 adodc（ ADO Data Control)進(jìn) 行數(shù)據(jù)庫(kù)鏈接 。 ? 定時(shí)器類類的控件： 1) Interval 屬性：表示定時(shí)的時(shí)間間隔 ,以毫秒為單位。 3) Largechange 屬性：用戶點(diǎn)擊滾動(dòng)條與鍵頭之間的區(qū)域時(shí) ,value 的改變量。 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 值所決定。 6） OLEDragDrag 事件：當(dāng)源部件決定放操作能發(fā)生，卻源部件被放到目標(biāo)部件時(shí)，此事件發(fā)生。 4） GotFocus 事件：在對(duì)象獲的焦點(diǎn)時(shí)發(fā)生。 2） DragDrop 事件：在一個(gè)完整的拖放動(dòng)作完成或使用 Drag 方法，并將其Action 參數(shù)設(shè)置為 2 時(shí)發(fā)生。 15) Value 屬性：設(shè)置或返回控件的狀態(tài)。 13) Font 屬性：設(shè)置或返回字體的屬性。 11) DragIcon 屬性：設(shè)置或返回圖標(biāo)，它將在拖放操作中做為指針顯示。 9) DisabledPicture 屬性：設(shè)置或返回一個(gè)對(duì)圖片的引用，該圖片在控件無(wú)效時(shí)顯示在控件中。 7) DataFormat 屬性：設(shè)置或返回 DataFormat 對(duì)象，用于數(shù)據(jù)綁定。 5) DataChangeed 屬性：設(shè)置 /返回一個(gè)值，指出被綁定的控件中的數(shù)據(jù)已經(jīng)被某進(jìn)程修改。 ? 復(fù)選按鈕類的控件： 1) Caption 屬性：缺省為 check1? 。 11） MouseMove 事件：在控件上移動(dòng)鼠標(biāo)時(shí)發(fā)生。 9） KeyPress 事件：當(dāng)用戶按下或釋放 ANSI 一 個(gè)鍵時(shí)發(fā)生。 7） KeyDown 事件：當(dāng)控件具有焦點(diǎn)時(shí)按下一個(gè)鍵時(shí)發(fā)生。 5） GotFocus 事件： 當(dāng)獲的對(duì)象焦點(diǎn)時(shí)發(fā)生。 3） DragDrop事件：在一個(gè)完整的拖放動(dòng)作或使用 Drag方法，并將其 Action參數(shù)設(shè)置位 2 時(shí)，該事件發(fā)生。 ? 單選按鈕類的常用事件： 1） Click 事件：鼠標(biāo)單擊控件時(shí)發(fā)生 。 23) MaskColor 屬性：設(shè)置 /返回一個(gè)在控件的圖片中作為掩碼的顏色。 20) FontName 屬性：設(shè)置 /返回控件中顯示文本所用的字體大小。 18) FontStrikethru 屬性：設(shè)置 /返回字體刪除線樣式。 16) FontBold 屬性：設(shè)置 /返回字體粗體樣式。 14) DragMode 屬性：設(shè)置 /返回一個(gè)值，確定在拖放操作中所用的方式。 12) DisabledPicture 屬性：設(shè)置 /返回一個(gè)對(duì)圖像的引用，該圖片在控件無(wú)效時(shí)顯示在控件中。 10) DataField 屬性：設(shè)置 /返回?cái)?shù)據(jù)使用者將被綁定到的字段名。 8) BackColor 屬性：設(shè)置 /返回背景色。 6) Value 屬性：反映控件狀態(tài)的屬性 ,返回 true 表示已選擇了該按鈕。 4) Index 屬性：屬性值表示為單選按鈕組成的控件中某個(gè)按鈕的索引值。 2) Alignment 屬性：決定單選按鈕的標(biāo)題在控件上的位置。 8) Alignment 屬性：設(shè)定控件中的文本對(duì)其方式 9) Appearance 屬性：設(shè)定一個(gè)對(duì)象在運(yùn)行時(shí)是否可以 3D 效果顯示。 6) Change 事件屬性：文本框的內(nèi)容發(fā)生改變時(shí) ,相應(yīng)的控件之間發(fā)生相應(yīng)的改變 ,具有即時(shí)性。 4) Scrollbars 屬性：該屬性決定是否為文本框加滾動(dòng)條。 2) Maxlength 屬性：該屬性設(shè)定在文本框控件中能夠輸入的最大字符數(shù)。 3) Backstyle 屬性：用以指示標(biāo)簽是否透明 . 4) Bordstyle