各位老大帮忙看一下

kunpeng_li

说实话，现在学的这些东西部门的人没有一个人用空指导一下的，不会也不能说。谁叫咱现在还是实习的呢，这次学习FORM多亏了你和Harry_Shan两位老大了。在这里向你们表示感谢！谢谢！

wulinxia

大家相互帮助嘛，要多问，他们也不会说不会告诉你的。。。每个人都有这一步，我们也是从这一上步走过来的，不过我也没有走多远，呵呵。。。

fanpig

我学FORM的时候，就一个人看书，看ORACLE FORM开发的英文文档，800页呀，没累死我。

wulinxia

最初由 fanpig 发布
[B]我学FORM的时候，就一个人看书，看ORACLE FORM开发的英文文档，800页呀，没累死我。 [/B]

楼上的兄弟英文厉害。。。 真是牛啊

kunpeng_li

我也想问呀，现在这些FORM的知识都是我一点一点的查出来的。
一些最最基础的知识我都要老半天才能知道是怎么做出来的。不知道怎么实现的，我就拿已有的程序比较，那叫一个麻烦呢。

kunpeng_li

大哥再问一下
当我从文件中读取数据的时候你看下是不是下面的代码，不正确要怎么修改呢？还是我应该在别的地方设置些什么？
GO_BLOCK('BLOCK4');
   
    SET_APPLICATION_PROPERTY(CURSOR_STYLE,
                             'BUSY');                     
    X_FILE := TEXT_IO.FOPEN(:BLOCK4.FILE_NAME,
                            'R');
  LOOP
   TEXT_IO.GET_LINE(X_FILE,
                     X_LINE);
                  
  GO_BLOCK('BLOCK3');      
:BLOCK3.CHECK_DATE :=SUBSTR(X_LINE,1,8);   
:BLOCK3.TAG_NO     :=SUBSTR(X_LINE,9,14);   
:BLOCK3.DEP        :=SUBSTR(X_LINE,15,18);
:BLOCK3.SUBINV     :=SUBSTR(X_LINE,19,23);
:BLOCK3.MODEL      :=SUBSTR(X_LINE,24,33);
:BLOCK3.LOCATOR    :=SUBSTR(X_LINE,34,43);
:BLOCK3.COUNTER    :=SUBSTR(X_LINE,44,51);
:BLOCK3.ITEM_CODE  :=SUBSTR(X_LINE,52,62);
:BLOCK3.QUANTITY   :=SUBSTR(X_LINE,63,72);
:BLOCK3.UOM        :=SUBSTR(X_LINE,73,75);
:BLOCK3.CANCEL     :=SUBSTR(X_LINE,76,76);
:BLOCK3.END_DATE   :=SUBSTR(X_LINE,77,84);
:BLOCK3.END_TIME   :=SUBSTR(X_LINE,85,88);
:BLOCK3.CR_LF      :=SUBSTR(X_LINE,89,90);            
             --NEXT_RECORD;        
  END LOOP;            
   SET_APPLICATION_PROPERTY(CURSOR_STYLE,
                             'DEFAULT');

kunpeng_li

可以了，刚才我把SUBSTR搞错了。现在出来了。

wulinxia

最初由 kunpeng_li 发布
[B]可以了，刚才我把SUBSTR搞错了。现在出来了。 [/B]

恭喜。。。LZ进步飞快啊。。

kunpeng_li

没有办法呀，形式逼人啊

kunpeng_li

各位老大
SET_APPLICATION_PROPERTY(CURSOR_STYLE,
                             'BUSY');
    GO_BLOCK('BLOCK3');
    FIRST_RECORD;
    LOOP
    INSERT INTO  LINES
        (CHECK_DATE,         CR_LF)
      VALUES
        (:BLOCK3.CHECK_DATE,
         :BLOCK3.CR_LF);
    END LOOP;
    FORMS_DDL('COMMIT');
     UPDATE_RECORD;
    SET_APPLICATION_PROPERTY(CURSOR_STYLE,
                             'DEFAULT');
应该怎么改才可以呢？