sqlvb圖書管理系統-資料下載頁
2025-02-10 09:19本頁面
【導讀】的特點、方法和步驟。5人組成一組，共同開發(fā)完成；假定需要保存"圖書"，“讀者”，“借閱”和'作者'信息以及他們之間的關系。1）能對以上三個基本信息進行添加、修改和刪除等操作。3）能隨時查詢讀者的借閱情況；4）能完成借書和還書的功能；數據庫應用系統的開發(fā)包括數據庫設計和應用程序設計兩部分。之前，首先要進行系統分析。這一階段的任務是通過調查研究，了解應用系統使用者的組織。機構、業(yè)務范疇，確定新系統的目標，并且對系統開發(fā)能否達到這一目標做出可行性分析。統測試、系統運行與維護。端，這樣，為了一個特定的任務，客戶機上的程序可以和服務器上的程序協同合作。VB不僅是一種程序設計，它也是一個開發(fā)數據庫應用或其他應用的環(huán)境。的人員提供可視化的設計環(huán)境，提供了構造用戶界面所需的大多數可視化對象。創(chuàng)建表、建索引、查詢數據等功能，方便了數據開發(fā)。MsgBox"請輸入用戶名！MsgBox"前后密碼不一致！
【正文】 = = = = = Else = (dname).Value = (tname).Value = (trjiedate).Value End If End If End Sub Private Sub Command2_Click() Dim rst_input As New Dim sql As String sql = select * from tr sql, n, adOpenDynamic, adLockOptimistic If = Or = Then MsgBox 請輸入讀者編號或圖書編號！ , vbOKOnly + vbExclamation, ElseIf = Then MsgBox 請輸入還書日期！ , vbOKOnly + vbExclamation, Else (trhuandate) = Trim() = update tushu set tamount=tamount+1 where tno=39。 amp。 amp。 39。 MsgBox 還書成功！ , vbOKOnly, = = = = = = End If End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Command1_Click() Dim rst_login As New If Trim() = Then 39。判斷輸入的用戶名是否為空 MsgBox 沒有這個用戶 , vbOKOnly + vbExclamation, = = = = Else select * from usertable where username=39。 amp。 amp。 39。, n, adOpenKeyset, adLockPessimistic If = True Then MsgBox 沒有這個用戶 , vbOKOnly + vbExclamation, = = = = Else 39。檢驗密碼是否正確 If Trim((userpsw).Value) Trim() Then MsgBox 密碼不正確 , vbOKOnly + vbExclamation, = = = = Else If Trim() Trim() Then MsgBox 前后密碼不一致！ , vbOKOnly + vbExclamation, = = Else MsgBox 密碼修改成功！ , vbOKOnly + vbExclamation (userpsw) = Trim() = = = = End If End If End If End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command1_Click() Dim mp_input As New Dim sq2 As String sq2 = select * from tushu sq2, n, adOpenDynamic, adLockOptimistic If = Then MsgBox 請輸入圖書編號！ , vbOKOnly + vbExclamation, Else (tauthor) = Trim() (tname) = Trim() (tchuban) = Trim() (tdept) = Trim() (tno) = Trim() (tamount) = Trim() (taddress) = Trim() (tcontent) = Trim() MsgBox 增加成功！ , vbOKOnly, = = = = = = = = End If End Sub Private Sub Command2_Click() Unload Me End Sub 實驗體會
公司管理相關推薦
鄂ICP備17016276號-1