Q&A
- 디비그리드에서 값구하기
디비그리드에서 인덱스에서 엔트치면 하나씩 넘어가서 수량에서 엔트치면
단가 * 수량값이 금액에 나오는 코딩인데 마지막인덱스 날짜에서 엔트치면
금액인덱스값이 다 더해져서 에디트박스에 나오게 하는거
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
var
gum, sum_jiguk,gum1 : integer;
sum_mijiguk : double;
begin
sum_jiguk := 0;
sum_mijiguk := 0;
gum1 := 0;
if key = #13 then
begin
with query1 do
begin
case dbgrid1.SelectedIndex of
0,1,2,3:
begin
dbgrid1.selectedindex := dbgrid1.selectedindex + 1;
end;
4:
begin
edit;
gum:=fieldbyname('danga').asinteger * fieldbyname('suryng').asinteger;
fieldbyname('gumaek').asinteger := gum;
post;
dbgrid1.selectedindex := dbgrid1.selectedindex + 1;
end;
5:
begin;
edit;
sum_mijiguk:=fieldbyname('gumaek').asinteger - fieldbyname('jiguk').asinteger;
fieldbyname('mijiguk').asfloat := sum_mijiguk;
post;
dbgrid1.selectedindex := dbgrid1.selectedindex + 1;
end;
6:
begin
dbgrid1.selectedindex := dbgrid1.selectedindex + 1;
end;
7:
begin
dbgrid1.selectedindex := dbgrid1.selectedindex + 1;
end;
8:
begin
dbgrid1.selectedindex := dbgrid1.selectedindex + 1;
next;
dbgrid1.selectedindex :=0;
end;
end;
end;
end;
단가 * 수량값이 금액에 나오는 코딩인데 마지막인덱스 날짜에서 엔트치면
금액인덱스값이 다 더해져서 에디트박스에 나오게 하는거
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
var
gum, sum_jiguk,gum1 : integer;
sum_mijiguk : double;
begin
sum_jiguk := 0;
sum_mijiguk := 0;
gum1 := 0;
if key = #13 then
begin
with query1 do
begin
case dbgrid1.SelectedIndex of
0,1,2,3:
begin
dbgrid1.selectedindex := dbgrid1.selectedindex + 1;
end;
4:
begin
edit;
gum:=fieldbyname('danga').asinteger * fieldbyname('suryng').asinteger;
fieldbyname('gumaek').asinteger := gum;
post;
dbgrid1.selectedindex := dbgrid1.selectedindex + 1;
end;
5:
begin;
edit;
sum_mijiguk:=fieldbyname('gumaek').asinteger - fieldbyname('jiguk').asinteger;
fieldbyname('mijiguk').asfloat := sum_mijiguk;
post;
dbgrid1.selectedindex := dbgrid1.selectedindex + 1;
end;
6:
begin
dbgrid1.selectedindex := dbgrid1.selectedindex + 1;
end;
7:
begin
dbgrid1.selectedindex := dbgrid1.selectedindex + 1;
end;
8:
begin
dbgrid1.selectedindex := dbgrid1.selectedindex + 1;
next;
dbgrid1.selectedindex :=0;
end;
end;
end;
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 델초보
- •
- 2001.07.13 08:33
- 1 COMMENTS
- /
- 0 LIKES
-
쩌비•2001.07.13 10:08델초보 wrote: > > 안녕 ^ ^ 델초보 입니다. > 서로 다른 두개의 파일을 한 파일로 연결 하고 싶은데...
-
- 이희정
- 2001.07.13 07:50
- 0 COMMENTS
- /
- 0 LIKES
-
- 임성욱
- 2001.07.13 06:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 거북이
- 2001.07.13 06:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 나그네.
- •
- 2001.07.13 06:04
- 2 COMMENTS
- /
- 0 LIKES
-
어린왕자•2001.07.14 00:39컴포넌트의 카운트를 세신다구여.. 누가 가지구 있는 컴포넌트 인가여? Parent가 어떻게 되는지.. 확인 ...
-
참이슬•2001.07.13 18:26폼이 없는데 어떻게 ComponentCount를 사용한다는 것이죠 ?? 나그네. wrote: > 폼이 없는 .pas에서...
-
- 우적우적
- •
- 2001.07.13 04:58
- 2 COMMENTS
- /
- 0 LIKES
-
무적이나•2001.07.13 22:39이건 위치를 저장하는 거구여 DBGrid1.Columns.SaveToFile(저장할 파일명 as String); 이건 위치를 불...
-
하기•2001.07.13 20:33일단은 사용자 편의에 따라 이동시킨 위치를 저장하셔야 겠죠. 그런다음 Grid를 보여줄때...저장된 위치를...
-
- 델촙보
- 2001.07.13 04:03
- 0 COMMENTS
- /
- 0 LIKES
-
- 정보처리기사 수험생
- •
- 2001.07.13 03:53
- 4 COMMENTS
- /
- 0 LIKES
-
어린왕자•2001.07.14 00:41전 합격했는뎅(__); 파라독스 DB를 TQuery로 읽어서 퀵리포트로 출력했는데.. 아무래두 혹시나 모르...
-
정보처리기사 수험생•2001.07.16 08:2121일날 셤 보는데 답글 주셔서 감사합니다. 전 배열보다 DB가 훨 쉬운거 같아서 DB 이용할려고 했었거든여...
-
나그네•2001.07.13 05:18일반적으로 기사 시험에서 요구하는 수준은 DB연결을 통하지 않습니다. 대부분 TStringGrid나 TEdit TPa...
-
정보처리기사 수험생•2001.07.16 08:14답글 주셔서 감사합니다. 21일날 셤 보는데여... 꼭 합격의 소식 전할께요..!
-
- 이제시작...
- •
- 2001.07.13 03:07
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•2001.07.13 03:09안녕하세요~ 구창민입니다. 아래처럼 해보세요. uses ShellApi; ShellExecute(handle, 'open', 'i...
-
- 델파이쵸
- •
- 2001.07.13 03:05
- 2 COMMENTS
- /
- 0 LIKES
-
드리머•2001.07.13 10:04먼저 procdure를 선언부에 선언을 해야 합니다. private procedure aa(ds : Tdatasource); end; ...
-
델파이쵸•2001.07.13 19:22님의 답변 감사드립니다. 도움이 많이되었고 또 알게되어서 정말 기쁩니다. 감사합니다... 드리머 wro...
-
- FreeYoung
- 2001.07.13 02:23
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보초보초보
- •
- 2001.07.13 02:13
- 2 COMMENTS
- /
- 0 LIKES
-
어린왕자•2001.07.14 00:45이렇게 해서는 전혀 알수가 없구요.. 에러가 발생할꺼 같은 부분을 찾아야 해여..(__);; 암튼 사소한거에...
-
성더기•2001.07.13 02:37초보초보초보 wrote: > delphi4.0을 사용하고 있습니다... > 개발중이거나 실행화일을 만들어 실행시키거...
-
- 델파이 왕초보
- •
- 2001.07.13 01:50
- 1 COMMENTS
- /
- 0 LIKES
디비그리드에서 인덱스에서 엔트치면 하나씩 넘어가서 수량에서 엔트치면 단가 * 수량값이 금액에 나오는 코딩인데 마지막인덱스 날짜에서 엔트치면 금액인덱스값이 다 더해져서 에디트박스에 나오게 하는거 procedure TForm1.DBGrid1KeyP...-
어린왕자•2001.07.14 00:47델파이 왕초보 wrote: > 디비그리드에서 인덱스에서 엔트치면 하나씩 넘어가서 수량에서 엔트치면 > 단가...
-
- B@Gul
- 2001.07.13 01:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보맨
- 2001.07.13 00:56
- 0 COMMENTS
- /
- 0 LIKES
-
- 이현주
- •
- 2001.07.13 00:52
- 2 COMMENTS
- /
- 0 LIKES
-
어린왕자•2001.07.14 00:49이현주 wrote: > MDB와 델파이를 연결하는데 BDE하고 ODBC연결말고 또 없나여.. > > MDB파일에 50개정...
-
방문현•2001.07.13 01:12이현주 wrote: > MDB와 델파이를 연결하는데 BDE하고 ODBC연결말고 또 없나여.. > > MDB파일에 50개정...
-
- 델초보
- 2001.07.13 00:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 고요한 사람
- •
- 2001.07.13 00:08
- 2 COMMENTS
- /
- 0 LIKES
-
어린왕자•2001.07.14 00:52컨트롤만 되지 않을까여? TControl.name 고요한 사람 wrote: > 예를 들어.. > > edit 박스 이름을 ...
-
^^•2001.07.13 00:19고요한 사람 wrote: > 예를 들어.. > > edit 박스 이름을 => Ed_Save을 스틀링 'Ed_Save'로 바꾸고...
-
- 김명찬
- •
- 2001.07.12 23:50
- 2 COMMENTS
- /
- 0 LIKES
-
어린왕자•2001.07.14 00:56물론 트리뷰가 생길때 노드마다 포인터를 만들어주고 트리뷰가 죽을때는 그 포인터를 삭제 해줘야겠쪄.. ...
-
어린왕자•2001.07.14 00:55네 당근 할수 있죠.. TreeNode.data라는 속성이 있는데.. 포인터를 기억하죠. 여기에 참조하는 변수의...
-
- 이호림
- •
- 2001.07.12 22:29
- 1 COMMENTS
- /
- 0 LIKES
-
하기•2001.07.12 22:58우선은 특정문자를 찾으셔야 겠지요.. 특정 문자열 찾는 방법은 .. 글쎄요... 아마 이게시판에도 있지 않...
> 디비그리드에서 인덱스에서 엔트치면 하나씩 넘어가서 수량에서 엔트치면
> 단가 * 수량값이 금액에 나오는 코딩인데 마지막인덱스 날짜에서 엔트치면
> 금액인덱스값이 다 더해져서 에디트박스에 나오게 하는거
>
> procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
> var
> gum, sum_jiguk,gum1 : integer;
> sum_mijiguk : double;
>
>
> begin
> sum_jiguk := 0;
> sum_mijiguk := 0;
> gum1 := 0;
> if key = #13 then
> begin
> with query1 do
> begin
> case dbgrid1.SelectedIndex of
>
> 0,1,2,3:
> begin
> dbgrid1.selectedindex := dbgrid1.selectedindex + 1;
> end;
> 4:
> begin
> edit;
> gum:=fieldbyname('danga').asinteger * fieldbyname('suryng').asinteger;
> fieldbyname('gumaek').asinteger := gum;
> post;
> dbgrid1.selectedindex := dbgrid1.selectedindex + 1;
> end;
> 5:
> begin;
> edit;
> sum_mijiguk:=fieldbyname('gumaek').asinteger - fieldbyname('jiguk').asinteger;
> fieldbyname('mijiguk').asfloat := sum_mijiguk;
> post;
> dbgrid1.selectedindex := dbgrid1.selectedindex + 1;
> end;
> 6:
> begin
> dbgrid1.selectedindex := dbgrid1.selectedindex + 1;
> end;
> 7:
> begin
> dbgrid1.selectedindex := dbgrid1.selectedindex + 1;
> end;
> 8:
> begin
> dbgrid1.selectedindex := dbgrid1.selectedindex + 1;
> next;
> dbgrid1.selectedindex :=0;
> end;
> end;
> end;
> end;
>