赛捷软件论坛's Archiver

nana 发表于 2008-1-16 01:29

在表中添加记录(write语句)(LIYA提供)

<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT size=3><SPAN lang=EN-US>1 </SPAN><SPAN style="FONT-FAMILY: 宋体; mso-ascii-font-family: &#39;Times New Roman&#39;; mso-hansi-font-family: &#39;Times New Roman&#39;">创建表</SPAN><SPAN lang=EN-US> ZPHIS<SPAN style="mso-spacerun: yes">&nbsp; </SPAN>price history</SPAN></FONT></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT size=3><SPAN lang=EN-US></SPAN></FONT>&nbsp;</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT size=3><SPAN lang=EN-US><IMG src="http://p14.freep.cn/p.aspx?u=v20_p14_p_0801151719457536_0.jpg"></SPAN></FONT></P><p>[此帖子已被 nana 在 2008-1-15 17:36:38 编辑过]

nana 发表于 2008-1-16 01:30

Re:在表中添加记录(write语句)

<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT size=3><SPAN lang=EN-US>2 </SPAN><SPAN style="FONT-FAMILY: 宋体; mso-ascii-font-family: &#39;Times New Roman&#39;; mso-hansi-font-family: &#39;Times New Roman&#39;">在屏幕</SPAN><SPAN lang=EN-US> ITM3</SPAN><SPAN style="FONT-FAMILY: 宋体; mso-ascii-font-family: &#39;Times New Roman&#39;; mso-hansi-font-family: &#39;Times New Roman&#39;">的字段上添加</SPAN><SPAN lang=EN-US>SPE</SPAN><SPAN style="FONT-FAMILY: 宋体; mso-ascii-font-family: &#39;Times New Roman&#39;; mso-hansi-font-family: &#39;Times New Roman&#39;">。<IMG src="http://p14.freep.cn/p.aspx?u=v20_p14_p_0801151729442677_0.jpg"></SPAN></FONT></P>

nana 发表于 2008-1-16 01:32

Re:在表中添加记录(write语句)

<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT size=3><SPAN lang=EN-US>3 </SPAN><SPAN style="FONT-FAMILY: 宋体; mso-ascii-font-family: &#39;Times New Roman&#39;; mso-hansi-font-family: &#39;Times New Roman&#39;">添加代码。(LIYA提供)</SPAN></FONT></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 10pt; TEXT-INDENT: -5pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left><SPAN lang=EN-US style="FONT-SIZE: 12pt; FONT-FAMILY: Courier; mso-font-kerning: 0pt; mso-bidi-font-family: Courier">Subprog AM_ZPREGPJ(VALEUR)<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 10pt; TEXT-INDENT: -5pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left><SPAN lang=EN-US style="FONT-SIZE: 12pt; FONT-FAMILY: Courier; mso-font-kerning: 0pt; mso-bidi-font-family: Courier">Variable Decimal VALEUR<o:p></o:p></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 10pt; TEXT-INDENT: -5pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left><SPAN lang=EN-US style="FONT-SIZE: 12pt; FONT-FAMILY: Courier; mso-font-kerning: 0pt; mso-bidi-font-family: Courier"><o:p>&nbsp;</o:p></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 10pt; TEXT-INDENT: -5pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left><A name=OLE_LINK1><SPAN lang=EN-US style="FONT-SIZE: 12pt; COLOR: blue; FONT-FAMILY: Courier; mso-font-kerning: 0pt; mso-bidi-font-family: Courier">Local Char ZSTR(50)<o:p></o:p></SPAN></A></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 10pt; TEXT-INDENT: -5pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left><SPAN style="mso-bookmark: OLE_LINK1"><SPAN lang=EN-US style="FONT-SIZE: 12pt; COLOR: blue; FONT-FAMILY: Courier; mso-font-kerning: 0pt; mso-bidi-font-family: Courier">Local Date ZDTA<o:p></o:p></SPAN></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 10pt; TEXT-INDENT: -5pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left><SPAN style="mso-bookmark: OLE_LINK1"><SPAN lang=EN-US style="FONT-SIZE: 12pt; COLOR: blue; FONT-FAMILY: Courier; mso-font-kerning: 0pt; mso-bidi-font-family: Courier"># Insert the update value into table ZPHIS<o:p></o:p></SPAN></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 10pt; TEXT-INDENT: -5pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left><SPAN style="mso-bookmark: OLE_LINK1"><SPAN lang=EN-US style="FONT-SIZE: 12pt; COLOR: blue; FONT-FAMILY: Courier; mso-font-kerning: 0pt; mso-bidi-font-family: Courier">#Dbgaff<o:p></o:p></SPAN></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 10pt; TEXT-INDENT: -5pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left><SPAN style="mso-bookmark: OLE_LINK1"><SPAN lang=EN-US style="FONT-SIZE: 12pt; COLOR: blue; FONT-FAMILY: Courier; mso-font-kerning: 0pt; mso-bidi-font-family: Courier">Local File ZPHIS [ZPH1] Where ITMREF=[M]ITMREF<o:p></o:p></SPAN></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 10pt; TEXT-INDENT: -5pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left><SPAN style="mso-bookmark: OLE_LINK1"><SPAN lang=EN-US style="FONT-SIZE: 12pt; COLOR: blue; FONT-FAMILY: Courier; mso-font-kerning: 0pt; mso-bidi-font-family: Courier"><o:p>&nbsp;</o:p></SPAN></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 10pt; TEXT-INDENT: -5pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left><SPAN style="mso-bookmark: OLE_LINK1"><SPAN lang=EN-US style="FONT-SIZE: 12pt; COLOR: blue; FONT-FAMILY: Courier; mso-font-kerning: 0pt; mso-bidi-font-family: Courier">ZSTR=evalue("date$")+"-"+evalue("time$")<o:p></o:p></SPAN></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 10pt; TEXT-INDENT: -5pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left><SPAN style="mso-bookmark: OLE_LINK1"><SPAN style="FONT-SIZE: 12pt; COLOR: blue; FONT-FAMILY: Courier; mso-font-kerning: 0pt; mso-bidi-font-family: Courier; mso-ansi-language: ZH-CN">[F:ZPH1]RSQ=ZSTR<o:p></o:p></SPAN></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 10pt; TEXT-INDENT: -5pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left><SPAN style="mso-bookmark: OLE_LINK1"><SPAN style="FONT-SIZE: 12pt; COLOR: blue; FONT-FAMILY: Courier; mso-font-kerning: 0pt; mso-bidi-font-family: Courier; mso-ansi-language: ZH-CN"><o:p>&nbsp;</o:p></SPAN></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 10pt; TEXT-INDENT: -5pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left><SPAN style="mso-bookmark: OLE_LINK1"><SPAN style="FONT-SIZE: 12pt; COLOR: blue; FONT-FAMILY: Courier; mso-font-kerning: 0pt; mso-bidi-font-family: Courier; mso-ansi-language: ZH-CN">[F:ZPH1]ITMREF=[M]ITMREF<o:p></o:p></SPAN></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 10pt; TEXT-INDENT: -5pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left><SPAN style="mso-bookmark: OLE_LINK1"><SPAN style="FONT-SIZE: 12pt; COLOR: blue; FONT-FAMILY: Courier; mso-font-kerning: 0pt; mso-bidi-font-family: Courier; mso-ansi-language: ZH-CN">[F:ZPH1]ZGP=VALEUR<o:p></o:p></SPAN></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 10pt; TEXT-INDENT: -5pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left><SPAN style="mso-bookmark: OLE_LINK1"><SPAN lang=EN-US style="FONT-SIZE: 12pt; COLOR: blue; FONT-FAMILY: Courier; mso-font-kerning: 0pt; mso-bidi-font-family: Courier">[F:ZPH1]CREUSR= GUSER<o:p></o:p></SPAN></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 10pt; TEXT-INDENT: -5pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left><SPAN style="mso-bookmark: OLE_LINK1"><SPAN lang=EN-US style="FONT-SIZE: 12pt; COLOR: blue; FONT-FAMILY: Courier; mso-font-kerning: 0pt; mso-bidi-font-family: Courier">[F:ZPH1]CREDAT=evalue("date$") <o:p></o:p></SPAN></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 10pt; TEXT-INDENT: -5pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left><SPAN style="mso-bookmark: OLE_LINK1"><SPAN lang=EN-US style="FONT-SIZE: 12pt; COLOR: blue; FONT-FAMILY: Courier; mso-font-kerning: 0pt; mso-bidi-font-family: Courier"><o:p>&nbsp;</o:p></SPAN></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 10pt; TEXT-INDENT: -5pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left><SPAN style="mso-bookmark: OLE_LINK1"><SPAN lang=EN-US style="FONT-SIZE: 12pt; COLOR: blue; FONT-FAMILY: Courier; mso-font-kerning: 0pt; mso-bidi-font-family: Courier"><SPAN style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </SPAN>Trbegin [ZPH1]<SPAN style="mso-spacerun: yes">&nbsp; </SPAN>:<SPAN style="mso-spacerun: yes">&nbsp;&nbsp; </SPAN># Transaction start<o:p></o:p></SPAN></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 10pt; TEXT-INDENT: -5pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left><SPAN style="mso-bookmark: OLE_LINK1"><SPAN lang=EN-US style="FONT-SIZE: 12pt; COLOR: blue; FONT-FAMILY: Courier; mso-font-kerning: 0pt; mso-bidi-font-family: Courier"><SPAN style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </SPAN><o:p></o:p></SPAN></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 10pt; TEXT-INDENT: -5pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left><SPAN style="mso-bookmark: OLE_LINK1"><SPAN lang=EN-US style="FONT-SIZE: 12pt; COLOR: blue; FONT-FAMILY: Courier; mso-font-kerning: 0pt; mso-bidi-font-family: Courier"><SPAN style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </SPAN><o:p></o:p></SPAN></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 10pt; TEXT-INDENT: -5pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left><SPAN style="mso-bookmark: OLE_LINK1"><SPAN lang=EN-US style="FONT-SIZE: 12pt; COLOR: blue; FONT-FAMILY: Courier; mso-font-kerning: 0pt; mso-bidi-font-family: Courier"><SPAN style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </SPAN>Write [ZPH1]<SPAN style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </SPAN># Write table<o:p></o:p></SPAN></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 10pt; TEXT-INDENT: -5pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left><SPAN style="mso-bookmark: OLE_LINK1"><SPAN lang=EN-US style="FONT-SIZE: 12pt; COLOR: blue; FONT-FAMILY: Courier; mso-font-kerning: 0pt; mso-bidi-font-family: Courier"><SPAN style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </SPAN>If fstat<o:p></o:p></SPAN></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 10pt; TEXT-INDENT: -5pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left><SPAN style="mso-bookmark: OLE_LINK1"><SPAN lang=EN-US style="FONT-SIZE: 12pt; COLOR: blue; FONT-FAMILY: Courier; mso-font-kerning: 0pt; mso-bidi-font-family: Courier"><SPAN style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </SPAN><o:p></o:p></SPAN></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 10pt; TEXT-INDENT: -5pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left><SPAN style="mso-bookmark: OLE_LINK1"><SPAN lang=EN-US style="FONT-SIZE: 12pt; COLOR: blue; FONT-FAMILY: Courier; mso-font-kerning: 0pt; mso-bidi-font-family: Courier"><SPAN style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </SPAN>Rollback<o:p></o:p></SPAN></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 10pt; TEXT-INDENT: -5pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left><SPAN style="mso-bookmark: OLE_LINK1"><SPAN lang=EN-US style="FONT-SIZE: 12pt; COLOR: blue; FONT-FAMILY: Courier; mso-font-kerning: 0pt; mso-bidi-font-family: Courier"><SPAN style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </SPAN>Else<o:p></o:p></SPAN></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 10pt; TEXT-INDENT: -5pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left><SPAN style="mso-bookmark: OLE_LINK1"><SPAN lang=EN-US style="FONT-SIZE: 12pt; COLOR: blue; FONT-FAMILY: Courier; mso-font-kerning: 0pt; mso-bidi-font-family: Courier"><SPAN style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </SPAN>Commit<o:p></o:p></SPAN></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 10pt; TEXT-INDENT: -5pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left><SPAN style="mso-bookmark: OLE_LINK1"><SPAN lang=EN-US style="FONT-SIZE: 12pt; COLOR: blue; FONT-FAMILY: Courier; mso-font-kerning: 0pt; mso-bidi-font-family: Courier"><SPAN style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </SPAN>Endif<o:p></o:p></SPAN></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 10pt; TEXT-INDENT: -5pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left><SPAN style="mso-bookmark: OLE_LINK1"><SPAN lang=EN-US style="FONT-SIZE: 12pt; FONT-FAMILY: Courier; mso-font-kerning: 0pt; mso-bidi-font-family: Courier"><o:p>&nbsp;</o:p></SPAN></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="mso-bookmark: OLE_LINK1"><SPAN lang=EN-US style="FONT-SIZE: 12pt; FONT-FAMILY: Courier; mso-font-kerning: 0pt; mso-bidi-font-family: Courier">End</SPAN></SPAN></P>

Jerry.huang 发表于 2008-1-16 06:12

Re:在表中添加记录(write语句)(LIYA提供)

nana,你这个图是怎么贴的。

nana 发表于 2008-1-16 18:13

Re:在表中添加记录(write语句)(LIYA提供)

<P>论坛暂时不能上传附件和图片等,找个免费上传图片的网站获得图片的地址</P><P>我用的是这个<A target=_blank href="http://www.freep.cn/">http://www.freep.cn/</A>&nbsp;,也比较方便</P>

dannis 发表于 2008-1-18 00:38

Re:在表中添加记录(write语句)(LIYA提供)

这个东东不能很明白,可否讲清楚一点

nana 发表于 2008-1-18 05:56

Re:在表中添加记录(write语句)(LIYA提供)

<P>哪里不明白呢.</P><P>这只是个简单的例子,对产品ITM3屏幕的字段ZPREGPJ添加SPE,利用WRITE语句将记录添加到表ZPHIS中,可以在表维护中进行验证.</P>

dannis 发表于 2008-1-18 16:27

Re:在表中添加记录(write语句)(LIYA提供)

有没有这方面的详资料,我不是很理解它的作用,谢谢

wxwzy 发表于 2008-1-24 19:35

Re:在表中添加记录(write语句)(LIYA提供)

呵呵,不错,Liya还是把历史价格记录给研究出来了,好好学习一下。收藏

windy.zheng 发表于 2008-6-24 20:34

Re:在表中添加记录(write语句)(LIYA提供)

good, i cant view picture

页: [1]

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