【正文】 一種類型的信息創(chuàng)建一個(gè)表。 amp。 Exit Sub End If Next i If = Then MsgBox 材料名稱字段不能為空，請?zhí)顚懀? vbOKOnly + vbExclamation, 警告 Exit Sub End If If = Then MsgBox 規(guī)格型號字段不能為空，請?zhí)顚懀? vbOKOnly + vbExclamation, 警告 Exit Sub End If If = Then MsgBox 計(jì)量單位字段不能為空，請?zhí)顚懀? vbOKOnly + vbExclamation, 警告 Exit Sub End If If 修理 Then If = Then MsgBox 數(shù)量字段不能為空，請?zhí)顚憽?Trim(Text2) amp。 (0) amp。 (goodsid) amp。 Trim(Text4) amp。 Trim(Text3) amp。 Trim(Text1) amp。 amp。 (i, 0) amp。Access介紹:使用3) Largechange屬性：用戶點(diǎn)擊滾動(dòng)條與鍵頭之間的區(qū)域時(shí),value的改變量。9) DisabledPicture屬性：設(shè)置或返回一個(gè)對圖片的引用，該圖片在控件無效時(shí)顯示在控件中。3） DragDrop事件：在一個(gè)完整的拖放動(dòng)作或使用Drag方法，并將其Action參數(shù)設(shè)置位2時(shí)，該事件發(fā)生。10) DataField 屬性：設(shè)置/返回?cái)?shù)據(jù)使用者將被綁定到的字段名。2) Maxlength屬性：該屬性設(shè)定在文本框控件中能夠輸入的最大字符數(shù)。13) DisabledPicture屬性：設(shè)置/返回一個(gè)對圖片的引用，該圖片在控件無效時(shí)顯示在控件中。對于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。如果是命令按鈕的控件是數(shù)組，則需要使用Index參數(shù)標(biāo)識(shí)該控件。7) Keypress：事件由用戶在文本框控件中按任意鍵觸發(fā)。15) Font 屬性：設(shè)置/返回字體屬性。8） KeyUp事件： 當(dāng)控件具有焦點(diǎn)時(shí)釋放一個(gè)鍵時(shí)發(fā)生。14) Name屬性：設(shè)置或返回控件的標(biāo)識(shí)名。三是: (ActiveX Data Objects)進(jìn)行編程:現(xiàn)在我們來大致對這幾種技術(shù)應(yīng)用介紹：一、 用data控件進(jìn)行數(shù)據(jù)庫鏈接.　第一步：給窗體添加一個(gè)Data控件。如果要從查詢、窗體或報(bào)表中的多個(gè)表中將數(shù)據(jù)合并在一起，就要定義各個(gè)表之間的關(guān)系。 (i, 0) amp。若為修理，可填為0！, vbOKOnly + vbExclamation, 警告 Exit Sub Else If Not IsNumeric() Then MsgBox 數(shù)量字段值為數(shù)字,請正確填寫！, vbOKOnly + vbExclamation, 警告 = Exit Sub End If End If If = Then MsgBox 單價(jià)字段不能為空，請?zhí)顚憽?39。 39。 39。 amp。 amp。 amp。) Do While Not = + 1 = 1 = 0 = (進(jìn)庫單號碼) = 1 = (進(jìn)庫日期) Loop End If If = True Then If = Then MsgBox 請?zhí)顚懘舜尾樵兊倪M(jìn)庫日期開始時(shí)間！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If = Then MsgBox 請?zhí)顚懘舜尾樵兊倪M(jìn)庫日期結(jié)束時(shí)間！, vbOKOnly + vbExclamation, 警告 Exit Sub End If = 1 (0, 0) = 進(jìn)庫單號碼 (0, 1) = 進(jìn)庫日期 Set myrecordset = (select * from inlib where 進(jìn)庫日期= amp。 amp。Microsoft2) Max和min屬性：對value值的最大,最小進(jìn)行限制。8) Datasource屬性：設(shè)置或返回控件綁定的一個(gè)數(shù)據(jù)源。2） DbClick事件： 當(dāng)在一個(gè)對象上按下和釋放鼠標(biāo)按鈕并再次按下和釋放按鈕時(shí)，該事件發(fā)生。9) Container 屬性：設(shè)置/返回Form上的控件屬性。u 文本框類的控件：1) Text屬性：通過像text屬性賦值的方法來改變該屬性的值。6) Default屬性:決定哪一個(gè)命令按鈕控件是窗體的缺省命令按鈕.7) Font屬性:控制各種文字字體類型.8) Left,top,height,width屬性:設(shè)定控件的位置與大小.9) Style,picture屬性:決定按鈕的顯示方式是否為圖像形式出現(xiàn).10) Visible屬性:確定控件運(yùn)行時(shí)是否為可見.11) Index屬性:當(dāng)控件為一控件數(shù)組時(shí),此屬性值為該控件在數(shù)組的下標(biāo)值.12) DownPicture屬性：設(shè)置/返回一個(gè)對圖片的引用，該圖片在按鈕被單擊處于壓下狀態(tài)時(shí)顯示。而對于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。2） 獲得焦點(diǎn)――GotFocus事件（1） 觸發(fā)與適用 當(dāng)命令按鈕獲得焦點(diǎn)產(chǎn)生該事件，獲得焦點(diǎn)可以通過諸如Tab切換或單擊對象之類的用戶動(dòng)作，或在代碼中用SetFocus方法改變焦點(diǎn)來實(shí)現(xiàn)。8) Alignment屬性：設(shè)定控件中的文本對其方式9) Appearance屬性：設(shè)定一個(gè)對象在運(yùn)行時(shí)是否可以3D效果顯示。16) FontBold 屬性：設(shè)置/返回字體粗體樣式。9） KeyPress事件：當(dāng)用戶按下或釋放ANSI一個(gè)鍵時(shí)發(fā)生。15) Value屬性：設(shè)置或返回控件的狀態(tài)。第二步：用Access建立一個(gè)名為Pad的數(shù)據(jù)庫，在庫中建立一個(gè)表Myset，給表添加四個(gè)字段：backcolor（數(shù)據(jù)），forecolor(文本），fontname(文本）,fontsize（文本）。 如果要搜索并檢索符合指定條件的數(shù)據(jù)，包括來自多個(gè)表中的數(shù)據(jù)，就要?jiǎng)?chuàng)建查詢。 39。若為修理，可填為0！, vbOKOnly + vbExclamation, 警告 Exit Sub Else If IsNumeric() Then = Format(, ) Else MsgBox 單價(jià)字段值為數(shù)字,請正確填寫！, vbOKOnly + vbExclamation, 警告 = Exit Sub End If End If End If If = Then MsgBox 金額字段不能為空，請?zhí)顚懀? vbOKOnly + vbExclamation, 警告 Exit Sub Else If IsNumeric() Then = Format(, ) Else MsgBox 金額字段值為數(shù)字,請正確填寫！, vbOKOnly + vbExclamation, 警告 = Exit Sub End If End If = + 1 = 1 = 0 = = 1 = = 2 = = 3 = = 4 If = Then = Else = End If = 5 If = Then = Else = End If = 6 = = 7 If = Then = Else = End If = = = = = = = = = True Unload MeEnd SubPrivate Sub Command2_Click() = = = = = = = = = FalseEnd SubPrivate Sub Command3_Click() Unload Me (2).Text = 添加進(jìn)庫單End SubPrivate Sub Form_Load() = 1 = 4 = 0 = 0 = 材料編碼 = 1 = 材料名稱 = 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 = FalseEnd SubPrivate Sub bo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then End IfEnd SubPrivate Sub MSFlexGrid2_DblClick() If = 0 Then Exit Sub End If = 0 = If Then Set myrecordset = (select * from Goods where Goodsid=39。) TableInit If = 1 Then Set Myrs2 = (select * from inlibdetail where 進(jìn)庫單號碼=39。) While = False Set Myrs2 = (select * from inlibdetail,goods where 材料編碼=39。) While = False Set Myrs2 = (select * from inlib where 進(jìn)庫單號碼=39。 and goodsid=材料編碼) While = False = + 1 = 1 = 0 = (進(jìn)庫單號碼)