SINTAK BORLAND DELPHI

Delphi adalah sebuah bahasa pemrograman dan lingkungan pengembangan perangkat lunak. Produk ini dikembangkan oleh CodeGear sebagai divisi pengembangan perangkat lunak milik Embarcadero, divisi tersebut sebelumnya adalah milik Borland. Bahasa Delphi, atau dikenal pula sebagai object pascal (pascal dengan ekstensi pemrograman berorientasi objek (PBO/OOP)) pada mulanya ditujukan hanya untuk Microsoft Windows, namun saat ini telah mampu digunakan untuk mengembangkan aplikasi untuk Linux dan Microsoft .NET framework



keuntungan:
* Komunitas pengguna yang besar pada Usenet maupun web
* Dapat mengkompilasi menjadi single executable, memudahkan distribusi dan meminimalisir masalah yang terkait dengan versioning
* Banyaknya dukungan dari pihak ketiga terhadap VCL (biasanya tersedia berikut source codenya) ataupun tools pendukung lainnya (dokumentasi, tool debugging)
* Optimasi kompiler yang cukup cepat
* Mendukung multiple platform dari source code yang sama

kelemahan
* Partial single vendor lock-in (Borland dapat menetapkan standar bahasa, kompatibilitas yang harus mengikutinya)
* Terbatasnya kamampuan portabilitas antar-platform OS (sebelum ada kylix)
* Akses pada platform dan library pihak ketiga membutuhkan file-file header yang diterjemahkan ke dalam bahasa pascal
* Dokumentasi atas platform dan teknik-teknik yang menyertainya sulit ditemukan dalam bahasa pascal (contoh akses COM dan Win32)
procedure bersih;
procedure simpan;
procedure ubah;
procedure hapus;
procedure keluar;
procedure cari;
{ Public declarations }
end;

var
Form3: TForm3;
implementation

uses Unit6;

{$R *.dfm}
procedure tform3.bersih;
begin
edit1.Text:='';
combobox1.Text:='';
combobox2.Text:='';
end;
procedure tform3.simpan;
begin
table3.insert;
table3no_transaksi.AsString:=edit1.Text;
table3kode_buku.AsString:=combobox1.Text;
table3kode_peminjam.AsString:=combobox2.Text;
table3tgl_pinjam.AsDateTime:=dt_pinjam.date;
table3tgl_kembali.AsDateTime:=dt_kembali.date;
table3.Post;
end;
procedure tform3.ubah;
begin
table3.edit;
table3no_transaksi.AsString:=edit1.Text;
table3kode_buku.AsString:=combobox1.Text;
table3kode_peminjam.AsString:=combobox2.Text;
table3tgl_pinjam.AsDateTime:=dt_pinjam.date;
table3tgl_kembali.AsDateTime:=dt_kembali.date;
table3.Post;
bersih;
end;
procedure tform3.hapus;
begin
table3.delete;
end;
procedure tform3.keluar;
begin
close;
end;
procedure tform3.cari;
begin
if table3.Locate('no_transaksi',edit1.text,[locaseinsensitive]) then
begin
combobox1.Text:=table3kode_buku.AsString;
combobox2.Text:=table3kode_peminjam.AsString;
dt_pinjam.date:=table3tgl_pinjam.AsDateTime;
dt_kembali.date:=table3tgl_kembali.AsDateTime;
end;
end;

SINTAK JIKA MENGGUNAKAN COMBOBOX DAN MAU DIISI DENGAN DROPDOWN DAN ONCLICK :

procedure TForm3.ComboBox2DropDown(Sender: TObject);
begin
begin
table2.First;
combobox2.Items.Clear;
while not table2.Eof do
begin
combobox2.Items.add(table2kode_peminjam.AsString);
table2.Next;
end;
end;
end;

procedure TForm3.ComboBox1Click(Sender: TObject);
begin
if table1.Locate('kode_buku',combobox1.Text,[locaseinsensitive])then
begin
edit2.Text:=table1judul.AsString;
edit3.Text:=table1pengarang.AsString;
end
else
begin
edit2.Text:='';
edit3.Text:='';
end;

end;

Read More......