1 Mục lục 1 2 Làm quen với visual basic 0 9
Sử dụng dữ liệu với đối tượng rdorerultset
tải về 1.69 Mb.
|
- Điều hướng trang này:
- 15.7Thi hành truy vấn với đối tượng rdoQuery
- 16Truy cập cơ sở dữ liệu với lớp
- 16.1Làm việc với lớp và đối tượng
- 16.1.1.1Dùng lớp tập hợp để thao tác với các phần tử dữ liệu
- 16.1.1.2Tham chiếu đến phần tử trong tập hợp
- 16.1.2Sử dụng biểu mẫu như lớp
15.6 Sử dụng dữ liệu với đối tượng rdorerultsetTa sử dụng đối tượng rdoresultset để thao tác với dữ liệu trả về do tương tác với server. Mỗi đối tượng rdoresultset thuộc về tập hợp rdoresultsets. Đối tượng rdoresultset chứa tập hợp rdoColumn. Đối tượng rdoresultset gần như đồng nhất với đối tượng Recordset cuẩ DAO. Có thể tạo đối tượng rdoresultset theo một số cách điển hình, nó được tạo như một kết quả của câu truy vấn. Hình
Trong RDO 2.0 đối tượng RDOQuery là một thay thế cho đối tượng rdoprepareStatment trong RDO 1.0. Ta có thể vẫn dùng các đối tượng rdoPrepareStatment trong RDO 2.0 vì nó vẫn tương thích với các phiên bản trước. Tuy nhiên, với chương trình viết mới, ta nên dùng rdoQuery. Từng đối tượng rdoQuery thuộc về tập hợp rodQueries. Đối tượng rodQuery chứa tập hợp các đối tượng rdoColumn và rdoParameter. 16Truy cập cơ sở dữ liệu với lớp
Các ứng dụng truy cập dữ liệu thường phức tạp hơn nhiều so với các ứng dụng thông thường. Lý do Visual Basic đưa ra các công nghệ DAO, ADO, ODBC là nhằm giúp giải quyết tính phức tạp này. Nhưng các công nghệ này chỉ mới giải quyết những phức tạp nảy sinh trong quá trình phát triển phần mềm. Mô hình đối tượng cơ sở dữ liệu như ADO chẳng hạn, giúp ta trừu tượng hoá cơ sở dữ liệu và do đó tạo sự dễ dàng khi cập nhật một bản ghi hoặc sửa đổi định nghĩa bảng trong chương trình. Tuy nhiên, nó không giúp ta tính thuế trên doanh thu bán hàng hay từ chối một mẩu dữ liệu khách hàng bởi vì nó không có ID hợp lệ. Visual Basic cho phép ứng dụng củng cố các quy luật kinh doanh vào các lớp. Lớp là một kiểu mô – dun chương trình cho phép ta tạo đối tượng. Các đối tượng ta tạo với mô-dun lớp tương tự các đối tượng truy cập dữ liệu ta sử dụng để giao tiếp với cơ sở dữ liệu, ngoại trừ chúng được dùng cho mục đích bất kỳ. Trong ngữ cảnh truy cậ cơ sở dữ liệu, ta chú yếu dùng lớp cùng với các đối tượng cơ sở dữ liệu để tạo nên một ứng dụng truy cập cơ sở dữ liệu. Giả sử ta tạo một ứng dụng xử lý hoá đơn và khách hàng. Trong một ứng dụng không theo hướng đối tượng, ta phải viết các hàm hay thủ tục ghi thông tin khách hàng và hoá đơn, trả về các thông tin từ cơ sở dữ liệu, in thông tin, v.v.. Nếu viết bằng Visual Basic, ta còn phải xử lý rải rác trên hàng chục thủ tục sự kiện. Là người lập trình theo hướng đối tượng, ta sẽ bắt đầu bằng cách phân tích và thiết kế các thành phần, hay là đối tượng khái quát hoá vấn đề xử lý khách hàng và hoá đơn. Anh ta hay cô ta sẽ xác định một đối tượng khách hàng có những thông tin gì và đối tượng khách hàng đó có thể thực hiện những hành động nào trên dữ liệu; tương tự với đối tượng hoá đơn. Sau khi đối tượng được phân tích và thể hiện thành lớp, nó sẽ được sử dụng trong ứng dụng. Ta có thể dùng lại đối tượng khách hàng và đối tượng hoá đơn trong ứng dụng bất kỳ sau này. Bởi vì mã nguồn của đối tượng tồn tại trong nơi chứa rất dễ truy cập đến là mô-dun lơp thay vì trong rất nhiều thủ tục sự kiện rải khắp ứng dụng, ta cũng có thể dễ dàng gỡ rối và bảo trì các đối tượng này. Ngoài ra, lớp và đối tượng còn tận dụng các tính năng ngôn ngữ mạnh của Visual Basic. Ví dụ, có một quan hệ giữa khách hàng và hoá đơn – ta có thể nói một khách hàng thuộc về một hoá đơn, hay chính xác hơn, tập hợp các hoá đơn thuộc về một khách hàng. Visual Basic hỗ trợ tập hợp các đối tượng. Một hệ thống hướng đối tượng có 3 đặc điểm :
16.1Làm việc với lớp và đối tượngBạn nên xem lại chương 2 : Tìm hiều Visual Basic và chương 10 : Lập trình hướng đối tượng. 16.1.1Tạo cây phân nhánh lớp với tiện ích xây dựng lớpKhi ta thiết kế lớp chứa lớp, nhất là lớp có tập hợp – chương trình trở nên khó viết vì rất khó quản lý chúng. Tiện ích xây dựng lớp (Class Builder utility) giúp ta thiết lập và quản lý các quan hệ giữa tập hợp các lớp bao bọc chúng dễ dàng hơn.
Hình 16.1 : Dùng nút New Collection (nút thứ hai từ trái sang) của tiện ích xây dựng lớp để tạo một lớp tập hợp.
Hình 16.2 : Nút Add New Collection 
Lưu ý :Tiện ích xây dựng lớp tạo thuộc tính NewEnum cho phép lớp tập hợp hỗ trợ phép lặp xuyên qua tập hợp dùng cấu trúc điều khiển For Each..Next. Không nhất thiết phải dùng thuộc tính này trong chương trình, nhưng ta biết sẽ dùng nó với For Each..Next. 
Hình 16.3 Cửa sổ tiện ích xây dựng lớp sau khi nó tạo một lớp tập hợp.
Ta cũng thấy rằng tiện ích đã định nghĩa lại cú pháp của phương thức Add của tập hợp. Thay vì lấy đối tượng làm tham biến như phương thức Add của tập hợp quy ước, phương thức Add mới lấy biến làm tham biến. Những biến này gắn với các thuộc tính của đối tượng COrder. Điều này cho phép ta tạo đối tượng, thêm nó vào tập hợp, gán giá trị cho nó - những cải tiến đáng kể so với cách thức thực hiện thông thường. Dim MyOrder as COrder Dim MyOrders as colOrder Set MyOrders= New colOrder set MyOrder= MyOrders.Add(2.99, “Cheese”, 201, #6/5/99#) Mặc dù vậy, đây chưa phải là cú pháp tốt nhất để thêm mộ phần tử vào tập hợp. Có thể dùng cách gọn gàng hơn: Dim MyOrder as COrder Dim MyOrders as colOrder Set MyOrders= New colOrder set MyOrder= MyOrders.Add() MyOrder.Price = 2.99 MyOrder.ItemOrdered = “Cheese” MyOrder.CustomerID = 201 MyOrder.OrderDate = #6/5/99#
Một trường hợp dùng tham biến thuận tiện hơn thuộc tính là khi lớp tập hợp tồn tại trong một thành phần triển khai từ xa qua mạng. Theo kịch bản đó, mỗi lần gọi đến thuộc tính là sinh ra một truy cập 2 lượt đi về qua mạng. Vì vậy, để ứng dụng hoạt động tốt hơn, ta nên dùng tham biến và chỉ gọi một lần.
Public Function Add(Optional sKey as String) as COrder Dim objNewMember as COrder Set objNewMember = New COrder If Len(sKey) =0 Then mCol.Add objNewMember Else
mCol.Add objNewMember, sKey End If
Set Add = objNewMember Set objNewMember = Nothing End Function
Hình 16.4 Giao diện của mô hình của hệ thống nhập hoá đơn hướng đối tượng có 2 nút lệnh.
Option Explicit Private ThisOrder as COrder Private AllOrders as colOrder
Private Sub Form_Load () Set AllOrders = New colOrder End Sub
Private Sub cmdAdd_Click () ‘ Creates a new order and adds ‘ it to the collection Set ThisOrder = AllOrders.Add
ThisOrder.CustomerID = txtCustomerID.Text ThisOrder.ItemOrdered = txtItemOrdered.Text ThisOrder.Price = txtPrice.Text ‘ Reset the user Interface txtOrderDate.Text = “ ” txtCustomerID.Text = “ ” txtItemOrdered.Text = “ ” txtPrice.Text = “ ” txtOrderDate.SetFocus End Sub
For Each.. Next. Private Sub cmdTotal_Click() Dim curTotal As Currency For Each ThisOrder In AllOrders curTotal = curTotal + ThisOrder.Price Next MsgBox "The total is " & curTotal, vbInformation End Sub 16.1.1.2Tham chiếu đến phần tử trong tập hợpDùng vòng lặp For Each.. Next để duyệt qua tập hợp không phải là cách duy nhất để làm việc với tập hợp. Sau khi thiết lập và đưa vào các đối tượng, ta có thể lấy ra phần tử từ tập hợp. Nếu thêm đối tượng vào tập hợp với một khoá hay giá trị chuỗi duy nhất, ta có thể lấy về đối tượng mà không không cần xác định vị trí của nó trong tập hợp - một ưu điểm so với mảng. Ví dụ, Để lấy về hoá đơn thứ 4 trong tập hợp : Set MyOrder = AllOrders(4) Để tham chiếu đến thuộc tính của đối tượng Order thứ 4 trong tập hợp, ta truyền vào chỉ mục của tập hợp : AllOrders(4).OrderDate = #6/5/98# Dòng lệnh này hoạt động nhờ thủ tục mặc định của tập hợp trả về một tham chiếu đến phần tử được đánh số. Thủ tục mặc định này là phương thức Item. Vì là mặc định, nên ta không cần gọi nó một cách tường minh. Nếu không, có thể dùng: AllOrders.Item(4).OrderDate= #6/5/98#
Để trả về một phần tử từ tập hợp sử dụng một khoá trước đó, ta phải thêm nó vào tập với một khoá. Để thực hiện điều này, truyền một chuỗi duy nhất cho phương thức Add : AllOrders.Add “ORD193”).prive Ta sẽ gặp thông báo lỗi nếu như chuỗi này không duy nhất. Để tham chiếu đến một thuộc tính của đối tượng này, ta dùng dòng lệnh : MsgBox AllOrders (“ORD193”).prive Lưu ý rằng ta không dùng giá trị số cho khoá của một đối tượng, ngay cả khi ta truyền nó cho phương thức Add dưới dạng chuỗi. Bởi vì phương thức Item có thể trả về một đối tượng từ tập hợp bằng khoá hoặc bằng vị trí xếp thứ tự. Nếu phương thức Item nhận số n, nó trả về phần tử thứ n trong tập hợp. Nếu nó nhận một chuỗi, nó trả về đối tượng với khoá là chuỗi đó. Mặc dù vậy, Nếu chuỗi có thể chuyển thành số, ta sẽ có nguy cơ gặp lỗi. 16.1.2Sử dụng biểu mẫu như lớp-Ví dụ mẫu - Tạo một Instance của biểu mẫu Login
Hình 16.5 :Hộp thoại Add Form của Visual Basic cho phép chọn kiểu biểu mẩu định nghĩa sẵn.
Public Property Get UserName() As String UserName = txtUserName.Text End Property Public Property Let UserName(ByVal strNew As String) txtUserName.Text = strNew End Property
Password = txtPassword.Text End Property
txtPassword.Text = strNew End Property
MsgBox "Logging in user " & UserName & "." End Sub
Private Sub cmdCancel_Click() Me.Hide End Sub
Private Sub cmdOK_Click() UserName = txtUserName.Text Password = txtPassword.Text Login
Me.Visible = False End Sub
Каталог: hungpn -> LaptrinhWindowsVB LaptrinhWindowsVB -> Kiến trúc ole db/ado LaptrinhWindowsVB -> ListView dùng để hiển thị danh sách các đối tượng theo nhiều hình thức thể hiện khác nhau. Ví dụ: trong cửa sổ Window Explorer, bên trái là danh sách các ổ đĩa và thư mục được tổ chức theo dạng cây sử dụng TreeView tải về 1.69 Mb. Chia sẻ với bạn bè của bạn:
|