박충국 wrote:

> 안녕하십니까..!~~

> 델파이 초보입니다..!~~

>

> 너무 상식적인 질문이라고 답변않하시지 마시고 많은 조언 부탁드립니다.!~~

>

> 테이블에 있는 데이타를 비교하고 싶은데요..!~~

> 테이블에 '박충국'이라는 이름이 있으면 입력이 안되게 할려구 하거든요..!~~

> 구체적인 소스가 있으면 꼭꼭 부탁드립니다...!~~



procudure ..............

begin

Qury1.close;

Qury1.sql.clear;

Qury1.sql.add('select * from 데이터베이스');

Qury1.sql.add('where 이름필드 = :파라미터');



Qury1.parambyname('파라미터').AsString = edit1.text;

Qury1.open;



if Qury1.recordcount = 0 then

입력을하구여..

else

빠져나가구여..





end;

신범호 wrote:

> 박충국 wrote:

> > 안녕하십니까..!~~

> > 델파이 초보입니다..!~~

> >

> > 너무 상식적인 질문이라고 답변않하시지 마시고 많은 조언 부탁드립니다.!~~

> >

> > 테이블에 있는 데이타를 비교하고 싶은데요..!~~

> > 테이블에 '박충국'이라는 이름이 있으면 입력이 안되게 할려구 하거든요..!~~

> > 구체적인 소스가 있으면 꼭꼭 부탁드립니다...!~~

>

> procudure ..............

> begin

> Qury1.close;



Query10.Close;

Query10.SQL.Clear;

Query10.SQL.ADD('select * from read_list');

Query10.SQL.ADD('where read_sabun_cd = :park1');

Query10.SQL.ADD('and read_buser_dscr = :park2');

Query10.SQL.ADD('and read_day = :park3');



Query10.ParamByName('park1').AsString := Edit3.Text;

Query10.ParamByName('park2').AsString := Edit5.Text;

Query10.ParamByName('park3').AsDateTime := strtoDateTime(Edit6.Text);

Query10.Open;



Table1.Open;

if (Table1.FieldByName('read_sabun_cd').AsString =

Query10.ParamByName('park1').AsString) and

(Table1.FieldByName('read_buser_dscr').AsString =

Query10.ParamByName('park2').AsString) and

(Table1.FieldByName('read_day').AsDateTime =

Query10.ParamByName('park3').AsDateTime) then



위에 있는게 소스이거든요..!~~

그런데 첫번째 레코드만 비교하구 다음부터는 비교를 안하는 데요..!~~

소스좀 봐주시고요 잘못된점 지적좀해주십시용....!~~

빠른 답변 부탁드립니다..!~~

박충국 wrote:

> 신범호 wrote:

> > 박충국 wrote:

> > > 안녕하십니까..!~~

> > > 델파이 초보입니다..!~~

> > >

> > > 너무 상식적인 질문이라고 답변않하시지 마시고 많은 조언 부탁드립니다.!~~

> > >

> > > 테이블에 있는 데이타를 비교하고 싶은데요..!~~

> > > 테이블에 '박충국'이라는 이름이 있으면 입력이 안되게 할려구 하거든요..!~~

> > > 구체적인 소스가 있으면 꼭꼭 부탁드립니다...!~~

> >

> > procudure ..............

> > begin

> > Qury1.close;

>

> Query10.Close;

> Query10.SQL.Clear;

> Query10.SQL.ADD('select * from read_list');

> Query10.SQL.ADD('where read_sabun_cd = :park1');

> Query10.SQL.ADD('and read_buser_dscr = :park2');

> Query10.SQL.ADD('and read_day = :park3');

>

> Query10.ParamByName('park1').AsString := Edit3.Text;

> Query10.ParamByName('park2').AsString := Edit5.Text;

> Query10.ParamByName('park3').AsDateTime := strtoDateTime(Edit6.Text);

> Query10.Open;

>

> Table1.Open;

> if (Table1.FieldByName('read_sabun_cd').AsString =

> Query10.ParamByName('park1').AsString) and

> (Table1.FieldByName('read_buser_dscr').AsString =

> Query10.ParamByName('park2').AsString) and

> (Table1.FieldByName('read_day').AsDateTime =

> Query10.ParamByName('park3').AsDateTime) then

>

> 위에 있는게 소스이거든요..!~~

> 그런데 첫번째 레코드만 비교하구 다음부터는 비교를 안하는 데요..!~~

> 소스좀 봐주시고요 잘못된점 지적좀해주십시용....!~~

> 빠른 답변 부탁드립니다..!~~







위 부분에서 if 문이 시작되는곳의 윗부분에 루프를 돌게 해주세여..

table1.first;

while not table1.eof do

begin



if 문..



table1.next;



end;



그러면 처음부터 끝까지 비교를 할꺼에여..

감사합니다...많은 도움이 돼서 지금은 완벽하게 돌아갑니다..!~~

넘 감사드립니다...!~~ 그럼...꾸벅







신범호 wrote:

> 박충국 wrote:

> > 신범호 wrote:

> > > 박충국 wrote:

> > > > 안녕하십니까..!~~

> > > > 델파이 초보입니다..!~~

> > > >

> > > > 너무 상식적인 질문이라고 답변않하시지 마시고 많은 조언 부탁드립니다.!~~

> > > >

> > > > 테이블에 있는 데이타를 비교하고 싶은데요..!~~

> > > > 테이블에 '박충국'이라는 이름이 있으면 입력이 안되게 할려구 하거든요..!~~

> > > > 구체적인 소스가 있으면 꼭꼭 부탁드립니다...!~~

> > >

> > > procudure ..............

> > > begin

> > > Qury1.close;

> >

> > Query10.Close;

> > Query10.SQL.Clear;

> > Query10.SQL.ADD('select * from read_list');

> > Query10.SQL.ADD('where read_sabun_cd = :park1');

> > Query10.SQL.ADD('and read_buser_dscr = :park2');

> > Query10.SQL.ADD('and read_day = :park3');

> >

> > Query10.ParamByName('park1').AsString := Edit3.Text;

> > Query10.ParamByName('park2').AsString := Edit5.Text;

> > Query10.ParamByName('park3').AsDateTime := strtoDateTime(Edit6.Text);

> > Query10.Open;

> >

> > Table1.Open;

> > if (Table1.FieldByName('read_sabun_cd').AsString =

> > Query10.ParamByName('park1').AsString) and

> > (Table1.FieldByName('read_buser_dscr').AsString =

> > Query10.ParamByName('park2').AsString) and

> > (Table1.FieldByName('read_day').AsDateTime =

> > Query10.ParamByName('park3').AsDateTime) then

> >

> > 위에 있는게 소스이거든요..!~~

> > 그런데 첫번째 레코드만 비교하구 다음부터는 비교를 안하는 데요..!~~

> > 소스좀 봐주시고요 잘못된점 지적좀해주십시용....!~~

> > 빠른 답변 부탁드립니다..!~~

>

>

>

> 위 부분에서 if 문이 시작되는곳의 윗부분에 루프를 돌게 해주세여..

> table1.first;

> while not table1.eof do

> begin

>

> if 문..

>

> table1.next;

>

> end;

>

> 그러면 처음부터 끝까지 비교를 할꺼에여..

>