소스는 다음과 같습니다.

그런데 DBgrid에 입력된 값이 안 나타납니다.

어떻게 처리를 해주어야 하는지요..





with buseo_qry do

begin

close;

sql.clear;

sql.text := ' Insert into DEPT (code, name, gdept_code) '+

' values(:code, :name, :gcode) ';

parambyname('code').AsString := code_edt.text ;

parambyname('name').AsString := name_edt.text;

parambyname('gcode').AsString := copy(gdept_cbo.text,1,1);



try

execsql;

showmessage('정상적으로 입력되었습니다.');

except

close;

sql.clear;

exit;

end;

Edit_Clear(buseoform,1);

Insert_Btn.Caption := '입력';

is_Edit := false;

end;