Welcome Guest [Log In] [Register]
Welcome to VITINHTHANHSON. We hope you enjoy your visit.


You're currently viewing our forum as a guest. This means you are limited to certain areas of the board and there are some features you can't use. If you join our community, you'll be able to access member-only sections, and use many member-only features such as customizing your profile, sending personal messages, and voting in polls. Registration is simple, fast, and completely free.


Join our community!


If you're already a member please log in to your account to access all of our features:

Username:   Password:
Add Reply
Bài tập mẫu Foxpro; Tạo Menu
Topic Started: Jun 14 2006, 10:16 AM (3,396 Views)
Long_inn
Member Avatar
Tổng điều hành
Admin
Ghi chú: Các bạn muốn bài tập Fox chạy tốt hăy xóa bỏ ḍng chú thích nhé.
Hăy download file đính kèm là phần bài tập.
Chúc thi tốt!


Quote:
 

Set talk off && Ghi ḍng chú thích ở đây sau 2 dấu "&&"
Set date Fren && Thiết lập ngày giờ kiểu Pháp& Vietnam
defi menu main && Định nghĩa menu chính
**********
defi pad cn of main prom 'Cap nhat' && Định nghĩa Cập nhật
defi pad tk of main prom 'Thong ke' && Dinh nghia Tim kiem
defi pad ht of main prom 'He thong' && Dinh nghia He thong
************************
On pad cn of main acti popu cn1 && Kích hoạt bảng chọn Cap nhat 1
On pad tk of main acti popu tk1 && Kich hoat bang chon Thong ke 1
On pad ht of main acti popu ht1 && Kich hoat bang chon He thong 1
*********************** Ḍng có dấu  *này không có tác dụng trong Foxpro
Defi popu cn1 marg rela && Tham số " Margin relative" giúp căn lề tự động
*---------------------- Ḍng này ko có tác dụng v́ có dấu * ở đầu
Defi bar 1 of cn1 prom 'Nhap du lieu' && Modul nhập
Defi bar 2 of cn1 prom 'Sua du lieu' && Modul sua
Defi bar 3 of cn1 prom 'Xoa du lieu' && Modul xoa
************************
Defi popu tk1 marg rela
*----------------------
Defi bar 1 of tk1 prom 'Thong ke theo que quan' && Thống kê theo quê
Defi bar 2 of tk1 prom 'Thong ke theo tuoi' && Thong ke tuoi
Defi bar 3 of tk1 prom 'Thong ke theo gioi' && Thong ke gioi tinh
*************************
Defi popu HT1 marg rela
*-----------------------
Defi bar 1 of ht1 prom 'Ve Fox' && Thoát về Foxpro
Defi bar 2 of ht1 prom 'Ve Windows' && Thoat ve Windows
***********************************************
On sele popu all do xuly with bar(),Prom(),popu() && | Ḍng này có ư nghĩa là xử lư toàn bộ các chức năng trong menu với
*-------------------------------------------------------------------* | tương ứng bar (chức năng con), Prom ( tên chức năng con ), Popu (Menu trải xuống )
acti menu main && Kích hoạt menu chính (main)
Set talk on
Return && về đầu
************* End of Menu ***************
************* CAC CHUONG TRINH CON**************
Proc xuly && Chương tŕnh con thực hiện các chức năng đă gọi ra ở trên bởi câu lệnh On sele popu all xuly ....
para sttmuc,tenmuc,tenbcd && Khai báo tham số tương ứng:  sttmuc=bar(), tenmuc=Prom(), tenbcd=Popu()
hide menu main  && tạm dấu menu chính để hiện chức năng con
hide popu all && Giấu popup
clea && Xoá trắng các chức năng cũ
do case && Lệnh thực hiện nhiều chức năng lựa chọn
case tenbcd='CN1' and sttmuc=1 && Nếu tên bảng chọn dọc là 'CN1' và số thứ tự là 1 th́ làm
  use hoso && Mở tệp hoso.dbf
  appen && Thêm mới
case tenbcd='CN1' and sttmuc=2
  use hoso
  brow all titl'Them moi: Ctrl+N; Luu: Ctrl+W; Thoat: Ctrl+Esc'; && Sửa hoso.dbf

case tenbcd='CN1' and sttmuc=3
  use hoso
  brow all
  dele
  pack
  brow all
* Xoá các bản ghi trong Hoso.dbf 
case 'FOX'$tenmuc
  deac menu main
case  tenbcd='HT1' and sttmuc=1  && Về Fox
  deac menu main
  clea
case tenbcd='HT1' and sttmuc=2  && Về Windows
  quit
other    && Các chức năng khác chưa qua xử lư sẽ gọi tới mục này
@14,0 say'Muc nay chua co chuong trinh con' colo schem 5
wait '' time 3
endc && Kết thúc lệnh Do case
clea
show menu main && Hiện lại menu chính
hide popu all  && Hiện lại popup
return  && Khôi phục
*******************************************
 
   



~!@# !@C

Posted Image Email:Long_inn@yahoo.com<p align='center'><object codebase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0 height=150 width=150 border=2 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000><param name='movie' value='http://i41.photobucket.com/albums/e282/Long_inn/Long_inn.swf'> <param name='quality' value='high'> <embed src='http://i41.photobucket.com/albums/e282/Long_inn/Long_inn.swf' quality=high pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width='300' height='300' border='2'> </embed> </object></p>
<br>
[size=7]Cám ơn [/size] [size=10]you[/size] [size=7]đă ghé thăm diễn đàn. Chúc một ngày tốt lành![/size]
Offline Profile Quote Post Goto Top
 
1 user reading this topic (1 Guest and 0 Anonymous)
« Previous Topic · Foxpro · Next Topic »
Add Reply