Q&A
- CalField가 이상해 졌어요!!!!
다들 건강 하시죠?
오늘 날씨가 좀 쌀쌀 하네요.. 감기조심하시고....
정말 이상한 일이 벌어져 고수님들께 도움을 청하옵니다.
Database : Paradox7
컴포넌트 : Query, DBGrid, UpdateSQL, DataSource, 등등
CalField가 이상해진 일....
Query를 더블 클릭하면 Fields Edits가 나오지 않습니까?
그곳에 DBGrid의 필드명과 Cal이라는 필드를 생성시켰죠
(참고 필드명 : Cal, Type : Currency, Field Type : Calculated)
그리고 Query의 OnCalcfield에서 감가상각 계산 코딩을 했죠..
그런데 DBGrid에 출력은 잘 됩니다. 연도나 구입가격, 감가상각년한 등을 변화시키면
계산도 그 자리에서 해서 출력해줍니다.
(참고 : 관리번호, 구입가격,감가상각년한,구입년 그리고 Cal이라는 필드가 있읍니다.)
1. 이상한 점은 레코드를 추가로 입력할때 "구입년"을 제외한 다른 필드부터 입력을하면
"Invalid variant type conversion."이라는 에러가 발생합니다.
2. 그런데 "구입년" 부터 입력하면 추가할 때 아무 문제도 발생 되지 않읍니다.
3. Query의 Fields Edit에서 Cal이라는 항목을 삭제하면 전혀 문제가 없습니다.
어제 밤 늦게 까지 고민했지만 제가 찾아낸 것은 고작 위와 같은 현상뿐입니다.
아기 코알라에서 어른 코알라가 되도록 고수님의 따뜻한 조언 부탁드립니다.
참고로 On CalcFields의 코딩 내용 입니다.
// 감가상각 계산 식(정액법)
procedure TForm1.Query1CalcFields(DataSet: TDataSet);
var CurDate, CurDate1 : TDateTime;
Year, Month, day, Year1, Month1, Day1 : Word;
Y_A : TDateTime;
begin
CurDate := now;
DecodeDate(CurDate, Year, Month, Day);
CurDate1 := Query1.FieldByName('D').value; //구입년
DecodeDate(Curdate1, Year1, Month1, Day1);
Y_A := Year-Year1; // 현재년 - 구입년
if Y_A <= Query1.FieldByName('P1').Asinteger then// 감가년한 이전인 경우계산
begin
if Month1 <= 6 then // 6월 이전 구입 경우 계산
begin
with Query1 do begin
FieldByName('Cal').value :=
FieldByName('P').value *
(FieldByName('P1').value - Y_A)/
FieldByName('P1').value;
end;
end
else begin // 7월 이후 구입 경우 계산
with Query1 do begin
FieldByName('Cal').value :=
FieldByName('P').value *
(FieldByName('P1').value - Y_A + 0.5)/
FieldByName('P1').value;
end;
end;
end
else begin
// 감가상각년한이 지난 경우 0원으로 처리
Query1.FieldByName('Cal').value := 0;
end;
end;
// 삭제버턴 프로시져
procedure TForm1.Button2Click(Sender: TObject);
begin
Query1.delete;
end;
// 저장버턴 프로서져
procedure TForm1.Button1Click(Sender: TObject);
begin
with Query1 do begin
ApplyUpdates;
CommitUpdates;
Close;
Open;
end;
end;
길고도 지루한 문장 읽어주셔서 감사드립니다.
항상 행복하시고 즐거운 나날 되시길 바랍니다.
오늘 날씨가 좀 쌀쌀 하네요.. 감기조심하시고....
정말 이상한 일이 벌어져 고수님들께 도움을 청하옵니다.
Database : Paradox7
컴포넌트 : Query, DBGrid, UpdateSQL, DataSource, 등등
CalField가 이상해진 일....
Query를 더블 클릭하면 Fields Edits가 나오지 않습니까?
그곳에 DBGrid의 필드명과 Cal이라는 필드를 생성시켰죠
(참고 필드명 : Cal, Type : Currency, Field Type : Calculated)
그리고 Query의 OnCalcfield에서 감가상각 계산 코딩을 했죠..
그런데 DBGrid에 출력은 잘 됩니다. 연도나 구입가격, 감가상각년한 등을 변화시키면
계산도 그 자리에서 해서 출력해줍니다.
(참고 : 관리번호, 구입가격,감가상각년한,구입년 그리고 Cal이라는 필드가 있읍니다.)
1. 이상한 점은 레코드를 추가로 입력할때 "구입년"을 제외한 다른 필드부터 입력을하면
"Invalid variant type conversion."이라는 에러가 발생합니다.
2. 그런데 "구입년" 부터 입력하면 추가할 때 아무 문제도 발생 되지 않읍니다.
3. Query의 Fields Edit에서 Cal이라는 항목을 삭제하면 전혀 문제가 없습니다.
어제 밤 늦게 까지 고민했지만 제가 찾아낸 것은 고작 위와 같은 현상뿐입니다.
아기 코알라에서 어른 코알라가 되도록 고수님의 따뜻한 조언 부탁드립니다.
참고로 On CalcFields의 코딩 내용 입니다.
// 감가상각 계산 식(정액법)
procedure TForm1.Query1CalcFields(DataSet: TDataSet);
var CurDate, CurDate1 : TDateTime;
Year, Month, day, Year1, Month1, Day1 : Word;
Y_A : TDateTime;
begin
CurDate := now;
DecodeDate(CurDate, Year, Month, Day);
CurDate1 := Query1.FieldByName('D').value; //구입년
DecodeDate(Curdate1, Year1, Month1, Day1);
Y_A := Year-Year1; // 현재년 - 구입년
if Y_A <= Query1.FieldByName('P1').Asinteger then// 감가년한 이전인 경우계산
begin
if Month1 <= 6 then // 6월 이전 구입 경우 계산
begin
with Query1 do begin
FieldByName('Cal').value :=
FieldByName('P').value *
(FieldByName('P1').value - Y_A)/
FieldByName('P1').value;
end;
end
else begin // 7월 이후 구입 경우 계산
with Query1 do begin
FieldByName('Cal').value :=
FieldByName('P').value *
(FieldByName('P1').value - Y_A + 0.5)/
FieldByName('P1').value;
end;
end;
end
else begin
// 감가상각년한이 지난 경우 0원으로 처리
Query1.FieldByName('Cal').value := 0;
end;
end;
// 삭제버턴 프로시져
procedure TForm1.Button2Click(Sender: TObject);
begin
Query1.delete;
end;
// 저장버턴 프로서져
procedure TForm1.Button1Click(Sender: TObject);
begin
with Query1 do begin
ApplyUpdates;
CommitUpdates;
Close;
Open;
end;
end;
길고도 지루한 문장 읽어주셔서 감사드립니다.
항상 행복하시고 즐거운 나날 되시길 바랍니다.
2
COMMENTS
-
-
아기코알라 wrote:
> 다들 건강 하시죠?
> 오늘 날씨가 좀 쌀쌀 하네요.. 감기조심하시고....
>
> 정말 이상한 일이 벌어져 고수님들께 도움을 청하옵니다.
>
> Database : Paradox7
> 컴포넌트 : Query, DBGrid, UpdateSQL, DataSource, 등등
>
> CalField가 이상해진 일....
>
> Query를 더블 클릭하면 Fields Edits가 나오지 않습니까?
>
> 그곳에 DBGrid의 필드명과 Cal이라는 필드를 생성시켰죠
> (참고 필드명 : Cal, Type : Currency, Field Type : Calculated)
>
> 그리고 Query의 OnCalcfield에서 감가상각 계산 코딩을 했죠..
>
> 그런데 DBGrid에 출력은 잘 됩니다. 연도나 구입가격, 감가상각년한 등을 변화시키면
> 계산도 그 자리에서 해서 출력해줍니다.
> (참고 : 관리번호, 구입가격,감가상각년한,구입년 그리고 Cal이라는 필드가 있읍니다.)
>
> 1. 이상한 점은 레코드를 추가로 입력할때 "구입년"을 제외한 다른 필드부터 입력을하면
> "Invalid variant type conversion."이라는 에러가 발생합니다.
>
> 2. 그런데 "구입년" 부터 입력하면 추가할 때 아무 문제도 발생 되지 않읍니다.
>
> 3. Query의 Fields Edit에서 Cal이라는 항목을 삭제하면 전혀 문제가 없습니다.
>
> 어제 밤 늦게 까지 고민했지만 제가 찾아낸 것은 고작 위와 같은 현상뿐입니다.
> 아기 코알라에서 어른 코알라가 되도록 고수님의 따뜻한 조언 부탁드립니다.
>
> 참고로 On CalcFields의 코딩 내용 입니다.
>
> // 감가상각 계산 식(정액법)
> procedure TForm1.Query1CalcFields(DataSet: TDataSet);
> var CurDate, CurDate1 : TDateTime;
> Year, Month, day, Year1, Month1, Day1 : Word;
> Y_A : TDateTime;
> begin
> CurDate := now;
> DecodeDate(CurDate, Year, Month, Day);
> CurDate1 := Query1.FieldByName('D').value; //구입년
> DecodeDate(Curdate1, Year1, Month1, Day1);
>
> Y_A := Year-Year1; // 현재년 - 구입년
>
> if Y_A <= Query1.FieldByName('P1').Asinteger then// 감가년한 이전인 경우계산
> begin
> if Month1 <= 6 then // 6월 이전 구입 경우 계산
> begin
> with Query1 do begin
> FieldByName('Cal').value :=
> FieldByName('P').value *
> (FieldByName('P1').value - Y_A)/
> FieldByName('P1').value;
> end;
> end
> else begin // 7월 이후 구입 경우 계산
> with Query1 do begin
> FieldByName('Cal').value :=
> FieldByName('P').value *
> (FieldByName('P1').value - Y_A + 0.5)/
> FieldByName('P1').value;
> end;
> end;
> end
> else begin
> // 감가상각년한이 지난 경우 0원으로 처리
> Query1.FieldByName('Cal').value := 0;
> end;
> end;
>
> // 삭제버턴 프로시져
> procedure TForm1.Button2Click(Sender: TObject);
> begin
> Query1.delete;
> end;
>
> // 저장버턴 프로서져
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> with Query1 do begin
> ApplyUpdates;
> CommitUpdates;
> Close;
> Open;
> end;
> end;
>
> 길고도 지루한 문장 읽어주셔서 감사드립니다.
> 항상 행복하시고 즐거운 나날 되시길 바랍니다.
>
CurDate1 := Query1.FieldByName('D').value; //구입년
위 부분이 문제가 있을 것 같네요. Value는 Variant로 넘겨주기 때문에 구입년을 입력하지 않으면 NULL이 되어 Datetime 변수에 넣을 수가 없죠.
문제가 발생하지 않도록 하실려면 AsDateTime으로 하시던지....
아예 구입년이 입력되지 않았으면 루틴을 돌지 않고 빠져나가게 하는 게 어떨지...
(NOTICE) You must be logged in to comment on this post.
-
- 최은규
- 2001.05.16 00:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 송해광
- 2001.05.15 23:59
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- •
- 2001.05.15 23:47
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.05.16 04:43안녕하세요. 최용일입니다. 질문이 조금 모호하네요... 그러니까 어떤 일을 수행한뒤에 메인폼을 닫...
-
- 짱아
- 2001.05.16 00:13
- 0 COMMENTS
- /
- 0 LIKES
-
- 허접코딩이
- 2001.05.15 22:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 김아성
- •
- 2001.05.15 22:03
- 3 COMMENTS
- /
- 0 LIKES
-
최재봉•2001.08.08 03:30AAA AAAA 000-000-0000 AAAAAA-AAA AA AAAAAA BBB BBBB 111-111-1111 BBBBBB-BBB BB BBBBBB CC...
-
블랙봉•2001.05.16 04:13김아성 wrote: > 텍스트(txt) 화일을 읽어서 db에 저장할려고 합니다. > 현재 txt 화일에는 > 1|M11060...
-
하기•2001.05.16 01:09아래의 것에 대한 OutPut이라면 반대로 생각하시면 될것같군요... '|'는 필드의 구분이였으니까.... 필드...
-
- 김아성
- •
- 2001.05.15 21:58
- 1 COMMENTS
- /
- 0 LIKES
-
하기•2001.05.16 01:05procedure TForm1.Button1Click(Sender: TObject); var MyFile : TStringList; i, j : intege...
-
- 박회연
- •
- 2001.05.15 21:20
- 1 COMMENTS
- /
- 0 LIKES
-
우리말 사랑•2001.05.15 23:06차라리 Rx라이브러리에 들어 있는 RxDbGrid를 쓰는 것이 좋을 듯 한데. Rx라이브러리는 자료실에 있을 겁...
-
- 최용일
- •
- 2001.05.15 21:17
- 1 COMMENTS
- /
- 0 LIKES
-
완저초보•2001.05.19 03:04최용일 wrote: > 안녕하세요. 최용일입니다. > > 예전에 자유게시판에 쓴글이 있는데 그걸 이용하시면 ...
-
- calvin
- 2001.05.15 20:49
- 0 COMMENTS
- /
- 0 LIKES
-
- hope
- •
- 2001.05.15 20:45
- 1 COMMENTS
- /
- 0 LIKES
-
BLUE•2001.05.16 03:27이런 에러는 Book.exe 파일에서 메모리 참조값에러입니다.. 이런 메모리 참조값 에러는 본인만이 알수가 ...
-
- 졸다졸다
- •
- 2001.05.15 20:43
- 1 COMMENTS
- /
- 0 LIKES
-
하기•2001.05.16 00:41Add('no', ftInteger,0, true); imtable이라는 동적 테이블을 생성했습니다 > edit 박스에서 입력받은 ...
-
- 구름둥둥
- •
- 2001.05.15 20:38
- 3 COMMENTS
- /
- 0 LIKES
-
못난이•2001.05.15 21:20쓸거 많을 텐데? 혹시 Socket 컴포를 쓰셨나요? 서버측에 scktsrvr.exe인가요? 요거를 실행하여 보...
-
구름둥둥•2001.05.15 21:25마자요, 마자요, 못난이 님이 쓰신데로입니다. 근데, Time Out는 0으로 했거덩요. 못난이 wrote: > ...
-
못난이•2001.05.15 23:09흐미.. 그럼 모르겠는디요... 네트웍 문제 아닌감유... 끊어지면.. 다시 연결 하는 수밖에.. 저...
-
- 우리얍
- 2001.05.15 20:36
- 0 COMMENTS
- /
- 0 LIKES
-
- coolling
- •
- 2001.05.15 20:20
- 5 COMMENTS
- /
- 0 LIKES
-
화랑•2001.05.16 02:22coolling wrote: > interbase odbc 드라이버는 어디서 구하나요... > 꼭!! 필요한데요..... > interbas...
-
명탁•2001.05.15 22:29coolling wrote: > interbase odbc 드라이버는 어디서 구하나요... > 꼭!! 필요한데요..... > interbas...
-
coolling•2001.05.16 01:18명탁님 ... 딴가 갈켜주세요.... 30일 후에는 어케되는지도 갈켜주세요...
-
명탁•2001.05.16 04:01coolling wrote: > 명탁님 ... > 딴가 갈켜주세요.... > 30일 후에는 어케되는지도 갈켜주세요... ftp:...
-
명탁•2001.05.16 02:48coolling wrote: > 명탁님 ... > 딴가 갈켜주세요.... > 30일 후에는 어케되는지도 갈켜주세요... http...
-
- 이영범
- 2001.05.15 19:36
- 0 COMMENTS
- /
- 0 LIKES
-
- EzyRyder
- 2001.05.15 19:33
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.05.15 19:26
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.05.15 21:21안녕하세요. 최용일입니다. 첨에 델파이 인스톨할때 썼던 시리얼넘버를 써야 하는데 인스톨할때 썼던거...
-
- 아기코알라
- •
- 2001.05.15 19:24
- 2 COMMENTS
- /
- 0 LIKES
다들 건강 하시죠? 오늘 날씨가 좀 쌀쌀 하네요.. 감기조심하시고.... 정말 이상한 일이 벌어져 고수님들께 도움을 청하옵니다. Database : Paradox7 컴포넌트 : Query, DBGrid, UpdateSQL, DataSource, 등등 CalField가 이상해진 일.... ...-
아기코알라•2001.05.17 02:02아기코알라 wrote: > 다들 건강 하시죠? > 오늘 날씨가 좀 쌀쌀 하네요.. 감기조심하시고.... > > 정...
-
블랙봉•2001.05.15 19:37아기코알라 wrote: > 다들 건강 하시죠? > 오늘 날씨가 좀 쌀쌀 하네요.. 감기조심하시고.... > > 정...
-
- 김진성
- 2001.05.15 18:03
- 0 COMMENTS
- /
- 0 LIKES
> 다들 건강 하시죠?
> 오늘 날씨가 좀 쌀쌀 하네요.. 감기조심하시고....
>
> 정말 이상한 일이 벌어져 고수님들께 도움을 청하옵니다.
>
> Database : Paradox7
> 컴포넌트 : Query, DBGrid, UpdateSQL, DataSource, 등등
>
> CalField가 이상해진 일....
>
> Query를 더블 클릭하면 Fields Edits가 나오지 않습니까?
>
> 그곳에 DBGrid의 필드명과 Cal이라는 필드를 생성시켰죠
> (참고 필드명 : Cal, Type : Currency, Field Type : Calculated)
>
> 그리고 Query의 OnCalcfield에서 감가상각 계산 코딩을 했죠..
>
> 그런데 DBGrid에 출력은 잘 됩니다. 연도나 구입가격, 감가상각년한 등을 변화시키면
> 계산도 그 자리에서 해서 출력해줍니다.
> (참고 : 관리번호, 구입가격,감가상각년한,구입년 그리고 Cal이라는 필드가 있읍니다.)
>
> 1. 이상한 점은 레코드를 추가로 입력할때 "구입년"을 제외한 다른 필드부터 입력을하면
> "Invalid variant type conversion."이라는 에러가 발생합니다.
>
> 2. 그런데 "구입년" 부터 입력하면 추가할 때 아무 문제도 발생 되지 않읍니다.
>
> 3. Query의 Fields Edit에서 Cal이라는 항목을 삭제하면 전혀 문제가 없습니다.
>
> 어제 밤 늦게 까지 고민했지만 제가 찾아낸 것은 고작 위와 같은 현상뿐입니다.
> 아기 코알라에서 어른 코알라가 되도록 고수님의 따뜻한 조언 부탁드립니다.
>
> 참고로 On CalcFields의 코딩 내용 입니다.
>
> // 감가상각 계산 식(정액법)
> procedure TForm1.Query1CalcFields(DataSet: TDataSet);
> var CurDate, CurDate1 : TDateTime;
> Year, Month, day, Year1, Month1, Day1 : Word;
> Y_A : TDateTime;
> begin
> CurDate := now;
> DecodeDate(CurDate, Year, Month, Day);
> CurDate1 := Query1.FieldByName('D').value; //구입년
> DecodeDate(Curdate1, Year1, Month1, Day1);
>
> Y_A := Year-Year1; // 현재년 - 구입년
>
> if Y_A <= Query1.FieldByName('P1').Asinteger then// 감가년한 이전인 경우계산
> begin
> if Month1 <= 6 then // 6월 이전 구입 경우 계산
> begin
> with Query1 do begin
> FieldByName('Cal').value :=
> FieldByName('P').value *
> (FieldByName('P1').value - Y_A)/
> FieldByName('P1').value;
> end;
> end
> else begin // 7월 이후 구입 경우 계산
> with Query1 do begin
> FieldByName('Cal').value :=
> FieldByName('P').value *
> (FieldByName('P1').value - Y_A + 0.5)/
> FieldByName('P1').value;
> end;
> end;
> end
> else begin
> // 감가상각년한이 지난 경우 0원으로 처리
> Query1.FieldByName('Cal').value := 0;
> end;
> end;
>
> // 삭제버턴 프로시져
> procedure TForm1.Button2Click(Sender: TObject);
> begin
> Query1.delete;
> end;
>
> // 저장버턴 프로서져
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> with Query1 do begin
> ApplyUpdates;
> CommitUpdates;
> Close;
> Open;
> end;
> end;
>
> 길고도 지루한 문장 읽어주셔서 감사드립니다.
> 항상 행복하시고 즐거운 나날 되시길 바랍니다.
블랙봉님께서 루틴을 빠져 나와 계산을 하지 않게 하는 방법을 저에게 알려주셨읍니다.
혹 도움이 될까해서 제가 다시 올립니다.
OnCalcField의 맨 위에
if Query1.FieldByName('D').Value = NULL then
Exit;
위와 같이 하게되면 구입년이 입력되지 않으면 Cal에서 계산을 하지 않게 만들어 줍니다.
참 괜찮은 생각이라 듭니다.
제 같은 경우는 구입년, 구입가격, 감가년한 세가지 중 한가지라도 입력되지 않게
되면 계산을 하지 않게 만들었읍니다.
다시 한번더 블랙봉님께 감사드립니다.
항상 행복하시고 즐거운 나날 되시길 바랍니다.
>