【正文】
39。39。39。39。39。39。39。39。39。39。39。 End If End If End Sub Private Sub Command3_Click() If = True And = True Then MsgBox 您的數(shù)據(jù)庫(kù)中沒(méi)有記錄! , 16, 出錯(cuò): Else If = 修改記錄 Then = 修改完畢 = False = False = True = 修改記錄: Else If t3(0).Text = Then MsgBox 資產(chǎn)名稱不能為空! , 16, 出錯(cuò): Else For X = 11 To 13 If Len(Trim(t3(X).Text)) 200 Then MsgBox 字符不能超過(guò) 200 個(gè)! , 16, 出錯(cuò): Exit Sub 36 End If Next X = 修改記錄 = True = True = False = 數(shù)據(jù)輸入: End If End If End If End Sub : Private Sub Command10_Click() If = Then MsgBox 沒(méi)有輸入查詢條件! , 16, 提示! = End If Do While True If (使用人 ).Value = Then = (使用人 ).Value 37 Exit Do End If Loop = End Sub Private Sub Command11_Click() If = Then MsgBox 您沒(méi)有輸入要查詢的條件! , 16, 出錯(cuò): End If Do While True If (資產(chǎn)名稱 ).Value = Then = (資產(chǎn)名稱 ).Value Exit Do End If Loop = End Sub Private Sub Command9_Click() If = Then MsgBox 您沒(méi)有輸入要查詢的條件! , 16, 出錯(cuò): End If Do While True If (編號(hào) ).Value = Then = (編號(hào) ).Value 38 Exit Do End If Loop = End Sub Private Sub Form_Load() = readchinesedata(14) = readchinesedata(1) = readchinesedata(8) = readchinesedata(9) = readchinesedata(15) = readchinesedata(5) toaccess 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 35 Call torfid 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 End Sub : Private Sub torfid() Call writechinesedata(1, t3(0).Text) 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 1 39。 beep i = rf_beep(0, amp。all light red on i = rf_light(0, amp。 Hex(buf1(i)), 2) 32 Next i 39。Anticollision i = rf_anticoll(0, 4, buf1(0), b1) If (i 0) Then MsgBox (檢測(cè)到多張標(biāo)簽! ) Exit Sub End If s1 = For i = 0 To b1 1 s1 = s1 amp。Request i = rf_request(0, amp。all light off i = rf_light(0, amp。, baudamp。初始化 Dim iamp。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 VISUAL BASIC 程序設(shè)計(jì)-數(shù)據(jù)庫(kù)篇 電子工業(yè)出版社 1999 30 31 附錄 : : Private Sub sjcx_Click() 39。 28 29 參考文獻(xiàn) [1] 孫燕,陳寧,張芃 Visual Basic 程序設(shè)計(jì) 北京:高等教育出版社,2020 [2] 潘萌榮,射頻識(shí)別技術(shù)( RFID)應(yīng)用研究,華東師范大學(xué)碩士學(xué)位論文 2020 [3] 黨琦 基于射頻識(shí)別技術(shù)的 IT 資產(chǎn)管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn),北京郵電大學(xué)碩士學(xué)位論文 2020 [4] 游戰(zhàn)清,李蘇劍等 無(wú)線射頻技術(shù)( RFID)原理與應(yīng)用 電子工業(yè)出版社, 2020 [5]邱光誼。在此我要再一此向所有幫助我和支持我的老師,同學(xué)表示深深的感謝。如果沒(méi)有老師的幫助我相信我很難在預(yù)期的時(shí)間內(nèi)完成畢業(yè)設(shè)計(jì)。 首先,我要特別感謝我的指導(dǎo)老師 李洪 老師,在這幾個(gè) 月的畢業(yè)設(shè)計(jì)過(guò)程中,老師在畢業(yè)設(shè)計(jì)的選題和分析過(guò)程中給了我很多提示和幫助,在整個(gè)的設(shè)計(jì)過(guò)程中給了我大量寶貴的資料。 ( 2)系統(tǒng)較簡(jiǎn)單,只適用于中小規(guī)模的數(shù)據(jù)量的需求,而且系統(tǒng)數(shù)據(jù)是在實(shí)驗(yàn)室條件下進(jìn)行的,還沒(méi)經(jīng)過(guò)實(shí)際的考驗(yàn),在實(shí)際應(yīng)用方面還有待 做進(jìn)一步的研究和改進(jìn)。但由于時(shí)間比較倉(cāng)促,和經(jīng)驗(yàn)不足,還請(qǐng)老師批評(píng)指正。功能達(dá)到設(shè)計(jì) 要求。首先在分析和解決問(wèn)題的時(shí)候考慮不夠周全,功能不是十分完善;還有就是對(duì) RFID 這方面的知識(shí)掌握的 不夠牢固, 還需要再以后的工作中加強(qiáng)和繼續(xù)努力。系統(tǒng)功能基本與設(shè)計(jì)初期構(gòu)想一致,基本能夠滿足固定資產(chǎn)管理日常工作的需要。如下圖所示 圖 46 系統(tǒng)資產(chǎn)信息打印界面 25 經(jīng)過(guò)了 幾個(gè) 月的調(diào)查研究與設(shè)計(jì)。 24 圖 44 系統(tǒng)資產(chǎn)查詢界面 ( 4) 資產(chǎn)轉(zhuǎn)移界面 資產(chǎn)轉(zhuǎn)移管理模塊,是對(duì)固定資產(chǎn)在使用過(guò)程中使用單位、使用人或者是放置地點(diǎn)的變更進(jìn)行的操作。 其界面如圖 42 圖 42 系統(tǒng)主界面 23 ( 3) 資產(chǎn)錄入界面 ? 資產(chǎn)登記 對(duì)于固定資產(chǎn)的編號(hào),資產(chǎn)名稱,資產(chǎn)型號(hào),制造商,國(guó)別,購(gòu)買日期,單價(jià),數(shù)量,使用單位,使用人,管理員,放置地點(diǎn),已使用年限,資產(chǎn)來(lái)源,報(bào)年限,聯(lián)系電話等記錄進(jìn)行錄入,刪除,修改,打印操作 。在系統(tǒng)程序設(shè)計(jì)上主要是系統(tǒng)與讀寫器連接的設(shè)計(jì)與讀取電子標(biāo)簽數(shù)據(jù)的設(shè)計(jì),其程序的實(shí)現(xiàn)請(qǐng)見(jiàn)附錄,其具體程序設(shè)計(jì)流程圖如下: ( 1) 系統(tǒng)連接讀卡器流程圖 : 圖 系統(tǒng)連接讀卡器流程圖 開(kāi)始 系統(tǒng)界面 是否連接上讀卡器 已連接 結(jié)束 否 是 21 ( 2) 資產(chǎn)信息寫入標(biāo)簽流程圖: 圖 36 資產(chǎn)信息寫入標(biāo)簽 流程圖 ( 3) 讀取電子標(biāo)簽數(shù)據(jù)流程圖: 圖 37標(biāo)簽讀取資產(chǎn)信息流程圖 資產(chǎn)查詢界面 是否 有標(biāo)簽 讀取資產(chǎn)信息 結(jié)束 開(kāi)始 已連接讀寫器 否 是 開(kāi)始 資產(chǎn)登記界面 是否 有新標(biāo)簽 寫入資產(chǎn)信息 結(jié)束 已連接讀卡器 否 是 22