【正文】 實(shí)用軟件工程教程 高等教育出版社 2021 11 （英） Ian Sommerville 機(jī)械工業(yè)出版社 2021 12 美 Cantu,U. 王輝等譯 visual basic 從入門到精通 電子工業(yè)出版社 2021 13 李維 面向?qū)ο箝_(kāi)發(fā)實(shí)踐之路（ visual basic 版） (BORLAND 資深顧問(wèn)著名 visual basic 專家李維最新力作 ) 電子工業(yè)出版社 14 秦斌 等 visual basic 數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)與應(yīng)用 中國(guó)水利水電出版社 2021 .1 15 劉藝 visual basic 面向?qū)ο缶幊趟枷? 機(jī)械工業(yè)出版社 2021 basic 程序設(shè)計(jì)第二版 譚浩強(qiáng) 清華大學(xué)出版社 2021 17. visual 程序設(shè)計(jì)教程 . 胡同森 趙劍鋒等 . 浙江科學(xué)技術(shù)出版社 , (第二版 ) 周蘇 王文 著 科學(xué)出版社 2021 Basic 程序設(shè)計(jì)與開(kāi)發(fā)技術(shù) 求是科技 人民郵電出版社 veother case beincurable. If any one convict in a court of law a stranger or aslave of a theft of public property, let the court determine whatpunishment he sha ll suffer, or what penalty he shall pay, bearing inmind that he is probably not incurable. But the citizen w ho has beenbrought up as our citizens w ill have been, if he be fou nd guilty ofrobbing his country by fraud sold anyadulterated goods, in addition to losing the goods themselves, shallbe beaten with stripesa stripe for a drachma, according to theprice of the goods。 amp。 .Refresh If . adPosUnknown Then = False If .(數(shù)量 ) 0 Then = False = = = = = = = 請(qǐng)?zhí)?寫備注 MsgBox 該藥品或器械庫(kù)存結(jié)余，不能繼續(xù)入庫(kù)！ = False = False = = Else = amp。 .(失效期 ) = CDate(rq3) .(備注 ) = . End If = False = True = True = Else MsgBox 該庫(kù)存藥品已經(jīng)失效，須清理后才能入庫(kù)！ End If End With Exit Sub err2: MsgBox 登記項(xiàng)目填寫不全或數(shù)據(jù)類型不匹配！ End Sub Private Sub Command3_Click() End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Form_Load() On Error GoTo err4 = ( ) / 2 500 = ( ) / 2 = = = = False = False = True = False = False = 2021 = 01 = 01 = 2021 = 01 = 01 = 2021 = 01 = 01 = 請(qǐng)?zhí)顚憘渥? Exit Sub err4: MsgBox 遠(yuǎn)程服務(wù)器連接失??！ End Sub Private Sub Text1_Change() On Error GoTo err3 With Adodc2 .RecordSource = select * from amp。 where 編號(hào) =39。 amp。 將每位進(jìn)行轉(zhuǎn)換 KeyVal = KeyVal + Hex(Asc(Mid(tmpVal, i, 1))) 39。 39。 錯(cuò)誤 文件不能被 找到 ... Else GoTo SysInfoErr End If 39。 amp。 amp。 20 世紀(jì) 70 年代以后開(kāi)發(fā)的數(shù)據(jù)庫(kù)管理系統(tǒng)產(chǎn)品幾乎都是基于關(guān)系的。 4） GotFocus 事件：在對(duì)象獲的焦點(diǎn)時(shí)發(fā)生。 ? 復(fù)選按鈕類的控件： 1) Caption 屬性：缺省為 check1? 。 20) FontName 屬性：設(shè)置 /返回控件中顯示文本所用的字體大小。 4) Index 屬性：屬性值表示為單選按鈕組成的控件中某個(gè)按鈕的索引值。 8） MouseMove 事件：當(dāng)命令按鈕上移動(dòng)鼠標(biāo)時(shí)發(fā)生。在眾多的開(kāi)發(fā)工具中，我們?yōu)槭裁匆x擇Visual 呢？因?yàn)?VB 具有眾多其它開(kāi)發(fā)工具所沒(méi)有的優(yōu)點(diǎn)！具體介紹如下： ? 開(kāi)發(fā)的高效 ? 語(yǔ)言的 高效 ? 編譯的高效 ? 執(zhí)行的高效 ? 維護(hù)的高效 基于以上理由，我們毫不憂郁的選擇了 做為我們的開(kāi)發(fā)工具??！ 主要的控件及其基本屬性，事件簡(jiǎn)介 ? 命令按鈕類的控件： 1) Caption 屬性：用來(lái)顯示在控件上的標(biāo)題。以前開(kāi)發(fā) Windows 應(yīng)用軟件是專業(yè)人員的工作，需要掌握許多專業(yè)知識(shí)和經(jīng)過(guò)特殊的培訓(xùn)才能勝任。 對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。 6) Default 屬性 :決定哪一個(gè)命令按鈕控件是窗體的缺省命令按 鈕 . 7) Font 屬性 :控制各種文字字體類型 . 8) Left,top,height,width 屬性 :設(shè)定控件的位置與大小 . 9) Style,picture 屬性 :決定按鈕的顯示方式是否為圖像形式出現(xiàn) . 10) Visible 屬性 :確定控件運(yùn)行時(shí)是否為可見(jiàn) . 11) Index 屬性 :當(dāng)控件為一控件數(shù)組時(shí) ,此屬性值為該控件在數(shù)組的下標(biāo)值 . 12) DownPicture 屬性：設(shè)置 /返回一個(gè)對(duì)圖片的引用，該圖片在按鈕被單擊處于壓下?tīng)顟B(tài)時(shí)顯示。 ? 文本框類 的控件： 1) Text 屬性：通過(guò)像 text 屬性賦值的方法來(lái)改變?cè)搶傩缘闹怠? 9) Container 屬性：設(shè)置 /返回 Form 上的控件屬性。 2） DbClick 事件： 當(dāng)在一個(gè)對(duì)象上按下和釋放鼠標(biāo)按鈕并再次按下和釋放按鈕時(shí)，該事件發(fā)生。 8) Datasource 屬性：設(shè)置或返回控件綁定的一個(gè)數(shù)據(jù)源。 2) Max 和 min 屬性：對(duì) value 值的最大 ,最小進(jìn)行限制。在這個(gè)文件中，用戶可以將自己的數(shù)據(jù)分別保存在各自獨(dú)立的存儲(chǔ)空間中，這些空間稱作表；可以使用聯(lián)機(jī)窗體來(lái)查看、添加及更新表中的數(shù)據(jù)；使用查詢來(lái)查找并檢索所要的數(shù)據(jù)；也可以使用報(bào)表以特定的版面布置來(lái)分析及打印數(shù)據(jù)。 密碼 = amp。 amp。 Dim KeyValType As Long 39。 Win95 外接程序空終結(jié)字符串 ... tmpVal = Left(tmpVal, KeyValSize 1) 39。 轉(zhuǎn)換四字節(jié)的字符為字符串 End Select GetKeyValue = True 39。 .(采購(gòu)日期 ) = CDate(rq1) rq2 = amp。 amp。 39。 amp。 .Refresh If . adPosUnknown Then = .(1) = True Else = False End If End With Exit Sub err5: MsgBox 數(shù)據(jù)庫(kù)連接失?。? End Sub 6:主界面設(shè)計(jì) : 代碼設(shè)計(jì) : Private Sub menu22_Click() End Sub Private Sub menu31_Click() If = 0 Then Else MsgBox 只能超級(jí)用戶才能執(zhí)行此操作！ End If End Sub Private Sub menu33_Click() If = 0 Then Else MsgBox 只能超級(jí)用戶才能執(zhí)行此操作！ End If End Sub Private Sub menu34_Click() End Sub Private Sub menu41_Click() vbCascade End Sub Private Sub menu43_Click() vbTileVertical End Sub Private Sub menu44_Click() vbArrangeIcons End Sub Private Sub menu51_Click() Dim help As Long help = StartDoc( amp。 wherefore all that relates to retail trade, andmerchandise , and the keeping of taverns, is denounced and numberedamong dishonourable things. For if what I trust may never be andwill not be, we were to pel, if I may venture to say a ridiculousthing, the be st men everywhere to keep taverns for a time, or carry onretail trade, or do anything of that sort。 致謝 我首先感謝我的指導(dǎo)老師呂老師，在他嚴(yán)格的要求下我懂得了開(kāi)發(fā)軟件要有一種極其認(rèn)真負(fù)責(zé)的態(tài)度。 End Sub Private Sub Text3_GotFocus() = 0 = Len() End Sub Private Sub Text4_GotFocus() = 0 = Len() End Sub Private Sub Text5_GotFocus() = 0 = Len() End Sub Private Sub Text6_GotFocus() = 0 = Len() End Sub Private Sub Text7_GotFocus() = 0 = Len() End Sub Private Sub Text17_GotFocus() = 0 = Len() End Sub Private Sub Text1_GotFocus() = 0 = Len() End Sub Private Sub Text18_GotFocus() = 0 = Len() End Sub Private Sub Text6_Change() On Error GoTo err0 With Adodc3 .RecordSource = select 名稱 ,代碼 from othercode where 代碼 =39。 amp。 amp。 amp。 返回失敗 rc = RegCloseKey(hKey) 39。 Select Ca