캬캬캬.. 한달전의 저하구 똑같당...^^



다른것 잘모르겠구엽...음 키보드 불이 안꺼지는 이유는



메인보드 세팅때문임당..^^ 메인보드에 메뉴얼 보시면 불을 이제 영원히 끌수 있으리라



믿습니당... 아멘 ~.~



글구 밑에 있는것 말임다... 예제가 가남사 데파이정복에 보면 있음당..^^



그럼 이만



이상 초보사발이었습니당.^^



불쌍한넘.. wrote:

> 암것두 모름시롱 델파이를 공부하고있는 불쌍한 사람입니다..부디..가르침을 ㅠ.ㅠ

> 데이터베이스를 공부하고있는데..모르는게 많아서 이렇게 도움을 부탁드립니다.

> 여러분들 우편번호검색하는 프로그램아시죠..?

> 제가 그거 한번 만들고싶어서 그러거덩여..그래서 정통부 홈에서 요번에 새로바뀐거

> 우편번호

사발우성 wrote:

캬캬캬.. 한달전의 저하구 똑같당...^^



다른것 잘모르겠구엽...음 키보드 불이 안꺼지는 이유는



메인보드 세팅때문임당..^^ 메인보드에 메뉴얼 보시면 불을 이제 영원히 끌수 있으리라



믿습니당... 아멘 ~.~



글구 밑에 있는것 말임다... 예제가 가남사 델파이정복에 보면 있음당..^^



그럼 이만



이상 초보사발이었습니당.^^



음~! 그럼 저의 미천한실력으로 콤보박스를 이용해서리 갈켜드리줘.....^^





[ ][▼] <---- 콤보박스 1 도&광역시 이름....



[ ][▼] <---- 콤보박스 2 시&군 이름.....[시추가]



[ ][▼] <---- 음 동면리....그정도.....[동추가]



음테이블이 조금 어렵겠군엽....^^



울나라에 있는 걸 전부다 넣으려면......^^



例) 테이블명: 도 테이블명: 시

도&광역시 [도&광역시] [시]

경기 경기 광명

서울 강원 태백

강원 . .

충남

충북

경북

경남

전남

전북

인천

대구

대전

울산

부산

광주





음 키필드는 도&광역시임당....일단



도 콤보박스의 코딩임당.



전 쿼리를 사용함당..^^



with query1 do

begin

close;

sql.clear;

sql.add('select 도&광역시 from 도&광역시');

open;

end;

while not query1.eof do

begin

combobox1.items.add(query1.fieldbynaem('도&광역시').asstring);

query1.next;

end;



요기까쥐가...음 콤보1에 들어가는 내용임당.^^



음그리고 콤보박스 2에는



요런식으로....



콤보박스1클릭이벤트에서..

with query2 do

begin

close;

sql.clear;

sql.add('select 시 from 시');

sql.add('where 도&광역시="'+combobox1.text+'"');

open;

end;

combobox2.clear;

while not query1.eof do

begin

combobox2.items.add(query1.fieldbynaem('시').asstring);

query2.next;

end;

음 요까지가 시임당..^^



음동은 요기서 약간만 변형하면 아실줄 믿습니당.. .아멘 †



그리고



시추가버튼은???

음 아예 폼형태까쥐.....^^

[ ][▼] <---- 모달폼 콤보박스1 요건 도&시이름임당...

[ ] <----- 요기다 새로운 시를 입력 하시면 됨당....^^

sql.add('insert into 시(도&광역시,시) values("'+combobox1.text+'",');

sql.add('"'+edit1.text+'")');

execsql;

음 요건 등록버튼의 소스임당...^^ 그럼 즐코 하십쇼....

휴 큰일날뻔했네엽..^^ 콤보1은 음 어떻게 할까...

컁 앞에 있는도필드에서 그냥 불러와엽^^



이상 일주일만 하면 초보사발이만큼한당의 저자 사발임당....^^

> 불쌍한넘.. wrote:

> > 암것두 모름시롱 델파이를 공부하고있는 불쌍한 사람입니다..부디..가르침을 ㅠ.ㅠ

> > 데이터베이스를 공부하고있는데..모르는게 많아서 이렇게 도움을 부탁드립니다.

> > 여러분들 우편번호검색하는 프로그램아시죠..?

> > 제가 그거 한번 만들고싶어서 그러거덩여..그래서 정통부 홈에서 요번에 새로바뀐거

> > 우편번호

헤헤~!



저도 예전에 우편번호 검색시키는거 해본적이 있었는데 그때는 이렇게 했지요

에디트창에서 동을 입력하구 엔터를 치면 발생시키게끔요! 헤헤

이런땐 저는 퀴리를 이용하였지요

음냐 locate 명령은 쓰면 안된다고 생각을 해서 만들었지요!

왜냐면 우리나라의 문화동은 한두개가 아니니깐...



procedure TForm3.Edit2KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

var

i : integer;

begin

if key=vk_return then

begin

if edit2.Text = '' then

begin

dbedit3.SetFocus;

end

else

begin

dbctrlgrid1.Show;

i := 1;

repeat

dbctrlgrid1.Height := i;

i := i+2;

until i = 281;

dbctrlgrid1.Show;

dbctrlgrid1.SetFocus;

with form1.query2 do

begin

close;

sql.clear;

sql.add('select zip, addr from zip.db where dong like ''%'+edit2.text+'%''');

open;

end;



end;

end;



end;







자 딴 거는 필요 없고.... 이부분이요..

with form1.query2 do

begin

close; // 우선 퀴리를 닫아주구요

sql.clear; // 전에 퀴리가 있을수 있으니 지워줍니다.

sql.add('select zip, addr from zip.db where dong like ''%'+edit2.text+'%'''); // 새로운 sql문을 만들어 주구요

open; // 만들었으면 열어주어야겠지요 헤헤

end;





이 질문땜시 옛날에 한 소스를 지금 보니깐 왜이리 촌스러운지 쩝~!

행보하시구요 쩝~! 규춘올림.