這樣的程式要如何解析 ?

程式設計

tonychen168 2010-03-31 17:57:56 ‧ 5359 瀏覽

分享至

這是寶盛 ERP PROGRESS 的管理程式 , 由於以前沒有接觸寫程式
只有寫 9 * 9 乘法程式的功力 , 以下這些程式我要如何看懂 , 是先翻成中文嗎 ?
可是翻成中文又怪怪的看不太懂 , 不知各位都如何走過這段路

"FIND CTRY WHERE CTRY_CODE = DCUST_CTRY NO-LOCK NO-ERROR.
IF AVAIL CTRY THEN DCNAM = CTRY_NAM. ELSE DCNAM = ''.
DISP DCNAM WITH FRAME A2.

"ON LEAVE OF DCUST_CTRY DO:
FIND CTRY WHERE CTRY_CODE = INPUT DCUST_CTRY NO-LOCK NO-ERROR.
IF AVAIL CTRY THEN DCNAM = CTRY_NAM. ELSE DCNAM = ''.
DISP DCNAM WITH FRAME A2.
END.
ON CHOOSE OF B_A1 IN FRAME B1,MENU-ITEM M_A1 DO:
APPLY 'ENTRY' TO CUR-FRM. APPLY 'ENTRY' TO CUR-FLD.
END.

總裁 iT邦好手 1 級 ‧ 2010-04-01 08:42:52 檢舉

先了解程式語法, 再看懂變數命名規則, 剩下就是多看多TRY了....
加油!!!

總裁 iT邦好手 1 級 ‧ 2010-04-01 10:22:36 檢舉

http://communities.progress.com/pcom/community/psdn

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

2 個回答

dscwferp

iT邦高手 1 級 ‧ 2010-04-01 09:32:55

最佳解答

這是 PROGRESS 的專屬語法
雖然語法很像英文文法
但因為是針對處理資料庫而開發的語言
所以當然跟正常的英文文法不一樣啊！
比如 "FIND CTRY WHERE CTRY_CODE = DCUST_CTRY NO-LOCK NO-ERROR" 就是 PROGRESS 的專屬查資料語法
"IF .... THEN .... ELSE"
PROGRESS 的專屬判斷語法
所以用翻譯軟體翻譯當然怪怪
您還是要去了解 PROGRESS 的專屬語法吧！
或
外包給別人寫吧！