开发中常用数据库命令

打开表
If !clalev([BM2]) : Local File BOM[BM2] : Endif

关闭表
Close file[BM2]

插入表
打开表，然后赋值，再Write即可增加新纪录。

查找符合条件的记录
For [BD2] Where ITMREF = CITMREF & BOMALT = IBOMALT
Next

给变量赋表值
NEWITMREF = [F:BD2]CPNITMREF

Rewrite覆盖记录
[F:SOQ]SHIDAT = date$
Rewrite [F:SOQ]

write 一般用于增加新纪录

批量更新
Trbegin[MFI]
Update [MFI] Where MFGNUM=NUM & MFGLIN=LINES With STRDAT= TSTRDAT , ENDDAT = TENDDAT
Commit

过滤表
Filter [ITM2] Where BASPRI>100 //过滤表条件 BASPRI>100

批量删除
Delete [AXX] Where CODFIC="TABCOUNTRY" & IDENT1=[L]CODE

Link指令(表连接)
Link <Class> With <Class><Index> [ (<Index_Part>) ] = <Expression> [ , ... ]
As <Abbreviation>
[ & Where <Condition> ]
[ & Order By <Sort_Order> ]
实例：
# ITF表连接两个其他表
# 读取信息并填充SBI2屏幕
Link [ITF] With [ITV]ITV0=[F:ITF]ITMREF;[F:ITF]STOFCY,
&          [ITM]ITM0=[F:ITF]ITMREF
&          As [LNK]
&          Where [F:ITF]CUNFLG = 2 & [F:ITF]STOFCY = [M:SBI1]FCY
&          Order By Key ITF1

For [LNK]
    [M:SBI2] = [F:ITM]
    [M:SBI2] = [F:ITV]
    [M:SBI2] = [F:ITF]
Next

Read指令
Read [<Class>][<Index_ID>][ (<Index_Part>) ] [First | Curr | Next | Prev | Last]
格式:Read [XXX]KEY >= VALUE1;VALUE2
实例:
# Product-Site table 打开产品地点表
Local File ITMFACILIT [ITF]

# Read first record 第一条记录读取
Read [ITF] First :# Default index, ITF0 = ITMREF+STOFCY is used

# Read precise record 精确记录读取
Read [ITF]ITF0 = "1INCHSCREW";"S01"

# Read next one 下一条记录读取
Read [ITF] Next :# Or Read [ITF]ITF0 Next
实例：
# Product-Site table 打开产品地点表
Local File ITMFACILIT [ITF]

# Read first record with index >= "B";"S01"
Read [ITF]ITF0 >= "B";"S01"

Look指令
Look看记录是否存在但不载入

Columns 列指令
Columns [ORI] ([ITM]ITMREF,[ITM]ITMDES1,[ORD])
列中显示[ITM]ITMREF,[ITM]ITMDES1和[ORD]记录

Columns [SOQ] With Mask ([M:SOX])
将[SOQ] 的数据填写到[M:SOX]屏幕