* TÊN SKKN :
CHUYỂN MÃ DỮ LIỆU
SANG BẢNG MÃ TIẾNG VIỆT UNICODE
Tác giả : NGUYỄN NGỌC ÂN
Đơn vị : Phòng Tổ chức-CB Sở GD-ĐT An Giang

I.- ĐẶT VẤN ĐỀ :
Theo quy định của Chính phủ, từ ngày 01/01/2003, tất cả các thông tin tiếng Việt trao đổi trên mạng thông tin đều phải sử dụng bảng mã Tiếng Việt Unicode.
Hiện nay trên thị trường đã xuất hiện nhiều công cụ chuyển mã đáp ứng được yêu cầu chuyển văn bản (Text) và siêu văn bản (Hyper Text) từ các bảng mã Tiếng Việt thông dụng như VNI, ABC, ... sang Unicode hiệu quả khá tốt. Ngoài ra, trong bộ gõ Vietkey 2000 cũng đã cung cấp kiểu gõ cho bảng mã Tiếng Việt Unicode. Tuy nhiên về CSDL thì việc chuyển mã sẽ chạm đến những vấn đề phức tạp hơn. Chúng tôi đã giải quyết yêu cầu này bằng một cách đơn giản và ít tốn kém là sử dụng một hàm chuyển mã. Chỉ cần bổ sung hàm này vào chương trình quản lý CSDL (môi trường Foxpro), khi đó các lệnh xuất ra file văn bản phải được "lọc" qua hàm này để văn bản xuất ra theo mã Unicode. Với cách giải quyết như vậy, ta không cần phải chuyển mã CSDL và viết lại chương trình phần mềm.
II.- CHƯƠNG TRÌNH NGUỒN CỦA HÀM CHUYỂN MÃ :
Chúng tôi đặt tên hàm là BKTOUNI, lưu trong file tên BKTOUNI.PRG. Nội dung file này như sau : (nếu soạn trên Windword, bạn chọn font .VnTime, rồi Save với dạng Text Only).

FUNC BKTOUNI
PARA CHUOI
PRIVATE ALL
SET TALK OFF
CHUOI1=ALLTRIM(CHUOI)
CHUOI2=""
DAI=LEN(CHUOI1)
FOR I=1 to DAI
BK=SUBS(CHUOI1,I,1)
DO CASE
CASE BK="á"
UNI="á"
CASE BK="à"
UNI="à"
CASE BK="ả"
UNI="ả"
CASE BK="ã"
UNI="ã"
CASE BK="ạ"
UNI="ạ"
CASE BK="ă"
UNI="ă"
CASE BK="ấ"
UNI="ấ"
CASE BK="ầ"
UNI="ầ"
CASE BK="ẩ"
UNI="ẩ"
CASE BK="ẫ"
UNI="ẫ"
CASE BK="ậ"
UNI="ậ"
CASE BK="â"
UNI="â"
CASE BK="ắ"
UNI="ắ"
CASE BK="ằ"
UNI="ằ"
CASE BK="ẳ"
UNI="ẳ"
CASE BK="ẵ"
UNI="ẵ"
CASE BK="ặ"
UNI="ặ"
CASE BK="é"
UNI="é"
CASE BK="è"
UNI="è"
CASE BK="ẻ"
UNI="ẻ"
CASE BK="ẽ"
UNI="ẽ"
CASE BK="ẹ"
UNI="ẹ"
CASE BK="ê"
UNI="ê"
CASE BK="ế"
UNI="ế"
CASE BK="ề"
UNI="ề"
CASE BK="ể"
UNI="ể"
CASE BK="ễ"
UNI="ễ"
CASE BK="ệ"
UNI="ệ"
CASE BK="í"
UNI="í"
CASE BK="ì"
UNI="ì"
CASE BK="ỉ"
UNI="ỉ"
CASE BK="ĩ"
UNI="ĩ"
CASE BK="ị"
UNI="ị"
CASE BK="ó"
UNI="ó"
CASE BK="ò"
UNI="ò"
CASE BK="ỏ"
UNI="ỏ"
CASE BK="õ"
UNI="õ"
CASE BK="ọ"
UNI="ọ"
CASE BK="ô"
UNI="ô"
CASE BK="ố"
UNI="ố"
CASE BK="ồ"
UNI="ồ"
CASE BK="ổ"
UNI="ổ"
CASE BK="ỗ"
UNI="ỗ"
CASE BK="ộ"
UNI="ộ"
CASE BK="ơ"
UNI="ơ"
CASE BK="ớ"
UNI="ớ"
CASE BK="ờ"
UNI="ờ"
CASE BK="ở"
UNI="ở"
CASE BK="ỡ"
UNI="ỡ"
CASE BK="ợ"
UNI="ợ"
CASE BK="ú"
UNI="ú"
CASE BK="ù"
UNI="ù"
CASE BK="ủ"
UNI="ủ"
CASE BK="ũ"
UNI="&#