基于rfid固定資產(chǎn)管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)-資料下載頁(yè)
2025-06-27 22:58本頁(yè)面
【正文】 。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)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 WRsuccessEnd SubPrivate Sub Command1_Click()If = 資產(chǎn)登記 Thenr = 1 If = True And = True Then Else End IfFor X = 1 To 1 If = True Then = Y Exit For Else End IfX = X 1r = r + 1Next X = 登記完畢 = False = False = TrueElse If t3(0).Text = Then MsgBox 資產(chǎn)名稱不能為空！, 16, 出錯(cuò)： t3(0).Text = 123 = 資產(chǎn)登記 = True = True = False Else For X = 11 To 13 If Len(Trim(t3(X).Text)) 200 Then MsgBox 字符不能超過(guò)200個(gè)！, 16, 出錯(cuò)： 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。 Call torfid39。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 IfEnd IfEnd SubPrivate Sub Command3_Click()If = True And = True ThenMsgBox 您的數(shù)據(jù)庫(kù)中沒(méi)有記錄！, 16, 出錯(cuò)：ElseIf = 修改記錄 Then = 修改完畢 = False = False = True = 修改記錄：ElseIf t3(0).Text = ThenMsgBox 資產(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 End If Next X = 修改記錄 = True = True = False = 數(shù)據(jù)輸入：End IfEnd IfEnd IfEnd Sub：Private Sub Command10_Click()If = ThenMsgBox 沒(méi)有輸入查詢條件！, 16, 提示！ = End IfDo While TrueIf (使用人).Value = Then = (使用人).ValueExit DoEnd IfLoop = End SubPrivate Sub Command11_Click()If = ThenMsgBox 您沒(méi)有輸入要查詢的條件！, 16, 出錯(cuò)：End IfDo While TrueIf (資產(chǎn)名稱).Value = Then = (資產(chǎn)名稱).ValueExit DoEnd IfLoop = End SubPrivate Sub Command9_Click()If = ThenMsgBox 您沒(méi)有輸入要查詢的條件！, 16, 出錯(cuò)：End IfDo While TrueIf (編號(hào)).Value = Then = (編號(hào)).ValueExit DoEnd IfLoop = End SubPrivate Sub Form_Load() = readchinesedata(14) = readchinesedata(1) = readchinesedata(8) = readchinesedata(9) = readchinesedata(15) = readchinesedata(5) toaccess39。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
化學(xué)相關(guān)推薦
鄂ICP備17016276號(hào)-1