增加數據表:
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繁體 中測試通過.)