안녕하세요 다름이 아니라 쿼리문을 통해서 하나의 레코드를 찾은후에 그 레코드에서 해당 필드에 내용을 EDIT폼에다 뿌려줄려고 합니다. 그런데 해당 필드가 없다는 애러가 나오는데... 분명히 해당 필드는 있는데 없다고 나오는데 뭐가 문제인지 모르겠습니다. 왜그런건지 좀 가르쳐주시면 감사하겠습니다.
procedure TPresentForm.BitBtn1Click(Sender: TObject);
begin
Query1.Active := true;
Query1.SQL.Clear;
Query1.SQL.Add('select * from voteinfo_table where RegNumber=');
Query1.SQL.Add(FindEdit1.Text);
RegNumber.Text := Query1.FieldByName('RegNumber').AsString;
Age.Text := Query1.FieldByName('age').AsString;
if (Query1.FieldByName('regnumber').AsInteger=0) then
begin
Sex1.Text := Sex1.Items[0];
end
else if (Query1.FieldByName('sex').AsInteger=1) then
begin
Sex1.Text := Sex1.Items[1];
end;
|