물건을 빌려주고 반납된것과 미반납된것을 조회하기위한 코딩을 하려합니다.

다음...





procedure Tbanapsch.banap_btnClick(Sender: TObject);

begin

with statu_qry do

begin

close;

sql.Clear;

sql.add('select b.swname, b.serial, d.divdate,r.redate, de.name, e.name')

sql.add('from buy b, divstate d, return r, dept de, emp e');

sql.add('where r.buy_code = b.code);

sql.add('and r.dept_code = de.code);

sql.add('and r.emp_code = e.code);

sql.add('and r.divstate_code = d.code);

open;

end;

end;



procedure Tbanapsch.miss_btnClick(Sender: TObject);

begin

if (divstate.buy_code <> '') and (return.buy_code <> '') then

showmessage('미반납 내역이 없습니다.');

if (divstate.buy_code = '') and (return.buy_code <> '') then

showmessage('배부내역 또는 미반납 내역이 없습니다.')

else

with statu_qry do

begin

close;

sql.Clear;

sql.add('select b.swname, b.serial, d.divdate,r.redate, de.name, e.name')

sql.add('from buy b, divstate d, return r, dept de, emp e');

sql.add('where r.buy_code = b.code);

sql.add('and r.dept_code = de.code);

sql.add('and r.emp_code = e.code);

sql.add('and r.divstate_code = d.code);

open;

end;

end;





이렇게 하면 되는지..

왠지



if (divstate.buy_code <> '') and (return.buy_code <> '') then

showmessage('미반납 내역이 없습니다.');

if (divstate.buy_code = '') and (return.buy_code <> '') then

showmessage('배부내역 또는 미반납 내역이 없습니다.')

이부분이 의심적습니다.

초보자라 어쩔수가 없군요.

잘하시는 분 아무나 빨리 알려주시기 바랍니다.