圖書(shū)管理系統(tǒng)課程設(shè)計(jì)報(bào)告書(shū)（數(shù)據(jù)庫(kù)原理及應(yīng)用課程設(shè)計(jì)-預(yù)覽頁(yè)
【正文】 讀者編號(hào) 姓名 性別 借閱編號(hào) 圖書(shū)編號(hào) 出生日期 電話(huà) 讀者信息 管理員編號(hào) 注冊(cè)日期 讀者編號(hào) 年齡 借閱日期 罰款金額 證件類(lèi)型 證件號(hào)碼 歸還日期 押金 分類(lèi) 類(lèi)別名稱(chēng) 借閱 是否歸還 管理 類(lèi)別編號(hào) 可借天數(shù) 證件號(hào)碼 工作日期 圖書(shū)信息 密碼 管理員信息 管理 作者 姓名 管理員編號(hào) 電話(huà) 性別 年齡 出版 圖書(shū)編號(hào) 譯者 圖書(shū)編號(hào) 折扣 訂購(gòu) 庫(kù)存數(shù)量 書(shū)名 管理員編號(hào) 出版社 訂購(gòu)數(shù)量 訂購(gòu)日期 價(jià)格 類(lèi)別編號(hào) 圖 4 四、 數(shù)據(jù)庫(kù)設(shè)計(jì) 表結(jié)構(gòu) :確定表結(jié)構(gòu) 。女 39。男 39。男 39。這是你需要查詢(xún)的書(shū)籍 39。 and b39。=39。 begin exec sp_addsrvrolemember a,c if d39。=39。 添加管理員存儲(chǔ)過(guò)程 為了方便添加管理員，創(chuàng)建一個(gè)存儲(chǔ)過(guò)程“ p_tjgly” create proc p_tjgly a varchar(20),b varchar(20),c varchar(10),d char(2),e varchar(13),f datetime as if exists(select * from 管理員表 where 管理員編號(hào) =a) select 警告 =39。 end 添加讀者存儲(chǔ)過(guò)程 為了方便添加讀者，創(chuàng)建一個(gè)存儲(chǔ)過(guò)程“ p_tjdz” create proc p_tjdz a varchar(13),b varchar(20),c varchar(10),d char(2),e datetime,g varchar(13),h datetime,j int 14 as if exists(select * from 讀者表 where 讀者編號(hào) =a) select 警告 =39。 end 添加借閱記錄存儲(chǔ)過(guò)程 為了方便添加借閱記錄過(guò)程，創(chuàng)建一個(gè)存儲(chǔ)過(guò)程“ p_tjjyjl” create proc p_tjjyjl a int,b varchar(13),c varchar(20),d char(13),e datetime,f varchar(15) as if exists(select * from 借閱表 where 借閱編號(hào) =a) select 警告 =39。 End 權(quán)限設(shè)置 我們所設(shè)計(jì)的圖書(shū)管理系統(tǒng)根據(jù)實(shí)際情況會(huì)用到兩類(lèi)用戶(hù)，一類(lèi)是管理員，一類(lèi)是讀者 ,管理員擁有所有的權(quán)限，故管理員使用系統(tǒng)自帶的 Sa 登陸，管理數(shù)據(jù)庫(kù)，而讀者只允許查看與個(gè)人信息和借閱圖書(shū)信息。 + 17 + 39。數(shù)據(jù)集 Dim dess As New DataSet (dess, abc) = (abc) () End If End Sub 登錄界面 用戶(hù)登錄界面 用戶(hù)要根據(jù)個(gè)人的學(xué)號(hào)和密碼登錄圖書(shū)管理系統(tǒng)，當(dāng)?shù)卿洺晒?，才能查看自己的個(gè)人信息以及進(jìn)行一些圖書(shū)管理操作。uid= + + 。 + + 39。 + + 39。 + + 39。 + + 39。 + + 39。 + + 39。 + + 39。 + + 39。 + + 39。 Dim dd As New SqlDataAdapter(aa, ) 23 Dim dset As New DataSet (dset, ss) = (ss) () End If 個(gè)人信息界面 當(dāng)讀者成功登錄后就跳轉(zhuǎn)到讀者界面，該頁(yè)面可以查看借閱記錄和個(gè)人信息 24 圖 查看借閱記錄代碼： Dim As New SqlConnection = server=USER20201219TL\SQLEXPRESS。integrated security=true () If = Then Dim da As String = select * from 讀者表 where 讀者編號(hào) = 39。integra 26 ted security=true () If = Then Dim da As String = exec p_xgdz 39。,39。 Dim ad As New SqlDataAdapter(aa, ) Dim dset As New DataSet (dset, zz) = (zz) () (修改完畢 ) End If 27 圖書(shū)借閱界面 圖書(shū)借閱界面可以查看當(dāng)前讀者所借閱的圖書(shū)的信 息 圖 代碼如下： Dim As New SqlConnection = server=USER20201219TL\SQLEXPRESS。,39。,39。,39。 + + 39。database=library。 + + 39。數(shù)據(jù)集 Dim dset As New DataSet (dset, abc) 30 = (abc) () End If 圖 代碼如下： Dim As New SqlConnection = server=USER20201219TL\SQLEXPRESS。 Dim ad As New SqlDataAdapter(aa, ) Dim dset As New DataSet (dset, abc) = (abc) () End If 31 六． 總結(jié) 在這次數(shù)據(jù)庫(kù)實(shí)訓(xùn)中，我們都學(xué)到
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1