Q&A
- [답변]소스좀 봐줘엽 ㅠ.ㅠ.....
procedure TForm18.ComboBox5Click(Sender: TObject);
var
s:integer;
begin
s:=2;
with form1.Query7 do
begin
close;
sql.Clear;
sql.Add('select 제조번호 from 검사명세');
sql.Add('where 조처결과='''+inttostr(s)+'''and 제품명''+combobox1.text+'''');
prepare;
open;
end;
listbox1.Clear;
form1.Query7.first ; ==> Query한 다음 커서를 맨처음으로 보낸다...
------
while not form1.Query7.Eof do
begin
listbox1.Items.Add(form1.query7.fieldbyname('제조번호').asstring);
form1.Query7.Next;
end;
end;
var
s:integer;
begin
s:=2;
with form1.Query7 do
begin
close;
sql.Clear;
sql.Add('select 제조번호 from 검사명세');
sql.Add('where 조처결과='''+inttostr(s)+'''and 제품명''+combobox1.text+'''');
prepare;
open;
end;
listbox1.Clear;
form1.Query7.first ; ==> Query한 다음 커서를 맨처음으로 보낸다...
------
while not form1.Query7.Eof do
begin
listbox1.Items.Add(form1.query7.fieldbyname('제조번호').asstring);
form1.Query7.Next;
end;
end;
4
COMMENTS
-
-
plan0611 wrote:
> procedure TForm18.ComboBox5Click(Sender: TObject);
> var
> s:integer;
> begin
> s:=2;
> with form1.Query7 do
> begin
> close;
> sql.Clear;
> sql.Add('select 제조번호 from 검사명세');
> sql.Add('where 조처결과='''+inttostr(s)+'''and 제품명''+combobox1.text+'''');
> prepare;
> open;
> end;
> listbox1.Clear;
>
> form1.Query7.first ; ==> Query한 다음 커서를 맨처음으로 보낸다...
> ------
>
> while not form1.Query7.Eof do
> begin
> listbox1.Items.Add(form1.query7.fieldbyname('제조번호').asstring);
> form1.Query7.Next;
> end;
> end;
>
-
안녕하세요 하얀까마귀 입니다..
오늘은 답변을 많이하네요.. ^.^
필드명을 한글로 쓰신겁니까???
sql.Add('where 조처결과='''+inttostr(s)+'''and 제품명''+combobox1.text+'''');
이거 에러날것 같은데... 에러 안나던가요?????
sql.Add('where 조처결과='''+inttostr(s)+'''and 제품명''+combobox1.text+'''');
'''and 제품명'' -> ''' and 제품명 = '''
이거하고 and 앞에 뛰어주세요..
그리고 where 조처결과 = '''+inttoStr(s)+'''
이걸 where 조처결과 = ' + inttostr(s) + ' and ....
이렇게 바꾸세요...
그리고 테스트 하실때 쿼리의 결과가 있는지 RecordCount하시거나
SQL Explorer같은걸로 먼저 쿼리 확인을 하시구요...
그럼 즐거운시간 되세요.. 이번엔 되기를...
- 초보 하얀까마귀 -
사발우성 wrote:
> plan0611 wrote:
> > procedure TForm18.ComboBox5Click(Sender: TObject);
> > var
> > s:integer;
> > begin
> > s:=2;
> > with form1.Query7 do
> > begin
> > close;
> > sql.Clear;
> > sql.Add('select 제조번호 from 검사명세');
> > sql.Add('where 조처결과='''+inttostr(s)+'''and 제품명''+combobox1.text+'''');
> > prepare;
> > open;
> > end;
> > listbox1.Clear;
> >
> > form1.Query7.first ; ==> Query한 다음 커서를 맨처음으로 보낸다...
> > ------
> >
> > while not form1.Query7.Eof do
> > begin
> > listbox1.Items.Add(form1.query7.fieldbyname('제조번호').asstring);
> > form1.Query7.Next;
> > end;
> > end;
> >
-
지나던 과객 wrote:
> sql.Add('where 조처결과='''+inttostr(s)+'''and 제품명=''+combobox1.text+'''');
> 이부분아래와 같이 바꿔서 해보세요
>
> sql.Add('where 조처결과 = :aa and 제품명 = :bb');
parambyname('aa').asstring := inttostr(s);
parambyname('bb').asstring := trim(combobox5.text);
prepare;
open;
> 가끔 쿼리가 직접엑세스 문장을 인식오류를 낼 수 잇으니까요..
> 그리고 제품명 뒤에 비교가없으면 +가 필요없음....
> 그럼 20000.
> 사발우성 wrote:
> > plan0611 wrote:
> > > procedure TForm18.ComboBox5Click(Sender: TObject);
> > > var
> > > s:integer;
> > > begin
> > > s:=2;
> > > with form1.Query7 do
> > > begin
> > > close;
> > > sql.Clear;
> > > sql.Add('select 제조번호 from 검사명세');
> > > sql.Add('where 조처결과='''+inttostr(s)+'''and 제품명''+combobox1.text+'''');
> > > prepare;
> > > open;
> > > end;
> > > listbox1.Clear;
> > >
> > > form1.Query7.first ; ==> Query한 다음 커서를 맨처음으로 보낸다...
> > > ------
> > >
> > > while not form1.Query7.Eof do
> > > begin
> > > listbox1.Items.Add(form1.query7.fieldbyname('제조번호').asstring);
> > > form1.Query7.Next;
> > > end;
> > > end;
> > >
(NOTICE) You must be logged in to comment on this post.
-
- 부탁해요
- •
- 2000.07.05 06:50
- 2 COMMENTS
- /
- 0 LIKES
-
유레카•2000.07.05 06:55폼의 KeyPreview속성을 True로 하시고 OnKeyDown이벤트에서..(무력화 시키기 예) procedure TForm1.Form...
-
부탁해요•2000.07.05 18:50위 방법은 해봤는데요 키다운 이벤트는 Art+Tab 와 Ctrl+Tab 작업을 수행한후 발생이되어 별 의미가 없어요...
-
- 원령
- •
- 2000.07.05 06:18
- 3 COMMENTS
- /
- 0 LIKES
-
유레카•2000.07.05 06:57where절에다 ( 필드명 in(a..b,e..f))라고 첨가하면 됩니다. 원령 wrote: > 테이블을 써서 디비그리...
-
유레카•2000.07.05 18:51delete * from 테이블명 where 필드명 in(선택된 Row들); 구지 디비그리드에서 쿼리를 사용해서 삭제를...
-
원령•2000.07.05 18:10유레카 wrote: > where절에다 ( 필드명 in(a..b,e..f))라고 첨가하면 됩니다. > 죄송한데요 좀만 ...
-
- topsman
- 2000.07.05 04:52
- 0 COMMENTS
- /
- 0 LIKES
-
- 홍승완
- 2000.07.05 04:20
- 0 COMMENTS
- /
- 0 LIKES
-
-
아리엘•2000.07.05 04:56이상하네요... 시디가 제대로만들어진거라면 괜찮을텐데.. 그냥 시디화일을 복사해버리신건 아니신가요......
-
-
- 선해석
- •
- 2000.07.05 03:41
- 3 COMMENTS
- /
- 0 LIKES
-
김영해•2000.07.05 04:27> 퀵레포트에서 그리드를 나타내고 싶은데,, > 파레트에는 그리드 컴포넌트가 없네요.. additional 에 있...
-
선해석•2000.07.05 05:18김영해 wrote: > > 퀵레포트에서 그리드를 나타내고 싶은데,, > > 파레트에는 그리드 컴포넌트가 없네요....
-
김영해•2000.07.05 06:52선해석 wrote: > 김영해 wrote: > > > 퀵레포트에서 그리드를 나타내고 싶은데,, > > > 파레트에는 그리...
-
- 아리엘
- •
- 2000.07.05 03:39
- 3 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2000.07.05 04:42안녕하세요 하얀까마귀 입니다.. 퀵리포트 고수는 아닌데... 다른 방법도 있을수 있지만 제가 알기로는 ...
-
아리엘•2000.07.05 04:54답변 감사합니다. 근데 이게 3.0에서 쓰던걸 5.0으로 가져왔는데 이런 문제가 일어나서 였습니다.. ...
-
하얀까마귀•2000.07.06 00:37안녕하세요 하얀까마귀 입니다.. 퀵쪽은 소스도 없고 해서.. 잘 모르거든요... 그런데.. 전 합계구하...
-
- 어린왕자
- •
- 2000.07.05 03:18
- 2 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2000.07.05 04:51안녕하세요 하얀까마귀 입니다. 뿌릴때라면 데이타 오픈할때일것 같은데.. TDataSet의 이벤트를 이용하...
-
어린왕자•2000.07.05 18:40음..저가 하려고 하는 작업이.. 젤첨 DBGrid가 데이타를 뿌릴때 칼럼셀의 width를 주어지게 할려구 하거든...
-
- 알로에
- •
- 2000.07.05 02:46
- 1 COMMENTS
- /
- 0 LIKES
-
Mr.Q•2000.07.05 03:10알로에 wrote: > ShowModal과 Show로 불려진 폼들.. 전부 Free시켜야 하는가여?? > 흠 전임자가 개발해놓...
-
- 혀기
- •
- 2000.07.05 02:44
- 1 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2000.07.05 02:44안녕하세요 하얀까마귀 입니다. 버튼에 보시면 layout이라는 프로퍼티가 있습니다 이걸 blGlyphTop ...
-
- 김태영
- 2000.07.05 02:15
- 0 COMMENTS
- /
- 0 LIKES
-
- 안복환
- 2000.07.05 02:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 박근형
- 2000.07.05 01:50
- 0 COMMENTS
- /
- 0 LIKES
-
- 정말 초보....
- •
- 2000.07.05 01:41
- 2 COMMENTS
- /
- 0 LIKES
-
김영해•2000.07.05 02:07정말 초보.... wrote: > 델파이 초보입니다. > 근데 어쩌다가 보기 이걸 제가 맡아서 하는데 다름이 아니...
-
정말 초보....•2000.07.05 02:33정말 고맙습니다......어떻게 감사를 드려야 할지... 비록 계산을 하니 '0'이 나오던데 그건 제가 좀 더 ...
-
- 어린왕자
- 2000.07.05 01:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 어린왕자
- •
- 2000.07.05 01:20
- 1 COMMENTS
- /
- 0 LIKES
-
어린왕자•2000.07.05 02:11DataCell과 ColumnCell을 같이 움직였던거 같습니다.
-
- 왕초보
- 2000.07.05 01:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 타락천사
- •
- 2000.07.05 01:18
- 2 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2000.07.05 01:53안녕하세요 하얀까마귀 입니다. 테이블을 콤보박스에 넣는다는게 테이블 명을 콤보박스에서 나타낸다는 ...
-
타락천사•2000.07.05 02:00안녕하세여.. 타락임다..^^ 전에 어디선가 테이블내용을 리스트박스나 콤보박스에 넣는 걸 봤는데..... ...
-
- 서영찬
- •
- 2000.07.05 01:02
- 2 COMMENTS
- /
- 0 LIKES
-
최석기•2000.07.05 19:37서영찬 wrote: > 그냥 쿼리에서는 select * from 테이블명 order by 필드명 desc ; > 하면 바로 되는데.....
-
하얀까마귀•2000.07.05 01:37안녕하세요 하얀까마귀 입니다.. 테이블에서 소트하실때는 원하시는 순으로 인덱스를 만드셔야 합니다.....
-
- plan0611
- •
- 2000.07.05 00:55
- 4 COMMENTS
- /
- 0 LIKES
procedure TForm18.ComboBox5Click(Sender: TObject); var s:integer; begin s:=2; with form1.Query7 do begin close; sql.Clear; sql.Add('select 제조번호 from 검사명세'); sql.Add('where 조처결과='''+inttostr(s)+'''and 제품명''+...-
사발우성•2000.07.05 02:19plan0611 wrote: > procedure TForm18.ComboBox5Click(Sender: TObject); > var > s:integer; > begin...
-
사발우성•2000.07.05 01:00plan0611 wrote: > procedure TForm18.ComboBox5Click(Sender: TObject); > var > s:integer; > begin...
-
하얀까마귀•2000.07.05 01:30안녕하세요 하얀까마귀 입니다.. 오늘은 답변을 많이하네요.. ^.^ 필드명을 한글로 쓰신겁니까??? ...
-
지나던 과객•2000.07.05 02:33지나던 과객 wrote: > sql.Add('where 조처결과='''+inttostr(s)+'''and 제품명=''+combobox1.text+'''')...
> procedure TForm18.ComboBox5Click(Sender: TObject);
> var
> s:integer;
> begin
> s:=2;
> with form1.Query7 do
> begin
> close;
> sql.Clear;
> sql.Add('select 제조번호 from 검사명세');
> sql.Add('where 조처결과='''+inttostr(s)+'''and 제품명''+combobox1.text+'''');
> prepare;
> open;
> end;
> listbox1.Clear;
>
> form1.Query7.first ; ==> Query한 다음 커서를 맨처음으로 보낸다...
> ------
>
> while not form1.Query7.Eof do
> begin
> listbox1.Items.Add(form1.query7.fieldbyname('제조번호').asstring);
> form1.Query7.Next;
> end;
> end;
>