Visual Foxpro - Bài 9: Sử dụng các Control

Bài 09 - sử dụng các control
I. giới thiệu
Các đối tượng điều khiển (Control) được sử dụng trong việc thiết kế giao diện trên Form, Report, Label (Trong bài này chúng ta chỉ xét đến các Control dùng trên FORM). Ví dụ giao diện sau được thiết kế từ FORM và các control.
Hình 1
Mỗi loại đối tượng thường được thiết kế cho một mục đích nhất định. Ví dụ đối tượng Label (nhãn) được dùng để hiển thị một chú thích, đối tượng TextBox được dùng để cho phép nhập liệu, đối tượng Command Button để thể hiện các nút lệnh... Tuy nhiên người dùng có thể sử dụng với mục đích khác.
Các Control được xác định qua các Properties (thuộc tính), Methods (Phương thức) và Events (sự kiện - tương tự như FORM).
Thanh công cụ Form Controls: Khi đang mở Form ở chế độ thiết kế (Form Designer), Visual Foxpro hiển thị thanh công cụ Form Controls như hình sau:
Có thể hiển thị/ẩn Form Control bằng cách trong menu View chọn Form Control Toolbar
Đưa một Control vào Form: Từ thanh công cụ Form Controls “nhấp” đối tượng cần dùng và “thả” vào Form. Ví dụ
II. Các đối tượng thường dùng
Label: 
Sử dụng cho: hiển thị nhãn, chú thích, ví dụ các ô text sau các label Khóa, Lớp, Học kỳ, Năm học ... trong Hình 1 được dùng để nhập khóa, lớp, học kỳ và năm học.
Các Properties thường dùng:
Alignment: Canh lề phần text hiển thị của label. Thuộc tính này có thể nhận các giá trị: (1) 0 - Left Canh trái, đây là giá trị mặc định; (2) 1-Right Canh phải; (3) 2 - Center canh giữa.
Autosize: Tự động thay đổi kích thước phù hợp cho việc hiển thị thuộc tính Caption của nó.
BackColor: Đặt mầu nền của Label. Trong khi thiết kế có thể dùng hộp mầu để chọn hoặc khi chạy chương trình có thể sử dụng hàm RBG() để xác định mầu.
BackStyle: Thiết lập tính chất nền. Thuộc tính này có thể nhận một trong các giá trị: (1) 0 - Transparent xác định tính chất trong suốt của nền (có thể nhìn thấy mọi đối tượng “phía sau”); (2) 1 - Opaque không cho quan sát các đối tượng phía sau.
BorderStyle: Thiết kập thuộc tính biên của đối tượng. Thuộc tính này có thể nhận các giá trị: 0 (none) - Không có đường biên; 1 (Fixed single) - Đường biên đơn.
Caption: Text hiển thị như một nhãn, chú thích. Thuộc tính này nhận chuỗi text bất kỳ.
FontName: Đặt Font chữ.
ForeColor: Đặt mầu chữ. Trong khi thiết kế có thể dùng hộp mầu để chọn hoặc khi chạy chương trình có thể sử dụng hàm RBG() để xác định.
Height: Chiều cao
Left: Vị trí cạnh trái
Name: Tên của đối tượng (dùng để sử dụng trong chương trình)
Top: Vị trí cạnh trên 
Visible: Thiết lập tính chất Hiện/ẩn. Thuộc tính này nhận 2 giá trị: (1) .T. - Hiện ; (2) .F. - ẩn.
Width: Độ rộng của label.
Label cũng có nhiều Methods và Events, tuy nhiên vì mục đích của đối tượng này là hiển thị một đoạn text nên trong phần này không giới thiệu các methods và events này.
TextBox, EditBox
Sử dụng cho: Nhập một dòng text, các số, ví dụ các nhãn Khóa, Lớp, Học kỳ, Năm học ... trong Hình 1 được dùng làm tiêu đề cho các ô dữ liệu bên cạnh.
Các Properties thường dùng:
Alignment: Xem phần II.1
BackColor: Xem phần II.1
BackStyle: Xem phần II.1
BorderColor: Xem phần II.1
BorderStyle: Xem phần II.1
ControlSource: Cho phép “gắn kết” (bound) textbox với 1 trường hoặc biến nào đó (thông thường với 1 trường). Việc “Gắn kết” ở đây được hiểu là nếu text trên textbox thay đổi thì trường hoặc biến “gắn kết” với nó cũng thay đổi theo. Ví dụ, thêm 1 textbox vào form và đặt thuộc tính controlSource=”Hososv.hoten” ->Run Form.
DisabledBackColor: Mầu nền của textbox khi thuộc tính Enable=.F.
DisabledForeColor: Mầu của text khi thuộc tính Enable=.F.
Enabled: Cho phép có hiệu lực hay vô hiệu khả năng đáp ứng sự kiện của textbox. Thuộc tính này nhận các giá trị: .T. - có hiệu lực; .F. - Vô hiệu lực
FontName: Xem phần II.1
ForeColor: Xem phần II.1
Format: Định dạng dữ liệu hiển thị. Visual Foxpro qui định kí hiệu sử dụng cho Format của textbox (tham khảo trong help của Visual Foxpro 9 (Microsoft Visual Foxpro 9.0/Reference/Language Reference/Properties/ Format Property). Ví dụ đặt Format là !A (! - Hiển thị chữ hoa, A - Chỉ nhập các ký tự)
Height: Xem phần II.1
InputMask: Định dạng dữ liệu nhập. Visual Foxpro qui định kí hiệu sử dụng cho InputMask của textbox (tham khảo trong help của Visual Foxpro 9 (Microsoft Visual Foxpro 9.0/Reference/Language Reference/Properties/ InputMask Property). Ví dụ đặt InputMask là ### (# - nhập chữ số) cho phép nhập 3 chữ số.
Left: Xem phần II.1
MaxLength: Số ký tự tối đa có thể nhập (nếu MaxLength=0 thì số ký tự là bất kỳ, đây là giá trị mặc định).
SelectOnEntry: Thiết lập chế độ đánh dấu text khi đối tượng này nhận quyền điều khiển. Thuộc tính này nhận các giá trị: .T. - Cho phép chế độ đánh dấu; .F. Không cho phép.
TabIndex: Thứ tự theo Index của đối tượng (khi sử dụng phím Tab con trỏ sẽ di chuyển theo thứ tự Index từ thấp đến cao)
Top: Xem phần II.1
Value: Giá trị là xâu text hiển thị trên đối tượng này.
Visible: Xem phần II.1
Width: Xem phần II.1
Các Methods và Event thường dùng:
Refresh (method): “Làm tươi” lại dữ liệu hiển thị trên textbox. Ví dụ, đặt thuộc tính ControlSource = text1 (text1 là 1 biến), sau đó gán cho text1 =”Visual Foxpro”, khi đó cần thực hiện Refresh để làm tươi lại dữ liệu trên Text.
SetFocus (method): Đưa con trỏ đến đối tượng này. 
Valid (Event): Sự kiện này sảy ra trước khi chuyển quyền điều khiển tới đối tượng khác. Vì lý do như vậy nên sự kiện này thường dùng để kiểm tra tính hợp lệ của dữ liệu, nếu không hợp lệ thì có thể yêu cầu người sử dụng nhập lại.
Ví dụ 1: Trong hình 1, xét ô text học kỳ. Ta có học kỳ chỉ nhận 2 giá trị là 1 hoặc 2, để đảm bảo yêu cầu này chúng ta sẽ viết đoạn lệnh đáp ứng sự kiện valid để kiểm. 
Giá thiết textbox được thiết lập các thuộc tính
	Name = hocky
	Maxlength=1
khi đó sự kiện hocky.valid được viết như sau:
hk=this.value
IF !hk$"1;2" then
	WAIT WINDOW "Gia tri khong dung! Hoc ky = 1 hoac 2" NOWAIT
	RETURN 0
ENDIF
Ví dụ 2: Trong hình 1, xét ô text khóa. Ta thấy các khóa nhập vào ở đây phải nằm trong DMKHOA thì mới có nghĩa -> Viết sự kiện valid để kiểm tra tính hợp lệ này của ô text khóa.
Giá thiết textbox được thiết lập các thuộc tính
	Name = Khoa
	Maxlength=10
khi đó sự kiện Khoa.valid được viết như sau:
khoahoc=this.Value
SELECT dmkhoa 
LOCATE FOR (ma=khoahoc) 
IF FOUND() THEN 
	thisform.lblTenKhoa.Caption=dmkhoa.ten
ELSE
	IF !EMPTY(khoahoc) THEN 
	WAIT WINDOW "Ma khoa khong dung!!" NOWAIT 
	RETURN 0	
	ELSE
	thisform.lblTenKhoa.Caption=""
	ENDIF 
ENDIF
Đối tượng EditBox tương đối giống TextBox (khác biệt chủ yếu là cho phép soạn text trên nhiều dòng) các bạn tự tìm hiểu thêm.
Command Button
Sử dụng cho: Tạo các nút lệnh. Ví dụ như các nút lệnh Tạo BC, To Excel, Xem in ... trong hình 1.
Các Properties thường dùng: Trong phần này chỉ giới thiệu một số thuộc tính khác so với các thuộc tính đã giới thiệu ở các đối tượng trên.
Caption: Text hiển thị như tên (khác với name) của nút lệnh.
FontName: Font chữ cho caption.
Picture: Cho phép đưa một ảnh vào nút lệnh.
ToolTipText: Đặt dòng text (tooltip) khi đưa con trỏ tới nút lệnh.
Các Methods và Events thường dùng: 
Click (Event): Sự kiện này sảy ra khi người sử dụng click chuột trái vào nút lệnh (nút lệnh được thiết kế chính để đáp ứng sự kiện này).
Ví dụ 1: Thêm vào form nút lệnh “Thoát” để đóng form, thiết lập các thuộc tính:
	Caption=Thoát
	Name=cmdThoat
Khi đó dự kiện cmdThoat.Click được viết như sau:
IF MESSAGEBOX("Dong form nay lai?",4+32)=6 THEN 
	thisform.Release 
ENDIF
Ví dụ 2: Tạo form DMKHOA cho phép cập nhật danh mục khóa. Thêm vào Form các nút lệnh “Đầu”, “Trước”, “Sau” và “Cuối” để di chuyển con trỏ bản ghi của bảng DMKHOA về bản ghi đầu, bản ghi trước, bản ghi tiếp và bản ghi cuối.
Lần lượt đặt tên cho các nút lệnh đó là cmdDau, cmdTruoc, cmdSau và cmdCuoi, láy ví dụ.
Sửa lại chức năng trong các nút lệnh sao cho khi chuyển đến bản ghi đầu thì nút lệnh “Đầu”, “Trước” sẽ disable, khi chuyển đến bản ghi cuối thì các nút lệnh “Sau”, “Cuối” sẽ disable.
OptionGroup Box
Sử dụng cho: Lựa chọn một trong nhiều khả năng.
Các Properties thường dùng: 
AutoSize: Tự động thay đổi kích thước của đối tượng cho phù hợp (phần thiết kế). Thuộc tính này nhận các giá trị .T. và .F.
ButtonCount:Số các tùy chọn
Value: Giá tị trả về của option, giá trị này là số thứ tự mục chọn.
Khi thiết kế, có thể thay đổi một số thuộc tính khác của OptionGroup bằng cách nhấp chuột phải vào đối tượng, tiếp đến chon Builder..
Vì đây là một dạng container nên để thay đổi các thuộc tính các đối tượng con của nó bằng cách: nhấp chuột phải vào đối tượng, tiếp đến chọn Edit...
Các Methods và Events thường dùng: Không có methods, hoặc event nào đặt biệt nên không giới thiệu ở đây.
Ví dụ: 
CheckBox
Sử dụng cho: Lựa chọn một trong 2 khả năng.
Các Properties thường dùng: 
Caption: Thể hiện phần text của đối tượng
Value: Checked - Giá trị 1 hoặc .T.; Unchecked - Giá trị 0 hoặc .F.
Các Methods và Events thường dùng:
Click (Event): Sự kiện này sảy ra khi người sử dụng click chuột trái vào check box.
Ví dụ: Giả sử dùng check box để hiển thị thông tin về giới tính với qui ước checked - Nam, và Unchecked là nữ.
Khi đó sự kiện click được viết như sau:
IF this.Value THEN 
	this.Caption="Nam"
ELSE
	this.Caption="N÷"
ENDIF 
Combo Box
List Box
Grid
Image
Timer
Page Frame
Bài tậP