Q&A
- Table 검색시...(뭐가 잘못 됐는지 갈켜 주세요...)
procedure TFRCustomer.EdSearchKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
if DRGroup.ItemIndex = 0 then
TBCustomer.IndexFieldNames := 'FDSNAME'
else
if DRGroup.ItemIndex = 1 then
TBCustomer.IndexFieldNames := 'FDSTEL'
else
if not TBCustomer.FindKey([EdSearch.text]) then
begin
if Application.MessageBox('입력하시겠습니까?','물음메세지',
MB_YESNO + MB_ICONINFORMATION) = IDYES then
begin
TBCustomer.Append;
TBCustomer.FieldByName('FDSTEL').AsString := EdSearch.Text;
TBCustomer.Post;
end;
end;
end;
end;
여기서 DRGroup은 RadioGroup이구요...
TBCustomer는 table명이구요...
EdSearch는 edit명입니다...
뭐가 문제인가 하면...
이름으로 검색하면 엉뚱한 것을 검색하고...
전화번호로 검색해도 엉뚱한 것이 검색이 됩니다..
그리구... 만약에 '017-222-3333/a'(a는 고유코드입니다.)
이렇게 '/'뒤에걸 검색할려면 어떻게 하죠...
부탁드립니다...
begin
if Key = #13 then
begin
if DRGroup.ItemIndex = 0 then
TBCustomer.IndexFieldNames := 'FDSNAME'
else
if DRGroup.ItemIndex = 1 then
TBCustomer.IndexFieldNames := 'FDSTEL'
else
if not TBCustomer.FindKey([EdSearch.text]) then
begin
if Application.MessageBox('입력하시겠습니까?','물음메세지',
MB_YESNO + MB_ICONINFORMATION) = IDYES then
begin
TBCustomer.Append;
TBCustomer.FieldByName('FDSTEL').AsString := EdSearch.Text;
TBCustomer.Post;
end;
end;
end;
end;
여기서 DRGroup은 RadioGroup이구요...
TBCustomer는 table명이구요...
EdSearch는 edit명입니다...
뭐가 문제인가 하면...
이름으로 검색하면 엉뚱한 것을 검색하고...
전화번호로 검색해도 엉뚱한 것이 검색이 됩니다..
그리구... 만약에 '017-222-3333/a'(a는 고유코드입니다.)
이렇게 '/'뒤에걸 검색할려면 어떻게 하죠...
부탁드립니다...
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 델초보자
- •
- 2000.01.14 17:32
- 1 COMMENTS
- /
- 0 LIKES
-
김태균•2000.01.14 19:29이 경우에는 writeln보다 TPrinter를 이용해서 출력하는게 좋을 것 같습니다. 그럼 별 어려움 없이 해결 ...
-
- 맨발의 청춘
- 2000.01.14 11:48
- 0 COMMENTS
- /
- 0 LIKES
-
- 맨발의 청춘
- 2000.01.14 11:44
- 0 COMMENTS
- /
- 0 LIKES
-
- 손인호
- •
- 2000.01.14 09:09
- 1 COMMENTS
- /
- 0 LIKES
-
정계훈•2000.01.14 20:11안녕하세요. 손민호님. 답변이 아니라서 죄송합니다. 제가 궁금한 것은 왜 스트링그리드를 사용하는가 입...
-
- 델왕초보
- •
- •
- 2000.01.14 05:47
- 1 COMMENTS
- /
- 1 LIKES
procedure TFRCustomer.EdSearchKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin if DRGroup.ItemIndex = 0 then TBCustomer.IndexFieldNames := 'FDSNAME' else if DRGroup.ItemIndex = 1 then TBCustomer.Ind...-
정계훈•2000.01.14 20:39안녕하세요. 테이블 검색은 주로 TTable.SetRangeStart 를 사용하던데요. 도움말을 보시면 예제까지 있...
-
- 초보
- •
- 2000.01.14 04:23
- 1 COMMENTS
- /
- 0 LIKES
-
윈디•2000.01.14 18:06초보 wrote: > 예를 들어서 날짜를 입력받는다고 할 때에 > year,date 에디트가 있다고 하면요 > year에...
-
- 여용구
- •
- 2000.01.14 04:20
- 1 COMMENTS
- /
- 0 LIKES
-
김주석•2000.01.15 00:37여용구 wrote: > 다음 소스를 보시고 del 대가님들의 분석 부탁드립니다. 무엇이 잘못되엇는지.. > 대강...
-
- 김동식
- 2000.01.14 04:15
- 0 COMMENTS
- /
- 0 LIKES
-
- 유도삼
- 2000.01.14 04:12
- 0 COMMENTS
- /
- 0 LIKES
-
- 송기원
- 2000.01.14 04:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 조영욱
- •
- 2000.01.14 03:29
- 2 COMMENTS
- /
- 0 LIKES
-
유도삼•2000.01.14 04:02조영욱 wrote: > 제가 만든 작은 프로그램에서는 맨 처음 시작할 때, splash form이 뜨고, 그 다음 Datamo...
-
GOLD2000•2000.03.11 04:09답변:어떤폼을 시작하기 전에 다른폼을 띄울때는 on create event에서 다른 폼을 띄우면 됩니다. 유도삼...
-
- 김천기
- •
- 2000.01.14 03:16
- 2 COMMENTS
- /
- 0 LIKES
-
양병호•2000.01.19 02:06안녕하세요 저도 지금 델파이 4.0을 이용하여 FTP화일 전송프로그램을 한번 작성해볼까해서 만들고 있는 중...
-
김주석•2000.01.14 22:35김천기 wrote: > [질문1] > 저는 Delphi4.0 의 NMFTP 를 이용하여 FTP화일전송 프로그램을 작성중입니다...
-
-
- 호
- •
- 2000.01.14 01:03
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•2000.01.14 01:42호 wrote: > MDI메인폼에서 여러개의 Child화면이 뜬 상태에서 현재 Active되어 있는 > 화면의 앞화면 또...
-
- 한익섭
- •
- 2000.01.14 00:53
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•2000.01.14 01:39한익섭 wrote: > 도움을 구합니다. > 시리얼 통신을 이용하여 hex코드 전송하고, 받아 처리해야 하는데.....
-
- 이수
- •
- 2000.01.14 00:50
- 2 COMMENTS
- /
- 0 LIKES
-
구창민•2000.01.14 01:24이수 wrote: > 제가 알고 있는 거는 > Canvas.MoveTo(100,100) > Canvas.LineTo(500,500) 이렇게 밖에 ...
-
이수•2000.01.14 16:54창민님 감사합니다. 말씀하신 대로 해보았더니 되는군요.(기뻐라) API 함수가 바뀐것인가요? 제가 지...
-
- 박종성
- •
- 2000.01.14 00:36
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•2000.01.14 02:26박종성 wrote: > 안녕하세요! > > 시스템의 날짜를 바꾸려면 어떻게 해야지요? > > 아시는 분 꼭 알...
-
- 조창범
- 2000.01.14 00:35
- 0 COMMENTS
- /
- 0 LIKES
-
- 오영
- •
- 2000.01.14 00:20
- 1 COMMENTS
- /
- 0 LIKES
-
노광주•2000.01.14 02:21오영 wrote: > 안녕하세요. > > DBGrid1KeyDown(Sender: TObject; var Key: Word; > Shift: TShiftS...
-
- 권정원
- 2000.01.14 00:12
- 0 COMMENTS
- /
- 0 LIKES
테이블 검색은 주로 TTable.SetRangeStart 를 사용하던데요. 도움말을 보시면
예제까지 있습니다.
그리고 저도 여기서 누군가에게 도움 받았던 질문이었죠.
Var
p : integer; s : string;
begin
S :='017-222-3333/a';
P := POS('/', S);
if P <> 0 then
begin
Edit1.Text := Copy(s, 1, p+1);
end;
너무 주제넘게 모르면서 떠들었다면 사과합니다.
그럼...
델왕초보 wrote:
> procedure TFRCustomer.EdSearchKeyPress(Sender: TObject; var Key: Char);
> begin
> if Key = #13 then
> begin
> if DRGroup.ItemIndex = 0 then
> TBCustomer.IndexFieldNames := 'FDSNAME'
> else
> if DRGroup.ItemIndex = 1 then
> TBCustomer.IndexFieldNames := 'FDSTEL'
> else
>
> if not TBCustomer.FindKey([EdSearch.text]) then
> begin
> if Application.MessageBox('입력하시겠습니까?','물음메세지',
> MB_YESNO + MB_ICONINFORMATION) = IDYES then
> begin
> TBCustomer.Append;
> TBCustomer.FieldByName('FDSTEL').AsString := EdSearch.Text;
> TBCustomer.Post;
> end;
> end;
>
> end;
>
> end;
>
> 여기서 DRGroup은 RadioGroup이구요...
> TBCustomer는 table명이구요...
> EdSearch는 edit명입니다...
> 뭐가 문제인가 하면...
> 이름으로 검색하면 엉뚱한 것을 검색하고...
> 전화번호로 검색해도 엉뚱한 것이 검색이 됩니다..
>
> 그리구... 만약에 '017-222-3333/a'(a는 고유코드입니다.)
> 이렇게 '/'뒤에걸 검색할려면 어떻게 하죠...
>
> 부탁드립니다...