計算機專業(yè)(高職大專)畢業(yè)論文--圖書管理系統(tǒng)-在線瀏覽
2024-11-12 17:31本頁面
【正文】 LogonBackColor RGB 192 210 270 End Sub 保存 Private Sub cmdSave_Click Dim objcopy As New Recordset If Trim txtNum Then MsgBox 不能為空 vbCritical 系統(tǒng)用戶管理 txtNumSetFocus txtNumSelStart 0 txtNumSelLength Len txtNum ElseIf Len Trim txtPwd 6 Then MsgBox 用戶口令須為 6 位字符串 vbCritical 系統(tǒng)用戶管理 txtPwdSetFocus txtPwdSelStart 0 txtPwdSelLength Len txtPwd ElseIf Not txtAuth Like [01] Then MsgBox 用戶權(quán)限必須為 0 或 1 vbCritical 系統(tǒng)用戶管理 txtAuth txtAuthSetFocus Else Set objcopy Library_Mae 對錯 With objcopy If RecordCount 0 Then MoveFirst Find 編號 Trim txtNum If Not EOF And AbsolutePosition Library_MalutePosition Then MsgBox 編號 Trim txtNum 已被使用請選擇其他編號 vbCritical 系統(tǒng)用戶管理 txtNumSetFocus txtNumSelStart 0 txtNumSelLength Len txtNum Exit Sub Else 保存記錄 Library_Mate MsgBox 數(shù)據(jù)保存成功 vbInformation 系統(tǒng)用戶管理 cmdAddEnabled True cmdDelEnabled True isAdding False picNavigationEnabled True End If End With End If End Sub Private Sub Form_Load cmdMove 0 Value True End Sub Library_ManageLibrary_Manage_ConExecute TRUNCATE TABLE 讀者類別 With Library_ManageReaderType If State adStateClosed Then Open AddNew Fields 編號 0 Fields 名稱 特殊 Fields 借書量 Val txtSp 1 Fields 借書期 Val txtSp 2 Fields 有效期 Val txtSp 3 Update AddNew Fields 編號 1 Fields 名稱 館員 Fields 借書量 Val txtL 1 Fields 借書期 Val txtL 2 Fields 有效期 Val txtL 3 Update AddNew Update AddNew Fields 編號 2 Fields 名稱 教師 Fields 借書量 Val txtT 1 Fields 借書期 Val txtT 2 Fields 有效期 Val txtT 3 Update AddNew Fields 編號 3 Fields 名稱 學(xué)生 Fields 借書量 Val txtS 1 Fields 借書期 Val txtS 2 Fields 有效期 Val txtS 3 Update End With End Sub Private Sub Form_Load cmdMove 0 Value True End Sub Private Sub SSTab1_DblClick End Sub 圖書征訂管理窗體 圖書征訂管理窗體 txtPubDateSelLength Len txtPubDate ElseIf Trim txtAuthor Then MsgBox 作者不能為空 vbCritical 圖書征訂管理 txtAuthorSetFocus txtAuthorSelStart 0 txtAuthorSelLength Len txtAuthor ElseIf Val txtNum Then MsgBox 正的數(shù)量無效 vbCritical 圖書征訂管理 txtNumSetFocus txtNumSelStart 0 txtNumSelLength Len txtNum ElseIf Not IsDate txtDate Then MsgBox 作者不能為空 vbCritical 圖書征訂管理 txtDateSetFocus txtDateSelStart 0 txtDateSelLength Len txtDate Else 保存記錄 Library_ManagersBooksOrder Update MsgBox 數(shù)據(jù)保存成功 vbInformation 圖書征訂管理 cmdAddEnabled True cmdDelEnabled
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1