版權(quán)說(shuō)明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
1、<p> 《信息系統(tǒng)與數(shù)據(jù)庫(kù)技術(shù)》課程設(shè)計(jì)</p><p> 設(shè)計(jì)題目: 網(wǎng)上書(shū)店信息系統(tǒng)</p><p><b> 1系統(tǒng)目標(biāo):</b></p><p> 本系統(tǒng)支持等圖書(shū)商品管理、圖書(shū)銷(xiāo)售、客戶分析3個(gè)方面的功能,并具有信息管理、事務(wù)處理和決策支持的系統(tǒng)特點(diǎn)。</p><p><b>
2、2需求分析</b></p><p><b> ?。?)業(yè)務(wù)需求</b></p><p> 酒店客房預(yù)訂管理系統(tǒng)主要有三類用戶角色:客戶、店員、店長(zhǎng)。他們各自的主要業(yè)務(wù)處理需求如下:</p><p> 1.客戶在系統(tǒng)中完成對(duì)酒店房間的瀏覽和預(yù)訂。主要業(yè)務(wù)和流程包括:查詢、瀏覽圖書(shū)商品——選擇放入購(gòu)物車(chē)——選擇支付方式、發(fā)貨方式和填
3、寫(xiě)個(gè)人信息——生成和提交訂單。</p><p> 2.店員在系統(tǒng)中完成商品管理、訂單處理等:商品上架、下架;商品折扣管理;商品匯總。</p><p> 3.店長(zhǎng)在系統(tǒng)中獲得商品和營(yíng)銷(xiāo)分析、客戶分析以制訂營(yíng)銷(xiāo)策略:客房匯總(包括分類匯總):營(yíng)業(yè)狀況分析(包括按時(shí)間、圖書(shū)類別、客戶類別等匯總);客戶分析(按客戶重要性、忠誠(chéng)度分析等)。</p><p><b&g
4、t; (2)數(shù)據(jù)處理需求</b></p><p> 系統(tǒng)涉及的數(shù)據(jù)源有圖書(shū)數(shù)據(jù)、客戶數(shù)據(jù)、客戶購(gòu)買(mǎi)數(shù)據(jù),產(chǎn)生圖書(shū)信息表、客戶信息表、訂單、客戶分析表、銷(xiāo)售分析等各項(xiàng)表單。結(jié)合業(yè)務(wù)處理需求,系統(tǒng)數(shù)據(jù)流圖如圖一所示。</p><p> 圖一: 系統(tǒng)數(shù)據(jù)流圖</p><p><b> 3系統(tǒng)總體設(shè)計(jì)</b></p>
5、<p><b> ?。?)系統(tǒng)結(jié)構(gòu) </b></p><p> 網(wǎng)絡(luò)書(shū)店的客戶散落在不同地域,凡是可以接入互聯(lián)網(wǎng)的用戶都可以成為書(shū)店的客戶。我們從系統(tǒng)安全、快速訪問(wèn)等方面考慮,可以采用客戶機(jī)/服務(wù)器結(jié)構(gòu)(C/S)。</p><p><b> ?。?)系統(tǒng)技術(shù)方案</b></p><p> 系統(tǒng)前臺(tái)開(kāi)發(fā)工具:面
6、向客戶、店員、店長(zhǎng)的C/S應(yīng)用程序采用VB.NET語(yǔ)言開(kāi)發(fā)。</p><p> 后臺(tái)數(shù)據(jù)庫(kù)采用Microsoft SQL Server。</p><p> ?。?)系統(tǒng)功能結(jié)構(gòu) </p><p> 根據(jù)需求分析所獲得的業(yè)務(wù)需求,可以定義系統(tǒng)的詳細(xì)功能說(shuō)明如表所示。</p><p> 圖二:網(wǎng)上書(shū)店系統(tǒng)功能結(jié)構(gòu)</p>&l
7、t;p><b> 4數(shù)據(jù)庫(kù)設(shè)計(jì)</b></p><p><b> 數(shù)據(jù)庫(kù)概念設(shè)計(jì)</b></p><p> 系統(tǒng)主要實(shí)體有圖書(shū)和客戶兩個(gè),她們通過(guò)訂購(gòu)活動(dòng)建立聯(lián)系,分析定義各實(shí)體的屬性,建立實(shí)體間的聯(lián)系模型的E-R圖如下</p><p> 圖三:網(wǎng)上書(shū)店E-R圖</p><p><
8、;b> 數(shù)據(jù)庫(kù)邏輯設(shè)計(jì)</b></p><p> 將數(shù)據(jù)庫(kù)的概念模式轉(zhuǎn)化為如下四個(gè)基本關(guān)系模式</p><p> 客戶(客戶號(hào),姓名,性別,職業(yè),生日,所在省區(qū),聯(lián)系電話,E-mail,客戶等級(jí),忠誠(chéng)度)</p><p> 圖書(shū)(書(shū)號(hào),書(shū)名,作者,出版社,出版時(shí)間,類別,內(nèi)容簡(jiǎn)介,價(jià)格,折扣)</p><p> 訂
9、單(訂單號(hào),客戶號(hào),支付方式,發(fā)貨方式,發(fā)貨地址,訂貨時(shí)間)</p><p> 2)數(shù)據(jù)庫(kù)Bookstore的關(guān)系圖如下</p><p><b> 3)數(shù)據(jù)庫(kù)物理設(shè)計(jì)</b></p><p> 1)下面給出SQL Server 下的網(wǎng)上書(shū)店數(shù)據(jù)庫(kù)物理設(shè)計(jì)的關(guān)系模型設(shè)計(jì)、完整性約束設(shè)計(jì)和索引選擇。</p><p>
10、 2)Customer 客戶表,用于存儲(chǔ)客戶基本信息,如下圖所示</p><p> Customer 客戶表</p><p> 3)Book圖書(shū)表,用于存儲(chǔ)圖書(shū)基本情況</p><p><b> Book圖書(shū)表</b></p><p> 4)BookOrder 訂單表,用于存儲(chǔ)訂單的基本情況</p>
11、<p> BookOrder 訂單表</p><p> 5)OrderDetail 訂單詳細(xì)情況表,用于存儲(chǔ)訂單的詳細(xì)情況</p><p> 5數(shù)據(jù)庫(kù)應(yīng)用對(duì)象設(shè)計(jì)</p><p> 可以充分利用SQL Server所提供的數(shù)據(jù)庫(kù)應(yīng)用對(duì)象來(lái)支持應(yīng)用程序開(kāi)發(fā),這樣,可以提高程序開(kāi)發(fā)效率和系統(tǒng)運(yùn)行效率并且可以加強(qiáng)系統(tǒng)的安全性。如下面示例</p&g
12、t;<p><b> 示圖設(shè)計(jì)</b></p><p> 示圖設(shè)計(jì)是一個(gè)虛擬表,可以簡(jiǎn)化客戶端程序和提高訪問(wèn)安全性</p><p> *視圖V_Customer and Suppliers by City</p><p> V_Customer and Suppliers by City支持客戶和供應(yīng)商的城市情況的查詢。&
13、lt;/p><p><b> 視圖的定義語(yǔ)句如下</b></p><p> create view "Customer and Suppliers by City" AS</p><p> SELECT City, CompanyName, ContactName, 'Customers' AS Relat
14、ionship </p><p> FROM Customers</p><p> UNION SELECT City, CompanyName, ContactName, 'Suppliers'</p><p> FROM Suppliers</p><p> --ORDER BY City, CompanyName
15、</p><p><b> 視圖如下</b></p><p> *視圖"V_Orders Qry" </p><p> 視圖"V_Orders Qry"的定義語(yǔ)句如下</p><p> create view "Orders Qry" AS</p&
16、gt;<p> SELECT Orders.OrderID, Orders.CustomerID, Orders.EmployeeID, Orders.OrderDate, Orders.RequiredDate, </p><p> Orders.ShippedDate, Orders.ShipVia, Orders.Freight, Orders.ShipName, Orders.ShipA
17、ddress, Orders.ShipCity, </p><p> Orders.ShipRegion, Orders.ShipPostalCode, Orders.ShipCountry, </p><p> Customers.CompanyName, Customers.Address, Customers.City, Customers.Region, Customers.P
18、ostalCode, Customers.Country</p><p> FROM Customers INNER JOIN Orders ON Customers.CustomerID = Orders.CustomerID</p><p> 視圖"V_Orders Qry"如下</p><p><b> 儲(chǔ)存過(guò)程設(shè)計(jì).<
19、;/b></p><p> 儲(chǔ)存過(guò)程建立在SQL_Server服務(wù)器端,在數(shù)據(jù)庫(kù)應(yīng)用程序中使用存儲(chǔ)過(guò)程可以簡(jiǎn)化客戶端程序,提供系統(tǒng)運(yùn)行效率,加強(qiáng)安全性并且減少網(wǎng)絡(luò)信息傳輸量。</p><p> *儲(chǔ)存過(guò)程proc_SearchBook</p><p> proc_SearchBook按書(shū)名(BookName)實(shí)現(xiàn)模糊查詢</p><p
20、> CREATE TRIGGER tri_BookOrderDe1</p><p> @bookname VarChar(60)</p><p><b> AS</b></p><p> SELECT*FROM Book WHERE BookName LIKE “%” + @ bookname + ”%”</p>&
21、lt;p><b> 6系統(tǒng)開(kāi)發(fā)設(shè)計(jì)</b></p><p> 系統(tǒng)開(kāi)發(fā)設(shè)計(jì)設(shè)計(jì)很多詳細(xì)的設(shè)計(jì)內(nèi)容,限于篇幅,這里只給出一般性說(shuō)明和要求。</p><p><b> ?。?)子系統(tǒng)設(shè)計(jì)</b></p><p> 按照系統(tǒng)結(jié)構(gòu)設(shè)計(jì),本系統(tǒng)是C/S系統(tǒng)。</p><p><b>
22、(2)界面設(shè)計(jì)要求</b></p><p> 1)以菜單集成各功能窗口。</p><p> 2)各窗口界面整齊美觀,恰當(dāng)?shù)厥褂酶鞣N窗體控件,便于用戶使用。</p><p> 3)有用戶登錄界面,即進(jìn)行身份驗(yàn)證,根據(jù)用戶信息使用不同的功能。</p><p> 4)報(bào)表要簡(jiǎn)潔清晰,布局合理。</p><p&
23、gt; 功能;查詢功能:用戶登錄界面,提供客戶信息查詢,添加圖書(shū)查詢,刪除圖書(shū)查詢。</p><p> 功能:客戶信息查詢。</p><p><b> 功能:添加圖書(shū)</b></p><p><b> 功能:刪除圖書(shū)。</b></p><p> 功能:查詢訂房情況表的詳細(xì)內(nèi)容。</p
24、><p> (3)程序設(shè)計(jì)注意事項(xiàng)</p><p> 1)注意輸入有效性的檢查,即編寫(xiě)程序檢驗(yàn)用戶輸入的數(shù)據(jù)是否符合數(shù)據(jù)類型或格式的需求,如果不合適,提醒其重新輸入,從而保證與數(shù)據(jù)庫(kù)的正確交互及保證數(shù)據(jù)庫(kù)信息的有效性。</p><p> 2)過(guò)程和函數(shù)的使用。將一些具有獨(dú)立功能的程序段編寫(xiě)為過(guò)程或函數(shù),這樣不僅使程序結(jié)構(gòu)模塊化,而且可以通過(guò)過(guò)程或函數(shù)多次調(diào)用共享代
25、碼。</p><p> 3)全局變量或過(guò)程的使用。因?yàn)橄到y(tǒng)中含有多個(gè)窗體和模塊文件,為了數(shù)據(jù)處理需要,可以使用一些全局變量或全局過(guò)程,這樣可以簡(jiǎn)化程序,減少代碼量,提高系統(tǒng)效率,因此可以將它們放在模塊文件中。</p><p> 4)存儲(chǔ)過(guò)程建立在SQL SERVER 服務(wù)器端,在數(shù)據(jù)庫(kù)應(yīng)用程序中使用存儲(chǔ)過(guò)程可以簡(jiǎn)化客戶端程序,提供系統(tǒng)運(yùn)行效率,并且減少網(wǎng)絡(luò)信息傳輸量。</p>
26、;<p> 5)視圖建立在SQL SERVER 服務(wù)器端,可以簡(jiǎn)化客戶端程序和提高訪問(wèn)安全性。</p><p> 6)觸發(fā)器建立在數(shù)據(jù)表上。當(dāng)有對(duì)數(shù)據(jù)庫(kù)更新操作時(shí),自動(dòng)執(zhí)行,可以維護(hù)數(shù)據(jù)的一致性,如果一般性的關(guān)系完整性約束規(guī)則無(wú)法實(shí)現(xiàn)的數(shù)據(jù)約束,則可使用觸發(fā)器實(shí)現(xiàn)。 </p><p><b> ?。?)程序代碼</b></p><
27、p><b> * Form1</b></p><p> Imports System.Data</p><p> Imports System.Data.SqlClient</p><p> Public Class Form1</p><p> Inherits System.Windows.Forms
28、.Form</p><p> Public mybind As BindingManagerBase</p><p> #Region " Windows 窗體設(shè)計(jì)器生成的代碼 "</p><p> Public Sub New()</p><p> MyBase.New()</p><p>
29、; '該調(diào)用是 Windows 窗體設(shè)計(jì)器所必需的。</p><p> InitializeComponent()</p><p> '在 InitializeComponent() 調(diào)用之后添加任何初始化</p><p><b> End Sub</b></p><p><b> &
30、#39;Button1</b></p><p><b> '</b></p><p> Me.Button1.BackColor = System.Drawing.SystemColors.ActiveCaption</p><p> Me.Button1.Location = New System.Drawing.P
31、oint(648, 144)</p><p> Me.Button1.Name = "Button1"</p><p> Me.Button1.TabIndex = 0</p><p> Me.Button1.Text = "確認(rèn)更新"</p><p><b> '</b
32、></p><p><b> 'Button2</b></p><p><b> '</b></p><p> Me.Button2.BackColor = System.Drawing.SystemColors.ActiveCaption</p><p> Me.Bu
33、tton2.Location = New System.Drawing.Point(32, 344)</p><p> Me.Button2.Name = "Button2"</p><p> Me.Button2.TabIndex = 1</p><p> Me.Button2.Text = "第一條"</p&g
34、t;<p><b> '</b></p><p><b> 'Button3</b></p><p><b> '</b></p><p> Me.Button3.BackColor = System.Drawing.SystemColors.Active
35、Caption</p><p> Me.Button3.Location = New System.Drawing.Point(472, 344)</p><p> Me.Button3.Name = "Button3"</p><p> Me.Button3.TabIndex = 2</p><p> Me.Bu
36、tton3.Text = "最后一條"</p><p><b> '</b></p><p><b> 'Button4</b></p><p><b> '</b></p><p> Me.Button4.BackColor
37、 = System.Drawing.SystemColors.ActiveCaption</p><p> Me.Button4.Location = New System.Drawing.Point(648, 96)</p><p> Me.Button4.Name = "Button4"</p><p> Me.Button4.TabI
38、ndex = 3</p><p> Me.Button4.Text = "刪除"</p><p><b> '</b></p><p><b> 'Button5</b></p><p><b> '</b></p>
39、;<p> Me.Button5.BackColor = System.Drawing.SystemColors.ActiveCaption</p><p> Me.Button5.Location = New System.Drawing.Point(176, 344)</p><p> Me.Button5.Name = "Button5"<
40、;/p><p> Me.Button5.TabIndex = 4</p><p> Me.Button5.Text = "上一條"</p><p><b> '</b></p><p><b> 'Button6</b></p><p>
41、;<b> '</b></p><p> Me.Button6.BackColor = System.Drawing.SystemColors.ActiveCaption</p><p> Me.Button6.Location = New System.Drawing.Point(648, 184)</p><p> Me.B
42、utton6.Name = "Button6"</p><p> Me.Button6.TabIndex = 5</p><p> Me.Button6.Text = "取消更新"</p><p><b> '</b></p><p><b> '
43、Button7</b></p><p><b> '</b></p><p> Me.Button7.BackColor = System.Drawing.SystemColors.ActiveCaption</p><p> Me.Button7.Location = New System.Drawing.Point
44、(648, 56)</p><p> Me.Button7.Name = "Button7"</p><p> Me.Button7.TabIndex = 6</p><p> Me.Button7.Text = "添加"</p><p><b> '</b><
45、;/p><p><b> 'Button8</b></p><p><b> '</b></p><p> Me.Button8.BackColor = System.Drawing.SystemColors.ActiveCaption</p><p> Me.Button8.L
46、ocation = New System.Drawing.Point(312, 344)</p><p> Me.Button8.Name = "Button8"</p><p> Me.Button8.TabIndex = 7</p><p> Me.Button8.Text = "下一條"</p>&l
47、t;p><b> 'Button9</b></p><p><b> '</b></p><p> Me.Button9.BackColor = System.Drawing.SystemColors.ActiveCaption</p><p> Me.Button9.Location = N
48、ew System.Drawing.Point(648, 344)</p><p> Me.Button9.Name = "Button9"</p><p> Me.Button9.TabIndex = 19</p><p> Me.Button9.Text = "退出"</p><p><
49、b> '</b></p><p><b> 'Label1</b></p><p><b> '</b></p><p> Me.Label1.Location = New System.Drawing.Point(16, 264)</p><p>
50、 Me.Label1.Name = "Label1"</p><p> Me.Label1.TabIndex = 20</p><p> Me.Label1.Text = "Hometown"</p><p><b> '</b></p><p><b>
51、 'Label2</b></p><p><b> '</b></p><p> Me.Label2.Location = New System.Drawing.Point(272, 264)</p><p> Me.Label2.Name = "Label2"</p>&l
52、t;p> Me.Label2.TabIndex = 21</p><p> Me.Label2.Text = "Telephone"</p><p><b> '</b></p><p><b> 'Label3</b></p><p><b&
53、gt; '</b></p><p> Me.Label3.Location = New System.Drawing.Point(400, 264)</p><p> Me.Label3.Name = "Label3"</p><p> Me.Label3.TabIndex = 22</p><p&
54、gt; Me.Label3.Text = "VIPClass"</p><p><b> '</b></p><p><b> 'Label4</b></p><p><b> '</b></p><p> Me.Label
55、4.Location = New System.Drawing.Point(528, 264)</p><p> Me.Label4.Name = "Label4"</p><p> Me.Label4.TabIndex = 23</p><p> Me.Label4.Text = "LoyaltyClass"</
56、p><p><b> '</b></p><p><b> 'Label5</b></p><p><b> '</b></p><p> Me.Label5.Location = New System.Drawing.Point(144, 264)
57、</p><p> Me.Label5.Name = "Label5"</p><p> Me.Label5.TabIndex = 24</p><p> Me.Label5.Text = "Email"</p><p><b> '</b></p>
58、<p><b> 'Label6</b></p><p><b> '</b></p><p> Me.Label6.Location = New System.Drawing.Point(528, 200)</p><p> Me.Label6.Name = "Label6&q
59、uot;</p><p> Me.Label6.TabIndex = 25</p><p> Me.Label6.Text = "Birthday"</p><p><b> '</b></p><p><b> 'Label7</b></p>
60、<p><b> '</b></p><p> Me.Label7.Location = New System.Drawing.Point(400, 200)</p><p> Me.Label7.Name = "Label7"</p><p> Me.Label7.TabIndex = 26&
61、lt;/p><p> Me.Label7.Text = "Job"</p><p><b> '</b></p><p><b> 'Label8</b></p><p><b> '</b></p><p&g
62、t; Me.Label8.Location = New System.Drawing.Point(272, 200)</p><p> Me.Label8.Name = "Label8"</p><p> Me.Label8.TabIndex = 27</p><p> Me.Label8.Text = "Sex"&l
63、t;/p><p><b> '</b></p><p><b> 'Label9</b></p><p><b> '</b></p><p> Me.Label9.Location = New System.Drawing.Point(144, 2
64、00)</p><p> Me.Label9.Name = "Label9"</p><p> Me.Label9.TabIndex = 28</p><p> Me.Label9.Text = "Name"</p><p><b> '</b></p>
65、<p><b> 'Label10</b></p><p><b> '</b></p><p> Me.Label10.Location = New System.Drawing.Point(16, 200)</p><p> Me.Label10.Name = "Labe
66、l10"</p><p> Me.Label10.TabIndex = 29</p><p> Me.Label10.Text = "CustomerCode"</p><p><b> Form1</b></p><p><b> '</b></
67、p><p> Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)</p><p> Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)</p><p>
68、 Me.ClientSize = New System.Drawing.Size(744, 406)</p><p> Me.Controls.Add(Me.Label10)</p><p> Me.Controls.Add(Me.Label9)</p><p> Me.Controls.Add(Me.Label8)</p><p>
69、 Me.Controls.Add(Me.Label7)</p><p> Me.Controls.Add(Me.Label6)</p><p> Me.Controls.Add(Me.Label5)</p><p> Me.Controls.Add(Me.Label4)</p><p> Me.Controls.Add(Me.Labe
70、l3)</p><p> Me.Controls.Add(Me.Label2)</p><p> Me.Controls.Add(Me.Label1)</p><p> Me.Controls.Add(Me.Button9)</p><p> Me.Controls.Add(Me.DataGrid1)</p><p
71、> Me.Controls.Add(Me.TextBox10)</p><p> Me.Controls.Add(Me.TextBox9)</p><p> Me.Controls.Add(Me.TextBox8)</p><p> Me.Controls.Add(Me.TextBox7)</p><p> Me.Contro
72、ls.Add(Me.TextBox6)</p><p> Me.Controls.Add(Me.TextBox5)</p><p> Me.Controls.Add(Me.TextBox4)</p><p> Me.Controls.Add(Me.TextBox3)</p><p> Me.Controls.Add(Me.TextBo
73、x2)</p><p> Me.Controls.Add(Me.TextBox1)</p><p> Me.Controls.Add(Me.Button8)</p><p> Me.Controls.Add(Me.Button7)</p><p> Me.Controls.Add(Me.Button6)</p><
74、p> Me.Controls.Add(Me.Button5)</p><p> Me.Controls.Add(Me.Button4)</p><p> Me.Controls.Add(Me.Button3)</p><p> Me.Controls.Add(Me.Button2)</p><p> Me.Controls.A
75、dd(Me.Button1)</p><p> Me.Name = "Form1"</p><p> Me.Text = "Form1"</p><p> CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()</p>
76、<p> CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()</p><p> Me.ResumeLayout(False)</p><p><b> End Sub</b></p><p> Private Sub SqlDataAd
77、apter1_RowUpdated(ByVal sender As System.Object, ByVal e As System.Data.SqlClient.SqlRowUpdatedEventArgs) Handles SqlDataAdapter1.RowUpdated</p><p><b> End Sub</b></p><p> Private
78、Sub DataGrid1_Navigate(ByVal sender As System.Object, ByVal ne As System.Windows.Forms.NavigateEventArgs) Handles DataGrid1.Navigate</p><p><b> End Sub</b></p><p> Private Sub Butt
79、on7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click</p><p> mybind.AddNew()</p><p><b> End Sub</b></p><p> Private Sub TextBox
80、1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged</p><p><b> End Sub</b></p><p> Private Sub TextBox5_TextChanged(ByVal sender
81、As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged</p><p><b> End Sub</b></p><p> Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.E
82、ventArgs) Handles MyBase.Load</p><p> SqlDataAdapter1.Fill(DataSet11.Customer)</p><p> mybind = BindingContext(DataSet11, "Customer")</p><p> DataGrid1.DataSource = Dat
83、aSet11.Customer</p><p><b> End Sub</b></p><p> Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click</p><p> myb
84、ind.Position = 0</p><p> DataGrid1.CurrentRowIndex = mybind.Position</p><p><b> End Sub</b></p><p> Private Sub Button4_Click(ByVal sender As System.Object, ByVal e A
85、s System.EventArgs) Handles Button4.Click</p><p> mybind.RemoveAt(mybind.Position)</p><p><b> End Sub</b></p><p> Private Sub Button1_Click(ByVal sender As System.Obj
86、ect, ByVal e As System.EventArgs) Handles Button1.Click</p><p> mybind.EndCurrentEdit()</p><p> SqlDataAdapter1.Update(DataSet11.Customer)</p><p><b> End Sub</b></
87、p><p> Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click</p><p> mybind.CancelCurrentEdit()</p><p><b> End Sub</b&
88、gt;</p><p> Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click</p><p> mybind.Position = mybind.Position - 1</p><p> Data
89、Grid1.CurrentRowIndex = mybind.Position</p><p><b> End Sub</b></p><p> Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click&l
90、t;/p><p> mybind.Position = mybind.Position + 1</p><p> DataGrid1.CurrentRowIndex = mybind.Position</p><p><b> End Sub</b></p><p> Private Sub Button3_Clic
91、k(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click</p><p> mybind.Position = mybind.Count - 1</p><p> DataGrid1.CurrentRowIndex = mybind.Position</p>&l
92、t;p><b> End Sub</b></p><p> Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click</p><p><b> End Sub</b></p&g
93、t;<p><b> End Class</b></p><p><b> *Form2</b></p><p> Imports System.Data</p><p> Imports System.Data.SqlClient</p><p> Public Class
94、 Form2</p><p> Inherits System.Windows.Forms.Form</p><p> #Region " Windows 窗體設(shè)計(jì)器生成的代碼 "</p><p> Public Sub New()</p><p> MyBase.New()</p><p>
95、; '該調(diào)用是 Windows 窗體設(shè)計(jì)器所必需的。</p><p> InitializeComponent()</p><p> '在 InitializeComponent() 調(diào)用之后添加任何初始化</p><p><b> End Sub</b></p><p> '窗體重寫(xiě)
96、dispose 以清理組件列表。</p><p> Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)</p><p> If disposing Then</p><p> If Not (components Is Nothing) Then</p>&l
97、t;p> components.Dispose()</p><p><b> End If</b></p><p><b> End If</b></p><p> MyBase.Dispose(disposing)</p><p><b> End Sub</b&g
98、t;</p><p><b> 'Button1</b></p><p><b> '</b></p><p> Me.Button1.BackColor = System.Drawing.SystemColors.ActiveBorder</p><p> Me.Butto
99、n1.Location = New System.Drawing.Point(16, 128)</p><p> Me.Button1.Name = "Button1"</p><p> Me.Button1.TabIndex = 0</p><p> Me.Button1.Text = "Publisher"</
100、p><p><b> '</b></p><p><b> 'Button2</b></p><p><b> '</b></p><p> Me.Button2.BackColor = System.Drawing.SystemColors.Act
101、iveBorder</p><p> Me.Button2.Location = New System.Drawing.Point(16, 168)</p><p> Me.Button2.Name = "Button2"</p><p> Me.Button2.TabIndex = 1</p><p> Me.B
102、utton2.Text = "PublishTime"</p><p><b> '</b></p><p><b> 'Button3</b></p><p><b> '</b></p><p> Me.Button3.B
103、ackColor = System.Drawing.SystemColors.ActiveBorder</p><p> Me.Button3.Location = New System.Drawing.Point(248, 88)</p><p> Me.Button3.Name = "Button3"</p><p> Me.Butto
104、n3.TabIndex = 2</p><p> Me.Button3.Text = "Price"</p><p><b> '</b></p><p><b> 'Button4</b></p><p><b> '</b>
105、;</p><p> Me.Button4.BackColor = System.Drawing.SystemColors.ActiveBorder</p><p> Me.Button4.Location = New System.Drawing.Point(16, 88)</p><p> Me.Button4.Name = "Button4&q
106、uot;</p><p> Me.Button4.TabIndex = 3</p><p> Me.Button4.Text = "Author"</p><p><b> '</b></p><p><b> 'Button5</b></p>
107、<p><b> '</b></p><p> Me.Button5.BackColor = System.Drawing.SystemColors.ActiveBorder</p><p> Me.Button5.Location = New System.Drawing.Point(16, 48)</p><p>
108、; Me.Button5.Name = "Button5"</p><p> Me.Button5.TabIndex = 4</p><p> Me.Button5.Text = "BookName"</p><p><b> '</b></p><p><b
109、> 'Button6</b></p><p><b> '</b></p><p> Me.Button6.BackColor = System.Drawing.SystemColors.ControlLight</p><p> Me.Button6.Location = New System.Dra
110、wing.Point(16, 16)</p><p> Me.Button6.Name = "Button6"</p><p> Me.Button6.TabIndex = 5</p><p> Me.Button6.Text = "BookCode"</p><p><b>
111、9;</b></p><p><b> 'Button7</b></p><p><b> '</b></p><p> Me.Button7.BackColor = System.Drawing.SystemColors.GrayText</p><p> Me
112、.Button7.Location = New System.Drawing.Point(136, 224)</p><p> Me.Button7.Name = "Button7"</p><p> Me.Button7.TabIndex = 6</p><p> Me.Button7.Text = "添加"</
113、p><p><b> '</b></p><p><b> 'Button8</b></p><p><b> '</b></p><p> Me.Button8.BackColor = System.Drawing.SystemColors.Act
114、iveBorder</p><p> Me.Button8.Location = New System.Drawing.Point(248, 128)</p><p> Me.Button8.Name = "Button8"</p><p> Me.Button8.TabIndex = 7</p><p> Me.
115、Button8.Text = "Discount"</p><p><b> '</b></p><p><b> 'Button9</b></p><p><b> '</b></p><p> Me.Button9.Bac
116、kColor = System.Drawing.SystemColors.ActiveBorder</p><p> Me.Button9.Location = New System.Drawing.Point(248, 48)</p><p> Me.Button9.Name = "Button9"</p><p> Me.Button9
117、.TabIndex = 8</p><p> Me.Button9.Text = "Content"</p><p><b> '</b></p><p><b> 'Button10</b></p><p><b> '</b&g
118、t;</p><p> Me.Button10.BackColor = System.Drawing.SystemColors.ActiveBorder</p><p> Me.Button10.Location = New System.Drawing.Point(248, 16)</p><p> Me.Button10.Name = "Butt
119、on10"</p><p> Me.Button10.TabIndex = 9</p><p> Me.Button10.Text = "BookSort"</p><p><b> 'Button11</b></p><p><b> '</b>
120、;</p><p> Me.Button11.BackColor = System.Drawing.SystemColors.GrayText</p><p> Me.Button11.Location = New System.Drawing.Point(264, 224)</p><p> Me.Button11.Name = "Button11
121、"</p><p> Me.Button11.TabIndex = 20</p><p> Me.Button11.Text = "退出"</p><p><b> 'Form2</b></p><p><b> '</b></p>
122、<p> Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)</p><p> Me.BackColor = System.Drawing.SystemColors.ActiveCaption</p><p> Me.ClientSize = New System.Drawing.Size(472, 310)<
123、/p><p> Me.Controls.Add(Me.TextBox9)</p><p> Me.Controls.Add(Me.Button11)</p><p> Me.Controls.Add(Me.TextBox8)</p><p> Me.Controls.Add(Me.TextBox7)</p><p>
124、; Me.Controls.Add(Me.TextBox6)</p><p> Me.Controls.Add(Me.TextBox5)</p><p> Me.Controls.Add(Me.TextBox4)</p><p> Me.Controls.Add(Me.TextBox3)</p><p> Me.Controls.A
125、dd(Me.TextBox2)</p><p> Me.Controls.Add(Me.TextBox1)</p><p> Me.Controls.Add(Me.Button10)</p><p> Me.Controls.Add(Me.Button9)</p><p> Me.Controls.Add(Me.Button8)<
126、;/p><p> Me.Controls.Add(Me.Button7)</p><p> Me.Controls.Add(Me.Button6)</p><p> Me.Controls.Add(Me.Button5)</p><p> Me.Controls.Add(Me.Button4)</p><p>
127、Me.Controls.Add(Me.Button3)</p><p> Me.Controls.Add(Me.Button2)</p><p> Me.Controls.Add(Me.Button1)</p><p> Me.Name = "Form2"</p><p> Me.Text = "添加圖書(shū)
128、"</p><p> Me.ResumeLayout(False)</p><p><b> End Sub</b></p><p> #End Region</p><p> Private Sub TextBox7_TextChanged(ByVal sender As System.Object,
129、 ByVal e As System.EventArgs) Handles TextBox7.TextChanged</p><p><b> End Sub</b></p><p> Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
130、 MyBase.Load</p><p><b> End Sub</b></p><p> Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click</p><p> Dim hs
131、l As SqlConnection</p><p> hsl = New SqlConnection</p><p> hsl.ConnectionString = "Initial Catalog=Bookstore; Data Source=.; User ID=sa; Password=;"</p><p> Dim wbl As
132、SqlCommand</p><p> wbl = New SqlCommand</p><p> wbl.CommandText = "insert into Book values ('" & TextBox1.Text & "', '" & TextBox2.Text & "
133、', '" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" &
溫馨提示
- 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ì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 網(wǎng)上書(shū)店管理信息系統(tǒng)--數(shù)據(jù)庫(kù)課程設(shè)計(jì)
- 網(wǎng)上書(shū)店管理信息系統(tǒng)數(shù)據(jù)庫(kù)課程設(shè)計(jì)
- 網(wǎng)上書(shū)店管理信息系統(tǒng)_數(shù)據(jù)庫(kù)課程設(shè)計(jì)
- 《網(wǎng)上書(shū)店管理信息系統(tǒng)》數(shù)據(jù)庫(kù)課程設(shè)計(jì)報(bào)告樣例
- 管理信息系統(tǒng)課程設(shè)計(jì)--網(wǎng)上書(shū)店系統(tǒng)
- 網(wǎng)上書(shū)店管理系統(tǒng)數(shù)據(jù)庫(kù)課程設(shè)計(jì)
- 信息系統(tǒng)與數(shù)據(jù)庫(kù)技術(shù)課程設(shè)計(jì)報(bào)告
- 網(wǎng)上書(shū)店數(shù)據(jù)庫(kù)課程設(shè)計(jì)報(bào)告
- 網(wǎng)上書(shū)店管理信息系統(tǒng)設(shè)計(jì)報(bào)告
- 數(shù)據(jù)庫(kù)課程設(shè)計(jì)--- 論壇管理信息系統(tǒng)
- 數(shù)據(jù)庫(kù)課程設(shè)計(jì)---試題基本信息系統(tǒng)
- 學(xué)生選課信息系統(tǒng)數(shù)據(jù)庫(kù)課程設(shè)計(jì)報(bào)告
- 數(shù)據(jù)庫(kù)課程設(shè)計(jì)-酒店管理信息系統(tǒng)
- 數(shù)據(jù)庫(kù)課程設(shè)計(jì)(論文)---課程基本信息系統(tǒng)
- 數(shù)據(jù)庫(kù)課程設(shè)計(jì)--考勤管理信息系統(tǒng)
- 數(shù)據(jù)庫(kù)課程設(shè)計(jì)--學(xué)生管理信息系統(tǒng)
- 數(shù)據(jù)庫(kù)課程設(shè)計(jì)---醫(yī)院管理信息系統(tǒng)
- 網(wǎng)上書(shū)店信息管理系統(tǒng)課程設(shè)計(jì)
- 數(shù)據(jù)庫(kù)課程設(shè)計(jì)---學(xué)生管理信息系統(tǒng)
- 數(shù)據(jù)庫(kù)學(xué)生管理信息系統(tǒng)課程設(shè)計(jì)
評(píng)論
0/150
提交評(píng)論