Di siang yang cerah dan gerimis ini saya akan memberikan lagi sebuah contoh program menyimpan gambar kedatabase,sekalian untuk memunculkanya juga. lumayan nih contoh program ini sudah ada Menu Tambah, Edit, Hapus,Cari jadi sekali mendayung minum air. ekh salahh... sekali mendayung dua pulau terlampaui.hahaa.....
Judul yang tepat apaan ya,bingung ngasihnya tapi udah lah yang penting is programnya iya kan Sob. Sekecil/sedikit apapun ilmu tapi itu sangat berguna juga bisa dikembangkan.
Modelnya sepeti Aplikasi karyawan x ya terserah lah kan sudah dibilang bingungngasih judulnya, ini deh pokonya tampilannya :
.bmp "Menampilkan & Simpan Gambar Ke Database di delphi")
Jadi gini Sob, Aplikasi ini akan otomatis membuat Folder ke Drive (D:) untuk penyimpanan foto jadi folder yang bernama FotoKaryawan jangan dihapus.
Jika mau merubah Foto tinggal Klik Edit saja dan rubah deh fotonya nanti juga akan mereplace foto yang ada. Program ini tentunya memakai database donk tapi Acces, ada juga yang memakai MySql sudah saya kasih kalau tidak salah Listing Programnya dispostingan yang dulu, cuma mungkin bagi yang kurang paham bisa ribet utak atiknya...........
kalau ingin utak atik Programnya silahkan sedot disini jadi tidak usah lama neerangin cara pembuatannya tinggal langsung jalanin programnya dan rubah-rubah saja !! Download File disini
Kalo ada Pesan Error Misal SUIDBCtrls atau MySQLDBTables tidak ditemukan, coba di Uses'y hapus (SUIDBCtrls,MySQLDBTables ).
Semoga Bermanfaat ya dan juga semoga Link downloadya masih berlaku.heheheee...
Berbagi Ilmu itu indah.
Anda sedang membaca sebuah artikel yang berjudul 
4 Comments
gan tolong tutorial dari awal buatnya
ReplyDeleteane baru belajar delphi, di coba buat ulang sangkut di IsSimpan di button
Undeclared identifier: 'IsSimpan'
Undeclared identifier: 'bersih'
Permasalahannya dimana gan?
kepanjangan gan kalo dari Awal..:
Deletemaksud dari masalah Undeclared identifier: 'IsSimpan' dan Undeclared identifier: 'bersih'
itu karena agan belum mendeklarasikan IsSimpan dan Procedure bersih.
coba scroll ke bagian atas, akan ada tulisan PRIVATE, nah dibawahnya tuliskan :
-PROCEDURE BERSIH;
kalo untuk ISSIMPAN coba lihat bawah dikit setelah PRIVATE dan PUBLIC disana ada yang bertuliskan VAR (variable),dan tuliskan :
IsSimpan : Boolean;
Lihat contoh yang sudah didownload...
type
DeleteTForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private <<============================ Lihat disini
{ Private declarations }
procedure bersih; <<=========
public
{ Public declarations }
end;
var <<============================ Lihat disini
Form1: TForm1;
IsSimpan:Booelean; <<=========
implementation
kalau folder gambarnya di simpan ke drive folder projek gimana cara nya,
ReplyDeletemisal. Projek nya sy simpan di drive c: download dengan nama folder aplikasi projek trus folder gambarnya di simpan juga di drive c: download