Q&A

  • my-sql 레코드값 찾기 부분 입니당. 레코드값 읽는부분...
<!--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 값을 어떻게 순차적으로 에디트 값과 비교검색을 할까요... 내공 많으신
2  COMMENTS
  • Profile
    깨구락지 2007.11.28 07:07
    보통 아래처럼 구성하니 참고하시기 바랍니다.
    with query do begin
      sql.add('select * from table');
      open
    end;

    query.first;
    while not query.eof do begin
      //do something
      query.next;
    end;


  • Profile
    임지훈 2007.11.28 19:10
    답변 주셔서 감사합니당^^ 역쉬 화일문이 아닐까 생각했었는데
    맞네염...
    역쉬 내공이 쌓여야 하나봄...
    이제 한달 일주일 대서 근가 여러모로 헷갈리네염...ㅠ_ㅠ