《.net技術(shù)》課程設(shè)計(jì)報(bào)告--網(wǎng)上書店管理系統(tǒng)

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

2023年全國(guó)碩士研究生考試考研英語(yǔ)一試題真題（含答案詳解+作文范文）_第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、　　課程設(shè)計(jì)報(bào)告　　系（部、中心）計(jì)算機(jī)科學(xué)與工程學(xué)院 　　姓名學(xué) 號(hào) 　　專業(yè) 網(wǎng)絡(luò)工程班級(jí) 2班 &l

2、t;p>　　同組人員　 　　課程名稱 .NET技術(shù) 　　設(shè)計(jì)題目名稱網(wǎng)上書店管理系統(tǒng)—后臺(tái)子系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn) 　　起止時(shí)間 2010年11月25日—2010年12月22日 &l

3、t;p>　　成績(jī) 　 　　指導(dǎo)教師簽名　 　　目錄　　1. 系統(tǒng)總體分析與設(shè)計(jì)3　　1.

4、1 系統(tǒng)體系結(jié)構(gòu)3　　本系統(tǒng)采用客戶/服務(wù)器（Client/Server）模式。簡(jiǎn)述C/S結(jié)構(gòu)特點(diǎn)。3　　1.2 系統(tǒng)功能結(jié)構(gòu)3　　2. 系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì)與實(shí)現(xiàn)4　　3. 系統(tǒng)功能詳細(xì)設(shè)計(jì)與實(shí)現(xiàn)5　　3. 1 登錄子系統(tǒng)

5、5　　3.2 會(huì)員管理子系統(tǒng)10　　3.3 圖書管理子系統(tǒng)12　　4. 結(jié)束語(yǔ)14　　5. 參考文獻(xiàn)14　　1. 系統(tǒng)總體分析與設(shè)計(jì)

6、1.1 系統(tǒng)體系結(jié)構(gòu)　　本系統(tǒng)采用客戶/服務(wù)器（Client/Server）模式。簡(jiǎn)述C/S結(jié)構(gòu)特點(diǎn)。　　圖1 系統(tǒng)體系結(jié)構(gòu)圖　　1.2 系統(tǒng)功能結(jié)構(gòu)　?。?lt;/b>　　圖2 系統(tǒng)功能模塊圖</

7、p>　　2. 系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì)與實(shí)現(xiàn)　　描述數(shù)據(jù)庫(kù)表的結(jié)構(gòu)及相關(guān)約束，如下表：　　管理員信息表：　　會(huì)員信息表：　　圖書信息表：&l

8、t;/p>　　SQL SERVER（ACCESS）數(shù)據(jù)庫(kù)實(shí)現(xiàn)：　　圖3 數(shù)據(jù)庫(kù)實(shí)現(xiàn)關(guān)系圖（注意：圖有圖題）　　系統(tǒng)功能詳細(xì)設(shè)計(jì)與實(shí)現(xiàn)　　3. 1 登錄子系統(tǒng)　　代碼：<p&

9、gt;　　Imports System.Data.SqlClient　　Public Class frmUser　　Inherits System.Windows.Forms.Form　　#Region " Windows 窗體設(shè)計(jì)器生成的代碼"　　P

10、ublic Sub New()　　MyBase.New()　　'該調(diào)用是Windows 窗體設(shè)計(jì)器所必需的。　　InitializeComponent()　　'在InitializeComponent() 調(diào)用之后添加任何初始化&l

11、t;p>　　End Sub　　'窗體重寫dispose 以清理組件列表。　　Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)　　If disposing Then</

12、p>　　If Not (components Is Nothing) Then　　components.Dispose()　　End If　　End If　　MyBas

13、e.Dispose(disposing)　　End Sub　　'Windows 窗體設(shè)計(jì)器所必需的　　Private components As System.ComponentModel.IContainer　　'注

14、意: 以下過(guò)程是Windows 窗體設(shè)計(jì)器所必需的　　'可以使用Windows 窗體設(shè)計(jì)器修改此過(guò)程。　　'不要使用代碼編輯器修改它。　　Friend WithEvents Label1 As System.Windows.Forms.Label　　Fri

15、end WithEvents Label2 As System.Windows.Forms.Label　　Friend WithEvents TextBox1 As System.Windows.Forms.TextBox　　Friend WithEvents TextBox2 As System.Windows.Forms.TextBox</p&

16、gt;　　Friend WithEvents Button1 As System.Windows.Forms.Button　　Friend WithEvents Button2 As System.Windows.Forms.Button　　Friend WithEvents Label3 As System.Windows.For

17、ms.Label　　<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()　　Me.Label1 = New System.Windows.Forms.Label　　Me.Label2 = New Sys

18、tem.Windows.Forms.Label　　Me.TextBox1 = New System.Windows.Forms.TextBox　　Me.TextBox2 = New System.Windows.Forms.TextBox　　Me.Button1 = New System.Windows.Form

19、s.Button　　Me.Button2 = New System.Windows.Forms.Button　　Me.Label3 = New System.Windows.Forms.Label　　Me.SuspendLayout()　　'&l

20、t;/b>　　'Label1　　'　　Me.Label1.Location = New System.Drawing.Point(32, 56)　　Me.Label1.Nam

21、e = "Label1"　　Me.Label1.Size = New System.Drawing.Size(56, 24)　　Me.Label1.TabIndex = 0　　Me.Label1.Text = "用戶名："<b

22、>　　'　　'Label2　　'　　Me.Label2.Location = New System.Drawing.Point(32, 104)

23、　Me.Label2.Name = "Label2"　　Me.Label2.Size = New System.Drawing.Size(56, 24)　　Me.Label2.TabIndex = 1　　Me.Label2.Text = "密碼："

24、　　'　　'TextBox1　　'　　Me.TextBox1.Location = New System.Drawing.Point(88, 56)</

25、p>　　Me.TextBox1.Name = "TextBox1"　　Me.TextBox1.Size = New System.Drawing.Size(136, 21)　　Me.TextBox1.TabIndex = 2　　'</

26、b>　　'TextBox2　　'　　Me.TextBox2.Location = New System.Drawing.Point(88, 104)　　Me.TextBox2

27、.Name = "TextBox2"　　Me.TextBox2.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)　　Me.TextBox2.Size = New System.Drawing.Size(136, 21)　　Me.TextB

28、ox2.TabIndex = 3　　'　　'Button1　　'　　Me.Button1.Location = New System.

29、Drawing.Point(40, 168)　　Me.Button1.Name = "Button1"　　Me.Button1.Size = New System.Drawing.Size(56, 24)　　Me.Button1.TabIndex = 4

30、;　　Me.Button1.Text = "登陸"　　'　　'Button2　　'　　Me.Button2.Lo

31、cation = New System.Drawing.Point(136, 168)　　Me.Button2.Name = "Button2"　　Me.Button2.Size = New System.Drawing.Size(56, 24)　　Me.Button2.TabIndex =

32、5　　Me.Button2.Text = "取消"　　'　　'Label3　　'<

33、p>　　Me.Label3.ForeColor = System.Drawing.Color.Blue　　Me.Label3.Location = New System.Drawing.Point(32, 16)　　Me.Label3.Name = "Label3"　　Me.Label3

34、.Size = New System.Drawing.Size(208, 24)　　Me.Label3.TabIndex = 6　　Me.Label3.Text = "初始用戶名和密碼都為：admin"　　'

35、;　　'frmUser　　'　　Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)　　Me.BackColor = System.Drawing.SystemColo

36、rs.ActiveBorder　　Me.ClientSize = New System.Drawing.Size(256, 230)　　Me.Controls.Add(Me.Label3)　　Me.Controls.Add(Me.Button2)　　Me.Controls

37、.Add(Me.Button1)　　Me.Controls.Add(Me.TextBox2)　　Me.Controls.Add(Me.TextBox1)　　Me.Controls.Add(Me.Label2)　　Me.Controls.Add(Me.Label1)<

38、/p>　　Me.Name = "frmUser"　　Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen　　Me.Text = "登陸窗口"　　Me.Resu

39、meLayout(False)　　Me.PerformLayout()　　End Sub　　#End Region　　Public User As String　　Public passwor

40、d As String　　Dim conn As New SqlConnection("Server=.;" & _　　"Database=ViBook; " & _　　"Integrated Security=SSPI ")</p

41、>　　Dim comm As New SqlCommand　　Dim ds As New DataSet　　Dim da As New SqlDataAdapter　　Private Sub Button1_Click(ByVal sender As System.Object, By

42、Val e As System.EventArgs) Handles Button1.Click　　User = TextBox1.Text　　password = TextBox2.Text　　Dim str As String　　str = "select

43、* from 管理員信息where 姓名='" & User & "' and 密碼='" & password & "'"　　comm.Connection = conn　　comm.CommandType = CommandType.Te

44、xt　　comm.CommandText = str　　da.SelectCommand = comm　　Try　　conn.Open()　　da.Fill(ds)&l

45、t;p>　　If ds.Tables(0).Rows.Count <> 0 Then　　Dim frm2 As New frmMain　　frm2.Show()　　Me.Hide()　　Else&l

46、t;/b>　　MessageBox.Show("密碼或用戶名錯(cuò)誤，請(qǐng)重新輸入", "提示信息")　　TextBox1.Text = ""　　TextBox2.Text = ""　　Tex

47、tBox1.Focus()　　End If　　Catch ex As Exception　　MessageBox.Show("登陸失敗", "提示信息")　　End Try&l

48、t;/b>　　End Sub　　Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click　　Me.Close()

49、　　Application.Exit()　　End Sub　　Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Ha

50、ndles TextBox2.KeyPress　　If e.KeyChar = Microsoft.VisualBasic.ChrW(13) _　　And TextBox2.Text <> "" Then　　Me.Button1_Click(Nothing, Nothing)<

51、;/p>　　End If　　End Sub　　Private Sub frmUser_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Loa

52、d　　End Sub　　End Class　　界面：　　3.2 會(huì)員管理子系統(tǒng)　　代碼：Imports Syste

53、m.Data.SqlClient　　Public Class frmXzDz　　Inherits System.Windows.Forms.Form　　Dim conn As New SqlConnection("Server=.;DataBase=ViBook;Integrated Security=

54、SSPI")　　Dim comm As New SqlCommand　　Dim ds As New DataSet　　Friend WithEvents TextBox4 As System.Windows.Forms.TextBox　　Friend WithE

55、vents TextBox6 As System.Windows.Forms.TextBox　　Friend WithEvents TextBox5 As System.Windows.Forms.TextBox　　Dim da As New SqlDataAdapter　　Private Sub frmXzDz

56、_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load　　If conn.State = ConnectionState.Closed Then　　conn.Open()　　End If<

57、/b>　　comm.Connection = conn　　comm.CommandType = CommandType.Text　　comm.CommandText = "select * from 會(huì)員信息表"　　da.SelectComman

58、d = comm　　'Dim da As New SqlDataAdapter("select * from 學(xué)生信息表")　　da.Fill(ds, "會(huì)員信息表")　　DataGrid1.DataSource = ds.Tables("會(huì)員信息表&qu

59、ot;)　　If conn.State = ConnectionState.Open Then　　conn.Close()　　End If　　End Sub

60、;　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click　　ds.Clear()　　If conn.State = ConnectionState.Closed Then

61、　　conn.Open()　　End If　　Dim str As String　　str = "insert into 會(huì)員信息表(會(huì)員編號(hào),會(huì)員姓名,會(huì)員性別,密碼,已買書數(shù),電話) values ('" & Tex

62、tBox1.Text & "','" & TextBox2.Text & "','" & ComboBox1.SelectedItem & "','" & TextBox4.Text & "','" & TextBox5.Text

63、& "','" & TextBox6.Text & "')"　　comm.Connection = conn　　comm.CommandType = CommandType.Text　　comm.CommandText = s

64、tr　　da.SelectCommand = comm　　da.Fill(ds, "會(huì)員信息表")　　If Me.ds.Tables.Count <> 0 Then　　comm.Connection = conn&l

65、t;p>　　comm.CommandType = CommandType.Text　　comm.CommandText = "select * from 會(huì)員信息表"　　da.SelectCommand = comm　　da.Fill(ds, "會(huì)員信息表")<

66、/p>　　MessageBox.Show("新增會(huì)員信息成功", "提示信息")　　TextBox1.Text = ""　　TextBox2.Text = ""　　ComboBox1.Text = &quo

67、t;"　　TextBox4.Text = ""　　TextBox5.Text = ""　　TextBox6.Text = ""　　TextBox1.Focus()

68、;　　Else　　End If　　End Sub　　Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System

69、.EventArgs) Handles Button2.Click　　Me.Close()　　End Sub　　End Class　　界面：

70、;　　3.3 圖書管理子系統(tǒng)　　代碼：Imports System.Data.SqlClient　　Public Class frmXzSj　　Inherits System.Windows.Forms.Form　　Dim conn As New

71、SqlConnection("Server=.;DataBase=ViBook;Integrated Security=SSPI")　　Dim comm As New SqlCommand　　Dim ds As New DataSet　　Dim da As New SqlDataAdapter

72、　　'Dim reader1 As SqlDataReader　　Private Sub frmXzSj_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load　　If conn.State = Conne

73、ctionState.Closed Then　　conn.Open()　　End If　　comm.Connection = conn　　comm.CommandType = CommandType.Text&

74、lt;p>　　comm.CommandText = "select * from 圖書信息表"　　da.SelectCommand = comm　　'Dim da As New SqlDataAdapter("select * from 學(xué)生信息表")　　da

75、.Fill(ds, "圖書信息表")　　DataGrid1.DataSource = ds.Tables("圖書信息表")　　If conn.State = ConnectionState.Open Then　　conn.Close()<p&g

76、t;　　End If　　End Sub　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

77、　　ds.Clear()　　If conn.State = ConnectionState.Closed Then　　conn.Open()　　End If　　Dim str As String

78、　　str = "insert into 圖書信息表(圖書編號(hào),圖書類別,書名,作者,出版社,價(jià)格,冊(cè)數(shù),出版日期) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & ComboBox1.SelectedIt

79、em & "','" & TextBox3.Text & "','" & TextBox4.Text & "'," & TextBox5.Text & ",'" & TextBox6.Text & "','&quo

80、t; & DateTimePicker1.Value.Date & "')"　　comm.Connection = conn　　comm.CommandType = CommandType.Text　　comm.CommandText = str

81、　　da.SelectCommand = comm　　da.Fill(ds, "圖書信息表")　　If Me.ds.Tables.Count <> 0 Then　　comm.Connection = conn　　comm.

82、CommandType = CommandType.Text　　comm.CommandText = "select * from 圖書信息表"　　da.SelectCommand = comm　　da.Fill(ds, "圖書信息表")<p&

83、gt;　　MessageBox.Show("新增圖書信息成功", "提示信息")　　TextBox1.Text = ""　　TextBox2.Text = ""　　TextBox3.Text = ""</p&

84、gt;　　ComboBox1.Text = ""　　TextBox4.Text = ""　　TextBox5.Text = ""　　TextBox6.Text = ""

85、　TextBox1.Focus()　　Else　　End If　　If conn.State = ConnectionState.Open Then　　conn.Close()

86、　　End If　　End Sub　　Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<

87、;/p>　　Me.Close()　　End Sub　　Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBo

88、x1.SelectedIndexChanged　　End Sub　　End Clas　　界面：　　結(jié)束語(yǔ)</p&g

89、t;　　VB的學(xué)習(xí)過(guò)程應(yīng)該是一個(gè)快樂(lè)的過(guò)程，要充分的體會(huì)它的可視化編程的魅力。　　將枯燥的后臺(tái)代碼和前面的窗體聯(lián)系起來(lái)。　　多讀代碼，而不是復(fù)制、粘貼代碼。　　5. 參考文獻(xiàn)　　[1] 黃梯云，管理信息系統(tǒng)，高等

眾賞文庫(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ì)自己和他人造成任何形式的傷害或損失。

《.net技術(shù)》課程設(shè)計(jì)報(bào)告--網(wǎng)上書店管理系統(tǒng)

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

《.net技術(shù)》課程設(shè)計(jì)報(bào)告--網(wǎng)上書店管理系統(tǒng)

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

免費(fèi)下載