Manipulasi data Ms Access dengan delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.clear;
adoquery1.SQL.Add (‘insert into tblmhs(npm,nama,kelas) values ( ” ‘+ edit1.text +’ “,” ‘+edit2.text+’ “,” ‘+edit3.text+’ “)’);
adoquery1.ExecSQL;
adoquery1.SQL.Clear;
adotable1.Active := false;
adotable1.Active := true;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(‘select * from tblmhs where npm = ‘ ‘ ‘ + edit1.Text + ‘ ‘ ‘ ‘);
adoquery1.Open;
if not adoquery1.Eof then
begin
edit2.Text := adoquery1.Fields[1].AsString;
edit3.Text := adoquery1.Fields[2].AsString;
label1.Caption := adoquery1.Fields[1].AsString;
label2.Caption := adoquery1.Fields[2].AsString;
end
else
begin
showmessage(‘data tidak ada’);
end
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(‘delete from tblmhs where npm = ‘ ‘ ‘ + edit1.Text + ‘ ‘ ‘ ‘);
adoquery1.ExecSQL;
adoquery1.SQL.Clear;
adotable1.Active := false;
adotable1.Active := true;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(‘update tblmhs set nama = ‘ ‘ ‘+ edit2.Text + ‘ ‘ ‘, kelas = ‘ ‘ ‘+ edit3.Text + ‘ ‘ ‘ where npm = ‘ ‘ ‘ + edit1.Text + ‘ ‘ ‘ ‘);
adoquery1.ExecSQL;
adotable1.Active := false;
adotable1.Active := true;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
CrystalReport1.ReportFileName := ‘Daftarmahasiswa.rpt’;
CrystalReport1.WindowState := 2;
CrystalReport1.Action := 1;
end;

download source code di sini