- Login
帳號:
密碼:
ASP MENU
線上教學
   ASP 教學
VB.NET 教學
JSP 教學
JAVA 教學
完整 ASP 教學
程式下載
   ASP 程式下載
提供 ASP 程式
程式量身訂做
   收費標準
填寫需求表
討論交流專區
   程式討論區
電腦資訊交流
工作機會
   社會人就職情報
汎亞人力銀行
大台中人力銀行
大高雄人力銀行
相關連結
   ASP 虛擬空間
ASP 相關網站
聯絡我們
   意見信箱
加入會員程式討論區線上購物回首頁
VB.NET 教學
如何用VB.Net創建一個三層的數據庫應用程序
1. 概論:

本文將介紹如何創建一個三層應用程序,並且將介紹如何創建一個Web Service服務。

ADO.NET創建Windows三層結構應用程序的體系架構如下圖所示:



該結構分三個層次:表示層、業務層、數據層。

數據層:代表物理數據庫。

業務層:負責數據層與表示層之間的數據傳輸。

表示層:應用程序的客戶端,它通過業務層來訪問數據庫。

表示層所操作的是駐留在內存中的本地數據,當需要更新數據庫數據時,要通過業務層提供的更新方法實現。這樣可以大大提高應用程序的性能,而且,什麼時候更新數據完全由你決定,提高了編程的靈活性。

2.實例:

這塈畯怢蒛敿竣@個實例來看看如何用VB.NET創建三層結構的應用程序。

數據庫:我們選擇SQL SERVER 的NorthWind數據庫。

業務層:我們創建一個WebService作為中間層。(需要安裝IIS服務)

表示層:我們寫一個Windows Form

第一步:創建WebService。

具體步驟如下:

1. 新建一個項目,選擇ASP.NET Web服務,命名為:”WebService For 業務層”。

2. 添加兩個Sql DataAdapter,一個為Customer_da,它指向NorthWind數據庫的Customers表,另一個為Order_da,指向Northwind數據庫的Orders表。

3. 然後生成一個Typed DataSet(選擇“數據”菜單的“生成數據集”),命名為:Super_ds.

4. 數據庫連接已經完成,下一步我們將考慮它與表示層之間的通信,這塈畯怍w義兩個方法。一個為:Get_DataSet,它返回一個Super_ds類型的數據集,另一個為:Update_DataSet,它負責更新數據庫數據, 方法代碼如下:

<WebMethod()> Public Function Get_Dataset() As super_ds

customer_da.Fill(Super_ds1.Customers)

order_da.Fill(Super_ds1.Orders)

Return Super_ds1

End Function

<WebMethod()> Public Sub Update_Dataset()

Super_ds1.AcceptChanges()

End Sub

你可以運行測試一下你建立的這個WebService。它將提供兩個方法。返回的DataSet是以XML表示的。

業務層的完整代碼如下:

Imports System.Web.Services

Public Class Service1

Inherits System.Web.Services.WebService

‘Web Services Designer Generated Code…….

<WebMethod()> Public Function Get_Dataset() As super_ds

customer_da.Fill(Super_ds1.Customers)

order_da.Fill(Super_ds1.Orders)

Return Super_ds1

End Function

<WebMethod()> Public Sub Update_Dataset()

Super_ds1.AcceptChanges()

End Sub

' WEB SERVICE EXAMPLE

' The HelloWorld() example service returns the string Hello World.

' To build, uncomment the following lines then save and build the project.

' To test this web service, ensure that the .asmx file is the start page

' and press F5.

'

'<WebMethod()> Public Function HelloWorld() As String

' HelloWorld = "Hello World"

' End Function

End Class

第二步:創建表示層

具體步驟如下:

1. 新建一個Windows應用程序,命名為:“Windows Form For 表示層”。

2. 在窗體上添加一個DataGrid,一個Button,Button1的text為“Load”,作用是:從業務層讀取數據。

3. 在解決方案窗體中添加Web 引用,將我們自己建立的Web Service for 業務層引入到當前項目中。

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

這塈畯抻掍峇FWeb Service的Get_DataSet函數,Update_DataSet方法的調用與此完全相同。

表示層的完整代碼如下:

Imports Data_Access_表示層

Public Class Form1

Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

Public Sub New()

MyBase.New()

'This call is required by the Windows Form Designer.

InitializeComponent()

'Add any initialization after the InitializeComponent() call

End Sub

'Form overrides dispose to clean up the component list.

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then

components.Dispose()

End If

End If

MyBase.Dispose(disposing)

End Sub

Friend WithEvents Button1 As System.Windows.Forms.Button

Friend WithEvents Button2 As System.Windows.Forms.Button

Friend WithEvents Button3 As System.Windows.Forms.Button

Friend WithEvents Client_DataSet As Data_Access_表示層.localhost.super_ds

Friend WithEvents DataGrid1 As System.Windows.Forms.DataGrid

'Required by the Windows Form Designer

Private components As System.ComponentModel.Container

'NOTE: The following procedure is required by the Windows Form Designer

'It can be modified using the Windows Form Designer.

'Do not modify it using the code editor.

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

Me.Button1 = New System.Windows.Forms.Button()

Me.Button2 = New System.Windows.Forms.Button()

Me.Button3 = New System.Windows.Forms.Button()

Me.Client_DataSet = New Data_Access_表示層.localhost.super_ds()

Me.DataGrid1 = New System.Windows.Forms.DataGrid()

CType(Me.Client_DataSet, System.ComponentModel.ISupportInitialize).BeginInit()

CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).BeginInit()

Me.SuspendLayout()

'

'Button1

'

Me.Button1.Location = New System.Drawing.Point(88, 360)

Me.Button1.Name = "Button1"

Me.Button1.TabIndex = 0

Me.Button1.Text = "load"

'

'Button2

'

Me.Button2.Location = New System.Drawing.Point(232, 360)

Me.Button2.Name = "Button2"

Me.Button2.TabIndex = 1

Me.Button2.Text = "update"

'

'Button3

'

Me.Button3.Location = New System.Drawing.Point(376, 360)

Me.Button3.Name = "Button3"

Me.Button3.TabIndex = 2

Me.Button3.Text = "clear"

'

'Client_DataSet

'

Me.Client_DataSet.DataSetName = "Client_DataSet"

Me.Client_DataSet.Locale = New System.Globalization.CultureInfo("zh-CN")

Me.Client_DataSet.Namespace = "http://www.tempuri.org/CustomerDs.xsd"

'

'DataGrid1

'

Me.DataGrid1.DataMember = ""

Me.DataGrid1.Location = New System.Drawing.Point(40, 56)

Me.DataGrid1.Name = "DataGrid1"

Me.DataGrid1.Size = New System.Drawing.Size(480, 264)

Me.DataGrid1.TabIndex = 3

'

'Form1

'

Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)

Me.ClientSize = New System.Drawing.Size(568, 429)

Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.DataGrid1, Me.Button3, Me.Button2, Me.Button1})

Me.Name = "Form1"

Me.Text = "Form1"

CType(Me.Client_DataSet, System.ComponentModel.ISupportInitialize).EndInit()

CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()

Me.ResumeLayout(False)

End Sub

#End Region

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 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

End Sub

End Class

總結:可見,表示層窗體上完全沒有數據庫連接控件,它與數據庫的連接任務是通過業務層來完成的,這樣,程序的結構更加清晰,當然業務層的實現也可以用其他方法,比如:寫一個自己的類來完成與數據庫的數據傳輸。



頂端
本網頁最佳瀏覽模式為:瀏覽器 IE4.0 以上    解析度: 800 x 600
Copyright © 2000-2017 COOLASP All Rights Reserved