Hướng dẫn trích lọc trong visual foxpro????? (2 người xem)

[tumo2812]

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?mình đang cần gấp xin các bạn giúp mình nha!

 

[FOXFORDOS]

Gợi ý trích lọc dữ liệu theo điều kiện trong Visual Foxpro

Bạn tạo Form gồm 01 Grid, 01 Combobox, Nút Thoát, tự viết code cần thiết liên quan cho Form tại các Procedure Load, Init, Active, Destroy, Keypress … của Form và các đối tượng.

- Grid được cung cấp nguồn dữ liệu từ bảng ảo tự tạo thêm (Cursordbf) có cấu trúc các trường (fields) tương tự như bảng danh sách CSTĐ cần trích lọc.

- Trong Procedure Init của Combobox, viết code để thể hiện một số năm (cần chọn) tính từ năm hiện tại, Ví dụ:

For i=1 to 10 && ví dụ cần thể hiện 10 năm để chọn
This.Value=Allt(Str(Year(Date())-1))
This.AddItem(Allt(Str(Year(Date())+1-i)))
Endf

- Trong Procedure InteractiveChange của Combobox (Gợi ý viết code):

+ Lọc tất cả danh sách CSTĐ có trong 03 năm liền kề tính từ năm được chọn trở về trước trong hộp Combobox (dùng mệnh đề Set filt to để lọc… từ bảng dữ liệu liên quan).
+ Dùng vòng For n=1 to 3 … Endf kết hợp với lệnh Loca for … tìm ra mã cán bộ đạt danh hiệu CSTĐ 03 năm liên tục. Nếu tìm thấy thì xuất ra danh sách CSTĐ vào bảng ảo (Cursordbf) để cung cấp nguồn cho Grid (ô lưới) của Form, nếu không tìm thấy thì thông báo không tồn tại.
Bạn cho biết mail của Bạn, tôi gửi bản mẫu hoàn chỉnh để tham khảo.

Vài gợi ý, chúc thành công.

 

[tumo2812]

Địa chỉ của mình là nguyentumo.835@gmail.com
Cam ơn bạn nhiều nha!

 

[FOXFORDOS]

Địa chỉ của mình là nguyentumo.835@gmail.com
Cam ơn bạn nhiều nha!

Bạn xem Email,Tôi đã gửi Demo. Nếu chưa nhận được cho Tôi biết tin để gửi lại.

 

[tumo2812]

Bạn ơi mình vẫn chưa nhận được!

 

[tumo2812]

Bạn gửi lại dùm mình nha! Cám ơn bạn! Có gì bạn gửi thêm vào địa chỉ này nha: camgiang25@gmail.com

 

[FOXFORDOS]

Tôi đã 07 lần gửi vào 02 địa chỉ Email của Bạn nhưng đều nhận thông báo lỗi gửi không thành công, chưa rõ lý do.

 

[tumo2812]

bạn gán giúp mình gửi lại thử xem.hu.Mang ơn bạn nhiều lắm.
Hoặc bạn gửi mail này thử xem: nguyenhoanggiang.lp@gmail.com