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

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

2、 </p><p>　　成 員： </p><p>　　專 業(yè)：計算機科學與技術</p><p>　　指導老師： </p><p>　　時間：2014年1月1日</p><p><b>　　目 錄</b><

3、;/p><p><b>　　一、概述1</b></p><p>　　1.課程設計目的1</p><p><b>　　2.設計內容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)經濟可行性2</p><p>　　(2)技術可行性 2<

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

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

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

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

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

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

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

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

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

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

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

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

17、/p><p><b>　　2.實現(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>　　下圖是進入“菜單”界面（如圖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>　　’會員管理代碼</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中的需添加時鐘控件，使得lable1能夠在窗體上左右移動，其實現(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 = "用戶編號" Then Adodc1.RecordSource = "select *

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

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

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

31、om 會員信息表 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 = "會員" Or form1.Combo1.Text = "臨時人員&quo

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

35、員" Or form1.Combo1.Text = "臨時人員" Then Command3.Enabled = False</p><p>　　Combo1.AddItem "用戶編號"</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>　　’會員管理下的“添加”按鈕代碼</p><p>　　Private Sub Command1_Click()</p><p>　　Adodc1.Recordset.AddNew</p><p><b>　　End Sub</b></p><p>　　’會員管理下的“刪除”按鈕代碼&

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

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

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

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

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

43、; Or form1.Combo1.Text = "臨時人員" Then Command3.Enabled = False</p><p>　　Combo1.AddItem "圖書號"</p><p>　　Combo1.AddItem "書名"</p><p>　　Combo1.AddItem "

44、作者"</p><p>　　Combo1.AddItem "出版社"</p><p>　　Combo1.AddItem "圖書類型"</p><p>　　Combo1.AddItem "價格"</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 = "借閱證號" Then Adodc1.RecordSource = "select * from 借閱信息表 w

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

50、p><p>　　If Combo1.Text = "圖書號" Then Adodc1.RecordSource = "select * from 借閱信息表 where 圖書號='" + 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 = "會員" Or form1.Combo1.Text = "臨時人員" Then Command1.Enabled = False</p><p>　　If form1.Combo1.

53、Text = "會員" Or form1.Combo1.Text = "臨時人員" Then Command2.Enabled = False</p><p>　　Combo1.AddItem "借閱證號"</p><p>　　Combo1.AddItem "圖書號"</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個字符數(shù)", vbOKCancel, 提示</p><p><b>　　End If</b></p><p>　　Text1.SetFocus</p&g

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

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

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