code

procedure TForm4.Button1Click(Sender: TObject);
begin
Editmode:=True;
Edit3.Text:=ZQuery1.FieldByName('Nama').AsString     ;
Edit2.Text:=ZQuery1.FieldByName('Username').AsString;
Edit1.Text:=ZQuery1.FieldByName('Password').AsString  ;
Button2.Caption:='Ubah';
end;

procedure TForm4.Button2Click(Sender: TObject);
begin
if Editmode=True then
begin
    ZQuery1.Edit;
    ZQuery1.FieldByName('soal').AsString:=Edit3.Text;
    ZQuery1.FieldByName('A').AsString:=Edit2.Text;
    ZQuery1.FieldByName('B').AsString:=Edit1.Text;
    ZQuery1.FieldByName('C').AsString:=Edit5.Text;
    ZQuery1.FieldByName('D').AsString:=Edit4.Text;
    ZQuery1.FieldByName('jawaban').AsString:=Edit3.Text;
    ZQuery1.FieldByName('No').AsString:=Edit6.Text;
    ZQuery1.Post;
    Button2.Caption:='Simpan';
    Editmode:=False;
    Edit1.Clear;
    Edit2.Clear;
    Edit3.Clear;
end
else begin
ZQuery1.Insert;
ZQuery1.FieldByName('soal').AsString:=Edit3.Text;
    ZQuery1.FieldByName('pg').AsString:='["' +Edit2.Text+'"]';
    //ZQuery1.FieldByName('pg').AsString:=Edit1.Text;
//    ZQuery1.FieldByName('pg').AsString:=Edit5.Text;
    //ZQuery1.FieldByName('pg').AsString:=Edit4.Text;
    //ZQuery1.FieldByName('jawaban').AsString:=Edit3.Text;
    //ZQuery1.FieldByName('No').AsString:=Edit6.Text;
ZQuery1.Post;
end
end;

procedure TForm4.Button3Click(Sender: TObject);
begin
if not ZQuery1.IsEmpty then
begin
  ZQuery1.Delete;


end;

end;



procedure TForm4.Button4Click(Sender: TObject);
begin
with ZConnection1 do
begin
  Disconnect;
  Protocol:='mysql-5';
  HostName:='127.0.0.1';
  Database:='ujian';
  Port:=StrToInt('3306');
  user:='root' ;
  Password:='';
  Connect;
end;
with ZQuery1 do
begin
  Active:=True;


end;

end;

procedure TForm4.Button5Click(Sender: TObject);
begin
DBGrid1.DataSource.DataSet.Refresh;
DBMemo1.DataSource.DataSet.Refresh;
//DBMemo1.Lines.LoadFromStream();
end;

end.