日本综合一区二区|亚洲中文天堂综合|日韩欧美自拍一区|男女精品天堂一区|欧美自拍第6页亚洲成人精品一区|亚洲黄色天堂一区二区成人|超碰91偷拍第一页|日韩av夜夜嗨中文字幕|久久蜜综合视频官网|精美人妻一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷解決方案
深入解析VB.NET創(chuàng)建表示層

VB.NET有很多值得學(xué)習(xí)的地方，這里我們主要介紹VB.NET創(chuàng)建表示層，包括介紹調(diào)用Web Service的Get_DataSet函數(shù)等方面。

目前創(chuàng)新互聯(lián)已為超過千家的企業(yè)提供了網(wǎng)站建設(shè)、域名、網(wǎng)頁(yè)空間、網(wǎng)站托管、服務(wù)器托管、企業(yè)網(wǎng)站設(shè)計(jì)、榆中網(wǎng)站維護(hù)等服務(wù)，公司將堅(jiān)持客戶導(dǎo)向、應(yīng)用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長(zhǎng)，共同發(fā)展。

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事件添加如下代碼：

 
 
 
    
  
  
  
  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.

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

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

 
 
 
    
  
  
  
  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.

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


分享標(biāo)題：深入解析VB.NET創(chuàng)建表示層
URL地址：http://www.dlmjj.cn/article/djhjsjd.html