jungs wrote:

> 제가 소스를 올려드릴게요..

> 안되거든요....

> 봐주세요...

> procedure Tmainf.findClick(Sender: TObject);

>

> begin

> q1.close;

> q1.sql.clear;

> q1.sql.add(' select * from mit ');

> q1.sql.add(' where hakbun is not null ');

> if hakbun1.text <> '' then q1.sql.add(' and hakbun like "'+hakbun1.text+'%" ');

> if kname1.text <> '' then q1.sql.add(' and kname like "'+kname1.text+'%" ');

> if grade1.itemindex > 0 then q1.sql.add(' and grade = "'+inttostr(grade1.itemindex)+'" ');

> if sex.itemindex > 0 then q1.sql.add(' and sex = "'+sex.items[sex.itemindex]+'" ');

> if gwaname1.itemindex > 0 then q1.sql.add(' and hakgwa = "'+gwaname1.items[gwaname1.itemindex]+'" ');

> q1.sql.add(' order by hakbun, kname, grade, sex, hakgwa ');

> q1.open;

>

>

> end;

>

> procedure Tmainf.FormCreate(Sender: TObject);

> begin

> grade1.itemindex := 0;

> sex.itemindex := 0;

> gwaname1.itemindex := 0;

>

> end;

>

> procedure Tmainf.reinsertClick(Sender: TObject);

> begin

> hakbun1.text := '';

> kname1.text := '';

> grade1.itemindex := 0;

> sex.itemindex := 0;

> gwaname1.itemindex := 0;

> q1.close;

> q1.sql.Clear;

> end;

>

> procedure Tmainf.exitClick(Sender: TObject);

> begin

> close;

> end;

>

> procedure Tmainf.Q1AfterOpen(DataSet: TDataSet);

> begin

> sbar.simpletext := '검색건수 : ' + inttostr(q1.recordcount) + ' 건';

> end;

>

> procedure Tmainf.Button1Click(Sender: TObject);

> begin

> { <------ 여기가 안되거든요...봐주세용.....안되요...해결해주세용....

> if messagedlg('삭제 할까요 ?',mtconfirmation,[mbYes,mbNo],0) = mrNo then exit;

>

> delq1.c1ose;

> delq1.sql.clear;

> delq1.sql.add(' delete from mit ');

> delq1.sql.add(' where hakbun = '''+hakbun1.text+''' ');

> // q1.sql.add(' and xx = '''+xx.text+''' ');

> delq1.execsql;

>

> q1.close;

> q1.open;

> }

> end;

>

> procedure Tmainf.DBGrid1DblClick(Sender: TObject);

> begin

>

> hakjf := Thakjf.create(self);

> try

> hide;

> shakjf.showmodal;

> finally

> shakjf.close;

> Show;

> q1.close;

> end;

>

> end;

>

> procedure Tmainf.Button2Click(Sender: TObject);

> begin

> hakjf.ShowModal;

> end;

>

> end.

>

>

>

> 고수님들 부탁합니다.................해결해주실꺼죠..,..^^

>



님께서 올리신 코드상에서 주석을 달아주신 부분을 테스트해 보았으나 별 문제는 없습니다.



단지 하나의 실수....!!!!



{ <------ 여기가 안되거든요...봐주세용.....안되요...해결해주세용....

if messagedlg('삭제 할까요 ?',mtconfirmation,[mbYes,mbNo],0) = mrNo then exit;



delq1.c1ose; <<<== 오자가 들어 있습니다. close를

c1ose(알파벳 엘을 숫자 1로)로 입력하셨습니다.

delq1.sql.clear;

delq1.sql.add(' delete from mit ');

delq1.sql.add(' where hakbun = '''+hakbun1.text+''' ');

// q1.sql.add(' and xx = '''+xx.text+''' ');

delq1.execsql;



q1.close;

q1.open;

}



님께서 말씀하신 것은 상기의 것이 아니라고 생각되어



한가지 더 말씀드리자면 'delq1.sql.add()'문 가운데서 사용한 hakbun1변수를



폼위에 올려놓지 않은 상태에서 컴파일을 하는 경우



Delphi 4상에서는 다음과 같이 복합적인 에러를



발생시킵니다.



"Unexpected identifier hakbun1"



"Statement expected but expression of type 'TCaption' found"



첫번째 문제는 단번에 무슨 에러인지 아실겁니다.



그것만 해결을 하면 두개의 에러 메세지가 사라지고 컴파일이 완료됩니다.



참고로 오류수정을 하실땐 쉽게 이해하실 수 있는 오류부터 수정하도록 하세요



그러면 의외로 다른 에러메세지까지 함께 사라지는 경우가 많습니다.







도움이 되었는지 모르겠군요.



암튼 즐코하세요.