基于rfid固定資產管理系統設計與實現畢業論文-資料下載頁

【導讀】基于RFID固定資產管理系統通過使用電子標簽、讀寫器、軟件來對固。定資產進行跟蹤管理，提高企事業固定資產管理工作的工作效率和管理水平。以RFID為信息采集平臺，通過建立物—物聯網，使得繼計算機、互聯網之。后又一信息熱門方向。防沖撞技術和安全保護等方面。許多國內外公司對RFID的研究主要集中在小型。便攜式RFID超高頻讀寫器模塊和RFID超高頻射頻芯片開發上。切的芯片技術更加成熟。RFID應用以來，國外RFID行業取得了飛速發展，美國。在距離動物識別、物品追溯中的應用等等。目前，從區域來看，美國和歐洲是。RFID應用的主要地區，其次是亞太和日本。國內主要是應用于鐵路車號識別、

　　

【正文】 ct card i = rf_select(0, buf1(0), 4, b1) If (i 0) Then MsgBox (鎖定標簽失敗！ ) Exit Sub Exit Sub End If 39。all light red on i = rf_light(0, amp。H2) 39。 beep i = rf_beep(0, amp。H20) 39。 1 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。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。 End Sub ： Private Sub torfid() Call writechinesedata(1, t3(0).Text) 39。Call writechinesedata(1, t3(1).Text) Call writechinesedata(2, t3(2).Text) Call writechinesedata(3, t3(3).Text) Call writechinesedata(4, t3(4).Text) Call writechinesedata(5, t3(5).Text) Call writechinesedata(6, t3(6).Text) Call writechinesedata(7, t3(7).Text) Call writechinesedata(8, t3(8).Text) Call writechinesedata(9, t3(9).Text) Call writechinesedata(10, t3(10).Text) 33 Call writechinesedata(11, t3(11).Text) Call writechinesedata(12, t3(12).Text) Call writechinesedata(13, t3(13).Text) Call writechinesedata(14, t3(14).Text) Call writechinesedata(15, t3(15).Text) Call WRsuccess End Sub Private Sub Command1_Click() If = 資產登記 Then r = 1 If = True And = True Then Else End If For X = 1 To 1 If = True Then = Y Exit For Else End If X = X 1 r = r + 1 Next X = 登記完畢 = False = False = True Else 34 If t3(0).Text = Then MsgBox 資產名稱不能為空！ , 16, 出錯： t3(0).Text = 123 = 資產登記 = True = True = False Else For X = 11 To 13 If Len(Trim(t3(X).Text)) 200 Then MsgBox 字符不能超過 200 個！ , 16, 出錯： Exit Sub End If Next X = 輸入新記錄 = True = True = False 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。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。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 If End If End Sub Private Sub Command3_Click() If = True And = True Then MsgBox 您的數據庫中沒有記錄！ , 16, 出錯： Else If = 修改記錄 Then = 修改完畢 = False = False = True = 修改記錄： Else If t3(0).Text = Then MsgBox 資產名稱不能為空！ , 16, 出錯： Else For X = 11 To 13 If Len(Trim(t3(X).Text)) 200 Then MsgBox 字符不能超過 200 個！ , 16, 出錯： Exit Sub 36 End If Next X = 修改記錄 = True = True = False = 數據輸入： End If End If End If End Sub ： Private Sub Command10_Click() If = Then MsgBox 沒有輸入查詢條件！ , 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 您沒有輸入要查詢的條件！ , 16, 出錯： End If Do While True If (資產名稱 ).Value = Then = (資產名稱 ).Value Exit Do End If Loop = End Sub Private Sub Command9_Click() If = Then MsgBox 您沒有輸入要查詢的條件！ , 16, 出錯： End If Do While True If (編號 ).Value = Then = (編號 ).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。Call append_a_Click