赛捷软件论坛's Archiver

扶程星云 发表于 2009-6-20 00:50

开发中常用数据库命令

<P>打开表<BR>&nbsp; If !clalev([BM2])&nbsp; : Local File BOM[BM2] : Endif</P><P>关闭表<BR>&nbsp; Close file[BM2]</P><P>插入表<BR>打开表,然后赋值,再Write即可增加新纪录。</P><P>查找符合条件的记录<BR>&nbsp; For [BD2] Where&nbsp; ITMREF = CITMREF &amp; BOMALT = IBOMALT<BR>&nbsp; Next</P><P>给变量赋表值<BR>&nbsp; NEWITMREF = [F:BD2]CPNITMREF</P><P>Rewrite覆盖记录<BR>&nbsp; [F:SOQ]SHIDAT = date$<BR>&nbsp; Rewrite [F:SOQ]</P><P>write 一般用于增加新纪录</P><P><BR>批量更新<BR>&nbsp; Trbegin[MFI]<BR>&nbsp;&nbsp;&nbsp; Update [MFI] Where MFGNUM=NUM &amp; MFGLIN=LINES With STRDAT= TSTRDAT ,&nbsp; ENDDAT = TENDDAT&nbsp;&nbsp;&nbsp; <BR>&nbsp; Commit</P><P>过滤表<BR>&nbsp; Filter [ITM2] Where BASPRI&gt;100&nbsp;&nbsp; //过滤表条件 BASPRI&gt;100</P><P><BR>批量删除<BR>&nbsp; Delete [AXX] Where CODFIC="TABCOUNTRY" &amp; IDENT1=[L]CODE </P><P>Link指令(表连接)<BR>Link &lt;Class&gt; With &lt;Class&gt;&lt;Index&gt; [ (&lt;Index_Part&gt;) ] = &lt;Expression&gt; [ , ... ]<BR>As &lt;Abbreviation&gt;<BR>[ &amp;&nbsp; Where &lt;Condition&gt; ]<BR>[ &amp;&nbsp; Order By &lt;Sort_Order&gt; ] <BR>实例:<BR># ITF表连接两个其他表 <BR># 读取信息并填充SBI2屏幕<BR>Link [ITF] With [ITV]ITV0=[F:ITF]ITMREF;[F:ITF]STOFCY,<BR>&amp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [ITM]ITM0=[F:ITF]ITMREF<BR>&amp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; As [LNK]&nbsp; <BR>&amp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Where [F:ITF]CUNFLG = 2 &amp; [F:ITF]STOFCY = [M:SBI1]FCY<BR>&amp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Order By Key ITF1</P><P>For [LNK]&nbsp; <BR>&nbsp;&nbsp;&nbsp; [M:SBI2] = [F:ITM] <BR>&nbsp;&nbsp;&nbsp; [M:SBI2] = [F:ITV]&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; [M:SBI2] = [F:ITF] <BR>Next</P><P><BR>Read指令<BR>Read [&lt;Class&gt;][&lt;Index_ID&gt;][ (&lt;Index_Part&gt;) ] [First | Curr | Next | Prev | Last]<BR>格式:Read [XXX]KEY &gt;= VALUE1;VALUE2<BR>实例:<BR># Product-Site table&nbsp; 打开产品地点表<BR>Local File ITMFACILIT [ITF]</P><P># Read first record&nbsp; 第一条记录读取<BR>Read [ITF] First&nbsp;&nbsp; :# Default index, ITF0 = ITMREF+STOFCY is used</P><P># Read precise record&nbsp; 精确记录读取<BR>Read [ITF]ITF0 = "1INCHSCREW";"S01"</P><P># Read next one&nbsp; 下一条记录读取<BR>Read [ITF] Next :# Or Read [ITF]ITF0 Next<BR>实例:<BR># Product-Site table&nbsp; 打开产品地点表<BR>Local File ITMFACILIT [ITF]</P><P># Read first record with index &gt;= "B";"S01"&nbsp; <BR>Read [ITF]ITF0 &gt;= "B";"S01"</P><P>Look指令<BR>Look看记录是否存在但不载入</P><P><BR>Columns 列指令<BR>&nbsp;Columns [ORI] ([ITM]ITMREF,[ITM]ITMDES1,[ORD])<BR>列中显示[ITM]ITMREF,[ITM]ITMDES1和[ORD]记录</P><P>Columns [SOQ] With Mask ([M:SOX])<BR>将[SOQ] 的数据填写到[M:SOX]屏幕</P>

tansj 发表于 2009-6-20 02:44

Re:开发中常用数据库命令

<P>好东西,多谢分享!</P>

dannis 发表于 2009-6-20 11:10

Re:开发中常用数据库命令

<P>这个总结的不错,谢谢傅强大哥</P>

扶程星云 发表于 2009-6-22 16:29

Re:开发中常用数据库命令

不客气,嘻嘻

zhihui.chen 发表于 2009-6-22 18:20

Re:开发中常用数据库命令

好贴收藏。谢谢啦

页: [1]

Powered by Discuz! Archiver 7.2  © 2001-2009 Comsenz Inc.