snstr

1.      Menurut anda, mengapa delphi dikatakan sebagai bahasa pemrograman berbasis visual ?

            Delphi merupakan salah satu bahasa pemrograman berbasis visual yang digunakan untuk membuat program aplikasi (seperti Visual Basic). Bahasa pemrograman yang digunakan oleh Delphi sebenarnya merupakan turunan dari bahasa pemrograman Pascal, yang dahulu pada Delphi dikenal sebagai objek Pascal.

2.      Jelaskan langkah-langkah koneksi dari delphi kedatabase mysql dengan menggunakan mydac sebagai komponen pendukungnya !

My connection

·        Name = conakademik

·        Database = dbakademik

·        Username = root

·        Loginprompt = false

·        Connected = true

My query

·        Name = qrymahasiswa

·        Sql = select * from mahasiswa

·        Active = true

My datasource

·        Name = dsmahasiswa

·        Dataset = qrymahasiswa

 Db grid

·        Datasource = dsmahasiswa

3.      Buatlah kode untuk mencari data dengan menggunakan delphi ?

Button cari

procedure TForm1.btncariClick(Sender: TObject);

begin

with qrycari do

begin

  close;

  sql.Clear;

  SQL.Add('select * from dosen where nid = '+quotedstr(edtcari.text));

  Open;

  if IsEmpty then

  begin

    ShowMessage('data tidak ada');

    Exit;

    end;

  end;

end;

4.      Berikan contoh kode untuk menambahkan, merubah, dan menghapus data yang ada di database mysql dengan menggunakan delphi, gunakan minimal 3 field dengan tabel ‘buku’ !

Button tambah

procedure TForm1.btntambahClick(Sender: TObject);

begin

  edtnim.Enabled := True ;

  with qrybuku do

  begin

    Append;

    qrybuku.FieldByName('nim').AsString := edtnim.Text ;

    qrybuku.FieldByName('nama').AsString := edtnama.Text ;

    qrybuku.FieldByName('alamat').AsString := edtalamat.Text ;

Post ;

  end;

end;

button ubah

procedure TForm1.btnUbahClick(Sender: TObject);

begin

  edtnim.Enabled :=False;

  with qrybukudo

  begin

     Append;

    qrybuku.FieldByName('nim').AsString := edtnim.Text ;

    qrybuku.FieldByName('nama').AsString := edtnama.Text ;

    qrybuku.FieldByName('alamat').AsString := edtalamat.Text ;

Post ;

  end;

end;

button hapus

procedure TForm1.btnhapusClick(Sender: TObject);

begin

  if MessageDlg('hapus baris aktif?',mtConfirmation,[mbYes,mbNo],0)=mryes then qrybuku.Delete;

end;

5.   Sebutkan dan Jelaskan minimal 3 komponen  untuk mengakses database pada delphi !