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

　　

【正文】 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 = 資產(chǎn)登記 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 資產(chǎn)名稱不能為空！ , 16, 出錯： t3(0).Text = 123 = 資產(chǎn)登記 = 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 您的數(shù)據(jù)庫中沒有記錄！ , 16, 出錯： Else If = 修改記錄 Then = 修改完畢 = False = False = True = 修改記錄： Else If t3(0).Text = Then MsgBox 資產(chǎn)名稱不能為空！ , 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 = 數(shù)據(jù)輸入： 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 (資產(chǎn)名稱 ).Value = Then = (資產(chǎn)名稱 ).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