數(shù)據(jù)庫課程設(shè)計(jì)---飯卡管理系統(tǒng)

上傳人：奔*** IP屬地：河北更新時(shí)間：2024-03-01 格式：doc 頁數(shù)：21 大?。?.22MB 人氣指數(shù)：12 舉報(bào) 版權(quán)申訴

已閱讀1頁，還剩20頁未讀，繼續(xù)免費(fèi)閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡介

1、　　數(shù) 據(jù) 庫課程設(shè) 計(jì)　　題目：飯卡管理系統(tǒng) 　　姓名： 　　學(xué) 號： 　　專業(yè)： 08計(jì)

2、科一班 　　指導(dǎo)老師： 　　完成時(shí)間： 2010年12月20日 　　目錄　　第一章概述………………………………………………………………………3</p&

3、gt;　　需求分析…………………………………………………………………4　　數(shù)據(jù)庫設(shè)計(jì)………………………………………………………………5　　概念結(jié)構(gòu)設(shè)計(jì)………………………………………………………………5　　邏輯結(jié)構(gòu)設(shè)計(jì)………………………………………………………………6&

4、lt;p>　　物理結(jié)構(gòu)設(shè)計(jì)………………………………………………………………6　　表的創(chuàng)建……………………………………………………………………8　　關(guān)系圖、觸發(fā)器……………………………………………………………7　　系統(tǒng)程序?qū)崿F(xiàn)………………………………………………………………9<p

5、>　　第五章小結(jié)…………………………………………………………………………19　　參考文獻(xiàn)………………………………………………………………………………20　　第一章概述　　飯卡管理系統(tǒng)是針對大學(xué)校園食堂交費(fèi)和一般消費(fèi)等方面的信息管理系統(tǒng)，它包括持卡者在校內(nèi)

6、的消費(fèi)的各方面內(nèi)容：刷卡消費(fèi)、查詢、存款和持卡者的信息管理等，方便對飯卡信息進(jìn)行各項(xiàng)操作，定時(shí)進(jìn)行數(shù)據(jù)的備份和更新，保持?jǐn)?shù)據(jù)的一致性和準(zhǔn)確性。另外，各方面的內(nèi)容應(yīng)該相互聯(lián)系，最終產(chǎn)生各種查詢統(tǒng)計(jì)報(bào)表，以供持卡者進(jìn)行檢查。　　對于此系統(tǒng)的任務(wù)就是把人們從繁瑣的交費(fèi)、找零工作中解放出來，用計(jì)算機(jī)實(shí)現(xiàn)存款、消費(fèi)、查詢、修改、刪除以及存儲(chǔ)等功能。同時(shí)，用計(jì)算機(jī)能夠快速準(zhǔn)確的完成資料的統(tǒng)計(jì)和匯總工作，迅速

7、的打印出各種報(bào)表資料以供使用。本系統(tǒng)的工作原理如下：　　先建立數(shù)據(jù)庫和數(shù)據(jù)庫的驅(qū)動(dòng)程序　　在使用時(shí)，有管理員輸入賬號和密碼。然后通過飯卡管理系統(tǒng)選擇相應(yīng)的管理事務(wù)　　管理員事務(wù)將根據(jù)提供的信息在數(shù)據(jù)庫中查找相應(yīng)的記錄　　返回相應(yīng)的記錄給管理員<

8、;p>　　允許管理員在相應(yīng)的權(quán)限下對數(shù)據(jù)進(jìn)行更改　　通過終端把得到的內(nèi)容顯示到相應(yīng)的界面上　　第二章需求分析　　一、本系統(tǒng)需求的軟硬件配置如下：　　操作系統(tǒng)：windows2000、windows xp或更高操作系統(tǒng)

9、　　數(shù)據(jù)庫平臺：SQL 2000　　開發(fā)平臺：Visual Basic 6.0　　CPU：Pentiun II 266 或更高　　內(nèi)存：64M或以上　　硬盤：2G以上<

10、;p>　　顯示器：VGA或更高　　外設(shè)：報(bào)表打印機(jī)等　　二、總體功能需求：　　1、添加學(xué)生和飯卡信息　　這需要在數(shù)據(jù)庫中建立兩張表：學(xué)生信息和飯卡信息。學(xué)生信息表中包括以下信息：姓名、性別、

11、出生日期、身份證號、卡號。飯卡信息包括：卡號、余額、辦卡日期。而飯卡信息的卡號是學(xué)生信息表中的外碼。　　2、管理員登錄信息　　在數(shù)據(jù)庫中建立一張管理員信息表屬性如下：賬號、密碼。只有當(dāng)賬號和密碼都匹配的情況下，管理員才能登錄成功然后對系統(tǒng)進(jìn)行管理。　　3、刪

12、除　　這是對學(xué)生信息和飯卡信息兩張表的操作。分別更具需求刪除相應(yīng)的學(xué)生信息和飯卡信息。當(dāng)刪除飯卡信息時(shí)，學(xué)生信息表中對應(yīng)的學(xué)生信息也被刪除。　　4、充費(fèi)　　當(dāng)卡中余額不足時(shí)持卡者需要對飯卡進(jìn)行充費(fèi)，管理員可是通過充費(fèi)這一功能對飯卡信息表中的余額屬性進(jìn)行更改

13、。　　5、查詢：管理員通過輸入需要的查詢信息，可以實(shí)現(xiàn)對飯卡信息和學(xué)生信息的查詢。　　三、性能需求：　　1、精度要求　　飯卡管理系統(tǒng)對精度要求較高，飯卡信息表中的余額是浮點(diǎn)型數(shù)據(jù)。學(xué)生信息表中的身

14、份證號屬性必須是十八位的字符型數(shù)據(jù)。　　2、時(shí)間特性要求　　在軟件方面，響應(yīng)時(shí)間、更新處理時(shí)間都要求比較快速以滿足要求。　　3、靈活性　　當(dāng)用戶需求，如操作方式、運(yùn)行環(huán)境、結(jié)果精度、數(shù)據(jù)結(jié)構(gòu)與其他

15、軟件接口等發(fā)生變化時(shí)，設(shè)計(jì)的軟件要求能做適當(dāng)?shù)恼{(diào)整。　　4、規(guī)模　　使用于小規(guī)模的食堂的飯卡管理工作。　　數(shù)據(jù)庫設(shè)計(jì)　　3.1概念結(jié)構(gòu)設(shè)計(jì)

16、　　持卡者與飯卡是一對一的綁定關(guān)系。即一張飯卡只能被一個(gè)學(xué)生使用，一個(gè)學(xué)生也只能同時(shí)使用一張飯卡。飯卡信息表屬性：卡號、余額、辦卡日期。學(xué)生表屬性：卡號、身份證號、出生日期、性別、姓名。管理員表屬性：賬號、密碼。其E-R圖如下：　　飯卡信息E-R圖：　　學(xué)生信息E-R圖：<

17、;/b>　　管理員信息E-R圖：　　3.2 邏輯結(jié)構(gòu)設(shè)計(jì)　　在學(xué)生表中身份證號是主鍵，卡號作為外碼。在飯卡信息表中卡號是主鍵。管理員信息表中賬號為主鍵。　　將E-R圖轉(zhuǎn)化為關(guān)系模式如下：　　學(xué)生（身份證號，姓名，性別，出生

18、日期，卡號）　　飯卡信息（卡號，余額，辦卡日期）　　管理員信息（賬號，密碼）　　屬性一覽表：　　3.3 物理結(jié)構(gòu)設(shè)計(jì)　　學(xué)生表

19、　　飯卡信息表　　管理員信息表　　3.4 表的創(chuàng)建　?。?）創(chuàng)建學(xué)生表：　　CREATE TABLE 學(xué)生(&l

20、t;p>　　[身份證號] [char] (20) primary key NOT NULL ,　　[姓名] [char] (10) not NULL ,　　[性別] [char] (10) check 性別=‘男’or 性別=‘女’not null ,　　[出生日期] [datetime]（8） null

21、，　　[卡號] [char]（20） foreign key null　　）　　GO　?。?）創(chuàng)建飯卡信息表：　　Create table 飯卡信息（&l

22、t;/p>　　卡號 char （20） primarkey not null，　　余額 float（8） null，　　辦卡日期 datetime（8）null　?。?lt;/b>　　Go</b

23、>　　(3) 創(chuàng)建管理員信息表：　　Create table 管理員信息（）　　賬號 char （20） primarykey not null，　　密碼 char （20） not null　?。?lt;

24、/b>　　Go　　3.4 關(guān)系圖、觸發(fā)器　?。?）關(guān)系圖：　　（2）觸發(fā)器：　　CREATE TRIGGER

25、 insert_str ON 學(xué)生　　FOR INSERT　　AS　　begin　　if EXISTS (select a.卡號 from inserted a ,學(xué)生 b where

26、 a.卡號 =b.卡號 and a.身份證號!=b.身份證號)　　BEGIN　　print '該卡已被使用'　　rollback 　　END

27、　　End　　第四章系統(tǒng)程序?qū)崿F(xiàn)　　一、登錄界面：　　Dim CN As New ADODB.Connection　　Dim rs As New ADO

28、DB.Recordset　　Private Sub Command2_Click()　　Unload Me　　End Sub　　Private Sub Command3_Click()</p

29、>　　If CN.State = 0 Then　　CN.Open　　End If　　str1 = "select * from 用戶 where 用戶名='" & Text1

30、.Text & " '"　　rs.Open str1, CN, 1, 3　　If rs.EOF Then　　MsgBox "用戶名錯(cuò)誤"　　Else<

31、;p>　　If rs("密碼") = Val(Text2.Text) Then　　Form2.Show　　Unload Me　　Else　　MsgBox "密碼

32、錯(cuò)誤"　　Text1.Text = ""　　Text2.Text = ""　　Text1.SetFocus　　Text2.SetFocus　　End If<

33、/b>　　End If　　End Sub　　Private Sub Form_Load()　　CN.ConnectionString = "Provider=SQLOLEDB.1;

34、Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=飯卡管理系統(tǒng);Data Source=stud51"　　CN.Open　　End Sub&

35、lt;b>　　二、復(fù)選界面：　　Private Sub Command1_Click()　　Form3.Show　　Unload Me　　End Sub

36、;　　Private Sub Command2_Click()　　Form4.Show　　Unload Me　　End Sub　　Private Sub Command3_C

37、lick()　　Form5.Show　　Unload Me　　End Sub　　Private Sub Command4_Click()　　Form6.S

38、how　　Unload Me　　End Sub　　Private Sub Command5_Click()　　Form1.Show　　U

39、nload Me　　End Sub　　Private Sub Command6_Click()　　Form9.Show　　Unload Me<p&

40、gt;　　End Sub　　三、添加信息界面：　　Dim CN As New ADODB.Connection　　Dim rs As New ADODB.Recordset　　Dim choose

41、 As New ADODB.Recordset　　Dim cs As New ADODB.Recordset　　Private Sub Combo1_Change()　　End Sub　　Private Sub Command1_Cl

42、ick()　　str3 = "select * from 學(xué)生 where 身份證號='" & Text4.Text & "'"　　rs.Open str3, CN, 1, 3　　If rs.EOF Then<p

43、>　　rs.AddNew　　rs.Fields("姓名") = Trim(Text1.Text)　　rs.Fields("性別") = Trim(Text2.Text)　　rs.Fields("出生日期") =

44、 Trim(Text3.Text)　　rs.Fields("身份證號") = Trim(Text4.Text)　　rs.Fields("卡號") = Trim(Text5.Text)　　rs.Update<

45、p>　　sql = "select * from 卡信息"　　cs.Open sql, CN, 1, 3　　cs.Fields("辦卡日期") = Date　　cs.Update　　Msg

46、Box ("添加成功")　　Else　　MsgBox ("用戶已存在")　　Text1.Text = ""　　Text2.Text = ""</p&

47、gt;　　Text3.Text = ""　　Text4.Text = ""　　Text5.Text = ""　　Text1.SetFocus　　Text2.SetFocus

48、;　　Text3.SetFocus　　Text4.SetFocus　　Text5.SetFocus　　End If　　End Sub

49、　　Private Sub Command2_Click()　　Form2.Show　　Unload Me　　End Sub　　Private Sub Form_Load()

50、　　If CN.State = 1 Then　　CN.Close　　End If　　CN.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security

51、=SSPI;Persist Security Info=False;Initial Catalog=飯卡管理系統(tǒng);Data Source=stud51"　　CN.Open　　End Sub　　四、刪除信息窗體：

52、　　Dim con As New ADODB.Connection　　Dim rs As New ADODB.Recordset　　Private Sub Command1_Click()　　Form2.Show: Form4.Hide</p&g

53、t;　　End Sub　　Private Sub Command2_Click()　　Form2.Show　　Unload Me　　End Sub</

54、b>　　Private Sub Text2_Change()　　End Sub　　Private Sub Command3_Click()　　Form7.Show: Form4.Hide

55、　　End Sub　　Private Sub Command4_Click()　　Form8.Show: Form4.Hide　　End Sub　　五、查詢窗口：</b&g

56、t;　　Dim con As New ADODB.Connection　　Dim rs_card As New ADODB.Recordset　　Private Sub Command1_Click()　　con.ConnectionString = "Prov

57、ider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=飯卡管理系統(tǒng);Data Source=stud51"　　If con.State = 0 Then　　con.Open

58、　　End If　　sql = "select 姓名,余額,卡信息.卡號 from 卡信息,學(xué)生 where 卡信息.卡號='" & Text1.Text & " '"　　rs_card.Open sql, con, 1,

59、3　　DataGrid1.AllowAddNew = False　　DataGrid1.AllowDelete = False　　DataGrid1.AllowUpdate = False　　Set DataGrid1.DataSource = rs_card</p

60、>　　End Sub　　Private Sub Command2_Click()　　Form2.Show: Form5.Hide　　End Sub

61、六、充費(fèi)窗口：　　Dim a As New ADODB.Connection　　Dim rs As New ADODB.Recordset　　Private Sub Command1_Click()　　a.ConnectionString = &quo

62、t;Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=飯卡管理系統(tǒng);Data Source=stud51"　　If a.State = 0 Then　　a.Open</p&g

63、t;　　End If　　Dim sql As String　　sql = "select * from 卡信息 where 卡號='" & Text1.Text & "'"　　rs.

64、Open sql, a, 1, 3　　rs.Fields("余額") = Text2.Text　　rs.Update　　MsgBox "充值成功！"　　End Sub</

65、b>　　Private Sub Command2_Click()　　Form2.Show: Form6.Hide　　End Sub　　七、刪除學(xué)生信息窗口：　　Dim con As Ne

66、w ADODB.Connection　　Dim abc As New ADODB.Recordset　　Private Sub Command1_Click()　　con.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;P

67、ersist Security Info=False;Initial Catalog=飯卡管理系統(tǒng);Data Source=stud51"　　If con.State = 0 Then　　con.Open　　End If<

68、/p>　　sql = "select * from 學(xué)生 where 姓名='" & Text1.Text & " '"　　abc.Open sql, con, 1, 3　　abc.Delete　　MsgBox &

69、quot;刪除成功！", vbOKCancel + vbExclamation, ""　　End Sub　　Private Sub Command2_Click()　　Form7.Hide: Form4.Show<p

70、>　　End Sub　　八、刪除飯卡信息窗口：　　Dim a As New ADODB.Connection　　Dim rs As New ADODB.Recordset　　Private Sub Command1_Click(

71、)　　a.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=飯卡管理系統(tǒng);Data Source=stud51"　　If a.State = 0 Then</p&

72、gt;　　a.Open　　End If　　Dim answer As String　　Dim sql As String　　sql = "select * from

73、卡信息 where 卡號='" & Text1.Text & "'"　　rs.Open sql, a, 1, 3　　If Trim(Text1.Text) = "" Then　　MsgBox "輸入不能為空"&

74、lt;/p>　　Else　　answer = MsgBox("確定要?jiǎng)h除嗎？", vbYesNo, "")　　If answer = vbYes Then　　rs.Delete</b&

75、gt;　　Else　　Exit Sub　　End If　　End If<

76、b>　　End Sub　　Private Sub Command2_Click()　　Form4.Show: Form8.Hide　　End Sub　　九、添加飯卡信息窗口：<p

77、>　　Dim C As New ADODB.Connection　　Dim R As New ADODB.Recordset　　Private Sub Command1_Click()　　str1 = "select * from 卡信息 where 卡號='" & Te

78、xt1.Text & "'"　　R.Open str1, C, 1, 3　　If R.EOF Then　　R.AddNew　　R.Fields("卡號") = Trim(Text

79、1.Text)　　R.Update　　MsgBox ("添加成功")　　Else　　MsgBox ("卡已存在，添加失敗")<

80、p>　　End If　　End Sub　　Private Sub Command2_Click()　　Form2.Show　　Unload Me<

81、/p>　　End Sub　　Private Sub Form_Load()　　If C.State = 1 Then　　C.Close　　End If

82、　　C.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=飯卡管理系統(tǒng);Data Source=stud51"　　C.Open&l

83、t;/b>　　End Sub　　第五章小結(jié)　　經(jīng)過這幾天數(shù)據(jù)庫的設(shè)計(jì)，基本掌握數(shù)據(jù)庫中觸發(fā)器，視圖，存儲(chǔ)過程的概念。學(xué)會(huì)了怎樣去做一個(gè)需求分析，基本的系統(tǒng)設(shè)計(jì)的組織與實(shí)施，建立了一個(gè)較完整的數(shù)據(jù)庫結(jié)構(gòu)。能夠獨(dú)立設(shè)計(jì)完成一般的查詢

84、語句的設(shè)計(jì)及調(diào)試運(yùn)行等工作。運(yùn)用VB開發(fā)前臺，SQLSERBER2000為后臺，學(xué)會(huì)前后臺結(jié)合的小應(yīng)用程序。為將來的畢業(yè)論文打下了堅(jiān)實(shí)的基礎(chǔ)。這次編程與設(shè)計(jì)在理論的基礎(chǔ)上持續(xù)深化，更加規(guī)范化，按照老師的要求努力完成任務(wù)。本系統(tǒng)以學(xué)校的飯卡管理為出發(fā)點(diǎn)，針對中小型食堂的飯卡管理，基本實(shí)現(xiàn)了對飯卡的注冊，刪除，更改，查詢等功能。通過本次的學(xué)習(xí)與實(shí)踐，成功的將理論結(jié)合實(shí)踐，醞釀出本系統(tǒng)。在開發(fā)過程中，不是一帆風(fēng)順的，我們對數(shù)據(jù)庫的一些概論還存

85、在模糊的地方導(dǎo)致了在前期沒有一個(gè)良好的數(shù)據(jù)平臺，這更為后面的編程埋下了隱患。在發(fā)現(xiàn)問題之后，我們并沒有氣餒，積極查找錯(cuò)誤，在老師和同學(xué)的辛勤幫助下，我們發(fā)現(xiàn)問題，解決問題，鍛煉了意志，扎實(shí)了所學(xué)的理論知識。例如：在系統(tǒng)開發(fā)過程中，我們數(shù)據(jù)庫建立過程中，我們建錯(cuò)了表，并且將主鍵設(shè)錯(cuò)，在后期中，編程的實(shí)現(xiàn)中，前后臺鏈接出現(xiàn)錯(cuò)誤，耽誤了大量的時(shí)間。這次失誤，讓我們感受到，在做設(shè)計(jì)之

86、　參考文獻(xiàn)　　《Visual Basic數(shù)據(jù)庫編程技術(shù)與實(shí)例》…………四維科技趙斯思編著 　　人民郵電出版社　　《SQL Server應(yīng)用教程》…………………………鄭阿奇劉啟芬顧韻華主編<b

87、>　　人民郵電出版社　　《數(shù)據(jù)庫技術(shù)與聯(lián)機(jī)分析處理》…………………… 王珊主編 　　北京科學(xué)出版社　　《數(shù)據(jù)庫原理及應(yīng)用》……………………………… 錢雪忠主編

眾賞文庫> 全部分類> 畢業(yè)設(shè)計(jì)

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲(chǔ)空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

數(shù)據(jù)庫課程設(shè)計(jì)---飯卡管理系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

數(shù)據(jù)庫課程設(shè)計(jì)---飯卡管理系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

免費(fèi)下載