【文章內(nèi)容簡(jiǎn)介】 有用戶(hù)管理表，教材出庫(kù)表，教材入庫(kù)表，教材征訂表，教材庫(kù)存表 ： 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 姓名 文 本 密碼 文本 權(quán)限 文本 ： 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 教材 倉(cāng)庫(kù) 供應(yīng)商 班級(jí) 入庫(kù) 1 N N M N M 訂貨 出庫(kù) 沈陽(yáng)理工大學(xué) 17 教材名稱(chēng) 文本 系別 文本 班級(jí) 文本 單價(jià) 數(shù)字 數(shù)量 數(shù)字 總金額 數(shù)字 出庫(kù)時(shí)間 日期 ： 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 教材名 文本 作者 文本 出版社 文本 出版日期 日期 數(shù)量 數(shù)字 征訂時(shí)間 日期 征訂人 文本 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 教材名 文本 作者 文本 出版社 文本 出版日期 日期 書(shū)類(lèi)別 文本 單價(jià) 數(shù)量 數(shù)量 數(shù) 量 總金額 數(shù)量 經(jīng)手人 文本 入庫(kù)日期 日期 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 教材名 文本 作者 文本 出版社 文本 出版日期 日期 單價(jià) 日期 書(shū)類(lèi)別 文本 庫(kù)存數(shù)量 數(shù)量 沈陽(yáng)理工大學(xué) 18 代碼設(shè)計(jì) 設(shè)計(jì)問(wèn)題是一個(gè)科學(xué)管理的問(wèn)題。設(shè)計(jì)出一個(gè)好的代碼方案對(duì)于系統(tǒng)的開(kāi)發(fā)工作是一件極為有利的事情。它可以使很多機(jī)器處理 (如某些統(tǒng)計(jì)、校對(duì)查詢(xún)等 )變得十分方便 ,另外還把一些現(xiàn)階段計(jì)算機(jī)很難處理的工作變成很簡(jiǎn)單的處理。 代碼就是以數(shù)或字符來(lái)代表各種客觀實(shí)體。在現(xiàn)實(shí)世界中有很 多東西如果我們不加標(biāo)識(shí)是無(wú)法區(qū)分的 ,這時(shí)機(jī)器處理就十分困難。所以能否將原來(lái)不能確定的東西 ,唯一地加以標(biāo)識(shí)是編制代碼的首要任務(wù)。 以教材編號(hào)為例。 在 教材管理中 不難發(fā)現(xiàn) ,有的書(shū)籍雖然名字一樣，但是出版日期，著作人不一樣 ,為了能夠區(qū)分開(kāi)這樣的書(shū)籍而編制教材編碼（教材號(hào)： 001001 001002 001003 001004 001005）。 唯一化雖是代碼設(shè)計(jì)的首要任務(wù)。但如果我們僅僅為了唯一化來(lái)編制代碼 ,那么代碼編出來(lái)后可能是雜亂無(wú)章的 ,使人無(wú)法辨認(rèn) ,而且使用起來(lái)也不方便。例如 ,在管理系統(tǒng)中 關(guān)于 計(jì)算機(jī)類(lèi) 的 書(shū)籍以“ 01”打頭 ， 其中 “01001”表示 計(jì)算機(jī)硬件書(shū)籍， 01002 表 示 計(jì)算機(jī)軟件書(shū)籍， 01003”表示 計(jì)算機(jī)信息管理書(shū)籍 等。這樣在查找或統(tǒng)計(jì)某一類(lèi) 專(zhuān)業(yè)書(shū)籍 時(shí)就十分方便了。 （專(zhuān)業(yè)代碼： 01001 01002 01003 02020 03003 04004）為了保持系統(tǒng)的合理性，在代碼設(shè)置時(shí)也要注意系統(tǒng)化規(guī)范。例如， 001 表示書(shū)記所在的地區(qū)里面擁有的書(shū)籍編號(hào)從001001 到 001070 當(dāng)有新書(shū)加入時(shí)則會(huì)自動(dòng)生成書(shū)號(hào) 001071。（區(qū)號(hào)： 001 002 003 004 ） 如教材代碼設(shè)計(jì) =教材編號(hào) +教材類(lèi)別 +出版社 +任課教師 =0001（數(shù)理統(tǒng)計(jì)） 001（數(shù)學(xué)類(lèi)） 001（機(jī)械工業(yè)出版社） 001（胡雷） 界面設(shè)計(jì) 登陸界面 包括姓名，權(quán)限和密碼，與數(shù)據(jù)庫(kù)用戶(hù)管理表相連 如圖 圖 代碼設(shè)計(jì) 。 沈陽(yáng)理工大學(xué) 19 Private Sub Command1_Click() = select * from 用戶(hù)管理 where user=39。 amp。 Trim() amp。 39。 Dim $ If Trim() = Then MsgBox 用戶(hù)名不能為空 !, , 錯(cuò)誤 Exit Sub End If If Then MsgBox 用戶(hù)不存在 !, , 錯(cuò)誤 = = = select * from 用戶(hù)管理 Else = Trim() If (qx) RTrim() Then MsgBox 權(quán)限錯(cuò)誤 , , 錯(cuò)誤 = select * from 用戶(hù)管理 = Else If Trim() Trim((password)) Then If mi = 2 Then MsgBox 密碼輸入錯(cuò)誤三次 + Chr(13) + Chr(10) + 自動(dòng)關(guān)閉本系統(tǒng) , , 學(xué)生教材管理軟件 Unload Me Else MsgBox 密碼錯(cuò)誤 !, , 錯(cuò)誤 mi = mi + 1 = select * from 用戶(hù)管理 = = End If Else If Trim() = 管理員 Then 沈陽(yáng)理工大學(xué) 20 Unload Me 主窗體 .Show Else Unload Me 主窗體 .Show With 主窗體 . = False . = False . = False End With End If End If End If End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Activate() mi = 0 End Sub 39。Private Sub Form_Load() 39。mi = 0 39。End Sub Private Sub Form_Load() End Sub 主界面 在登陸界面輸入姓名，權(quán)限和密碼正確后，進(jìn)入主界面 ，包括系統(tǒng)管理和教材管理兩大模塊，其中系統(tǒng)管理有用戶(hù)管理和退出；教材管理有教材征訂，教材入庫(kù)，教材出庫(kù)和教材庫(kù)存查詢(xún)。 如 圖 沈陽(yáng)理工大學(xué) 21 圖 教師界面 A 教材征訂 ：選擇主界面教材征訂進(jìn)入教材征訂 界面， 征訂時(shí)輸入教材名，作者，出版社，出版時(shí)間，征訂時(shí)間，征訂人還有數(shù)量。如圖 圖 代碼設(shè)計(jì)： Private Sub Command1_Click() Dim i%, j%, m% Select Case Case 繼續(xù) = 征訂 = False = False = False = True Case 征訂 沈陽(yáng)理工大學(xué) 22 i = Len(Trim()) If = Or = Or Trim() = Then MsgBox 信息不完 整！ , vbOKOnly + vbInformation: ElseIf Trim() Then m = 1 For j = 1 To i If Asc(Mid$(Trim(), j, 1)) 48 Or Asc(Mid$(Trim(), j, 1)) 57 Then MsgBox 請(qǐng)正確輸入數(shù)據(jù)！ , vbOKOnly + vbInformation = m = 0 Exit For End If Next j If m Then = select * from 教材征訂表 where 教材名 =39。 amp。 Trim() amp。 39。 and 作者 =39。 amp。 Trim() amp。 39。 and 出版社 =39。 amp。 Trim() amp。 39。 and 出版日期 = amp。 Trim(Str$()) amp。 If = 0 Then 39。 = select * from 教材征訂表 39。 (0) = Trim() (1) = Trim() (2) = Trim()