Làm sao để Lập trình trên visual foxpro 9.0 (3 người xem)

[toikhongvao]

Mình có file .dbf thế này
http://www.mediafire.com/?edwfmgzjtyd
mình có câu truy vấn để lọc dữ liệu thế này

USE ps0912.dbf
SELECT nsd,ngay,sbt,buscd,trcd FROM ps0912 GROUP BY nsd,ngay,sbt,buscd,trcd
COPY TO tam.dbf
USE tam.dbf
SELECT nsd,ngay,COUNT(sbt) AS sobuttoan,buscd,trcd FROM tam GROUP BY nsd,ngay,trcd
SET FILTER TO nsd='BDU'
COPY TO tonghop TYPE xls

bây giờ có 12 file như vậy cho 12 tháng, thì mình phải đánh lại đoạn này 12 lần nên mình nghĩ là lập trình trên fox để mình chỉ cần chạy file thực thi là có thể xuất ra file excel. Nhưng mà mình không có học ngôn ngữ trên visual foxpro.
Xin giúp mình tạo file lập trình đó.
P/S: hướng dẫn mình cách tạo và cách chạy. Mình không rành cái này lắm. THX

 

[onglao_danhca]

Bạn dùng đoạn code sau để tạo một file chạy . Đoạn này chỉ dùng cho năm 2009 thôi.
Nhớ là copy sang một chỗ khác để chạy thử đã nhé.
Có gì cần trao đổi thêm, xin gửi mail cho minhducvs@yahoo.com

Set talk off
Set default to
for i=1 to 12
file_dbf = "ps09"+ padl(allt(str(i)),2,'0')
file_xls = "tonghop" + padl(allt(str(i)),2,'0')
do copy_xls
endfor
********************
proc copy_xls
********************
USE &file_dbf
SELECT nsd,ngay,sbt,buscd,trcd FROM &file_dbf GROUP BY nsd,ngay,sbt,buscd,trcd
COPY TO tam.dbf
USE tam.dbf
SELECT nsd,ngay,COUNT(sbt) AS sobuttoan,buscd,trcd FROM tam GROUP BY nsd,ngay,trcd
SET FILTER TO nsd='BDU'
COPY TO &file_xls TYPE xls
use
retu

 

[luumanh]

mình có đọan code này bạn dùng xem có được không? xài được cho bất kỳ năm tháng nào...mail của mình là taolao_q@yahoo.com.vn

set talk off
set safe off
set date dmy
set cent on
publ tt_dbf,tt_excel
nam=right(str(year(date())),2)
FOR i=1 to 12
thang=tran(i,[@l 99])
tt_dbf=[ps]+nam+thang
tt_excel=[tonghop]+nam+thang
do tao
ENDFOR

proc tao

SELECT nsd,ngay,sbt,buscd,trcd ;
FROM &tt_dbf into cursor sys(2015) GROUP BY nsd,ngay,sbt,buscd,trcd
SELECT nsd,ngay,COUNT(sbt) AS sobuttoan,buscd,trcd FROM alias() ;
where nsd=[BDU] ;
into cursor sys(2015) GROUP BY nsd,ngay,trcd

COPY TO &tt_xls TYPE xls

retu

 

[saobangkhoc_qt]

làm form đăng ký trong foxfro

mình muốn làm form đăng ký trong foxfro mà chưa làm được,ai biết làm giúp m với!
form đăng ký của mình có 4 trường:họtên, ngày sinh,địa chỉ, giới tính. mình muốn khi kích vào nút đăng ký thì nếu mà người đăng ký chưa ghi thông tin vào một trường nào đó thì nó thông báo"bạn chưa nhập đủ thông tin" ngược lại khi người đăng ký nhập đầy đủ thông tin thì nó lưu các thông tin đó vào bảng đăng ký và đồng thời đưa ra thông báo"ban đăng ký thành công".
cảm ơn mọi nhiều!

 

[luumanh]

bạn làm đến đâu rồi, gởi file lên để mình hiệu chỉnh, làm giúp thì bao giờ bạn tự làm được

 

[saobangkhoc_qt]

bạn làm đến đâu rồi, gởi file lên để mình hiệu chỉnh, làm giúp thì bao giờ bạn tự làm được

cảm ơn bạn nhe!
m mới làm nên chưa viết code được,viết sai ma minh xóa đi rồi.
bạn giúp mình với.

bạn có thể liên lạc qua nick yahoo mình nè: bienvobo_dudoi

mình bổ sung nhé: mình muốn khi người đăng ký xong thì dữ liệu được lưu vào bảng gồm bốn trường như trên (bảng đó mình tạo trước rồi),thank nhe!

 

[luumanh]

copy thiếu file rồi bạn ơi, FORM phải có 2 file .SCT và .SCX

 

[saobangkhoc_qt]

cảm ơn bạn luumanh và các bạn trên diễn đàn nhiu nhe!

có bạn nào trên diẽn đàn hôm trước hỏi mình qua nick yahoo! vậy?bạn muốn hỏi gì thì liên lạc nhé, giúp được thì mình sẵn sàng. hôm trước mình đang học trên trường nên không liên lạc với bạn được,hi,

 

[saobangkhoc_qt]

tao file chuong trinh

có ai biết cách tạo file ứng dụng chạy độc lâp với foxpro không,giúp mình với.thanks các bạn nhiều.

 

[tumo2812]

Hướng dẫn trích lọc trong visual foxpro?????

Mình đang viết chương trình quản lý thi đua khen thưởng. GV yêu cầu mình nhập vào danh sách cán bộ đạt danh hiệu Chiến sĩ thi đua cơ sở.
Các bạn có thể chỉ mình sử dụng các câu lệnh để trích lọc không?
Dữ liệu của mình gồm:
-cán bộ: mã cán bộ, họ tên, ngày sinh, giới tính, dân tộc, năm vào ngành, chức vụ
-quyết định: số quyết định, diễn giải nội dung(ví dụ: Chiến sĩ thi đua cơ sở năm học 2010-2011), năm khen thưởng (năm cuối của diễn giải:2011)
-danh hiệu: mã danh hiệu, tên danh hiệu
phiếu khen thưởng: số phiếu, mã cán bộ, mã danh hiệu, số quyết định.
Yêu cầu: trích lọc ra danh sách các cán bộ đủ điều kiện là 3 năm liên tục đạt chiến sĩ thi đua cơ sở thì được xét danh hiệu chiến sĩ thi đua cấp tỉnh?(Nhưng nếu thêm điều kiện là nếu năm đó đã được chiến sĩ thi đua tỉnh rồi thì không lấy năm đó xét nữa)?Có ai biết giúp mình với?

 

[tumo2812]

Hướng dẫn tạo bảng ảo trong visual foxpro?

Dữ liệu của mình gồm:
-cán bộ: mã cán bộ, họ tên, ngày sinh, giới tính, dân tộc, năm vào ngành, chức vụ
-quyết định: số quyết định, diễn giải nội dung(ví dụ: Chiến sĩ thi đua cơ sở năm học 2010-2011), năm khen thưởng (năm cuối của diễn giải:2011)
-danh hiệu: mã danh hiệu, tên danh hiệu
- phiếu khen thưởng: số phiếu, mã cán bộ, mã danh hiệu, số quyết định.
Mình muốn tạo một bảng ảo như thế này:
SELECT phieukt.macb,canbo.hoten,canbo.namvaonganh,phieukt.maloaikt,loaikt.tenloaikt,COUNT(phieukt.maloaikt="CSTDCS") as solancstdcs,COUNT(phieukt.maloaikt="CSTDT") as solancstdt INTO dbf xetknc;
FROM canbo,loaikt,phieukt WHERE phieukt.macb=canbo.macb AND phieukt.maloaikt=loaikt.maloaikt GROUP BY phieukt.maloaikt

Nhưng cứ bị lỗi này? "SQL: GROUP BY clause is missing or invalid."
Ai biết là lỗi gì không giúp mình với?

 

[xuanhoadn2006]

cho em hoi neu lap trinh ty le % thi ta phai lap trinh nhu the nao