|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
CPS0204
註冊時間: 2014-08-24 文章: 441
第 16 樓
|
發表於: 星期四 七月 21, 2022 9:58 am 文章主題: |
|
|
1.我使用ms form 2.0控件,改良了簡體繁體的顯示問題
2.請你再自行改為 泰文<>繁體
3.使用vfoX9+sql 2014
4.VFOX9的FORM 需載入 MSFORM 2.0 的 LABEL .TEXT
5.SQL 的TABLE 的欄位需開成 NVARCHAR(50) ,有N的
如附圖:
VFOX9的FORM
init:
CON=RET_SQL_CON() &&建立CONNECTION
AA=[SELECT * FROM SYS000] &&SYS000 是你的TABLE
BB=SQLEXEC(CON,AA,'TEMP0')
=SQLDISCONNECT(CON)
sys(3101,936)
SELECT TEMP0
THISFORM.OLE4.OBJECT.CAPTION=TEMP0.WORD1 &&NVARCHAR欄位WORD1
THISFORM.OLE4.OBJECT.AutoSize=.T.
THISFORM.OLE4.OBJECT.ForeColor=RGB(0,0,255)
THISFORM.OLE3.OBJECT.VALUE=TEMP0.WORD1
THISFORM.OLE3.OBJECT.FontSize=16
*********************************
SAVE 按鈕的CLICK
*=MESSAGEBOX(THISFORM.OLE3.object.Value)
n1=TRIM(thisform.ole3.object.Value)
con=ret_sql_con()
aa=[update sys000 set WORD1=?N1]
BB=SQLEXEC(CON,AA)
=SQLDISCONNECT(CON)
IF BB<0
=MESSAGEBOX('NOT SAVE')
ELSE
=MESSAGEBOX('SAVE OK')
ENDIF
****
以上 TEST成功,寫入SQL TABLE,讀出至VFOX9的FORM都可以正常
以上解決了輸入,存檔,取用,顯示的問題.....但在REPORT上,我還沒解決,請高手賜教! |
|
回頂端 |
|
|
syntech
註冊時間: 2003-05-16 文章: 4212 來自: Taipei,Taiwan
第 17 樓
|
發表於: 星期四 七月 21, 2022 3:27 pm 文章主題: |
|
|
我印象中字體也要改成 TAHOMA 或 ARIAL UNICODE _________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|