云端系统iScript程式设计

先贴一个[单位换算表]程式范例, 有人感兴趣再继续:

-------------------------------------------------------------

.Unit Table HLine VLine Menu C*13
大单位: @,,&h70 : L4 : NoEmpty,Upcase
名称: L10
小单位: @,,&h70 : L4 : NoEmpty,Upcase
名称: L10
换算率: R9,16,4 : Number,NoEmpty
锁定: @,,7*5 : M3,5 : Confirm : \{KB~c.f}
'------------------
…: L0,34
'------------------
$DBName: UNIT.XTS
$Index : 大单位+小单位
$Index : 小单位+大单位
'------------------
$Window: *,*,22,96,单位换算表
$Box : 2,1,19,96,,box+vscroll+dscroll
$Grid : 2,1,18,94
'------------------
$Control: {EX*showmt}
$Control: {i.text_{F#1}_-1_2_&hff_大单位 = 小单位 X 换算率}
'------------------
$Report: {?U_,单位换算表}{&&101_{VV$}}{&&102_}{&&103_}{**$list}{?!_}
'------------------
$Open: {ASn}{SR{&&1 }}
$Open: {??{TS}+{TS.allow}=0}{I$1_DZ}{I$2_打}{I$3_PCS}{I$4_件}{I$5_12}{RD_}{?!_}
'------------------
$Funct: F.K4==*
$Funct: F.K8==*
$Funct: K.Cr={M$"qpick"}
.

程式结果预览:


补充: 云端系统iScript是香港设计的产品.

[ 本帖最后由 freedomized 於 2013-9-11 10:05 AM 编辑 ]

有读数没回应...

这是一个实际可用的程式, 下载一套iScript云端系统就能执行, 其他商用程式都很简短. 写这样的程式应该不难, 多看几个范例就有货交了.