Ai cần tham khảo bài làm FOXPRO thì vào đây !

Hì! Bạn nào gặp bài Fox nào khó thì viết lên đây tớ sẽ hướng dẫn cho nha
Fox là một môn khó vì vậy mọi người hãy cố gắng học tập nha

Hôm nay tớ sẽ share cho các bạn bài tập mà hôm nọ cô chữa. Tớ thấy nhiều bạn làm không có chạy vì vậy tớ sẽ hướng dẫn mọi người. Bảng chính của nó vẫn là bảng SV theo mặc định nha.


Bài thứ nhất
Bạn hãy tạo một form Sửa dữ liệu như thế này :


Với các giá trị như sau:
Combo box: cbotruong bạn thay đổi: Trong Properties:
Rowsource : SV
Rowsourcetype : 8-Structure
Như hình vẽ:



Với lưới Grid1: Bạn ấn chuột vào lưới đó và hiện Properties và sau đó kéo xuống chọn giá trị: Visible: .T. -True đổi thành .F. - False


Sau đó là nút Click:
Đoạn mã của nút này như sau:

local matim,btruong matim=thisform.txtmhs.value btruong=thisform.cbotruong.value if type(btruong)='N' then messagebox('Khong duoc sua dang so') else sele SV locate for allt(uppe(str(mhs)))=allt(uppe(matim)) if found() sele dist * from SV where allt(uppe(str(mhs)))=allt(uppe(matim)) into table ds thisform.grid1.visible=.t. thisform.grid1.recordsourcetype=0 thisform.grid1.recordsource='ds' thisform.refresh thisform.edit1.controlsource='SV.&btruong' else messagebox('Khong tim thay') endif endif

Sau đó là nút Ghi va Thoat

if messagebox('Ban co that su muon THOAT?',3+32+0,'Thong bao')=6 then thisform.release else thisform.refresh endif

Vậy là xong ! Bấm Ctrl + E để chạy chương trình. Nhớ là phải làm đúng thủ tục như mình nói.
Có gì thắc mắc hỏi mình!

Bài tiếp theo là Bài tạo form tập hợp cả Option và cả Check box
Bạn vẽ khung như sau:



1 - Với các giá trị thiết kế như sau:
Click chuột vào cả option mẹ đó:
Giá trị Caption trong Properties:
Option1 đổi thành: K1
Option2 đổi thành: K2
Option3 đổi thành: K8


Giá trị Name trong Properties
Optiongroup1: đổi thành opt
Option1: đổi thành opt1
Option2: đổi thành opt2
Option3: đổi thành opt3

2 - Với các Checkbox:
Giá trị Caption trong Properties:
Check1 => Gioi
Check2 => Kha
Check3 => TB

Giá trị Name trong Properties
Check1 => ck1
Check2 => ck2
Check3 => ck3

3 - Với lưới Grid1:
Click chuột vào lưới. Rồi vào Properties chọn Visible .T. - True đổi thành Visible .F. - False

4 - Nút Hien Du Lieu:
click đúp chuột hiện bảng viết lệnh và câu lệnh của nó như sau:

Do case case thisform.opt.opt1.value=1 do case case thisform.ck1.value=1 sele dist * from sv where uppe(lop)='K1' and uppe(loai)='GIOI' into table ds case thisform.ck2.value=1 sele dist * from sv where uppe(lop)='K1' and uppe(loai)='KHA' into table ds case thisform.ck3.value=1 sele dist * from sv where uppe(lop)='K1' and uppe(loai)='TB' into table ds endcase case thisform.opt.opt2.value=1 do case case thisform.ck1.value=1 sele dist * from SV where uppe(lop)='K2' and uppe(loai)='GIOI' into table ds case thisform.ck2.value=1 sele dist * from SV where uppe(lop)='K2' and uppe(loai)='KHA' into table ds case thisform.ck3.value=1 sele dist * from SV where uppe(lop)='K2' and uppe(loai)='TB' into table ds endcase case thisform.opt.opt3.value=1 do case case thisform.ck1.value=1 sele dist * from SV where uppe(lop)='K8' and uppe(loai)='GIOI' into table ds case thisform.ck2.value=1 sele dist * from SV where uppe(lop)='K8' and uppe(loai)='KHA' into table ds case thisform.ck3.value=1 sele dist * from SV where uppe(lop)='K8' and uppe(loai)='TB' into table ds endcase Endcase if empty(ds.loai) then messagebox('Khong Tim thay gi') else thisform.grid1.visible=.t. thisform.grid1.recordsourcetype=0 thisform.grid1.recordsource='ds' thisform.refresh endif

5 - Lệnh nút Thoat: Tương tự như bài trên

và Bấm Ctrl+E để chạy chương trình.

Chúc bạn thành công!

Bài tiếp này: Tạo Form tập hợp như hình vẽ:





Yêu cầu: khi bấm vào nút cách tìm hiện lên 2 lựa chọn option : Tìm theo tên và Tìm theo mã
Khi bấm vào lựa chọn Tìm theo tên thì Form 2 hiện Form3 ẩn. và Ấn vào lựa chọn Tìm theo mã thì form 3 hiện form 2 ẩn.

Giải :

Đầu tiên:
- Nút Cach tim: mã lệnh

thisform.opt.visible=.t.

- Đổi các option > Thuộc tính Name: Optiongroup1 thành Opt
: Option1 =>opt1
: Option2 =>opt2
Thuộc tính Caption: Option1 => Tim theo ten
Option2 => Tim theo ma

opt trong Properties bạn chọn và đổi thành Visible .F. - False.

- Lệnh của :
Opt1 :

thisformset.form2.visible=.t. thisformset.form3.visible=.f.

Opt2:

thisformset.form2.visible=.f. thisformset.form3.visible=.t.

Sau đó thiết kế Form2 và 3 như hình vẽ ở trên.
Với Form2:
Bạn click chuột ra ngoài nền của form 2 rồi vào Properties của nó rồi kéo xuống Visible đổi thành giá trị .F. False
nút Tim kiem có lệnh như sau:

use sv local tentim tentim=thisform.txttimten.value locat for allt(uppe(ten))=allt(uppe(tentim)) if found() thisform.txthoten.value=allt(uppe(hodem))+' '+allt(uppe(ten)) thisform.txttong.value=tong thisform.txtloai.value=loai else messagebox('Khong tim thay','Thong bao') endif

Với Form3:
Bạn click chuột ra ngoài nền của form 3 rồi vào Properties của nó rồi kéo xuống Visible đổi thành giá trị .F. False

Thông số Grid1 trong Properties:
bạn lại đổi thành giá trị Visible .F. -False để ẩn lưới Grid1 đi khi chạy chương trình.

Và nút Tim kiem

local matim matim=thisform.txttimma.value sele dist * from sv where allt(uppe(str(mhs)))==allt(uppe(matim)) into table ds if empty(ds.mhs) then messagebox('Khong thay gi') else thisform.grid1.visible=.t. thisform.grid1.recordsourcetype=0 thisform.grid1.recordsource='ds' thisform.refresh endif

- Còn nút thoát tương tự ở trên và cũng tùy thuộc theo đề bài mà chọn kiểu thoát.
Bấm Ctrl+E để thử nào

Còn một số dạng nữa mình sẽ up sau

Chữa bài Kiểm tra
Đầu tiên bạn tạo bảng tùy ý hoặc ở đây mình tạo như sau:



Và đề bài tạo một FORM như sau:



Bây giờ là các bước thực hiện như sau:
- Bạn đổi Name trong Properties của:
+ Option mẹ thành Opt và
+ 2 cái Option 1, và Option 2 thành opt1 và opt2
- Bạn đổi Name của 3 cái Checkbox.
+ Check1 => ck1
+ Check2 => ck2
+ Check3 => ck3
- Lưới Grid1 : Bạn đổi thuộc tính Visible của nó trong Properties:
Từ .T. - True => .F. - False

- Đổi Name của nút Hien => cmdhien
- Đổi Name của nút Thoat => cmdthoat

...Và bây giờ là câu lệnh cho nút Hien:

Do case case thisform.opt.opt1.value=1 do case case thisform.ck1.value=1 sele dist * from deso2 where allt(uppe(gioi))='NAM' and allt(uppe(chucvu))='TRUONG PHONG' into table ds case thisform.ck2.value=1 sele dist * from deso2 where allt(uppe(gioi))='NAM' and allt(uppe(chucvu))='PHO PHONG' into table ds case thisform.ck3.value=1 sele dist * from deso2 where allt(uppe(gioi))='NAM' and allt(uppe(chucvu))='KE TOAN' or allt(uppe(gioi))='NAM' and allt(uppe(chucvu))='NHAN VIEN' into table ds endcase case thisform.opt.opt2.value=1 do case case thisform.ck1.value=1 sele dist * from deso2 where allt(uppe(gioi))=='NU' and allt(uppe(chucvu))='TRUONG PHONG' into table ds case thisform.ck2.value=1 sele dist * from deso2 where allt(uppe(gioi))=='NU' and allt(uppe(chucvu))='PHO PHONG' into table ds case thisform.ck3.value=1 sele dist * from deso2 where allt(uppe(gioi))='NU' and allt(uppe(chucvu))='KE TOAN' or allt(uppe(gioi))='NAM' and allt(uppe(chucvu))='NHAN VIEN' into table ds endcase endcase if empty(ds.gioi) then messagebox('Khong co gi',0+48+0,'Chu y') else thisform.grid1.visible=.t. thisform.grid1.recordsourcetype=0 thisform.grid1.recordsource='ds' thisform.refresh endif

*Chú ý: 2 dòng lệnh là:
sele dist * from deso2 where allt(uppe(gioi))='NAM' and allt(uppe(chucvu))='KE TOAN' or allt(uppe(gioi))='NAM' and allt(uppe(chucvu))='NHAN VIEN' into table ds

Và:
sele dist * from deso2 where allt(uppe(gioi))='NU' and allt(uppe(chucvu))='KE TOAN' or allt(uppe(gioi))='NAM' and allt(uppe(chucvu))='NHAN VIEN' into table ds

Các bạn viết liền không xuống dòng nha.
Viêt như này thì khi hiện thì bảng sẽ ko hiện cả Nam và Nữ. Nhiều bạn nói với mình rằng nó hiện cả Nam và nữ. Mình đã kiểm tra và các bạn có thể viết như này cũng được. Cũng có lệnh viết kiểu khác tim vẫn hiện ra 1 loại.

Câu lệnh nút Thoat tớ ko có đề nên không rõ lắm tùy theo đề mà bạn có thể lựa chọn kiểu nút.
Ở đây là có 3 nút YES NO CANCEL. Khi bấm vào YES sẽ thoát

if messagebox('Ban co muon thoat khong?',3+32+0,'Thong bao')=6 then thisform.release else thisform.refresh endif

*Chú ý: Nếu dòng lệnh này :If messagebox('Ban co muon thoat khong?',3+32+0,'Thong bao')= 2. Thì khi bấm vào CANCEL sẽ thoát
= 7 thì bấm vào NO sẽ thoát.
Vậy nha chúc các bạn học tốt !

Tớ sẽ up thêm nhiều bài nữa mọi người chịu khó học nha

Ch­ữa bài kiểm tra.


Bảng ở đây bạn chọn bảng nào cũng được tớ sử dụng bảng pony giống như bảng SV ở trên kia thôi. Đề bài yêu cầu thiết kế FORM như sau:


Ở đây tớ hướng dẫn các bạn làm FORM này.
Đề bài có 1 form nữa tớ quên rùi hi hi.
Đầu tiên nhá bạn. Các bạn đổi hết các thuộc tính Name như hình vẽ: txtma, txthodem, txtten,....
- Nút Tim kiem:

use pony local matim matim=thisform.txtma.value locat for allt(uppe(str(mhs)))=allt(uppe(matim)) if found() thisform.txthodem.value=allt(prop(hodem)) thisform.txtten.value=allt(prop(ten)) thisform.txtlop.value=lop thisform.txttong.value=tong thisform.txtloai.value=loai else messagebox('Khong tim thay',0+16+0,'Thong bao') endif

Còn bây giờ là các nút: Đầu, trước, sau, cuối....
- Nút Dau:

go top thisform.refresh

- Nút Sau:

go bottom thisform.refresh

- Nút Len Tren

if not bof() skip -1 thisform.refresh endif

- Nút Xuong duoi:
Chú ý : khi bấm xuống bản ghi cuối cùng và bấm thêm 1 cái nữa thì nó sẽ  hiện bảng thông báo sau:


    Câu lệnh này:

if not eof() skip 1 thisform.refresh else messagebox('Da ket thuc tep',0+48+0,'Thong bao') endif

- Nút Them:

use pony appen

- Nút Thoat:
Chú ý: Bài yêu cầu là khi bấm vào nút Thoat nó sẽ hiện lên bảng thông báo:


Và khi bấm vào CANCEL thì mới thoát

Câu lệnh:

if messagebox('Ban co thoat khong',3+48+0,'Thong bao')=2 then thisform.release else thisform.refresh endif

Cái giá trị: ('Ban co thoat khong',3+48+0,'Thong bao')=2 thì thoát là Cancel, còn = 6 thì Yes là thoat, bằng 7 là NO ....
Các bạn đọc lại các nút từ 1 đến 7 đó.
Chú ý nha.

Nhưng khi viết xong các lệnh đầu sau, trên dưới thì khi chạy form chỉ có nút Tim kiem là hoạt động còn các nút Đầu, sau, Trên, dưới vẫn không chạy đâu các bạn à.
Lỗi ở đâu hả?
Lỗi ở chỗ bạn chưa chọn Data Environment
Bạn bấm chuột phải vào nền của form và chọn Data Environment
Sau đó nó sẽ hiện lên một cái bảng như sau:



Ở đây bảng của tớ là Pony lên chọn bảng là như vậy.
Sau khi bạn chọn bảng đó thì nó sẽ hiện bảng này:



Và bạn chọn close.
sau đó bạn click vào các Textbox và chọn thuộc tính ControlSource và đổi như sau:
- txthodem => pony.hodem
- txtten=> pony.ten
- txttong=> pony.tong
- txtloai=> pony.loai

vậy là xong bấm Ctrl+E  để xem thử thành quả của mình.


• Do bạn Tuấn yêu cầu mình làm cái này lâu rồi nhưng toàn quên mất

Form kết hợp Combobox và check box

Bạn tạo bảng như sau:


Mẫu form:


Chú ý để tạo 2 form thì bạn bấm vào:
Form >> This Form Set. Sau đó lại vào và chọn
Form >> Add New Form

Thay đổi các thông số cần thiết:
thuộc tính Name của Check1, Check2 đổi thành ck1, ck2

và đổi thông tin của Combo1 như hình sau:


Và nút Hiện như sau:

local timkiem
timkiem=thisform.combo1.value
Do case
case thisform.ck1.value=1
sele dist * from bt11 where allt(uppe(donvi))=allt(uppe(timkiem)) and uppe(gioitinh)='NAM' into table ds
case thisform.ck2.value=1
sele dist * from bt11 where allt(uppe(donvi))=allt(uppe(timkiem)) and uppe(gioitinh)='NU' into table ds

Endcase

Thisformset.form2.visible=1
thisformset.form2.grid1.recordsourcetype=0
thisformset.form2.grid1.recordsource='ds'
thisformset.refresh

Còn nút thoát tuỳ theo bài ra mà bạn làm Có thể lấy ở các ví dụ ở trên

Good Luck!

ban ơi mình muôn hỏi bạn bài fox này dc hem!

Bạn cần tham khảo bài nào? Bài combobox đó tớ hướng dẫn ở trên rùi đó !
Có chỗ nào bạn không hiểu?
Bài FORM SUA DU LIEU ở trên đó bạn à!

cam on ban nhieu!

Lớp mình có vẻ nhìu người thi lại nhỉ! Cố lên mọi người!

cho mình hỏi. mình có thể liên lạc với admin bằng cách nào được nhỉ? mình đang có 1 số rắc rối về foxpro cần nhờ giúp đỡ