저장이 안됩니다



저장 후 DBGRID로보면 있는데



프로그램을 종료한 후 다시 들어와 DBGRID로 보면 없어요



네비게이터로 봐도 없고요



저장이 안됐다는 이야기 인가요 ?



그러면 왜 종료하기 전에는 보이죠 ?



DB는 PARADOX를 사용하고요 소스는 다음과 같습니다



답변해주시면 고맙겠습니다.



procedure TForm1.BitBtn2Click(Sender: TObject);

begin

Panel1.Caption := ' 자료를 신규입력합니다.';

if datasource1.state <> dsinsert then

table1.edit;

table1.post;

dbedit1.setfocus;

table1.append;

end;



.

.

.

.

.

. 마지막 DBEDIT입니다

procedure TForm1.DBEdit25KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then

perform(WM_NEXTDLGCTL,0,0); //Enter시 다음 (Tab과 동일)

if key=#27 then begin

perform(WM_NEXTDLGCTL,1,0); //Enter시 다음 (Tab과 동일)

table1.post;

end;

end;



.

.

.

.

.

.



별도 저장버튼입니다.

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

if datasource1.state <> dsinsert then

table1.edit;

table1.post;

Panel1.Caption := ' 자료를 저장하였습니다.';

end;