溫馨提示×

您好，登錄后才能下訂單哦！

密碼登錄×
登錄注冊(cè)×
其他方式登錄
點(diǎn)擊 登錄注冊(cè) 即表示同意《億速云用戶服務(wù)條款》

VB.NET中如何創(chuàng)建表示層

發(fā)布時(shí)間：2021-07-28 15:40:08 來(lái)源：億速云 閱讀：158 作者：Leah 欄目：編程語(yǔ)言

VB.NET中如何創(chuàng)建表示層，針對(duì)這個(gè)問(wèn)題，這篇文章詳細(xì)介紹了相對(duì)應(yīng)的分析和解答，希望可以幫助更多想解決這個(gè)問(wèn)題的小伙伴找到更簡(jiǎn)單易行的方法。

VB.NET創(chuàng)建表示層

具體步驟如下：
1. 新建一個(gè)Windows應(yīng)用程序，命名為：“Windows Form For 表示層”。
2. 在窗體上添加一個(gè)DataGrid，一個(gè)Button，Button1的text為“Load”，作用是：從業(yè)務(wù)層讀取數(shù)據(jù)。
3. 在解決方案窗體中添加Web 引用，將我們自己建立的Web Service for 業(yè)務(wù)層引入到當(dāng)前項(xiàng)目中。
4. 向Button1的Click事件添加如下代碼：

Dim Customer_Ds As New localhost.super_ds（）  Dim ser1 As New localhost.Service1（）  Customer_Ds.Merge（ser1.Get_Dataset）  DataGrid1.DataSource = Customer_Ds

這里我們調(diào)用了Web Service的Get_DataSet函數(shù)，Update_DataSet方法的調(diào)用與此完全相同。

VB.NET創(chuàng)建表示層的完整代碼如下：

  1. Public Class Form1  
  2. Inherits System.Windows.Forms.Form  
  3. #Region " Windows Form Designer generated code "  
  4. Public Sub New（）  
  5. MyBase.New（）  
  6. 'This call is required by the Windows Form Designer.  
  7. InitializeComponent（）  
  8. 'Add any initialization after the InitializeComponent（） call  
  9. End Sub 
  10. 'Form overrides dispose to clean up the component list.  
  11. Protected Overloads Overrides Sub Dispose（ByVal disposing As Boolean）  
  12. If disposing Then 
  13. If Not （components Is Nothing） Then 
  14. components.Dispose（）  
  15. End If 
  16. End If 
  17. MyBase.Dispose（disposing）  
  18. End Sub 
  19. Friend WithEvents Button1 As System.Windows.Forms.Button  
  20. Friend WithEvents Button2 As System.Windows.Forms.Button  
  21. Friend WithEvents Button3 As System.Windows.Forms.Button  
  22. Friend WithEvents Client_DataSet As Data_Access_表示層。localhost.super_ds  
  23. Friend WithEvents DataGrid1 As System.Windows.Forms.DataGrid  
  24. 'Required by the Windows Form Designer  
  25. Private components As System.ComponentModel.Container  
  26. 'NOTE： The following procedure is required by the Windows Form Designer  
  27. 'It can be modified using the Windows Form Designer.  
  28. 'Do not modify it using the code editor.  
  29.  
    Private Sub InitializeComponent（）  
  30. Me.Button1 = New System.Windows.Forms.Button（）  
  31. Me.Button2 = New System.Windows.Forms.Button（）  
  32. Me.Button3 = New System.Windows.Forms.Button（）  
  33. Me.Client_DataSet = New Data_Access_表示層。localhost.super_ds（）  
  34. Me.DataGrid1 = New System.Windows.Forms.DataGrid（）  
  35. CType（Me.Client_DataSet，System.ComponentModel.ISupportInitialize）。BeginInit（）  
  36. CType（Me.DataGrid1， System.ComponentModel.ISupportInitialize）。BeginInit（）  
  37. Me.SuspendLayout（）  
  38. 'Button1  
  39. Me.Button1.Location = New System.Drawing.Point（88， 360）  
  40. Me.Button1.Name = "Button1" 
  41. Me.Button1.TabIndex = 0  
  42. Me.Button1.Text = "load" 
  43. 'Button2  
  44. Me.Button2.Location = New System.Drawing.Point（232， 360）  
  45. Me.Button2.Name = "Button2" 
  46. Me.Button2.TabIndex = 1  
  47. Me.Button2.Text = "update" 
  48. 'Button3  
  49. Me.Button3.Location = New System.Drawing.Point（376， 360）  
  50. Me.Button3.Name = "Button3" 
  51. Me.Button3.TabIndex = 2  
  52. Me.Button3.Text = "clear" 
  53. 'Client_DataSet  
  54. Me.Client_DataSet.DataSetName = "Client_DataSet" 
  55. Me.Client_DataSet.Locale = New System.Globalization.CultureInfo（"zh-CN"）  
  56. Me.Client_DataSet.Namespace = "http://www.tempuri.org/CustomerDs.xsd" 
  57. 'DataGrid1  
  58. Me.DataGrid1.DataMember = "" 
  59. Me.DataGrid1.Location = New System.Drawing.Point（40， 56）  
  60. Me.DataGrid1.Name = "DataGrid1" 
  61. Me.DataGrid1.Size = New System.Drawing.Size（480， 264）  
  62. Me.DataGrid1.TabIndex = 3  
  63. 'Form1  
  64. Me.AutoScaleBaseSize = New System.Drawing.Size（6， 14）  
  65. Me.ClientSize = New System.Drawing.Size（568， 429）  
  66. Me.Controls.AddRange（New System.Windows.Forms.Control（） 
    {Me.DataGrid1， Me.Button3， Me.Button2， Me.Button1}）  
  67. Me.Name = "Form1" 
  68. Me.Text = "Form1" 
  69. CType（Me.Client_DataSet， System.ComponentModel.ISupportInitialize）。EndInit（）  
  70. CType（Me.DataGrid1，System.ComponentModel.ISupportInitialize）。EndInit（）  
  71. Me.ResumeLayout（False）  
  72. End Sub 
  73. #End Region  
  74. Private Sub Button1_Click（ByVal sender As System.Object， 
    ByVal e As System.EventArgs） Handles Button1.Click  
  75. Dim Customer_Ds As New localhost.super_ds（）  
  76. Dim ser1 As New localhost.Service1（）  
  77. Customer_Ds.Merge（ser1.Get_Dataset）  
  78. DataGrid1.DataSource = Customer_Ds  
  79. End Sub 
  80. End Class 

表示層窗體上完全沒(méi)有數(shù)據(jù)庫(kù)連接控件，它與數(shù)據(jù)庫(kù)的連接任務(wù)是通過(guò)業(yè)務(wù)層來(lái)完成的，這樣，程序的結(jié)構(gòu)更加清晰，當(dāng)然業(yè)務(wù)層的實(shí)現(xiàn)也可以用其他方法，比如：寫(xiě)一個(gè)自己的類來(lái)完成與數(shù)據(jù)庫(kù)的數(shù)據(jù)傳輸。

關(guān)于VB.NET中如何創(chuàng)建表示層問(wèn)題的解答就分享到這里了，希望以上內(nèi)容可以對(duì)大家有一定的幫助，如果你還有很多疑惑沒(méi)有解開(kāi)，可以關(guān)注億速云行業(yè)資訊頻道了解更多相關(guān)知識(shí)。

向AI問(wèn)一下細(xì)節(jié)

免責(zé)聲明：本站發(fā)布的內(nèi)容（圖片、視頻和文字）以原創(chuàng)、轉(zhuǎn)載和分享為主，文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如果涉及侵權(quán)請(qǐng)聯(lián)系站長(zhǎng)郵箱：is@yisu.com進(jìn)行舉報(bào)，并提供相關(guān)證據(jù)，一經(jīng)查實(shí)，將立刻刪除涉嫌侵權(quán)內(nèi)容。

AI
助
手