[dis] Câu lạc bộ Visual Foxpro Hấp dẫn nhất từ trước đến nay !!!!!!

[foxprokinhdien]

Chao foxprokinhdien
Cam on ban da co long, nếu được mong bạn chỉ giúp phần hướng dẫn cách tạo bảng, truy xuất dữ liệu với SQL từ FOX. Đối với FOX để truy cập nhứng bảng dữ liệu lớn ta co sthể dùng index ròi khi tru cập số liệu, dụng lệnh SEEK, SCAN WHILE co tốc độ rất nhanh( không như câu lạnh SELECT của SQL), nếu kết hợp dữ liệu từ SQL có thể truy cập tương tu duoc khong? mong ban chỉ giáo
Cam ơn

Chào bạn, theo minh biết thì: Đối với 1 Table có lượng Record tương đối nhiều thì thông thường khi bạn dùng CSDL FOX bạn có thể dùng những lệnh như trên để duyệt và ít khi bạn để ý đến tốc độ xử lý của nó vì công việc diễn ra khá nhanh. Tuy nhiên câu lệnh SQL trong các CSDL khác cũng xử lý rất nhanh chứ không như bạn nói là :"(không như câu lạnh SELECT của SQL)".

Còn đối với việc dùng SQL SERVER để làm CSDL trên nền VFP thì thông thường người ta không duyệt cả bảng (nếu nhiều triệu record). Họ thường hay xử lý dữ liệu theo kiểu truy vấn có điều kiện và Load dữ liệu theo từng trang theo điều kiện tương ứng như trên Web vậy. Còn đối với các bảng nhỏ hơn, bạn vẫn có thể Load hết cho vào View và xử lý bình thường như 1 table chính hiệu VFP vẫn OK

[foxprokinhdien]

vậy cho mình hỏi muốn replace mẫu tin kế mẫu tin cuối cùng thì dùng lệnh gì?

VD: replace mẫu tin cuối cùng(record số 300) thì là:

go bottom
replace TEN with "Nguyen Van Teo"

Vậy muốn replace mẫu tin kế mẫu tin cuối (tức là record 299) mà không phải dùng lệnh "go 299" vì mình không thể xác định số record

Go recc()-1
replace ...

[foxprokinhdien]

Các bạn giúp mình:
Viết chương trình như nào để có thể hiển thị tờ lịch ngày thường xuyên trên form.

Không hiểu ý bạn cho lắm, nhưng với phiên bản VFP đầy đủ, bạn có thể sủ dụng ActiveX Control. Có một Object hỗ trợ chuyện này ...

[foxprokinhdien]

cho mình hỏi, làm thế nào để tạo một report tự động trong phần mềm.
ví dụ, mình làm form thống kê các nhân viên có lương bằng một số nào đó( được nhập từ bàn phím). khi lọc được những nhân viên đó thì mình muốn xuất report ra, có danh sách các công nhân sau khi lọc, giúp mình nhá.

Vì mình không Post Code được nên có thể hướng dẫn bạn thế này:
Tạo một table tên "bangtam" với đầy đủ các field bạn cần xuất hiện trong Report. Sau đó thiết kế Report bình thường và Add "bangtam" vào dataenvironment. Trong form, sau khi đã có điều kiện. Bạn viết một câu lệnh SQL dạng chuỗi đặt trong 1 biến, Sele các field tương ứng với điều kiện where bằng với lương mà bạn gõ vào, và cuối cùng nhớ into vào "bangtam". Sau đó dùng lện vĩ mô "&" để thực thi chuỗi SQL đó. View report sẽ có kết quả như ý bạn

chuoi="select a,b,c,d from bang where luong"+var_luong+"into table bangtam"
&chuoi

[foxprokinhdien]

cho mình hỏi tí....làm thế nào để đóng gói phần mềm khi viết trong visual foxpro 9.0?
Mình muốn phần mềm thành 1 file exe chạy độc lập với visual foxpro.

Bạn có thể dùng Intall Shield để đóng gói. Cái này lên mạng download về sẽ có hướng dẫn chi tiết

[foxprokinhdien]

mình có csdl bao gồm tên và điểm, bác nào có thể giúp mình viết đoạn code để xếp hạng cho từng học sinh giống như hàm rank trong excel:
- nếu các hs có điểm số giống nhau thì được xếp hạng bằng nhau.
- điền hạng tương ứng vào field hang trong file .dbf.
Mình có gửi file .dbf dữ kèm. Xin cảm ơn trước.

Bạn cần lưu ý Code của những người bạn trước cho bạn. Nếu có người hàng 1, hạng 2, hạng 3, hạng 3 thì người thứ 5 phải là hạng 5 mới đúng. Vì có 2 người hạng 3 thì sẽ không có hạng 4. Ở đây mình không xử lý trên bảng gốc mà Select ra 1 bảng tạm thứ 2

set talk off
close databases all
use c:\aaa\bang
select * from bang order by diem desc into table c:\aaa\bang1
go top
var_diem=diem
var_hang1=1
var_hang2=1
replace hang with var_hang1
for i=1 to reccount()
skip
var_hang2=var_hang2+1
if diem=var_diem
replace hang with var_hang1
else
replace hang with var_hang2
var_hang1=var_hang2
var_diem=diem
endif
endfor
select bang1
brow

Hihi Code này lại pót được vậy ta. Ngộ quá ...

[sweetboy2805]

Chào các bạn, mình đang cần đoạn code để kiểm tra trạng thái 1 file dbf đang là "read only" hay đang ở trạng thái bình thường, các bạn giúp mình mới, mình làm mãi không được

[hoangnnm]

Chào các bạn, mình đang cần đoạn code để kiểm tra trạng thái 1 file dbf đang là "read only" hay đang ở trạng thái bình thường, các bạn giúp mình mới, mình làm mãi không được

Đây là code để kiểm trả thuộc tính readonly của 1 file bất kỳ :

Private file_mau, _Adir
m.file_mau = [c:\***.***]
=Adir( _Adir, M.File_mau, [ARSH] )   

if At( 'R', _Adir( 1,5))>0
    ?[read only]
Endif

[hshason]

Chào các bạn, mình đang cần đoạn code để kiểm tra trạng thái 1 file dbf đang là "read only" hay đang ở trạng thái bình thường, các bạn giúp mình mới, mình làm mãi không được

Một cách khác dùng API để kiểm tra thuộc tính file bất kỳ

DECLARE INTEGER GetFileAttributes IN kernel32 STRING lpFileName
lcFilePath = "C:\Test.dbf"
lnAttributeType = GetFileAttributes(lcFilePath)
DO CASE
	CASE lnAttributeType = 32	&&Normal
	CASE lnAttributeType = 33	&&Read-Only
	CASE lnAttributeType = 34	&&Hidden
	CASE lnAttributeType = 35	&&Read-Only and Hidden
ENDCASE

[tamhoat]

Chào các bác, thớt này hay quá, nhưng hơi dài cũng hơi oải cho bác nào đọc từ đầu, giá như có bác nào tổng hợp lại thành 1 file thì tuyệt nhỉ