Q&A
- 에러처리 방법좀 알려주세요
QUERY한 자료의 합을 레코드의 이동 없이 구하려고합니다.
그런데 bm := Table1.GetBookmark; 이부분이 에러가 납니다.
고수님 부탁드립니다. 한번 봐주셨으면 합니다.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, StdCtrls, Grids, DBGrids;
type
TForm1 = class(TForm)
Edit1: TEdit;
Table1: TTable;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
var ar : real;
bm : TBookmark;
begin
ar := 0;
bm := Table1.GetBookmark;
Table1.DisableControls;
Table1.First;
While not Table1.EOF do
begin
ar := ar+Table1.FieldByName('AREA').asFloat;
Table1.Next;
end;
Edit1.Text := FloatToStr(ar);
Table1.EnableControls;
Table1.GotoBookmark(bm);
Table1.FreeBookmark(bm);
end.
그런데 bm := Table1.GetBookmark; 이부분이 에러가 납니다.
고수님 부탁드립니다. 한번 봐주셨으면 합니다.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, StdCtrls, Grids, DBGrids;
type
TForm1 = class(TForm)
Edit1: TEdit;
Table1: TTable;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
var ar : real;
bm : TBookmark;
begin
ar := 0;
bm := Table1.GetBookmark;
Table1.DisableControls;
Table1.First;
While not Table1.EOF do
begin
ar := ar+Table1.FieldByName('AREA').asFloat;
Table1.Next;
end;
Edit1.Text := FloatToStr(ar);
Table1.EnableControls;
Table1.GotoBookmark(bm);
Table1.FreeBookmark(bm);
end.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 양푼이
- •
- 2001.04.27 19:34
- 2 COMMENTS
- /
- 0 LIKES
-
어린왕자•2001.04.28 02:25안녕하세요..초보인데요.. 스크립트 안되여? 되면..좋을텐데.. 양푼이 wrote: > 웹브라우저를 간단하게... -
감초•2001.04.28 20:50스크립으로 됩니다. 어디서 배껴온 것입니다. 요즘 와레즈 사이트에서 유행하는 쏘쓰-ㄴ데여 오른쪽 ...
-
- star91
- 2001.04.27 19:22
- 0 COMMENTS
- /
- 0 LIKES
-
-
연두애비•2001.04.28 00:365.4 에 대한 반올림 : trunc(5.4 + 0.5) => 5 5.4 에 대한 올림 : trunc(5.4 + 0.9) => 6 이렇게...
-
김하늘•2001.04.27 19:49올림 처리 하셔야 할듯 int(5.444) 하면 5 flac(5.444) 0.444 이 두개의 펑션을 이용해보심이 델파이에...
-
-
- 이주선
- 2001.04.27 19:17
- 0 COMMENTS
- /
- 0 LIKES
-
- 박재만
- 2001.04.27 19:15
- 0 COMMENTS
- /
- 0 LIKES
-
- 짱아
- •
- 2001.04.27 19:12
- 1 COMMENTS
- /
- 0 LIKES
-
이희정•2001.04.27 23:05짱아 wrote: > 출력물을 만들려고 하는데요.. 퀵레포트에서 DB랑 연결시켜 해당 데이타를 불러오는데요 >...
-
- 김윤곤
- 2001.04.27 18:14
- 0 COMMENTS
- /
- 0 LIKES
-
- 우리들
- •
- 2001.04.27 11:56
- 1 COMMENTS
- /
- 0 LIKES
-
바보감자•2001.04.27 22:35우리들 wrote: > 저는 클라이언트서버프로그램을 개발하고있는 중입니다 > ADO를 이용하구요....DB는 SQL...
-
- 김광수
- 2001.04.27 10:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- 2001.04.27 10:15
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- 2001.04.27 10:01
- 0 COMMENTS
- /
- 0 LIKES
-
- 발이
- 2001.04.27 07:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보
- •
- 2001.04.27 07:29
- 2 COMMENTS
- /
- 0 LIKES
-
최혜룡•2001.04.27 10:42업무자체는 그리 복잡하지 않을것 같군요 Slot Reader를 통해 카드번호를 취득하고 하는것은 일반적인 R...
-
델초보•2001.04.28 05:47안녕하십니까 메일을 보냈는데 답장이 없내요.. 제발 전화라도 감사하겠습니다.. 최혜룡 wrote: > 업...
-
- 초보
- 2001.04.27 07:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 김아성
- •
- 2001.04.27 06:51
- 1 COMMENTS
- /
- 0 LIKES
QUERY한 자료의 합을 레코드의 이동 없이 구하려고합니다. 그런데 bm := Table1.GetBookmark; 이부분이 에러가 납니다. 고수님 부탁드립니다. 한번 봐주셨으면 합니다. unit Unit1; interface uses Windows, Messages, SysUtils, Classes,...-
김아성•2001.04.27 14:26고맙습니다. 버튼을 이용한 procedure 를 사용하니까 되네요 ^^ 감사감사~~ 아 그런데 procedure나 func...
-
- 김아성
- 2001.04.27 06:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 윤순상
- •
- 2001.04.27 05:56
- 1 COMMENTS
- /
- 0 LIKES
-
명탁•2001.04.27 08:14case combobox1.itemindex of 0 : begin // combobox1.itemindex = 0 은 aaa 임다. ..... ...
-
- 초보
- 2001.04.27 05:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 양푼이
- 2001.04.27 05:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 찬이
- 2001.04.27 05:42
- 0 COMMENTS
- /
- 0 LIKES
^^ 감사감사~~
아 그런데 procedure나 function를 사용하지 않코는 실행이 되지 않나요?
그리고 이 아래부분들이 잘이해가 가지 않습니다.
설명해 주시면 감사하겠습니다.(각각 주석을 달아주시면 더욱 고맙겠습니다.)
특히, 북마크라는게 이해가 잘 가지 않아서요.
어떤것을(필드나...) 북마크한다는 것인지를....??????
bm : TBookmark;
bm := Table1.GetBookmark;
Table1.DisableControls;
Table1.EnableControls;
Table1.GotoBookmark(bm);
Table1.FreeBookmark(bm);
최혜룡 wrote:
> 잘되는데...혹, procedure나 funtion을 만들지 않고???
> procedure TForm1.Button1Click(Sender: TObject);
> var
> ar : real;
> bm : TBookmark;
> begin
> ar := 0;
> bm := Table1.GetBookmark;
> Table1.DisableControls;
> Table1.First;
> While not Table1.EOF do
> begin
> ar := ar+Table1.FieldByName('Size').asFloat;
> Table1.Next;
> end;
> Edit1.Text := FloatToStr(ar);
> Table1.EnableControls;
> Table1.GotoBookmark(bm);
> Table1.FreeBookmark(bm);
> end;
>
>
>
>
> 김아성 wrote:
> > QUERY한 자료의 합을 레코드의 이동 없이 구하려고합니다.
> > 그런데 bm := Table1.GetBookmark; 이부분이 에러가 납니다.
> > 고수님 부탁드립니다. 한번 봐주셨으면 합니다.
> >
> >
> > unit Unit1;
> >
> > interface
> >
> > uses
> > Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> > Db, DBTables, StdCtrls, Grids, DBGrids;
> >
> > type
> > TForm1 = class(TForm)
> > Edit1: TEdit;
> > Table1: TTable;
> > DataSource1: TDataSource;
> > DBGrid1: TDBGrid;
> > private
> > { Private declarations }
> > public
> > { Public declarations }
> > end;
> >
> > var
> > Form1: TForm1;
> >
> > implementation
> >
> >
> > {$R *.DFM}
> > var ar : real;
> > bm : TBookmark;
> >
> > begin
> > ar := 0;
> > bm := Table1.GetBookmark;
> > Table1.DisableControls;
> > Table1.First;
> > While not Table1.EOF do
> > begin
> > ar := ar+Table1.FieldByName('AREA').asFloat;
> > Table1.Next;
> > end;
> > Edit1.Text := FloatToStr(ar);
> > Table1.EnableControls;
> > Table1.GotoBookmark(bm);
> > Table1.FreeBookmark(bm);
> > end.