數(shù)據(jù)庫課程設(shè)計(jì)報(bào)告--書店租賃系統(tǒng)

1、<p><b>　　數(shù)據(jù)庫課程設(shè)計(jì)報(bào)告</b></p><p>　　課程題目：書店租賃管理系統(tǒng)</p><p>　　姓 名： </p><p>　　班 級(jí)： </p><p>　　學(xué) 號(hào)：

2、 </p><p>　　成 員： </p><p>　　專 業(yè)：計(jì)算機(jī)科學(xué)與技術(shù)</p><p>　　指導(dǎo)老師： </p><p>　　時(shí)間：2014年1月1日</p><p><b>　　目 錄</b><

3、;/p><p><b>　　一、概述1</b></p><p>　　1.課程設(shè)計(jì)目的1</p><p><b>　　2.設(shè)計(jì)內(nèi)容1</b></p><p><b>　　3.基本要求1</b></p><p><b>　　4.開發(fā)環(huán)境1&l

4、t;/b></p><p>　　二、系統(tǒng)功能需求分析1</p><p><b>　　1.問題描述1</b></p><p><b>　　2.可行性研究2</b></p><p>　　(1)經(jīng)濟(jì)可行性2</p><p>　　(2)技術(shù)可行性 2<

5、/p><p>　　3.功能描述  2</p><p><b>　　4.功能模塊圖3</b></p><p>　　三、圖書管理系統(tǒng)的具體實(shí)現(xiàn)代碼4</p><p>　　1.所需要的控件4</p><p><b>　　2.實(shí)現(xiàn)代碼4</b></p&

6、gt;<p>　　四、課程設(shè)計(jì)總結(jié)14</p><p><b>　　一、概述</b></p><p><b>　　1.課程設(shè)計(jì)目的</b></p><p>　　(1) 熟悉小型數(shù)據(jù)庫管理系統(tǒng)的結(jié)構(gòu)與組成；</p><p>　　(2) 熟悉數(shù)據(jù)庫應(yīng)用系統(tǒng)的設(shè)計(jì)方法和

7、開發(fā)過程； </p><p>　　(3) 熟悉數(shù)據(jù)庫設(shè)計(jì)工具的使用； </p><p>　　(4) 熟悉數(shù)據(jù)庫安全的相關(guān)知識(shí)和技術(shù)； </p><p>　　(5) 熟悉數(shù)據(jù)庫系統(tǒng)的管理和維護(hù)。</p><p><b>　　2.設(shè)計(jì)內(nèi)容</b></p>

8、<p>　　建立書店租賃管理系統(tǒng)，完成會(huì)員信息、書籍信息等的查詢、添加、修改、刪除等操作，并能完成書籍檢索的功能。對于借閱信息能按照借閱人、借閱日期等查詢。收入信息中應(yīng)考慮會(huì)員交納會(huì)費(fèi)、臨時(shí)人員借閱所交納的租金、因書籍損壞或者過期還書的罰款等信息。</p><p><b>　　3.基本要求</b></p><p>　　運(yùn)用數(shù)據(jù)庫基本理論與應(yīng)用知識(shí)，查閱資

9、料，掌握相關(guān)知識(shí)，確定開發(fā)需求，學(xué)習(xí)面向?qū)ο蟪绦蛟O(shè)計(jì)語言，設(shè)計(jì)功能完備，界面友好，考慮數(shù)據(jù)庫的安全性和完整性。</p><p><b>　　4.開發(fā)環(huán)境</b></p><p>　　Windows XP系統(tǒng),SQL Server2005,Visual Basic及相關(guān)控件。</p><p>　　二、系統(tǒng)功能需求分析</p>

10、<p><b>　　1.問題描述</b></p><p>　　在當(dāng)今社會(huì)，隨著計(jì)算機(jī)的發(fā)展及網(wǎng)絡(luò)技術(shù)的應(yīng)用，計(jì)算機(jī)應(yīng)用在全球范圍內(nèi)的普及。當(dāng)今社會(huì)正快速向信息化社會(huì)前進(jìn)，信息自動(dòng)化的作用也越來越大。而在日常生活中信息技術(shù)的不斷融入，在技術(shù)越來越先進(jìn)的同時(shí)，我們應(yīng)該從以前繁瑣的事務(wù)中解放出來 ，來提高了我們的工作效率。</p><p>　　而目前

11、在在一些中小型書店中， 工作大部分還是進(jìn)行著手工管理，工作起來效率很低，并且不能及時(shí)了解書店各類圖書的庫存，由于不可避免的人為因素，造成數(shù)據(jù)的遺漏、誤報(bào)。為了更好的適應(yīng)當(dāng)前讀者的借閱、租賃需求，緩解手工管理存在的許多弊端，計(jì)算機(jī)信息化管理有著儲(chǔ)存信息量大，速度快、便于管理等特點(diǎn)，提供給我們的處理信息及時(shí)快捷，因此利用相關(guān)計(jì)算機(jī)技術(shù)開發(fā)出一個(gè)書店租賃管理系統(tǒng)是很必要的。</p><p><b>

12、　　2.可行性研究</b></p><p>　　任何一個(gè)系統(tǒng)或一項(xiàng)工程，在建立之前，必須首選進(jìn)行可行性分析，可行性分析包括兩層含義，一是可能性，二是必要性。</p><p><b>　　(1)經(jīng)濟(jì)可行性</b></p><p>　　經(jīng)濟(jì)可行性主要是只指算一個(gè)新的系統(tǒng)開發(fā)所需要的投資費(fèi)用和運(yùn)算費(fèi)用，并與估計(jì)的新系統(tǒng)收益進(jìn)行比較，看是否

13、有利。本系統(tǒng)所需的軟硬件成本比較低，投資小，具有一定的通過性。</p><p><b>　　(2)技術(shù)可行性 </b></p><p>　　利用現(xiàn)有的設(shè)備，軟件及技術(shù)人員，新系統(tǒng)的目標(biāo)能否達(dá)到，這也是可行性研究中需要考慮的一個(gè)問題。關(guān)系型數(shù)據(jù)庫(SQL Server2005)的高速發(fā)展使管理信息系統(tǒng)具備了良好的開發(fā)環(huán)境。本系統(tǒng)操作簡單，用戶可以很快掌握使用方

14、法，因此，在技術(shù)上是可行的。</p><p><b>　　3.功能描述  </b></p><p>　　系統(tǒng)在界面設(shè)計(jì)方面要盡可能的人性化，對用戶使用而言應(yīng)該是簡單易用的，在布局和設(shè)計(jì)上要科學(xué)化。 就目前而言,該系統(tǒng)是為中小型書店研發(fā)的,所以系統(tǒng)為C/S模式。系統(tǒng)開發(fā)的目標(biāo)是實(shí)現(xiàn)書店圖書租賃的系統(tǒng)化、規(guī)范化和自動(dòng)化，這是在用戶要求的基礎(chǔ)上

15、提出來的，功能要求如下： </p><p>　　(1)管理員能對書店租賃系統(tǒng)里的會(huì)員信息、圖書信息、借閱信息、收入信息等進(jìn)行數(shù)據(jù)的添加、修改、刪除、查詢以及統(tǒng)計(jì)的功能操作。 </p><p>　　(2)會(huì)員能夠登錄系統(tǒng)和修改密碼，并且只能夠查詢自己的借閱信息和個(gè)人信息查詢以及查詢書店書庫信息（包括書名、作者、出版社、庫存數(shù)量等）。</p><p>

16、;<b>　　4.功能模塊圖</b></p><p>　　三、圖書管理系統(tǒng)的具體實(shí)現(xiàn)代碼 </p><p><b>　　1.所需要的控件</b></p><p>　　Adodc和DataGrid</p><p>　　在“工程”→“部件”→“控件”選項(xiàng)卡中選擇以上兩個(gè)控件，如圖1<

17、/p><p><b>　　2.實(shí)現(xiàn)代碼</b></p><p>　　’在類模塊Module1(Code)代碼窗口中輸入以下代碼</p><p>　　Public conn As ADODB.Connection</p><p>　　Public cmmd As ADODB.Command</p><p&g

18、t;　　Public rs As ADODB.Recordset</p><p>　　下圖是進(jìn)入“菜單”界面（如圖2）</p><p><b>　　’圖書管理代碼</b></p><p>　　Private Sub Command1_Click()</p><p>　　Form2.Hide</p><

19、p>　　Form4.Show</p><p><b>　　End Sub</b></p><p><b>　　’會(huì)員管理代碼</b></p><p>　　Private Sub Command2_Click()</p><p>　　Form3.Show</p><p>

20、　　Form2.Hide</p><p><b>　　End Sub</b></p><p><b>　　’借閱管理代碼</b></p><p>　　Private Sub Command3_Click()</p><p>　　Form2.Hide</p><p>　　For

21、m7.Show</p><p><b>　　End Sub</b></p><p><b>　　’退出系統(tǒng)代碼</b></p><p>　　Private Sub Command4_Click()</p><p><b>　　End</b></p><p&g

22、t;<b>　　End Sub</b></p><p>　　圖2中的需添加時(shí)鐘控件，使得lable1能夠在窗體上左右移動(dòng)，其實(shí)現(xiàn)代碼如下</p><p>　　Private Sub Form_Load()</p><p>　　Timer1.Interval = 100</p><p>　　Label1.Left = Wi

23、dth</p><p>　　Label1.Caption = "…歡迎使用本系統(tǒng)…"</p><p>　　Label1.ForeColor = RGB(255, 105, 150)</p><p>　　Label1.BackStyle = 0 'label1的背景色透明</p><p>&

24、lt;b>　　End Sub</b></p><p>　　Private Sub Timer1_Timer()</p><p>　　Label1.Left = Label1.Left - 50</p><p>　　If Label1.Left <= -Label1.Width Then</p><p>　　Label1

25、.Left = Me.Width</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　’圖3中“添加”按鈕代碼</p><p>　　Private Sub Command1_Click()</p><p>

26、　　Adodc1.Recordset.AddNew</p><p><b>　　End Sub</b></p><p>　　’圖3中“刪除”按鈕代碼</p><p>　　Private Sub Command3_Click()</p><p>　　Adodc1.Recordset.Delete</p>&l

27、t;p><b>　　End Sub</b></p><p>　　’圖3中“檢索”按鈕代碼</p><p>　　Private Sub Command4_Click()</p><p>　　If Combo1.Text = "用戶編號(hào)" Then Adodc1.RecordSource = "select *

28、from 會(huì)員信息表 where 用戶編號(hào)='" + Text1.Text + "'"</p><p>　　If Combo1.Text = "用戶姓名" Then Adodc1.RecordSource = "select * from 會(huì)員信息表 where 用戶姓名='" + Text1.Text + "

29、'"</p><p>　　If Combo1.Text = "出生日期" Then Adodc1.RecordSource = "select * from 會(huì)員信息表 where 出生日期='" + Text1.Text + "'"</p><p>　　If Combo1.Text = &quo

30、t;注冊日期" Then Adodc1.RecordSource = "select * from 會(huì)員信息表 where 注冊日期='" + Text1.Text + "'"</p><p>　　If Combo1.Text = "性別" Then Adodc1.RecordSource = "select * fr

31、om 會(huì)員信息表 where 性別='" + Text1.Text + "'"</p><p>　　Adodc1.Refresh</p><p>　　DataGrid1.Refresh</p><p><b>　　End Sub</b></p><p>　　單擊“檢索”按鈕，

32、得到圖4</p><p>　　’圖3中“返回菜單”按鈕代碼</p><p>　　Private Sub Command5_Click()</p><p>　　Form3.Hide</p><p>　　Form2.Show</p><p><b>　　End Sub</b></p>&

33、lt;p>　　單擊“返回菜單”按鈕，得到圖2</p><p><b>　　’圖書管理窗體裝載</b></p><p>　　Private Sub Form_Load()</p><p>　　If form1.Combo1.Text = "會(huì)員" Or form1.Combo1.Text = "臨時(shí)人員&quo

34、t; Then Command1.Enabled = False</p><p>　　'If form1.Combo1.Text = "會(huì)員" Or form1.Combo1.Text = "臨時(shí)人員" Then Command2.Enabled = False</p><p>　　If form1.Combo1.Text = "會(huì)

35、員" Or form1.Combo1.Text = "臨時(shí)人員" Then Command3.Enabled = False</p><p>　　Combo1.AddItem "用戶編號(hào)"</p><p>　　Combo1.AddItem "用戶姓名"</p><p>　　Combo1.AddIt

36、em "出生日期"</p><p>　　Combo1.AddItem "注冊日期"</p><p>　　Combo1.AddItem "性別"</p><p>　　Combo1.ListIndex = 0</p><p><b>　　End Sub</b><

37、;/p><p>　　’會(huì)員管理下的“添加”按鈕代碼</p><p>　　Private Sub Command1_Click()</p><p>　　Adodc1.Recordset.AddNew</p><p><b>　　End Sub</b></p><p>　　’會(huì)員管理下的“刪除”按鈕代碼&

38、lt;/p><p>　　Private Sub Command3_Click()</p><p>　　Adodc1.Recordset.Delete</p><p><b>　　End Sub</b></p><p>　　’會(huì)員管理下的“返回菜單”按鈕代碼</p><p>　　Private Sub

39、Command5_Click()</p><p>　　Form4.Hide</p><p>　　Form2.Show</p><p><b>　　End Sub</b></p><p>　　’會(huì)員管理下的“Text1”代碼</p><p>　　Private Sub Text1_Change()&

40、lt;/p><p>　　If Len(Text1.Text) > 10 Then</p><p>　　MsgBox "最大只能輸入10個(gè)字符數(shù)", vbOKCancel, 提示</p><p><b>　　End If</b></p><p>　　Text1.SetFocus</p>

41、<p><b>　　End Sub</b></p><p>　　’會(huì)員管理下裝載窗體</p><p>　　Private Sub Form_Load()</p><p>　　If form1.Combo1.Text = "會(huì)員" Or form1.Combo1.Text = "臨時(shí)人員" The

42、n Command1.Enabled = False</p><p>　　'If form1.Combo1.Text = "會(huì)員" Or form1.Combo1.Text = "臨時(shí)人員" Then Command2.Enabled = False</p><p>　　If form1.Combo1.Text = "會(huì)員"

43、; Or form1.Combo1.Text = "臨時(shí)人員" Then Command3.Enabled = False</p><p>　　Combo1.AddItem "圖書號(hào)"</p><p>　　Combo1.AddItem "書名"</p><p>　　Combo1.AddItem "

44、作者"</p><p>　　Combo1.AddItem "出版社"</p><p>　　Combo1.AddItem "圖書類型"</p><p>　　Combo1.AddItem "價(jià)格"</p><p>　　Combo1.ListIndex = 1</p>

45、<p><b>　　End Sub</b></p><p>　　Dim rs As ADODB.Recordset</p><p>　　Dim SQL As String</p><p>　　Dim msg As String</p><p>　　Dim Index As Integer</p>

46、<p><b>　　’借閱管理如圖5</b></p><p>　　Private Sub Command1_Click()</p><p>　　Adodc1.Recordset.AddNew</p><p><b>　　End Sub</b></p><p>　　Private Sub

47、 Command2_Click()</p><p>　　Adodc1.Recordset.Delete</p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p>　　Form7.Hide</p><p>　　F

48、orm2.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub Command4_Click()</p><p>　　If Combo1.Text = "借閱證號(hào)" Then Adodc1.RecordSource = "select * from 借閱信息表 w

49、here 借閱證號(hào)='" + Text1.Text + "'"</p><p>　　If Combo1.Text = "姓名" Then Adodc1.RecordSource = "select * from 借閱信息表 where 姓名='" + Text1.Text + "'"</

50、p><p>　　If Combo1.Text = "圖書號(hào)" Then Adodc1.RecordSource = "select * from 借閱信息表 where 圖書號(hào)='" + Text1.Text + "'"</p><p>　　If Combo1.Text = "書名" Then Ad

51、odc1.RecordSource = "select * from 借閱信息表 where 書名='" + Text1.Text + "'"</p><p>　　Adodc1.Refresh</p><p>　　DataGrid1.Refresh</p><p><b>　　End Sub</

52、b></p><p>　　Private Sub Form_Load()</p><p>　　If form1.Combo1.Text = "會(huì)員" Or form1.Combo1.Text = "臨時(shí)人員" Then Command1.Enabled = False</p><p>　　If form1.Combo1.

53、Text = "會(huì)員" Or form1.Combo1.Text = "臨時(shí)人員" Then Command2.Enabled = False</p><p>　　Combo1.AddItem "借閱證號(hào)"</p><p>　　Combo1.AddItem "圖書號(hào)"</p><p>　

54、　Combo1.AddItem "姓名"</p><p>　　Combo1.AddItem "書名"</p><p>　　Combo1.ListIndex = 0</p><p><b>　　End Sub</b></p><p>　　Private Sub Text1_Chang

55、e()</p><p>　　If Len(Text1.Text) > 10 Then</p><p>　　MsgBox "最大只能輸入10個(gè)字符數(shù)", vbOKCancel, 提示</p><p><b>　　End If</b></p><p>　　Text1.SetFocus</p&g

56、t;<p><b>　　End Sub</b></p><p><b>　　四、課程設(shè)計(jì)總結(jié)</b></p><p>　　數(shù)據(jù)庫課程設(shè)計(jì)是把所學(xué)的SQL Server2005的知識(shí)與其他的開發(fā)語言（如Visual Basic）綜合運(yùn)用的一門課程，它能鍛煉我們的實(shí)踐能力，也是對我們的知識(shí)學(xué)習(xí)的一次考察。在拿到課程設(shè)

57、計(jì)題目時(shí)，我遇到的困難很多，在解決它們的同時(shí)我又學(xué)到了很多，獲益非淺，特別是如何分析、建立、開發(fā)一個(gè)系統(tǒng)。</p><p>　　總結(jié)這次課程設(shè)計(jì)給我感受最深的至少有四點(diǎn)： </p><p>　　1.進(jìn)行軟件開發(fā)這樣的工作，要有恒心，要能靜下心來做，而不能浮躁。</p><p>　　2.要遵循軟件開發(fā)本身的規(guī)律和善于吸收已有的經(jīng)驗(yàn)。 </p&

58、gt;<p>　　3.要善于同別人交流與合作，善于獲取有用的各種資源。</p><p>　　4.要認(rèn)認(rèn)真真去多查資料，多問，多看。 </p><p>　　經(jīng)過一個(gè)星期的課程設(shè)計(jì)，我學(xué)會(huì)了很多知識(shí)，個(gè)人的能力有了很大的提高，學(xué)會(huì)了合作，增強(qiáng)了團(tuán)隊(duì)意識(shí)，對Visual Basic 部分和SQL Server 2005有了更深刻的認(rèn)