종종 그런경우가 있는대요

프로그램 종료시 오픈되어있는 데이타셋들을 모두 닫아줘보시기 바랍니다..

폼 close이벤트에 dm.ENTER_Q.Close 등을 넣어주고 다시 해보세요~



nubigo wrote:

> 실행중에는 아무런 에러가 없습니다.

> 하지만 종료후 아래와 같은 에러 메시지가 뜹니다.

>

> Project :Porject.exe raised exception class EACESS Violation with Message 'Access violation at AD6855c0 Read of address 7D6855c0'. Process stopped. Use step or run to continue.

>

> 이 에러는 다음 코딩 이후 일어납니다.

>

> procedure Tmain.DBEdit13Change(Sender: TObject);

> var

> gtemp : string ; // 품명코드-규격코드

> begin

> gtemp := dm.jaje_t.fieldbyname('Pro_size').AsString ;

>

> with dm.ENTER_Q do begin //검수한 자재에 대해서 입금해야할 금액

> close;

> sql.clear;

> sql.add('select sum(counting*ch_money) from "enter.db" where (gong_se='''+gnum.text+''') and (pro_size='''+gtemp+''')');

> open;

> end ; //with

>

> with dm.money_q do begin //검수한 자재에 대해서 입금한 금액

> close;

> sql.clear;

> sql.add('select sum(moneys) from "money.db" where (gong_se='''+gnum.text+''') and (pro_size='''+gtemp+''')');

> open;

> end ;

>

> gumyesdon.text := formatfloat('#,##0',dm.enter_q.fields[0].asfloat-dm.MONEY_Q.Fields[0].asfloat);

> gumnodon.text := formatfloat('#,##0',dm.jaje_tmoneys.asfloat-dm.MONEY_Q.fields[0].asfloat);

> no_count.text:=formatfloat('#,##0',dm.jaje_tcounting.asfloat-dm.jaje_tyes_count.asfloat);

> no_don.text := formatfloat('#,##0',dm.jaje_tMoneys.asfloat-dm.jaje_tNo_moneyall.asfloat);

>

> end;

>

> 고수님들, 이 하수의 힘든 작업을 조금이나마 들어주십시요.

> 토요일인데도 하수는 밤을 새워야하는 상황이 벌어질것 같습니다.