어떻게 내가 두 테이블을 연결하고 진행중인 값을 얻을 수 4gl

Question

나는 두 테이블의 직원 및 주문, 어디에 emp - ID (필드)로 공통점이 두 tables.i emp 이름과 emp - ph를 얻을 필요가 주문 table.how에서 폼 직원 테이블 및 주문-NUM은이 테이블을 연결 값

define variable c as integer. 
define query q1 for customer,order SCROLLING. 


INPUT FROM Value ("C:\src\New folder\cnum.txt"). 


IMPORT c. 


open query q1 for each employee where employee.emp-id=c , 
each order where (order.emp-id = employee.emp-id). 

이 쿼리 검색 사용에서 충돌로 나에게 오류를 던지고있다

Answer 1

당신이 직원 ID를 얻으려고 노력하는 경우 텍스트 파일에서이 작업을 수행해야합니다. 파일의 각 행에서 ID를 읽고 직원 레코드를 찾고 주문 정보를 표시합니다.

DEFINE VARIABLE c AS INTEGER NO-UNDO. 

INPUT FROM VALUE("C:\src\New folder\cnum.txt"). 

REPEAT: 
    IMPORT c. 

    FIND FIRST Employee WHERE Employee.Emp-ID = c NO-LOCK NO-ERROR. 
    IF NOT AVAILABLE(Employee) THEN 
    DO: 
     MESSAGE "Cannot find employee with ID " c VIEW-AS ALERT-BOX ERROR. 
     NEXT. 
    END. 

    FOR EACH Order NO-LOCK WHERE Order.Emp-ID = Employee.Emp-ID: 
     DISPLAY 
      Employee.Emp-Name 
      Employee.Emp-Ph 
      Order.Order-Num. 
    END. 
END. 

INPUT CLOSE. 

Answer 2

당신은 필요를 얻을 수 두 테이블에 대한 쿼리를 정의하십시오.

DEFINE QUERY q1 FOR Customer, Order SCROLLING. 

Answer 3

귀하의 요구 사항은 고객 테이블을 언급하지 않고 당신은 그래서 당신은 당신이 필요로하는 것을 말에 초점을 맞출 것이다 파일에서 입력을 요구 않습니다

for each employee no-lock, 
    each order no-lock where order.emp-id = employee.emp-id: 

    display employee.name employee.emp-ph order.order-num. 

end.