sqlvb圖書管理系統(tǒng)-資料下載頁(yè)
【導(dǎo)讀】的特點(diǎn)、方法和步驟。5人組成一組，共同開發(fā)完成；假定需要保存"圖書"，“讀者”，“借閱”和'作者'信息以及他們之間的關(guān)系。1）能對(duì)以上三個(gè)基本信息進(jìn)行添加、修改和刪除等操作。3）能隨時(shí)查詢讀者的借閱情況；4）能完成借書和還書的功能；數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)的開發(fā)包括數(shù)據(jù)庫(kù)設(shè)計(jì)和應(yīng)用程序設(shè)計(jì)兩部分。之前，首先要進(jìn)行系統(tǒng)分析。這一階段的任務(wù)是通過(guò)調(diào)查研究，了解應(yīng)用系統(tǒng)使用者的組織。機(jī)構(gòu)、業(yè)務(wù)范疇，確定新系統(tǒng)的目標(biāo)，并且對(duì)系統(tǒng)開發(fā)能否達(dá)到這一目標(biāo)做出可行性分析。統(tǒng)測(cè)試、系統(tǒng)運(yùn)行與維護(hù)。端，這樣，為了一個(gè)特定的任務(wù)，客戶機(jī)上的程序可以和服務(wù)器上的程序協(xié)同合作。VB不僅是一種程序設(shè)計(jì)，它也是一個(gè)開發(fā)數(shù)據(jù)庫(kù)應(yīng)用或其他應(yīng)用的環(huán)境。的人員提供可視化的設(shè)計(jì)環(huán)境，提供了構(gòu)造用戶界面所需的大多數(shù)可視化對(duì)象。創(chuàng)建表、建索引、查詢數(shù)據(jù)等功能，方便了數(shù)據(jù)開發(fā)。MsgBox"請(qǐng)輸入用戶名！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 請(qǐng)輸入讀者編號(hào)或圖書編號(hào)！ , vbOKOnly + vbExclamation, ElseIf = Then MsgBox 請(qǐng)輸入還書日期！ , 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 沒有這個(gè)用戶 , vbOKOnly + vbExclamation, = = = = Else select * from usertable where username=39。 amp。 amp。 39。, n, adOpenKeyset, adLockPessimistic If = True Then MsgBox 沒有這個(gè)用戶 , vbOKOnly + vbExclamation, = = = = Else 39。檢驗(yàn)密碼是否正確 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 請(qǐng)輸入圖書編號(hào)！ , 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 實(shí)驗(yàn)體會(huì)
鄂ICP備17016276號(hào)-1