【正文】
系統(tǒng)經(jīng)調(diào)試,可以安裝使用。 Exit Sub = False vbCrLf amp。 Beep = select * from 現(xiàn)有庫(kù)存表 where 現(xiàn)有庫(kù)存最小庫(kù)存Private Sub Timer2_Timer() 請(qǐng)查看庫(kù)存報(bào)警記錄 MsgBox 有設(shè)備庫(kù)存超過(guò)警戒庫(kù)存! amp。 If 0 Then End If MsgBox 沒(méi)有設(shè)備庫(kù)存量過(guò)少! Beep End IfEnd Sub MsgBox 沒(méi)有設(shè)備庫(kù)存過(guò)量! Beep MsgBox End Sub轉(zhuǎn)貼于 中國(guó)論文更新記錄程序同入庫(kù)的更新程序相同,在此略,程序略 Else If .EOF Then .MoveLast .Delete If YesNo = vbYes Then Dim YesNo As String End IfEnd SubPrivate Sub cmdDelete_Click( )刪除出庫(kù)記錄 STR = 現(xiàn)有庫(kù)存表中無(wú)此設(shè)備!請(qǐng)檢查輸入是否正確??! End If MsgBox 現(xiàn)有庫(kù)存量不足!請(qǐng)輸入合適數(shù)量??! J If k = 0 Then If 0 Then End If (用途) = (領(lǐng)取人) = (出庫(kù)時(shí)間) = (設(shè)備號(hào)) = Exit Sub STR = 現(xiàn)有庫(kù)存表中無(wú)此設(shè)備!請(qǐng)檢查輸入是否正確??! Exit Sub If = Or Text2 = Or = Or Text4 = Or Text5 = Or Text6 = Or Text7 = Then Exit Sub If IsNumeric(Text2) = False Then 39。 amp。 Dim STR As String MsgBox Private Sub Command1_Click( )設(shè)備出庫(kù)程序 On Error GoTo UpdateErr Exit SubEnd IfDeleteErr: End With .MoveNext With YesNo = MsgBox(刪除, vbYesNo, 刪除記錄) On Error GoTo DeleteErr End If Load frm設(shè)備代碼表 = MsgBox STR vbCrLf amp。 Else MsgBox 現(xiàn)有庫(kù)存量為: amp。 J = = CInt() + CInt() If 0 Then 39。 amp。 MsgBox 已經(jīng)成功入庫(kù)! (價(jià)格) = (供應(yīng)商) = (入庫(kù)數(shù)量) = Else 將記錄存入入庫(kù)記錄表 MsgBox 請(qǐng)輸入完整信息! Dim STR As String End If MsgBox 密碼修改成功?。? , 修改密碼 = Exit Sub ElseIf Text2 Text3 Then MsgBox 請(qǐng)輸入新密碼??!, , 修改密碼 Exit Sub ElseIf (密碼) Then MsgBox 請(qǐng)輸入原密碼!, , 修改密碼 = 密碼 模塊提供了獨(dú)立的動(dòng)作流以捕獲錯(cuò)誤,而宏做不到。它可以讓你像堆積木一樣建立一個(gè)功能強(qiáng)大的程序,而無(wú)須寫大量的代碼。它是衡量一個(gè)優(yōu)秀的數(shù)據(jù)庫(kù)的重要標(biāo)準(zhǔn)(有時(shí)甚至是唯一的標(biāo)準(zhǔn))。Access 2000為我們提供了強(qiáng)大的(同時(shí)也是相當(dāng)方便的向?qū)В﹣?lái)建立標(biāo)準(zhǔn)的Windows窗體。大量的操作(幾乎所有)都要通過(guò)窗體完成。你可以在查詢中選擇、更新、插入或刪除資料,也可以用查詢來(lái)建立新表。 查詢 為來(lái)自一個(gè)或多個(gè)表的資料提供定制視圖的對(duì)象。每一個(gè)表都包含有關(guān)某個(gè)主體的信息。Access的總體結(jié)構(gòu) Access將所有有名字的東西都成為對(duì)象(object),在Access 2000中,最重要的對(duì)象有表,查詢,窗體,報(bào)表,宏和模塊。 Access還提供windows操作系統(tǒng)的高級(jí)應(yīng)用程序開(kāi)發(fā)系統(tǒng)。它能操作其它來(lái)源的資料,包括許多流行的PC數(shù)據(jù)庫(kù)程序(如dBASE,Paradox,Microsoft FoxPro)和服務(wù)器、小型機(jī)及大型機(jī)上的許多SQL數(shù)據(jù)庫(kù)。 Access2000數(shù)據(jù)庫(kù)簡(jiǎn)介 作為Microsoft的office套件產(chǎn)品之一,access已經(jīng)成為世界上最流行的桌面數(shù)據(jù)庫(kù)系統(tǒng)。最重要的是,你可以利用成千上萬(wàn)的各種擴(kuò)充的控件來(lái)快速構(gòu)造幾乎能滿足你任何要求的程序。每個(gè)控件都有各自的屬性、事件及方法。 控件:控件就是Visual Basic提供的編程用的模塊,與對(duì)象有直接的聯(lián)系,如同積木的木塊,使用這樣的控件,就可以像拼圖或堆積木一樣“搭”、“拼”你的程序界面。 事件:就是對(duì)象對(duì)用戶各種操作的反映情況。屬性一般決定了對(duì)象的位置、大小、顯示等情況。 屬性:如同電視有黑白、彩色之分一樣,作為對(duì)象的Windows中的窗口也是有大有小,文本框的位置不可能完全一樣,菜單要顯示出不同的功能,這些都是由對(duì)象的屬性決定的。這種開(kāi)發(fā)者能親眼看到的程序設(shè)計(jì)過(guò)程就是“可視化程序設(shè)計(jì)”(Visual Programming) VB中的基本概念 對(duì)象:面向?qū)ο缶幊蹋∣OP)的提法大家一定也很耳熟,雖然Visual Basic并不是完全的面向?qū)ο缶幊?,但也利用了?duì)象編程技術(shù)。 編寫VB程序較為簡(jiǎn)單,首先將各個(gè)對(duì)象放在空白窗體上,然后將程序代碼分別添加給對(duì)象或圖標(biāo),將它們組合起來(lái)就可以隨意運(yùn)行了。當(dāng)存在外來(lái)事件時(shí),程序段執(zhí)行,它的執(zhí) 行是由外來(lái)事件決定的。 VB程序設(shè)計(jì)的概念就是面向?qū)ο蟮母拍睿瑢?duì)象就是數(shù)據(jù)(DATA)和代碼(CODE)互相結(jié)合的綜合體。 l 支持動(dòng)態(tài)數(shù)據(jù)交換(DDE)、動(dòng)態(tài)鏈接庫(kù)(DLL)和對(duì)象的鏈接與嵌入(OLE)技術(shù) 完備的HELP聯(lián)機(jī)幫助功能l 與Windows環(huán)境下的軟件一樣,在VB中,利用幫助菜單和F1功能鍵,用戶可以隨時(shí)方便地得到所需要的幫助信息。 216。 過(guò)程可遞歸調(diào)用,使程序更為簡(jiǎn)練 支持隨機(jī)文件和順序文件的訪問(wèn)216。 提供靜態(tài)和動(dòng)態(tài)數(shù)組,有利于簡(jiǎn)化內(nèi)存的管理216。 結(jié)構(gòu)化的程序設(shè)計(jì)語(yǔ)言l VB具有豐富的數(shù)據(jù)類型和結(jié)構(gòu)化程序結(jié)構(gòu),作為一種程序設(shè)計(jì)語(yǔ)言,它還有如下一些特點(diǎn): 216。程序員