prosedur menyimpan di DBGrid delphi


procedure TFKARYAWAN.FormActivate(Sender: TObject);
begin
DataModule1.QKARYAWAN.Close;
DataModule1.QKARYAWAN.SQL.Clear;
DataModule1.QKARYAWAN.SQL.Add('select * from TKARYAWAN');
DataModule1.QKARYAWAN.Open;
bersih;
end;


//prosedur penyimpanan
procedure TFKARYAWAN.SIMPANClick(Sender: TObject);
begin
DataModule1.QKARYAWAN.Close;
DataModule1.QKARYAWAN.SQL.Clear;
DataModule1.QKARYAWAN.SQL.Add('insert into TKARYAWAN VALUES('+QuotedStr(NO_KARYAWAN.Text)+','+
''+QuotedStr (NAMA.Text)+','+
''+QuotedStr(ALAMAT.Text)+')');
DataModule1.QKARYAWAN.ExecSQL;
FormActivate(Sender);
end;

Posted in: delphi