2023年全國碩士研究生考試考研英語一試題真題(含答案詳解+作文范文)_第1頁
已閱讀1頁,還剩31頁未讀 繼續(xù)免費(fèi)閱讀

下載本文檔

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

文檔簡介

1、<p>  《信息系統(tǒng)與數(shù)據(jù)庫技術(shù)》課程設(shè)計(jì)</p><p>  設(shè)計(jì)題目: 網(wǎng)上書店信息系統(tǒng)</p><p><b>  1系統(tǒng)目標(biāo):</b></p><p>  本系統(tǒng)支持等圖書商品管理、圖書銷售、客戶分析3個(gè)方面的功能,并具有信息管理、事務(wù)處理和決策支持的系統(tǒng)特點(diǎn)。</p><p><b>  

2、2需求分析</b></p><p><b> ?。?)業(yè)務(wù)需求</b></p><p>  酒店客房預(yù)訂管理系統(tǒng)主要有三類用戶角色:客戶、店員、店長。他們各自的主要業(yè)務(wù)處理需求如下:</p><p>  1.客戶在系統(tǒng)中完成對酒店房間的瀏覽和預(yù)訂。主要業(yè)務(wù)和流程包括:查詢、瀏覽圖書商品——選擇放入購物車——選擇支付方式、發(fā)貨方式和填

3、寫個(gè)人信息——生成和提交訂單。</p><p>  2.店員在系統(tǒng)中完成商品管理、訂單處理等:商品上架、下架;商品折扣管理;商品匯總。</p><p>  3.店長在系統(tǒng)中獲得商品和營銷分析、客戶分析以制訂營銷策略:客房匯總(包括分類匯總):營業(yè)狀況分析(包括按時(shí)間、圖書類別、客戶類別等匯總);客戶分析(按客戶重要性、忠誠度分析等)。</p><p><b&g

4、t;  (2)數(shù)據(jù)處理需求</b></p><p>  系統(tǒng)涉及的數(shù)據(jù)源有圖書數(shù)據(jù)、客戶數(shù)據(jù)、客戶購買數(shù)據(jù),產(chǎn)生圖書信息表、客戶信息表、訂單、客戶分析表、銷售分析等各項(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ò)書店的客戶散落在不同地域,凡是可以接入互聯(lián)網(wǎng)的用戶都可以成為書店的客戶。我們從系統(tǒng)安全、快速訪問等方面考慮,可以采用客戶機(jī)/服務(wù)器結(jié)構(gòu)(C/S)。</p><p><b> ?。?)系統(tǒng)技術(shù)方案</b></p><p>  系統(tǒng)前臺開發(fā)工具:面

6、向客戶、店員、店長的C/S應(yīng)用程序采用VB.NET語言開發(fā)。</p><p>  后臺數(shù)據(jù)庫采用Microsoft SQL Server。</p><p> ?。?)系統(tǒng)功能結(jié)構(gòu) </p><p>  根據(jù)需求分析所獲得的業(yè)務(wù)需求,可以定義系統(tǒng)的詳細(xì)功能說明如表所示。</p><p>  圖二:網(wǎng)上書店系統(tǒng)功能結(jié)構(gòu)</p>&l

7、t;p><b>  4數(shù)據(jù)庫設(shè)計(jì)</b></p><p><b>  數(shù)據(jù)庫概念設(shè)計(jì)</b></p><p>  系統(tǒng)主要實(shí)體有圖書和客戶兩個(gè),她們通過訂購活動(dòng)建立聯(lián)系,分析定義各實(shí)體的屬性,建立實(shí)體間的聯(lián)系模型的E-R圖如下</p><p>  圖三:網(wǎng)上書店E-R圖</p><p><

8、;b>  數(shù)據(jù)庫邏輯設(shè)計(jì)</b></p><p>  將數(shù)據(jù)庫的概念模式轉(zhuǎn)化為如下四個(gè)基本關(guān)系模式</p><p>  客戶(客戶號,姓名,性別,職業(yè),生日,所在省區(qū),聯(lián)系電話,E-mail,客戶等級,忠誠度)</p><p>  圖書(書號,書名,作者,出版社,出版時(shí)間,類別,內(nèi)容簡介,價(jià)格,折扣)</p><p>  訂

9、單(訂單號,客戶號,支付方式,發(fā)貨方式,發(fā)貨地址,訂貨時(shí)間)</p><p>  2)數(shù)據(jù)庫Bookstore的關(guān)系圖如下</p><p><b>  3)數(shù)據(jù)庫物理設(shè)計(jì)</b></p><p>  1)下面給出SQL Server 下的網(wǎng)上書店數(shù)據(jù)庫物理設(shè)計(jì)的關(guān)系模型設(shè)計(jì)、完整性約束設(shè)計(jì)和索引選擇。</p><p> 

10、 2)Customer 客戶表,用于存儲客戶基本信息,如下圖所示</p><p>  Customer 客戶表</p><p>  3)Book圖書表,用于存儲圖書基本情況</p><p><b>  Book圖書表</b></p><p>  4)BookOrder 訂單表,用于存儲訂單的基本情況</p>

11、<p>  BookOrder 訂單表</p><p>  5)OrderDetail 訂單詳細(xì)情況表,用于存儲訂單的詳細(xì)情況</p><p>  5數(shù)據(jù)庫應(yīng)用對象設(shè)計(jì)</p><p>  可以充分利用SQL Server所提供的數(shù)據(jù)庫應(yīng)用對象來支持應(yīng)用程序開發(fā),這樣,可以提高程序開發(fā)效率和系統(tǒng)運(yùn)行效率并且可以加強(qiáng)系統(tǒng)的安全性。如下面示例</p&g

12、t;<p><b>  示圖設(shè)計(jì)</b></p><p>  示圖設(shè)計(jì)是一個(gè)虛擬表,可以簡化客戶端程序和提高訪問安全性</p><p>  *視圖V_Customer and Suppliers by City</p><p>  V_Customer and Suppliers by City支持客戶和供應(yīng)商的城市情況的查詢。&

13、lt;/p><p><b>  視圖的定義語句如下</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"的定義語句如下</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>  儲存過程設(shè)計(jì).<

19、;/b></p><p>  儲存過程建立在SQL_Server服務(wù)器端,在數(shù)據(jù)庫應(yīng)用程序中使用存儲過程可以簡化客戶端程序,提供系統(tǒng)運(yùn)行效率,加強(qiáng)安全性并且減少網(wǎng)絡(luò)信息傳輸量。</p><p>  *儲存過程proc_SearchBook</p><p>  proc_SearchBook按書名(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)開發(fā)設(shè)計(jì)</b></p><p>  系統(tǒng)開發(fā)設(shè)計(jì)設(shè)計(jì)很多詳細(xì)的設(shè)計(jì)內(nèi)容,限于篇幅,這里只給出一般性說明和要求。</p><p><b>  (1)子系統(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)表要簡潔清晰,布局合理。</p><p&

23、gt;  功能;查詢功能:用戶登錄界面,提供客戶信息查詢,添加圖書查詢,刪除圖書查詢。</p><p>  功能:客戶信息查詢。</p><p><b>  功能:添加圖書</b></p><p><b>  功能:刪除圖書。</b></p><p>  功能:查詢訂房情況表的詳細(xì)內(nèi)容。</p

24、><p>  (3)程序設(shè)計(jì)注意事項(xiàng)</p><p>  1)注意輸入有效性的檢查,即編寫程序檢驗(yàn)用戶輸入的數(shù)據(jù)是否符合數(shù)據(jù)類型或格式的需求,如果不合適,提醒其重新輸入,從而保證與數(shù)據(jù)庫的正確交互及保證數(shù)據(jù)庫信息的有效性。</p><p>  2)過程和函數(shù)的使用。將一些具有獨(dú)立功能的程序段編寫為過程或函數(shù),這樣不僅使程序結(jié)構(gòu)模塊化,而且可以通過過程或函數(shù)多次調(diào)用共享代

25、碼。</p><p>  3)全局變量或過程的使用。因?yàn)橄到y(tǒng)中含有多個(gè)窗體和模塊文件,為了數(shù)據(jù)處理需要,可以使用一些全局變量或全局過程,這樣可以簡化程序,減少代碼量,提高系統(tǒng)效率,因此可以將它們放在模塊文件中。</p><p>  4)存儲過程建立在SQL SERVER 服務(wù)器端,在數(shù)據(jù)庫應(yīng)用程序中使用存儲過程可以簡化客戶端程序,提供系統(tǒng)運(yùn)行效率,并且減少網(wǎng)絡(luò)信息傳輸量。</p>

26、;<p>  5)視圖建立在SQL SERVER 服務(wù)器端,可以簡化客戶端程序和提高訪問安全性。</p><p>  6)觸發(fā)器建立在數(shù)據(jù)表上。當(dāng)有對數(shù)據(jù)庫更新操作時(shí),自動(dòng)執(zhí)行,可以維護(hù)數(shù)據(jù)的一致性,如果一般性的關(guān)系完整性約束規(guī)則無法實(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>  '窗體重寫

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 = "添加圖書

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. 本站所有資源如無特殊說明,都需要本地電腦安裝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. 眾賞文庫僅提供信息存儲空間,僅對用戶上傳內(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)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

最新文檔

評論

0/150

提交評論