델파이 : 다른 모듈에서 호출 된 TADOQuery의 필드는 갑자기 기본값을가집니다.

Question

두 개의 데이터 모듈, TPAymentDataModule 및 TJobEditDataModule이 있습니다. 하나 개의 데이터 모듈에서 나는 데이터베이스를 업데이트하기 위해 다른 모듈에서 특정 TADOQuery를 호출 할 수 있습니다 가 (이 코드 조각 TPaymentDataModule에) :

procedure TPaymentDataModule.ForceOrdersToComplete; 
begin 
    With PaymentGroupContentQuery do 
    begin 
    if IsEmpty then exit; 
    First; 
    JobEditDataModule.OrderEditQuery.Active:=true; 
    JobEditDataModule.JobEditQuery.Active := true; 

    while not eof do 
    begin 

     // get all orders that refer to this payment group 
     JobEditDataModule.OrderEditQuery.Parameters.ParamValues['orderId'] := 
     PaymentGroupContentQueryorder_Id.Value; 
     JobEditDataModule.OrderEditQuery.Active:=true; 
     JobEditDataModule.OrderEditQuery.Edit; 

     // and try to modify their status 
     JobEditDataModule.OrderEditQueryorder_status_id.AsInteger := 2; 
    Next; 
    end; 
end; 
end; 

OrderEditQuery의 Order_status_id 필드가있는 OnValidate 이벤트 핸들러 :

procedure TJobEditDataModule.OrderEditQueryorder_status_idValidate(Sender: TField); 
begin 
    if (not Self.IsNewJobStatusPermissible(OrderEditQueryorder_status_id.OldValue, 
    OrderEditQueryorder_status_id.NewValue)) then 
    begin 
    raise Exception.CreateFmt('Cannot modify status of order %s.', [   OrderEditQueryOrder_Name.AsString ]); 
    Abort; 
end; 
end; 

모두 제대로 작동하는 것 같다,하지만 때:

는 (: TJobEditDataModule이 코드 조각은 다른 모듈에)처리기가 충돌하면 모든 필드에 갑자기 기본값이 생겨 코드가 실패하게됩니다. 쿼리가 Create인데 싱글 톤으로 사용하지 않기 때문에 사용할 수있는 싱글 톤 쿼리가 하나뿐이기 때문에 이벤트 처리기의 Sender이 동일한 쿼리 인스턴스를 가리켜 야합니다.

하지만 델파이를 처음 접했을 때 궁금해하고 있습니다. 왜 여기서 잘못 될까요? 난 당신이 DB에 편집 Post 할 필요가 착각하고 있지 않다 경우

Answer 1

는 :

procedure TPaymentDataModule.ForceOrdersToComplete; 
begin 
    .. 
    while not eof do 
    begin 
     // get all orders that refer to this payment group 
     JobEditDataModule.OrderEditQuery.Parameters.ParamValues['orderId'] := 
     PaymentGroupContentQueryorder_Id.Value; 
     JobEditDataModule.OrderEditQuery.Active:=true; 
     JobEditDataModule.OrderEditQuery.Edit; 

     // and try to modify their status 
     JobEditDataModule.OrderEditQueryorder_status_id.AsInteger := 2; 

     // Commit the changes to the DB here 
     JobEditDataModule.OrderEditQuery.Post; 

     Next; 
    end; 
end;