다시한번 감사합니다.. (이렇게 빨리 답변을 주시다니 저도 꽤 인터넷사이트를 돌아다니며 많이안다고
자부하고있었는데 이렇게 신속한처리는 처음봅니다.. 저에게는 구세주사이트나 다름없군요.. )
본론으로 들어가서.. 취소버튼전체소스입니다..
procedure Tform3.Form_Cancel; //취소 프로시져
var a : integer; // 요건 그냥 변수준거구요
begin
with Frm_DM.AQ_TEMP do begin // 데이터 모듈에서 호출
close;
SQL.Clear;
SQL.Add('select * from member');
Open;
--문제의 부분 --
for a:= 1 to 21 do
Edit(a).Text := fields[a-1].AsString; //eidt는 에디트박스입니다.
//필드값을 에디트박스에 뿌려줄려고 하는것이지요 .. 그런데 에디트박스가 넘무많아서
edit1.text := fields[0].asstring;
edit2.text := fields[1].asstring;
.
.
계속 써야하기때문에 for문으로 돌려볼려고 하는건데...
Edit는 결코 아무런의미가 없음니다.. 그냥 에디트박스의 기본네임입니다..
---이렇게 했습니다..
end ;
end;
|