信息系統(tǒng)與數(shù)據(jù)庫(kù)技術(shù)課程設(shè)計(jì)報(bào)告

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

信息系統(tǒng)與數(shù)據(jù)庫(kù)技術(shù)課程設(shè)計(jì)報(bào)告_第1頁(yè)

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

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

文檔簡(jiǎn)介

1、　　《信息系統(tǒng)與數(shù)據(jù)庫(kù)技術(shù)》技術(shù)實(shí)踐　　系統(tǒng)目標(biāo)　　本系統(tǒng)支持網(wǎng)上圖書的信息維護(hù)、圖書信息匯總、圖書折扣管理3個(gè)方面的功能，并且具有信息管理、事物處理、和決策支持的系統(tǒng)特點(diǎn)。　　需求分析<p

2、>　　2.1業(yè)務(wù)需求　　設(shè)計(jì)網(wǎng)上書店信息系統(tǒng)中的客戶信息管理模塊，要求有客戶和店員兩個(gè)方面的功能。他們各自的主要業(yè)務(wù)處理需求如下：　　客戶類的用戶能注冊(cè)、維護(hù)個(gè)人信息；查看個(gè)人購(gòu)買記錄；查看個(gè)人客戶信息。　　店員類的用戶能查詢、瀏覽、匯總客戶信息；客戶評(píng)價(jià)；客戶分類等。

3、　　2.2數(shù)據(jù)處理需求　　系統(tǒng)涉及的數(shù)據(jù)源有圖書數(shù)據(jù)、客戶數(shù)據(jù)、客戶購(gòu)買數(shù)據(jù)，產(chǎn)生圖書信息表、客戶信息表、訂單、客戶分析表等各項(xiàng)表單。結(jié)合業(yè)務(wù)處理需求，系統(tǒng)數(shù)據(jù)流圖如圖2-1所示。　　圖2-1&l

4、t;b>　　數(shù)據(jù)庫(kù)設(shè)計(jì)　　3.1根據(jù)需求分析及三層架構(gòu)設(shè)計(jì)的思想，設(shè)計(jì)出客戶系統(tǒng)功能如圖3-1所示。　　圖 3-1 　　后臺(tái)管理的系統(tǒng)功能圖如圖3-2　　3.2網(wǎng)上書店ER圖<p

5、>　　3.3數(shù)據(jù)字典：　　3.3.1 Customer客戶表：存儲(chǔ)客戶基本信息。　　3.3.2 Book圖書表：存儲(chǔ)圖書基本情況。　　圖書類別BookSort取值：人文、科學(xué)、經(jīng)管、其他　　3.3.3 Order訂單表：存儲(chǔ)訂

6、單的基本情況　　訂單狀態(tài)OrderStatus取值：“P”為處理中，“F”為完成，“C”為取消。　　支付方式PayType取值：“C”為貨到現(xiàn)金支付；“I”為信用卡支付。　　發(fā)貨方式SendType取值：“F”為快遞；“P”為郵局郵寄。　　3.3.4 OrderDeta

7、il訂單詳細(xì)情況表：存儲(chǔ)訂單的詳細(xì)情況。　　3.4 關(guān)系模式：　　客戶（客戶號(hào)，姓名，性別，職業(yè)，生日，所在省區(qū)，聯(lián)系電話，Email，客戶等級(jí)，忠誠(chéng)度）　　圖書（書號(hào)，書名，作者，出版社，出版時(shí)間，類別，內(nèi)容簡(jiǎn)介，價(jià)格，折扣）　　訂

8、單（訂單號(hào)，客戶號(hào)，支付方式，發(fā)貨方式，發(fā)貨地址，訂貨時(shí)間）　　訂單詳細(xì)資料（訂單號(hào)，書號(hào)，數(shù)量）　　3.5 數(shù)據(jù)庫(kù)表：　　3.6 數(shù)據(jù)庫(kù)關(guān)系圖：　　系統(tǒng)開發(fā)設(shè)計(jì)<p

9、>　　4.1 系統(tǒng)技術(shù)方案　　4.4.1 系統(tǒng)前臺(tái)開發(fā)工具：面向客戶的應(yīng)用程序和面向店員的應(yīng)用程序，都采用Visual Studio 2008開發(fā)環(huán)境，使用VB.NET語(yǔ)言開發(fā)。　　4.4.2后臺(tái)數(shù)據(jù)庫(kù)：采用Microsoft SQL Server 2005企業(yè)版。　　4.2 界面設(shè)計(jì)&l

10、t;/b>　　4.4.1首頁(yè)　　4.4.2 登錄界面　　4.4.3 用戶界面　　4.4.4 用戶查看個(gè)人信息　　4.4.5 后臺(tái)管理界面　　4.

11、4.6 客戶信息匯總　　4.4.7 新用戶注冊(cè)　　課程設(shè)計(jì)總結(jié)　　本次課程設(shè)計(jì)完成的是網(wǎng)上圖書信息管理系統(tǒng)中的客戶信息管理，我基本完成了所要求的幾個(gè)功能，包括用戶個(gè)人信息查詢、購(gòu)書查詢，管理員客戶信息匯總，新用戶注冊(cè)等功能。通過(guò)本次課程設(shè)計(jì)，自己對(duì)Visual Stdio20

12、08的基本知識(shí)有了一個(gè)很好的鞏固和學(xué)習(xí)，特別是VS2008中的VB.Net，它的功能是非常強(qiáng)大的，使用它制作圖形界面很方便。而且自己還進(jìn)一步熟悉了Microsoft SQL Sever2005數(shù)據(jù)庫(kù)的知識(shí)，包括建表、查詢、修改等操作，以及學(xué)習(xí)了VS2008中怎樣連接數(shù)據(jù)庫(kù)。開始做這個(gè)課程設(shè)計(jì)的時(shí)候，感覺(jué)到自己只有一些理論知識(shí)，無(wú)法動(dòng)手來(lái)操作。通過(guò)認(rèn)真的學(xué)習(xí)來(lái)解決這一問(wèn)題，這也提高了實(shí)際操作的能力。在編寫程序的過(guò)程中，也發(fā)現(xiàn)自己還是存在著

13、很多的缺點(diǎn)，對(duì)相關(guān)知識(shí)和使用不是很熟悉，操作數(shù)據(jù)庫(kù)也不熟練，還需要自己多加練習(xí)來(lái)達(dá)到熟練的目的，以后還要努力學(xué)習(xí)鍛煉自己。　　6. 附錄　　附錄1 參考文獻(xiàn)　　[1] David Schneider著,孫燕，等譯，Visual Basic

14、 2005程序設(shè)計(jì)[M]，清華大學(xué)出版社，2007.　　[2] 孫踐知，張迎新，肖媛媛編著，Visual Basic.Net程序設(shè)計(jì)[M]，清華大學(xué)出版社，2010.　　[3] 白曉勇，余健，等編著，Visual Basic課程設(shè)計(jì)案例精編[M]，清華大學(xué)出版社，2007.　　[5] 錢雪忠，羅海馳，陳國(guó)俊，等編

15、著，數(shù)據(jù)庫(kù)原理及技術(shù)課程設(shè)計(jì) [M]，清華大學(xué)出版社，2009.　　[6] 張智強(qiáng)，張福兆，余健，陳皞，等編著，SQL Server 2005課程設(shè)計(jì)案例精編[M]，清華大學(xué)出版社，2008.　　附錄2 程序清單　　窗體1</p&

16、gt;　　Public Class Form1　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click　　Form2.ShowDialog()<

17、;p>　　Me.Close()　　End Sub　　End Class　　窗體2　　Public Class Form2<

18、p>　　Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged　　TextBox1.Text = "Customer"<p&g

19、t;　　End Sub　　Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged　　TextBox1.

20、Text = "店小二"　　End Sub　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<p&g

21、t;　　Dim sno1, sno2, psw As String　　sno1 = "Customer"　　sno2 = "店小二"　　psw = "123"　　If TextBox1.Text = sno1 T

22、hen　　If TextBox2.Text = psw Then　　Me.Close()　　Form3.ShowDialog()　　Else　　MsgBox("密碼輸入錯(cuò)誤，請(qǐng)重新輸

23、入！", MsgBoxStyle.Exclamation, "提示")　　TextBox2.Text = ""　　End If　　ElseIf TextBox1.Text = sno2 Then<

24、p>　　If TextBox2.Text = psw Then　　Me.Close()　　Form4.ShowDialog()　　Else　　MsgBox("密碼輸入錯(cuò)誤，請(qǐng)重新輸入！", MsgBoxSty

25、le.Exclamation, "提示")　　TextBox2.Text = ""　　End If　　End If　　End Sub<

26、;/b>　　Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged　　Form8.ShowDialog()&l

27、t;p>　　End Sub　　End Class　　窗體3　　Public Class Form3　　Private Sub 查看信息ToolStrip

28、MenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查看信息ToolStripMenuItem.Click　　Form5.Show()　　End Sub　　Pri

29、vate Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出ToolStripMenuItem.Click　　End　　End Sub</b&g

30、t;　　Private Sub 已購(gòu)買ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 已購(gòu)買ToolStripMenuItem.Click　　Form6.Show()<b&

31、gt;　　End Sub　　Private Sub 關(guān)于ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 關(guān)于ToolStripMenuItem.Click　　MsgBox("此功能暫時(shí)不可用

32、！", MsgBoxStyle.Exclamation, "提示")　　End Sub　　Private Sub 關(guān)于ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

33、Handles 關(guān)于ToolStripMenuItem1.Click　　MsgBox("請(qǐng)?jiān)L問(wèn)官方網(wǎng)站首頁(yè)www.douniwan.com", MsgBoxStyle.Exclamation, "提示")　　End Sub<b&g

34、t;　　End Class　　窗體4　　Public Class Form4　　Private Sub 查看客戶信息ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As Syst

35、em.EventArgs) Handles 查看客戶信息ToolStripMenuItem.Click　　Form7.Show()　　End Sub　　Private Sub 客戶信息查詢ToolStripMenuItem_Click(ByVal sender As Syst

36、em.Object, ByVal e As System.EventArgs)　　Form8.Show()　　End Sub　　Private Sub 圖書匯總ToolStripMenuItem_Click(ByVal sender As System.Object, ByV

37、al e As System.EventArgs) Handles 圖書匯總ToolStripMenuItem.Click　　MsgBox("此功能暫時(shí)不可用！", MsgBoxStyle.Exclamation, "提示")　　End Sub<p

38、>　　Private Sub 折扣管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 折扣管理ToolStripMenuItem.Click　　MsgBox("此功能暫時(shí)不可用！", MsgBoxStyle.Exclamation, &

39、quot;提示")　　End Sub　　Private Sub 圖書設(shè)置ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 圖書設(shè)置ToolStripMenuItem.Clic

40、k　　MsgBox("此功能暫時(shí)不可用！", MsgBoxStyle.Exclamation, "提示")　　End Sub　　Private Sub 查看訂單ToolStripMenuItem_Click(ByVal sender A

41、s System.Object, ByVal e As System.EventArgs) Handles 查看訂單ToolStripMenuItem.Click　　MsgBox("此功能暫時(shí)不可用！", MsgBoxStyle.Exclamation, "提示")　　End Sub</b&

42、gt;　　Private Sub 信息維護(hù)ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 信息維護(hù)ToolStripMenuItem.Click　　MsgBox("親，再點(diǎn)還是不能用！", MsgBo

43、xStyle.Exclamation, "提示")　　End Sub　　Private Sub 幫助HToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 幫助HToo

44、lStripMenuItem.Click　　End　　End Sub　　End Class　　窗體5

45、　　Imports System.Data.SqlClient　　Public Class Form5　　Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

46、　　Dim myconn As New SqlConnection("Initial Catalog = BookSell; Data Source=(Local);Integrated Security=SSPI;")　　Dim sql As String = "Select CustomerCode,UserName,Name,Sex,Job,

47、Birthday,Hometown,Email,Telephone," _　　& "VIPClass From Customer Where Customer.CustomerCode='9001'"　　Dim mycmd As New SqlCommand(sql, myconn)

48、;　　Dim myread As SqlDataReader　　myconn.Open()　　myread = mycmd.ExecuteReader　　myread.Read()　　TextBox1.Text = myread.Item(0)<

49、;/p>　　TextBox2.Text = myread.Item(1)　　TextBox3.Text = myread.Item(2)　　TextBox4.Text = myread.Item(3)　　TextBox5.Text = myread.Item(4)

50、　　TextBox6.Text = myread.Item(5)　　TextBox7.Text = myread.Item(6)　　TextBox8.Text = myread.Item(7)　　TextBox9.Text = myread.Item(8)<p&g

51、t;　　TextBox10.Text = myread.Item(9)　　myread.Close()　　myconn.Close()　　End Sub　　End Class

52、　　窗體6　　Imports System.Data.SqlClient　　Public Class Form6　　Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As Syste

53、m.EventArgs) Handles MyBase.Load　　Dim myconn As New SqlConnection("Initial Catalog = BookSell;Data Source=(Local);Integrated Security=SSPI;")　　Dim sql As String = "

54、;Select BookName,Amount,OrderTime From Book,OrderDetail,BookOrder Where Book.BookCode=100001 And BookOrder.OrderCode=08601"　　Dim mycmd As New SqlCommand(sql, myconn)　　Dim my

55、read As SqlDataReader　　myconn.Open()　　myread = mycmd.ExecuteReader　　myread.Read()　　ListBox1.Items.Add(myread.Item(0))<p&g

56、t;　　TextBox1.Text = myread.Item(1)　　TextBox2.Text = myread.Item(2)　　myread.Close()　　myconn.Close()　　End Sub

57、　　End Class　　窗體7　　Public Class Form7　　Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As Syste

58、m.EventArgs) Handles MyBase.Load　　SqlDataAdapter1.Fill(DataSet1, "Customer")　　End Sub　　End Class&

59、lt;p>　　窗體8　　Imports System.Data.SqlClient　　Public Class Form8　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As Syst

60、em.EventArgs) Handles Button1.Click　　Dim myconn As New SqlConnection("Initial Catalog = BookSell;Data Source=.\SQLEXPRESS;AttachDbFilename=D:\BookSell.mdf;" _　　& &q

61、uot;Integrated Security=True;Connect Timeout=30;User Instance=True;")　　Dim sql As String = "Insert Into Customer Values( " & TextBox1.Text & "," & TextBox2.Text &

62、amp; "," & TextBox3.Text & "," _　　& "" & TextBox4.Text & "," & TextBox5.Text & "," & TextBox6.Text & ","

63、; & TextBox7.Text & "," & TextBox8.Text & "," & TextBox9.Text & " )"　　Dim mycmd As New SqlCommand(sql, myconn)　　Dim i As Int

64、eger　　myconn.Open()　　Try　　i = mycmd.ExecuteNonQuery()　　Catch ex As Exception　　MsgBox(ex.Message)

65、　　End Try　　myconn.Close()　　MsgBox(i & "注冊(cè)成功")　　End Sub

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

溫馨提示

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

信息系統(tǒng)與數(shù)據(jù)庫(kù)技術(shù)課程設(shè)計(jì)報(bào)告

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

信息系統(tǒng)與數(shù)據(jù)庫(kù)技術(shù)課程設(shè)計(jì)報(bào)告

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

免費(fèi)下載