안녕하세요!!!!!!!!
procedure TFrmQDATA.Query1BeforeInsert(DataSet: TDataSet);
begin
     ShowMessage('BeforeInsert' + IntToStr(FrmQDATA.Query1.FieldByName('AutoSeq').AsInteger));
     mAutoSeq := FrmQDATA.QSales.FieldByName('AutoSeq').AsInteger;
end;

procedure TFrmQDATA.Query1AfterInsert(DataSet: TDataSet);
begin
     ShowMessage('AfterInsert : ' + IntToStr(FrmQDATA.Query1.FieldByName('AutoSeq').AsInteger));
     mAutoSeq := FrmQDATA.QSales.FieldByName('AutoSeq').AsInteger;
end;


아래와 같이 저장버튼을 눌렀을 경우 AfterInsert, BeforeInsert이벤트가 먹지를 않네요.... 이유좀 갈켜주세요!!!!!!!!!!


             with FrmQDATA.Query1 do
             begin
                  Close;
                  Sql.Clear;
                  Sql.Add(' Insert Into Sales ');
                  Sql.Add('      ( .......)        ');
                  .........................................
                  .........................................
                  ExecSql;
             end;