深入解析VB.NET创建表示层

VB.NET有很多值得学习的地方，这里我们主要介绍VB.NET创建表示层，包括介绍调用Web Service的Get_DataSet函数等方面。

目前创新互联已为超过千家的企业提供了网站建设、域名、网页空间、网站托管、服务器托管、企业网站设计、榆中网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。

VB.NET创建表示层

具体步骤如下：
1. 新建一个Windows应用程序，命名为：“Windows Form For 表示层”。
2. 在窗体上添加一个DataGrid，一个Button，Button1的text为“Load”，作用是：从业务层读取数据。
3. 在解决方案窗体中添加Web 引用，将我们自己建立的Web Service for 业务层引入到当前项目中。
4. 向Button1的Click事件添加如下代码：

 
 
 
    
  
  
  
  1. Dim Customer_Ds As New localhost.super_ds（）  
    2. 
  
  
  
  2. Dim ser1 As New localhost.Service1（）  
    3. 
  
  
  
  3. Customer_Ds.Merge（ser1.Get_Dataset）  
    4. 
  
  
  
  4. DataGrid1.DataSource = Customer_Ds 
    5.

这里我们调用了Web Service的Get_DataSet函数，Update_DataSet方法的调用与此完全相同。

VB.NET创建表示层的完整代码如下：

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

表示层窗体上完全没有数据库连接控件，它与数据库的连接任务是通过业务层来完成的，这样，程序的结构更加清晰，当然业务层的实现也可以用其他方法，比如：写一个自己的类来完成与数据库的数据传输。

当前名称：深入解析VB.NET创建表示层
URL网址：http://www.shufengxianlan.com/qtweb/news28/22478.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联

猜你还喜欢下面的内容

网页设计公司知识

分类信息网站

网站建设费用　　 　成都免费做网站　　 　成都网站建设　　 　成都免费建网站　　 　成都定制高级网站建设　　 　成都免费自助建站　　 　成都免费建站　　 　注册域名　　 　成都申请ssl证书　　 　四川晃众门窗　　 　眉山服务器托管　　 　重庆app软件开发　　 　IOS开发　　 　做网站价格　　 　成都网站设计　　 　达州网站建设　　 　成都名片印刷　　 　服务器租凭　　 　消防工程　　 　雅安主机托管