<!--CodeS-->
with zquery1 do begin
close;
sql.clear;
sql.add('select * from date ');
Open;
aid := zquery1.fieldbyname('id').AsString;
end;
// 여기 까지 긁어 오구여.
if id.Text = aid then begin // 여기서 해당 에디트값을 긁어온 아이디 값이랑 비교. 같으면?
form2.Panel1.Visible := true;
form2.label10.Caption := zquery1.FieldByName('dalmoneydate').AsString + '일';
form2.label16.Caption := zquery1.FieldByName('dalcarddate').AsString + '일';
end
else begin
form2.panel1.Visible := false;
form2.Label10.Caption := '';
form2.Label16.Caption := '0일';
form2.panel2.Visible := true;
form2.Label12.Caption := '0';
form2.Label9.Caption := '0';
end;
<!--CodeE-->
if id.Text = aid then begin 여기서
브레이크 걸면 aid 값이 여러 id값들이 있을건데 제일 상위 값만 긁어내네요...
순차적으로 레코드값을 돌면서 에디트 값이 아이디에 들어있는지 찾고 그값이 있으면
표시하고 없으면 새로 입력하게끔 기본값만 넣도록 할거거든요?
저 aid 값을 어떻게 순차적으로 에디트 값과 비교검색을 할까요... 내공 많으신
with query do begin
sql.add('select * from table');
open
end;
query.first;
while not query.eof do begin
//do something
query.next;
end;