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

[tayngangvfp]

1 Phòng có 24 thí sinh anh ah. Thành thật cảm ơn anh đã quan tâm!

Không biết mô tả như sau có đúng không:

- Sắp xếp danh sách theo mã nghề (MAN), nếu trùng thì sắp theo MaHD (vì thấy trong report có phần "Hội đồng thi"), nếu trùng thì sắp theo TÊn, Họ

- Như vậy khi lên danh sách phòng thi sẽ là: mỗi phòng có tối đa 24 thí sinh (có cùng nghề (MAN), cùng hội đồng (MaHD) được sắp xếp theo TEN,HO?

- Mỗi khi sang 1 hội đồng khác (MaHD) thì sẽ đánh lại số phòng thi từ 1?

- Số báo danh sẽ đánh tăng liên tục với quy định 2 ký tự đầu là MaHD

[biẽnanh]

có ai không giúp mình với.làm bài tập csdl huhu!
chết con mất mẹ ơi!!!!!

[changkhoag]

- Sắp xếp danh sách theo Mã hội đồng, nếu trùng thì sắp theo mã nghề (MAN), nếu trùng thì sắp theo Tên, Họ.

- Như vậy khi lên danh sách phòng thi sẽ là: mỗi phòng có tối đa 24 thí sinh (có cùng hội đồng (MaHD), cùng nghề (MAN)) được sắp xếp theo Tên, họ.

- Mỗi khi sang 1 hội đồng khác (MaHD) hoặc hoặc qua nghề khác thì vẫn đánh tiếp số phòng thi anh ah.

- Số báo danh sẽ đánh tăng liên tục với quy định 2 ký tự đầu là MaHD.

Nhờ anh giúp dùm. Cảm ơn anh rất nhiều.

[tongocbao]

@tongocbao
- Việc thêm tiền tố m. vào trước tên biến thường dùng để phân biệt biến bộ nhớ và biến trường (tên field). Vì nếu có 1 biến tên TongCong và trong một table đang mở cũng có 1 field tên Tongcong thì fox sẽ ưu tiên sử dụng giá trị chứa trong Field Tongcong=> để sử dụng biến (bộ nhớ) thì dùng m.Tongcong

- Sys(16,0) trả về tên của chương trình đang thực thi, vì vậy nếu trước khi build nó sẽ trả về tên của fxp, scx,..... cái mà được gọi chạy đầu tiên. Còn sau khi buil sẽ trả về tên chương trình.exe

Cám ơn bạn ! Mình sẽ nghiên cứ thêm về vấn đề này !

[tayngangvfp]

- Sắp xếp danh sách theo Mã hội đồng, nếu trùng thì sắp theo mã nghề (MAN), nếu trùng thì sắp theo Tên, Họ.

- Như vậy khi lên danh sách phòng thi sẽ là: mỗi phòng có tối đa 24 thí sinh (có cùng hội đồng (MaHD), cùng nghề (MAN)) được sắp xếp theo Tên, họ.

- Mỗi khi sang 1 hội đồng khác (MaHD) hoặc hoặc qua nghề khác thì vẫn đánh tiếp số phòng thi anh ah.

- Số báo danh sẽ đánh tăng liên tục với quy định 2 ký tự đầu là MaHD.

Nhờ anh giúp dùm. Cảm ơn anh rất nhiều.

@changkhoag
http://www.mediafire.com/file/lo0vi2...7/PhongThi.rar

[changkhoag]

@changkhoag
http://www.mediafire.com/file/lo0vi2...7/PhongThi.rar

Cảm ơn a tayngangvfp rất nhiều! Giải thuật a viết cao siêu quá, Khâm phục. khâm phục...

Anh cho em hỏi anh thêm để biết rõ:
1. Sau khi anh đánh số báo danh và số phòng sao e không thấy lưu vào file .DBF vậy. Nếu em muốn lưu vào .DBF thì làm thế nào?
2. Em muốn làm 1 form có tùy chọn in theo hội đồng, hoặc in số trang tùy ý thì làm thế nào?

Mấy câu hỏi hơi gà, mong anh chỉ giáo. Thành thật cảm ơn anh. Nếu được nhờ anh gửi demo qua e mail giùm em: changkhoagg@gmail.com

[foxnewbie]

Mình chuyển chương trình từ FP sang VFP thì có vấn đề này, mong các anh em chỉ giúp:

Báo cáo trước đây chạy OK. Nhưng sau khi chuyển thì số liệu hầu như tăng gấp đôi. Mình nghĩ có lẽ do bị cộng cả số chi tiết và số cộng nhóm, sự thật đúng là như thế nhưng chưa biết giải quyết ra sao ?

DBF có 2 field : Taikhoan và Sodu
Field TK có các record có giá trị như sau (độ dài các tk không cố định):
....
9373027041
....
9373087049
....
9373037044
....
9373
....

Khi dùng lệnh: Sum Sodu to mTien for Left(TK,10)$[9373027041.9373087049.9373037044]
thì nó cộng cả Số dư của TK 9373 vào nữa.

Giải quyết thế nào đây ?? Mặc dù mình đã dùng SET EXACT on/off

[=========> Bổ sung bài viết <=========]

Mình chuyển chương trình từ FP sang VFP thì có vấn đề này, mong các anh em chỉ giúp:

Báo cáo trước đây chạy OK. Nhưng sau khi chuyển thì số liệu hầu như tăng gấp đôi. Mình nghĩ có lẽ do bị cộng cả số chi tiết và số cộng nhóm, sự thật đúng là như thế nhưng chưa biết giải quyết ra sao ?

DBF có 2 field : Taikhoan và Sodu
Field TK có các record có giá trị như sau (độ dài các tk không cố định):
....
9373027041
....
9373087049
....
9373037044
....
9373
....

Khi dùng lệnh: Sum Sodu to mTien for Left(TK,10)$[9373027041.9373087049.9373037044]
thì nó cộng cả Số dư của TK 9373 vào nữa.

Giải quyết thế nào đây ?? Mặc dù mình đã dùng SET EXACT on/off

To : Bạn Luu_luu
[/QUOTE] Nếu được bạn cho mình xin một ví dụ để làm mẫu, đại loại như : Tạo 1 file DBF tên VIDU.dbf. Tạo dữ liệu bằng cách dùng FOR - NEXT để append tự động. Sau đó dùng method tạo khung của bạn để hiện dữ liệu lên Grid. Nếu được như vậy thì mình năm bắt nhanh hơn.[/QUOTE]
Cám ơn bạn, mình đã làm được theo hướng dẫn của bạn. Bây giờ hình thức của chương trình có vẻ prồ rồi.

[hoangnnm]

Mình chuyển chương trình từ FP sang VFP thì có vấn đề này, mong các anh em chỉ giúp:

Báo cáo trước đây chạy OK. Nhưng sau khi chuyển thì số liệu hầu như tăng gấp đôi. Mình nghĩ có lẽ do bị cộng cả số chi tiết và số cộng nhóm, sự thật đúng là như thế nhưng chưa biết giải quyết ra sao ?

DBF có 2 field : Taikhoan và Sodu
Field TK có các record có giá trị như sau (độ dài các tk không cố định):
....
9373027041
....
9373087049
....
9373037044
....
9373
....

Khi dùng lệnh: Sum Sodu to mTien for Left(TK,10)$[9373027041.9373087049.9373037044]
thì nó cộng cả Số dư của TK 9373 vào nữa.

Giải quyết thế nào đây ?? Mặc dù mình đã dùng SET EXACT on/off

[=========> Bổ sung bài viết <=========]

Trường hợp này nên dùng inlist :

Sum Sodu to mTien for INLIST(Left(TK,10),'9373027041','9373087049','9373037044')

[tutibibon]

Xin chào tayngangvfp và các bạn!
Mình đang gặp khó khăn nhờ tayngangvfp chỉ giúp với. Mình đã lấy dữ liệu từ oracle (font unicode) và lưu dữ liệu đó trên vfp, nhưng những field dạng chuỗi thì bị hư font không đọc được vì không chuyển được font.
Rất mong tayngangvfp chỉ giúp với.

[hshason]

Mình chưa sử dụng Oracle bao giờ, nhưng theo mình nghĩ dù bất cứ ở đâu thì đơn giản cũng chỉ là 1 chuỗi kỹ tự. Vậy bạn có thể sử dụng 1 hàm chuyển đổi mã font từ Unicode sang TCVN3(ABC) trước khi bạn replace vào DBF của VFP.
Bạn thử dùng hàm này nhé:
FUNCTION UTF2ABC
PARAMETERS tcUTF8
LOCAL i,lnLen,strABC,lcChar1,lcChar2,lcChar3,lnPost
LOCAL _DF_UTF3Byte_ABC,_DF_UTF3Byte_ABC2

_DF_UTF2Byte_ABC=[áàãăâÁÀÃĂÂéÃ� �êÉÈÊóòõôơÓÒà •Ã”ƠíìĩÍÌĨýÝđ� �ÃºÃ¹ÃšÃ™Æ°Æ¯Å©Å¨]
_DF_UTF2Byte_ABC2=[¸µ·¨©¸µ·¡¢Ð̪ÐÌ£ãß⫬ãß⤠¥Ý×ÜÝ×Üýý®§óïóï­¦òò]
_DF_UTF3Byte_ABC = [áº£áº¡áº¯áº±áº³áºµáº·áº¥á º§áº©áº«áº­áº¢áº áº®áº°áº ²áº´áº¶áº¤áº¦áº¨áºªáº¬áº» ẽẹếềểễệẺ ẼẸẾỀỂỄỆỠá»á»‘ồ]
_DF_UTF3Byte_ABC = _DF_UTF3Byte_ABC + [ổỗộớờởỡỠ£á»Žá»Œá»á»’ỔỖỘá� �šá»œá»žá» á»¢á»‰á»‹á»ˆá� �Šá»³á»·á»¹á»µá»²á»¶á»¸á»� �ủụỦỤứừửự� �»¨á»ªá»¬á»°á»®á»¯]
_DF_UTF3Byte_ABC2 = [¶¹¾»¼½ÆÊÇÈÉ˶¹¾»¼½ÆÊÇÈÉËÎ ÏÑÕÒÓÔÖÎÏÑÕÒÓÔÖáäèåæçéíêë ìîáäèåæçéíêëìîØÞØÞúûüþúûü þñôñôøõöùøõöù÷÷]
****************************
i=0
lnLen=LEN(tcUTF8)
lcABC=""
lcChar1=""
lcChar2=""
lcChar3=""

* Cho de xu ly + SPACE(2)
tcUTF8=tcUTF8+" "
FOR i=1 TO lnLen
lcChar3=SUBSTR(tcUTF8,i,3)
lnPost=AT(lcChar3,_DF_UTF3Byte_ABC)
IF lnPost>0
* Day la ky tu UTF8 co 3 byte
lcABC =lcABC+SUBSTR(_DF_UTF3Byte_ABC2,INT(lnPost/3)+1,1)
i=i+2
ELSE
* Khong phai 3 byte, kiem tra xem co la UTF8 2 byte khong
lcChar2=LEFT(lcChar3,2)
lnPost=AT(lcChar2,_DF_UTF2Byte_ABC)
IF lnPost>0
lcABC=lcABC+SUBSTR(_DF_UTF2Byte_ABC2,INT(lnPost/2)+1,1)
i = i + 1
ELSE
* Day la UTF8 1 byte = VNI 1 bye
lcABC = lcABC+LEFT(lcChar2,1)
ENDIF
ENDIF
ENDFOR
RETURN lcABC
ENDFUNC

[=========> Bổ sung bài viết <=========]

Chào các bạn!
Mình sử dụng Class ReportListener của VFP9 để Preview report, nhưng khi chạy bị lỗi không hiển thị được ký tự (Dùng Font .VnTime), cụ thể là chữ "ư", và cũng có thể có các ký tự khác nữa.
VD: "Chương trình" -> "Chơng trình".
Có bạn nào đã sử dụng ReportListener và biết cách khắc phục điều này không?