共享:多語言vfp程序設計簡單實現

chjpeng 2003-08-07 07:24:02

增加數據表:
langTxt.dbf //共五個字段,textno--編號;mod_type--模塊代號;tchinese--繁體文字;schinese--簡體文字;english--英文; 用來保存label的各種語言要顯示的文字
langType.dbf //語言類型,設1為繁體,2為簡體,3為英文;兩個字段,一個字段為類型,一個字段為語言說明
langValue.dbf //保存當前語言類型,一個字段就夠,設默認值為'1'

新增加一個label類,在init屬性中加入以下代碼:
sele langtxt
locate for allt(textno)==allt(this.name)
if allt(langValue.lang_no)=='1'
this.caption=allt(tchinese)
else
if allt(langValue.lang_no)=='2'
this.caption=allt(schinese)
else
this.caption=allt(english)
endif
endif

然后在程序中用這個新類增加label,label的name值定義和langTxt.textNo的值相對應,這時只要修改langValue.lang_no的值,就可以實現三種語言切換了~~

相同的方法,在langTxt.dbf中增加几個表示語言的字段,init代碼稍加更改,就可以實現更多種語言的程序設計;文本維護并不會很復雜~

設計不是很好,但相信實用,大家如有更好的方法,不妨提出^_^

(以上方法在繁體2000,簡體98,繁體98/vfp6.0繁體中測試通過.)

...全文

55 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

idealfox 2003-09-12

打赏
举报

真的不错！

jiaxingxing 2003-08-11

打赏
举报

楼主真好
好好学习

chjpeng 2003-08-09

打赏
举报

找到了數據庫繁簡體轉換的程序,尚未測試

http://meizibbs.3322.org/viewfile.asp?ID=862

chjpeng 2003-08-08

打赏
举报

locate for allt(textno)==allt(this.name)

也覺不妥,因為這樣每個控件要鎖定一次數據表中的記錄,然后賦值給caption

如果有什么好的辦法減少對記錄的鎖定次數就好了~

到頂了,謝謝斑竹^_^

chjpeng 2003-08-08

打赏
举报

locate for allt(textno)==allt(this.name)
似乎不妥，很有可能同一系统的不同的模块里使用相同的控件名
--------------------------------------------------------
不會,在langTxt.dbf中會有分功能模塊號及其下的流水序號或子類序號,每一個號或name都是唯一的~當然重新定義一個屬性更好:)

用DLL可能效率會高些吧,沒試過~
不過dbf用來修改里面的內容要方便得多哦:)

每個label或button等在init時都會讀一次數據表,在這些控件比較多時,界面打開速度可能會受到影響~

liuri璇玑 2003-08-08

打赏
举报

语言切换，感觉做成DLL比用DBF的效率应该高些
分别做三个DLL，英文、繁体、简体
一般都会在进入系统时选语言
这时，就选好是读哪个DLL
以后对于每个控件的语言切换，只需查找编号，而无需再判断
if allt(langValue.lang_no)=='1'
this.caption=allt(tchinese)
else
if allt(langValue.lang_no)=='2'
this.caption=allt(schinese)
else
this.caption=allt(english)
endif

liuri璇玑 2003-08-08

打赏
举报

locate for allt(textno)==allt(this.name)
似乎不妥，很有可能同一系统的不同的模块里使用相同的控件名

如果TAG值没有被使用的话，可以考虑用TAG值来定义语言切换的编号，

而且如果是语言切换的话，也不仅仅是LABEL，还有GRID、CHECK、OPTION之类
我觉得用TAG值标识（如果TAG值被使用，不凡加一个自定义的属性值）
然后自定义一个FORM的基类，在FORM的INIT中用遍历控件的循环来实现语言切换