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

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

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

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

文檔簡介

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

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

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

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

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

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

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

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

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

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

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

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

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

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

15、著，數(shù)據(jù)庫原理及技術(shù)課程設(shè)計 [M]，清華大學(xué)出版社，2009.　　[6] 張智強(qiáng)，張福兆，余健，陳皞，等編著，SQL Server 2005課程設(shè)計案例精編[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("密碼輸入錯誤，請重新輸

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("密碼輸入錯誤，請重新輸入！", 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 已購買ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 已購買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("此功能暫時不可用

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("請訪問官方網(wǎng)站首頁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("此功能暫時不可用！", MsgBoxStyle.Exclamation, "提示")　　End Sub<p

38、>　　Private Sub 折扣管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 折扣管理ToolStripMenuItem.Click　　MsgBox("此功能暫時不可用！", 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("此功能暫時不可用！", MsgBoxStyle.Exclamation, "提示")　　End Sub　　Private Sub 查看訂單ToolStripMenuItem_Click(ByVal sender A

41、s System.Object, ByVal e As System.EventArgs) Handles 查看訂單ToolStripMenuItem.Click　　MsgBox("此功能暫時不可用！", 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("親，再點還是不能用！", 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 & "注冊成功")　　End Sub

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

溫馨提示

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

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

文檔簡介

溫馨提示

最新文檔

評論

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

文檔簡介

溫馨提示

最新文檔

評論

免費下載