sqlvb圖書管理系統(tǒng)-免費(fèi)閱讀
【正文】 amp。 amp。不可刪除 = False Dim ssq As String ssq = select * from tr = adUseClient ssq, n, adOpenDynamic, adLockPessimistic, adCmdText Set = rst_tr Set = rst_tr = dno Set = rst_tr = dname Set = rst_tr = trjiedate Set = rst_tr = tno Set = rst_tr = tname Set = rst_tr = trhuandate ssq End Sub Private Sub Form_Load() Set rst_tr = New = False 39。 End If If = True Then sqq = select * from tr where tno=39。 amp。 amp。不可刪除 = False End Sub Private Sub Command11_Click() = False = False End Sub Private Sub Command12_Click() If = 1 Then End If If = 1 Then End If = False 39。 amp。 39。Data Source=39。在 VB 環(huán)境中開發(fā)數(shù)據(jù)庫應(yīng)用 、與數(shù)據(jù)庫連接和對(duì)數(shù)據(jù)庫中的數(shù)據(jù)操作是通過 ODBC，數(shù)據(jù)庫引擎、 OLE DB等實(shí)現(xiàn)提供了一個(gè)可視化的數(shù)據(jù)管理器 Visual Data Manager 來完成各種數(shù)據(jù)庫的管理，包括創(chuàng)建表、建索引、查詢數(shù)據(jù)等功能，方便了數(shù)據(jù)開發(fā)。 2） 能隨時(shí)查閱圖書的基本情況； 3） 能隨時(shí)查詢讀者的借閱情況； 4） 能完成借書和還書的功能； 5） 以上每項(xiàng)操作應(yīng)打印出報(bào)表 四、實(shí)驗(yàn)原理 數(shù)據(jù)庫 應(yīng)用系統(tǒng)的開發(fā)包括數(shù)據(jù)庫設(shè)計(jì)和應(yīng)用程序設(shè)計(jì)兩部分。作者 39。一般客戶端的代碼用于完成用戶的輸入、輸出及數(shù)據(jù)的檢查，而服務(wù)器端的代碼完成對(duì)數(shù)據(jù)庫的操作 。 amp。判斷輸入的用戶名是否為空 MsgBox 沒有這個(gè)用戶 , vbOKOnly + vbExclamation, Else select * from usertable where username=39。 39。 39。 39。 39。 amp。不可增加 = False 39。 39。 39。, n, adOpenKeyset, adLockPessimistic If = True Then MsgBox 沒有這個(gè)用戶 , vbOKOnly + vbExclamation, = = = = Else 39。 amp。 amp。 39。不可增加 = False 39。 amp。 amp。 amp。 amp。 39。Persist Security Info=False。整個(gè)開發(fā)過程分為七個(gè)階段，即系統(tǒng) 分析、需求分析、總體設(shè)計(jì)、詳細(xì)設(shè)計(jì)、系統(tǒng)實(shí)施、系統(tǒng)測(cè)試、系統(tǒng)運(yùn)行與維護(hù)。實(shí)驗(yàn)報(bào)告 小型 圖書管理系統(tǒng) 一、 實(shí)驗(yàn)?zāi)康? 采用 C/S 模式完成一個(gè)小型的圖書管理系統(tǒng)；完成從需求分析、數(shù)據(jù)模式設(shè)計(jì)到編碼實(shí)現(xiàn)、系統(tǒng)調(diào)試的所有流程；通過此一圖書管理系統(tǒng)的實(shí)現(xiàn)，在實(shí)踐中掌握數(shù)據(jù)庫系統(tǒng)設(shè)計(jì)的特點(diǎn)、方法和步驟。這一階段的任務(wù)是通過調(diào)查研究，了解應(yīng)用系統(tǒng)使用者的組織機(jī)構(gòu)、業(yè)務(wù)范疇，確定新系統(tǒng)的目標(biāo)，并且對(duì)系統(tǒng)開發(fā)能否達(dá)到這一目標(biāo)做出可行性分析。Integrated Security=SSPI。 amp。檢驗(yàn)密碼是否正確 If Trim((userpsw).Value) = Trim() Then Unload Me Else MsgBox 密碼不正確 , vbOKOnly + vbExclamation, End If End If End If t = t + 1 If t = 3 Then Unload Me End If = = End Sub Private Sub Command1_Click() 用戶注冊(cè) .Show End Sub Private Sub Form_Load() t = 0 Set c = New Command = n = adCmdText End Sub Private Sub Command1_Click() Dim user_input As New Dim user_sq1 As String select * from usertable, n, adOpenKeyset, adLockPessimistic If Trim() = Then MsgBox 請(qǐng)輸入用戶名！ , vbOKOnly + vbExclamation, ElseIf Trim() Trim() Then MsgBox 前后密碼不一致！ , vbOKOnly + vbExclamation, Else (username) = Trim() (userpsw) = Trim() MsgBox 注冊(cè)成功！ , vbOKOnly + vbExclamation, Unload Me End If = = = End Sub Private Sub Command2_Cl
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1