Q&A
- 테이블의 특정레코드의 특정필드값이 ... !!!!살려주시소!!!!!
코딩으로 특정 레코드의 필드값을 조건문에서 사용하려고 합니다.
먼저 버튼이 눌리면 테이블1의 5번레코드를 찾아서 그 레코드의 'date'
이라는 필드 값이 아래와 같으면 이미지를 출력하려고 합니다.
그런데 아무리 테이블의 레코드를 이동시켜도 않됩니다.
즉 조건문에서 특정레코드의 특정필드값이 ...한다면
이라는 것을 해야 하는데 죽어도 않됩니다.
고수님들 도와주세요...
procedure TForm1.FormCreate(Sender: TObject);
begin
ImageA := TBitmap.Create;
ImageA.LoadFromFile('c:A.bmp');
end;
procedure TForm3.SpeedButton1Click(Sender: TObject);
begin
Table1.open;
Table1.setkey;
Table1.Fields[0].Asstring:='5';
if table1.FieldByname('date').Asdatetime < now then begin
image1.Picture.Assign(ImageA);
end;
먼저 버튼이 눌리면 테이블1의 5번레코드를 찾아서 그 레코드의 'date'
이라는 필드 값이 아래와 같으면 이미지를 출력하려고 합니다.
그런데 아무리 테이블의 레코드를 이동시켜도 않됩니다.
즉 조건문에서 특정레코드의 특정필드값이 ...한다면
이라는 것을 해야 하는데 죽어도 않됩니다.
고수님들 도와주세요...
procedure TForm1.FormCreate(Sender: TObject);
begin
ImageA := TBitmap.Create;
ImageA.LoadFromFile('c:A.bmp');
end;
procedure TForm3.SpeedButton1Click(Sender: TObject);
begin
Table1.open;
Table1.setkey;
Table1.Fields[0].Asstring:='5';
if table1.FieldByname('date').Asdatetime < now then begin
image1.Picture.Assign(ImageA);
end;
4
COMMENTS
-
-
///////////////////////////////
procedure TForm3.SpeedButton1Click(Sender: TObject);
begin
Table1.Open;
Table1.RecNo := 5
if Table1.FieldByname('date').Asdatetime < now then
image1.Picture.Assign(ImageA);
Table1.Close;
end;
-
제가 회원번호를 Alpha로 해서 그런지
디비의 레코드가
레코드/회원번호
1 1
2 11
3 12
4 2
5 3
6 4
...
이런식으로 정렬이 되는 군요.
회원번호를 순서대로 정렬할 수 없나요?
-
//////////////////////////////////////////////////////////////
Table에 (회원번호에 Secondary Indexes 또는 유일한키 또는) 설정하고요.
Table1.IndexFieldNames:='회원번호'; // 인덱스를 잡아주세요.
it Table1.FindKey([회원번호]) then 정말로 잘된니다.
// 아니면 표준 SQL문을 사용하세요. VCL는 TQuery or ([TStoredProc] RDBMS 일때 사용가능)
(NOTICE) You must be logged in to comment on this post.
-
-
사발우성•2000.04.27 00:58이기현 wrote: > /////////////////////////////// > procedure TForm1.SetCursorBtnClick(Sender: TObje...
-
사발우성•2000.04.27 00:22이기현 wrote: > /////////////////////////////// > procedure TForm1.SetCursorBtnClick(Sender: TObje...
-
이기현•2000.04.27 00:31// Crrsor:=10; 에서 에러가 나걸랑요 // 철자가 틀린가 같은데요. 저는 아무이상 없었요. // 또는 Missi...
-
사발우성•2000.04.27 00:13이기현 wrote: > /////////////////////////////// > procedure TForm1.SetCursorBtnClick(Sender: TObje...
-
-
-
어린왕자•2000.04.27 04:37xref wrote: > 델파이에 입문한지 얼마 되지 않습니다. 다름이 아니라 DB프로그램을 짰는데 > 컴파일후 ...
-
-
-
이기현•2000.04.27 01:55////////////////////// 애니메이션 동우회 에서 물어 보세요. 사용하는 도구들을 많이 알려주것으로 보...
-
-
- starship
- 2000.04.26 22:46
- 0 COMMENTS
- /
- 0 LIKES
-
- 정수현
- 2000.04.26 22:46
- 0 COMMENTS
- /
- 0 LIKES
-
- 선희
- •
- 2000.04.26 22:43
- 5 COMMENTS
- /
- 0 LIKES
-
고종일•2000.04.27 02:48//프로시져입니다. procedure ComponentAlign(var myForm: TForm); var i : Integer; begin with myF...
-
선희•2000.04.27 03:51제 질문에 답변해주시고 이 문제를 함께 고민해 주시는 모든 분들께 감사드립니다... 저도 질문을 올려...
-
최용일•2000.04.27 04:17안녕하세요. 최용일입니다. TControl의 Font속성은 Protected모드로 접근이 불가능하지만 다음과 같은 ...
-
선희•2000.04.27 19:05안녕하세요, 선희입니다... 여러분의 도움으로 어제 올린 질문에 대한 해답을 모두 찾았습니다... 제...
-
하얀노래•2000.04.26 23:20안녕하세요 저도 예전에 프로젝트 진행중에 그런일이 있었거든요.. 1024로 백개가 넘는 모듈을 만들었...
-
- 델초보
- 2000.04.26 21:57
- 0 COMMENTS
- /
- 0 LIKES
-
- 황남철
- 2000.04.26 21:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 성 일호
- •
- 2000.04.26 20:24
- 2 COMMENTS
- /
- 0 LIKES
-
killer•2000.04.26 22:02성 일호 wrote: > NT server 4 에서 delphi 5 를 실행하면 component 가 딱 한개만 나타납니다. > Admini...
-
성 일호•2000.04.26 23:31권한설정에는 문제가 없습니다. 왜냐하면 처음에는 *.bpl 파일 접근권한에 문제가 있는줄 알고 권한을 바...
-
- 윤찬석
- •
- 2000.04.26 20:02
- 4 COMMENTS
- /
- 0 LIKES
-
이기현•2000.04.28 00:48///////////////////////////////////////// // 디렉토리 내의 File검색 procedure TForm1.Button2Click(...
-
김태형•2000.04.26 22:04> > 질문) > 현재 paradox형태의 db화일을 열고 > 그 db 화일내에서 sql의 WHERE를 이용해 > 이름을 검...
-
윤찬석•2000.04.28 02:46답변 감사합니다. 다름이 아니라 GetTableNames Help를 보니,, 이게 제가 원하는건지 확실히 모르겠어서 ...
-
잠꾼•2000.06.17 07:26호. 문제 답이 다 나온거 같은 데엽.. 쩝.. 밑에 TableList.Items[..] 를 Sqldp Db 이름 으로 사용 해서 ...
-
- 윤영균
- •
- 2000.04.26 19:53
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2000.04.27 04:23안녕하세요. 최용일입니다. 3.0이하는 한번도 안써봐서... 만약에 IMM유닛이 2.0에 있다면 아래의 방법...
-
parkisu•2000.04.26 20:16윤영균 wrote: > >안녕하십니까 > > 한/영키 자동변환에 관한 TIP을 보면 각 COMPONENT에 IMEMODE가 있...
-
- 이상학
- •
- 2000.04.26 19:17
- 1 COMMENTS
- /
- 0 LIKES
-
강인규•2000.04.26 20:00인스톨하는 경로에 data란 하위폴더 라면..... data 경로를 이렇게 써주시면 됩니다. 인스톨 위치에 ...
-
- 이인숙
- 2000.04.26 19:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 이수정
- •
- 2000.04.26 15:48
- 2 COMMENTS
- /
- 0 LIKES
-
HART•2000.04.26 18:53아래 검색을 location 이란는 문장으로 하지 말고. Sql 문장에서 검색하면 아래와 같은 문제를 없을 것 ...
-
nilriri•2000.04.26 19:11뭔가 이상한것이... 아래와 같은 기능을 하는데 왜 table1과 datasource1이 등장을 하는지요??? 이렇...
-
- techie
- 2000.04.26 14:56
- 0 COMMENTS
- /
- 0 LIKES
-
- mad
- •
- 2000.04.26 12:55
- 3 COMMENTS
- /
- 0 LIKES
-
김일영•2000.04.26 13:12mad님 좀 실망인데요. mad님을 도와주시는 분들이 여러 분 계신데 결과가 좋으면 아무런 말씀도 더 이상 ...
-
mad•2000.04.26 23:59죄송합니다. 많은 분들이 답변을 해 주셨는데... 아무말도 않고 제가 나쁜 놈이죠.. 제가 질문을 해놓고 ...
-
장지용•2000.04.29 00:52동문서답하는건지 모르겠습니다만... 앞에 "0" 을 붙이면서 증가하시면 어떨까요??? function TForm.Ge...
-
- mad
- •
- 2000.04.26 11:10
- 3 COMMENTS
- /
- 0 LIKES
-
김일영•2000.04.26 12:28가장 바람직한 방법은 DB에 Unique Constraint를 부여하는 것인데 어떤 DB를 어떻게 연결해서 쓰고 계신지...
-
강인규•2000.04.26 11:40여러가지 방법이 있겠지만 이런 방법도 하나의 예가 될 수 있겠네요. 신규입력 후 확인시에 검사만 한다...
-
이기현•2000.04.26 11:36//////////////////////////////////////////////////////// procedure TSearchDlg.SearchButtonClick(Sen...
-
- mad
- •
- 2000.04.26 11:05
- 1 COMMENTS
- /
- 0 LIKES
-
이기현•2000.04.26 11:18////////////////////////////// procedure TForm1.Button1Click(Sender: TObject); begin Table1.Emp...
-
- mad
- •
- 2000.04.26 10:49
- 4 COMMENTS
- /
- 0 LIKES
코딩으로 특정 레코드의 필드값을 조건문에서 사용하려고 합니다. 먼저 버튼이 눌리면 테이블1의 5번레코드를 찾아서 그 레코드의 'date' 이라는 필드 값이 아래와 같으면 이미지를 출력하려고 합니다. 그런데 아무리 테이블의 레코드를 ...-
이기현•2000.04.26 11:46procedure TForm3.SpeedButton1Click(Sender: TObject); var LicenseNo: LongInt; begin Table1.Op...
-
이기현•2000.04.26 11:13/////////////////////////////// procedure TForm3.SpeedButton1Click(Sender: TObject); begin Tabl...
-
mad•2000.04.26 11:28제가 회원번호를 Alpha로 해서 그런지 디비의 레코드가 레코드/회원번호 1 1 2 11 3 ...
-
이기현•2000.04.27 00:58////////////////////////////////////////////////////////////// Table에 (회원번호에 Secondary Indexe...
-
- 지니
- 2000.04.26 11:02
- 0 COMMENTS
- /
- 0 LIKES
var
LicenseNo: LongInt;
begin
Table1.Open;
Table1.IndexFieldNames:='LicenseNo'; // 인덱스를 잡아주세요.
LicenseNo := 5;
it Table1.FindKey([LicenseNo]) then
// or Table.Dataset.Locate(); 문을 사용하세요.
begin
if table1.FieldByname('date').Asdatetime < now then
image1.Picture.Assign(ImageA);
end;
Table1.Close;
end;