Tự học lập trình cơ sở dữ liệu với Visual Basic 5 trong 21 ngày ấn phẩm 2
tải về 0.58 Mb.
|
- Điều hướng trang này:
- Điều khiển Checkbox.
- Điều khiển OLE.
- Những quy tắc chung cho việc thiết kế các form chuẩn.
|
Đối với ví dụ này, bạn sẽ mở tập tin là chỉ đọc ( read-only). Hãy thực hiện các thay đổi trong thủ tục OpenDB kể cả các biến đặt thuộc tính RaeadOnly là True. Khi bạn làm xong, đoạn mã của bạn trông như đoạn mã sau : Public Sub OpenDB() Dim cDBName As String ` declare a string variable Dim cTblName As String ` declare a string variable Dim bExclusive As Boolean ` declare true/false var Dim bReadOnly As Boolean ` declare true/false var
cTblName = "Authors" ` point to authors table bExclusive = True ` set to exclusive open bReadOnly = True ` set to read only ` Data1.DatabaseName = cDBName ` set database property Data1.RecordSource = cTblName ` set recordsource property Data1.Exclusive = bExclusive Data1.ReadOnly = bReadOnly ` Data1.Refresh ` update data control properties End Sub Bây giờ, hãy lưu công việc của bạn trước khi nhập thêm mã. Việc thiết lập thuộc tính Options và tất cả các thuộc tính bạn đã đặt trong đoạn mã trước liên quan đến cơ sở dữ liệu mà Visual Basic đang truy cập. Thuộc tính Options của điều khiển dữ liệu của Visual Basic cho phép bạn đặt các thuộc tính của Dynaset được mở trong thuộc tính RecordSource của điều khiển dữ liệu. Có một vài lựa chọn mà có thể được đặt trong thuộc tính Options của điều khiển dữ liệu. Trong bài học của ngày hôm nay, bạn sẽ học về ba lựa chọn được sử dụng thông thường. Đây là ba giá trị của Options cho điều khiển dữ liệu mà nó được đưa ra ngày hôm nay : + dbDenyWrite. + dbReadOnly. + dbAppendOnly. Ba lựa chọn đó là các hằng số thực sự của Visual Basic mà nó được định nghĩa trước trong ngôn ngữ. Chúng như là các biến của Visual Basic, ngoài ra chúng có một biến đơn, đặt giá trị mà không thể được thay đổi. Bảng 4.1 cho bạn biết ba hằng số và các giá trị số của chúng. Bảng 4.1 : Các giá trị lựa chọn của Dynaset : Việc thiết lập chọn lựa dbDenyWrite ngăn cản những người sử dụng khác từ việc thay đổi dữ liệu trong Dynaset trong khi bạn có mở nó ( tương tự như thuộc tính cơ sở dữ liệu Exclusive ). Thuộc tính dbReadOnly ngăn cản bạn từ việc thay đổi dữ liệu trong Dynaset (tương tự như thuộc tính cơ sở dữ liệu ReadOnly). Thuộc tính dbAppendOnly cho phép bạn thêm dữ liệu mới đến Dynaset nhưng không cho phép bạn thay đổi hoặc xoá các bản ghi. Việc đặt dbReadOnly làm tăng tốc độ xử lý của Dynaset và nó thuận tiện cho việc phát ra những hiển thị và thông báo. dbDenyWrite là hữu ích khi bạn muốn làm các thay đổi lớn đến Dynaset và muốn ngăn cản những ngưòi sử dụng khác từ việc truy cập các bản ghi trong Dynaset cho đến khi bạn làm xong các thay đổi của bạn. Việc sử dụng lựa chọn dbAppendOnly cho phép bạn tạo các mục dữ liệu thông thường mà giới hạn người sử dụng đúng đến việc thêm các bản ghi không có việc xoá hoặc thay đổi. Bây giờ bạn hãy thêm đoạn mã để đặt thuộc tính Options của điều khiển dữ liệu. Bạn sẽ lưu ý rằng bạn không có một thuộc tính cho từng ba chọn lựa. Bạn đặt chúng từng cái một như thế nào ? bạn làm điều này bằng cách thêm vào các hằng số và đặt kết quả trong thuộc tính Options của điều khiển dữ liệu. Cho ví dụ, nếu bạn muốn mở Dynaset cho việc thêm vào các bản ghi mới, hãy đặt thuộc tính Options của điều khiển dữ liệu đến dbAppendOnly. Nếu bạn muốn mở Dynaset để không cho phép mọi người cập nhật và cho phép dữ liệu chỉ đọc cho người sử dụng hiện thời, hãy đặt thuộc tính Options đến dbDenyWrite và dbReadOnly. Bây giờ, hãy đặt các lựa chọn của điều khiển dữ liệu đến DenyWrite và ReadOnly. Khi bạn làm xong, thủ tục của bạn trông như sau : Public Sub OpenDB() Dim cDBName As String ` declare a string variable Dim cTblName As String ` declare a string variable Dim bExclusive As Boolean ` declare true/false var Dim bReadOnly As Boolean ` declare true/false var ` cDBName = "c:\tysdbvb5\source\data\books5.mdb" ` point to database cTblName = "Authors" ` point to authors table bExclusive = True ` set to exclusive open bReadOnly = True ` set to read only ` Data1.DatabaseName = cDBName ` set database property Data1.RecordSource = cTblName ` set recordsource property Data1.Exclusive = bExclusive Data1.Options = dbDenyWrite + dbReadOnly Data1.ReadOnly = bReadOnly ` Data1.Refresh ` update data control properties End Sub Bây giờ bạn đã hoàn thành xong thủ tục cho việc mở cơ sở dữ liệu BOOKS5.MDB và việc tạo một Dynaset từ bảng Authors. Cơ sở dữ liệu và Dynaset sẽ được mở riêng cho truy cập chỉ đọc. Chỉ có một thứ là thiếu. Bạn đầu tiên chắc chắn thủ tục OpenDB được thực hiện ! Hãy đặt đoạn mã sau trong thủ tục Form_Load : Sub Form_Load () OpenDB ` open the database, set dynaset End Sub
Dim cField1 As String ` cField1 = "Name" ` Text1.DataField = cField1 End Sub
OpenDB ` open the database, set dynaset BindControls ` link controls to data fields End Sub
Private Sub cmdRestore_Click() data1.UpdateControls ` restore textbox values End Sub
data1.UpdateRecord `write controls to dynaset End Sub
Hãy lưu và chạy lại đề án. Thời điểm này, sau khi bạn soạn thảo textbox, hãy kích vào nút Update dữ liệu. Bây giờ, hãy chuyển đến bản ghi tiếp theo và sau đó quay lại bản ghi bạn đã soạn thảo. Bạn nhìn thấy gì ? Bản ghi đã không được cập nhật ! Nhớ rằng, trong thủ tục OpenDB bạn đặt thuộc tính ReadOnly của cơ sở dữ liệu là True và bật giá trị ReadOnly của thuộc tính Options. Bây giờ hãy thay đổi thủ tục OpenDB và thay đổi thuộc tính ReadOnly là False và thả các hằng số dbReadOnly và dbDenyWrite từ thuộc tính Options bằng cách thiết lập thuộc tính Options là 0. Khi bạn chạy lại chương trình, bây giờ bạn có thể soạn thảo textbox, phục hồi giá trị cũ với nút Restore, hoặc lưu giá trị mới với nút Update. Bạn cũng có thể lưu giá trị mới bằng cách chuyển con trỏ của bản ghi. Cái thực hiện cuối cùng này của điều khiển dữ liệu có thể là nguyên nhân của mootjvaif vấn đề. Nếu bạn thay đổi một trường và không muốn lưu những thay đổi, nhưng thay vì kích nút Restore, bạn muốn chuyển đến bản ghi tiếp theo ? Bạn có thể thay đổi cơ sở dữ liệu và không bao giờ hiểu nó ! Trong đoạn tiếp theo, bạn sẽ sử dụng một trong những sự kiện của điều khiển dữ liệu để giúp bạn tránh như một tình thế. Các sự kiện của điều khiển dữ liệu. Tất cả chương trình của Microsoft Windows chứa các sự kiện. Các sự kiện đó xuất hiện mỗi lần máy tính hiểu một người sử dụng kích một nút hoặc chuyển con trỏ đến một đối tượng trên form hoặc khi có xử lý nào khác xảy ra. Khi một sự kiện chiếm chỗ ( take place ), Hệ điều hành Windows gửi một thông điệp nói với tất cả các xử lý hiện thời đang chạy là một và thứ có thể xảy ra. Các chương trình của Windows có thể sau đó “lắng nghe ” các thông điệp hoặc hành động, dựa trên các mã chương trình của chúng. Trong Visual Basic, bạn có thể tạo mã chương trình mà nó thực hiện mỗi lần một sự kiện xảy ra. Có ba sự kiện của điều khiển dữ liệu liên quan đến các hàm của cơ sở dữ liệu : + Reposition. + Validate. + Error. Sự kiện Reposition xảy ra mỗi lần điều khiển dữ liệu chuyển đến một vị trí mới trong Dynaset. Sự kiện Validate xảy ra mỗi lần một điều khiển dữ liệu dời đến bản ghi hiện thời. Sự kiện Error xảy ra mỗi lần một cơ sở dữ liệu xuất hiện lỗi khi các nút mũi tên trên điều khiển dữ liệu được sử dụng để chuyển đến con trỏ bản ghi. Visual Basic tự động tạo các thủ tục cho tất cả các sự kiện kết hợp với một điều khiển. Khi bạn đặt một điều khiển trên form của bạn, Visual Basic tạo các thủ tục Data1_Reposition, Data1_Validate, Data1_Error. Bây giờ, thêm một vài đoạn mã vào đề án nó sẽ nói với bạn khi nào một sự kiện xảy ra. Đầu tiên, bạn cần lấy một message box xảy ra mỗi lần bạn đặt lại vị trí con trỏ bản ghi sử dụng các nút mũi tên trên điều khiển dữ liệu. Để làm được điều này, hãy đặt đoạn mã sau trong sự kiện Data1_Reposition : Private Sub Data1_Reposition() MsgBox "Repositioning the pointer..." End Sub
MsgBox "Validating Data..." End Sub
Dim VldMsg(4) As String ` declare message array Bây giờ hãy thêm vào thủ tục sau, nó nạp một bộ các thông điệp vào trong mảng bạn đã định nghĩa trước. Những thông điệp này được hiện thị mỗi lần hành động tương ứng xảy ra trong sự kiện Validate. Chú ý rằng bạn đang sử dụng các hằng số đã định nghĩa của Visual Basic. Public Sub MakeVldMsgArray() VldMsg(vbDataActionMoveFirst) = "MoveFirst" VldMsg(vbDataActionMovePrevious) = "MovePrevious" VldMsg(vbDataActionMoveNext) = "MoveNext" VldMsg(vbDataActionMoveLast) = "MoveLast" End Sub
Private Sub Form_Load() MakeVldMsgArray ` create message array OpenDB ` open the database, set dynaset BindControls ` link controls to data fields End Sub
MsgBox VldMsg(Action) ` message based on user action End Sub
Dim cField1 As String Dim cField2 As String ` cField1 = "Name" cField2 = "AuID" ` Text1.DataField = cField1 Label1.DataField = cField2 End Sub
Điều khiển Checkbox. Điều khiển Checkbox về cơ bản giống như điều khiển Text. Nó không có các sự kiện, các phương thức đặc biệt của cơ sở dữ liệu quan hệ và nó có hai thuộc tính quan hệ : DataSource và DataField. Sự khác nhau giữa hai điều khiển Text box và Control box là dữ liệu được hiện thị trên form và được lưu trong Dynaset như thế nào. Các Checkbox có kiểu Boolean. Bạn sẽ nhớ rằng các trường đó chỉ có thể là -1 hoặc 0. Các checkbox không hiện thị 0 hoặc –1. Bằng cách kích checkbox, bạn có thể thực sự cập nhật giá trị Boolean của trường Dynaset. Sử dụng hình 4.8 như một chỉ dẫn, thêm một điều khiển checkbox vào form. Đặt thuộc tính DataSource là Data1 và thuộc tính Caption của nó là Under Contract. Bạn không cần đặt thuộc tính DataField tại thời điểm này. Những cái này được làm bằng cách thay đổi thủ tục BindControls. Hình 4.8 : Thêm điều khiển Checkbox : Bây giờ, hãy cập nhật thủ tục BindControls để liên kết điều khiển Checkbox đến trường Contracted trong bảng Authors. Khi bạn làm xong, thủ tục BindControls trông như sau : Public Sub BindControls () Dim cField1 As String Dim cField2 As String Dim cField3 As String ` cField1 = "Name" cField2 = "AuID" cField3 = "Contracted" ` Text1.DataField = cField1 Label1.DataField = cField2 Check1.DataField = cField3 End Sub
Dim cField1 As String Dim cField2 As String Dim cField3 As String Dim cField4 As String ` cField1 = "Name" cField2 = "AuID" cField3 = "Contracted" cField4 = "Cover" ` Text1.DataField = cField1 Label1.DataField = cField2 Check1.DataField = cField3 OLE1.DataField = cField4 End Sub
Hãy lưu và chạy đề án. Bạn sẽ nhìn thấy các biểu tượng được hiện thị trên góc đỉnh bên phải của form ( chỉ cho một vài bản ghi đầu tiên ). Các biểu tượng đó được lưu trong trường nhị phân của cơ sở dữ liệu. Chú ý rằng bạn không phải làm bất kỳ sự tưởng tượng “việc nạp” của picture vào điều khiển OLE, bởi vì điều khiển dữ liệu liên kết những thuận tiện đó cho bạn. Khi bạn chạy hoàn thành xong đề án.Nó trông như hình 4.10. Hình 4.10 : Hoàn thành đề án : Bạn đã hoàn thành xong một form mà nó chứa các điều khiển đối với những xử lý Text, Numberic,Boolean, và các kiểu đối tượng OLE được trong một cơ sở dữ liệu. Những quy tắc chung cho việc thiết kế các form chuẩn. Bây giờ bạn biết sử dụng các điều khiển dữ liệu của Visual Basic như thế nào, nó là thời điểm bạn học về thiết kế form. Microsoft khuyến khích những nhà phát triển bám chặt vào một tập các quy tắc chung. Trong đề án này, bạn sẽ tập chung vào việc bố trí và thiết kế form chuẩn. chúng ta sẽ định nghĩa những nguyên tắc cho diện mạo của thiết kế form sau : + Điều khiển vị trí và khoảng trắng. + Sắp xếp các nhãn. + Những font chuẩn. + Sử dụng màu sắc. Bộ nguyên tắc đây sẽ được sử dụng trong suốt những đề án còn lại trong quyển sách này.
Каталог: file -> downloadfile5 -> 169 file -> CỘng hòa xã HỘi chủ nghĩa việt nam độc lập Tự do Hạnh phúc file -> CỘng hòa xã HỘi chủ nghĩa việt nam độc lập Tự do Hạnh phúc file -> TIÊu chuẩn quốc gia tcvn 7790-5 : 2008 iso 2859-5 : 2005 file -> Qcvn 81: 2014/bgtvt file -> UỶ ban nhân dân cộng hòa xã HỘi chủ nghĩa việt nam file -> VIỆn chăn nuôi trịnh hồng sơn khả NĂng sản xuất và giá trị giống của dòng lợN ĐỰc vcn03 luậN Án tiến sĩ NÔng nghiệp hà NỘI 2014 downloadfile5 -> Đề tài báo cáo Thực trạng hoạt động quản trị bán hàng và 1 số giải pháp nhằm nâng cao công tác quản trị bán hàng tại công ty A. D. A downloadfile5 -> English 12 – Vocabulary + Grammar review cách nhận biết từ loại tải về 0.58 Mb. Chia sẻ với bạn bè của bạn:
|