Menyimpan Gambar di MySQL dengan Delphi

Sebelumnya sudah saya posting tentang Upload Gambar dengan Delphi . Nah, posting yang sekarang ini lanjutannya yaitu menyimpan gambar di database MySQL.

1. Buat Project baru atau dapat melanjutkan project yang sebelumnya dan siapkan database.

2. Pada Button Upload gambar tambahkan kode berikut :

if OpenPictureDialog1.Execute then

begin

eFoto.Picture.LoadFromFile(OpenPictureDialog1.FileName);

eFileFoto.Text:=OpenPictureDialog1.FileName;

end;

eFoto merupakan komponen TImage yang berfungsi menampilkan gambar yang telah diupload.

eFileFoto merupakan komponen TEdit yang berfungsi menampilkan nama file foto.

3. Pada Button Simpan tambahkan kode berikut :

with dm.qCalon_Pegawai do

begin

    Active:=False;

    Close;

    SQL.Clear;

    SQL.Text:='insert into data_pribadi_calon (no_ktp, nama,tempat_lahir, tgl_lahir, agama, alamat, no_telp, warganegara, status_nikah, stat, foto) values (:a, :b, :c, :d, :e, :f, :g, :h, :i, :j, :k)';

    ParamByName('a').AsString:=eKTP.Text;

    ParamByName('b').AsString:=eNama.Text;

    ParamByName('c').AsString:=eTempat.Text;

    ParamByName('d').AsString:=FormatDateTime('yyyy/mm/dd',eTgl.Date);

    ParamByName('e').AsString:=cbAgama.Text;

    ParamByName('f').AsString:=eAlamat.Text;

    ParamByName('g').AsString:=eTelp.Text;

    ParamByName('h').AsString:=eWn.Text;

    ParamByName('i').AsString:=cbNikah.Text;

    ParamByName('j').AsString:='Calon';

    ParamByName('k').AsString:=eFileFoto.Text;

    Execute;

  end;

Proses simpan sudah selesai.

4. Untuk menampilkan kembali gambar yang sudah tersimpan di database, maka pada dbgrid event oncellclick tambahkan kode berikut :

if (DM.qCalon_Pegawai.fieldbyname('foto').AsString='') or (DM.qCalon_Pegawai.fieldbyname('foto').AsString=Null) then

  begin

    eFoto.Picture:=nil;

  end

  else

  begin

    eFoto.Picture.LoadFromFile(DM.qCalon_Pegawai.fieldbyname('foto').AsString);

    eFileFoto.Text:=DM.qCalon_Pegawai.fieldbyname('foto').AsString;

  end;

Hasilnya terlihat seperti gambar di bawah ini:

Upload Gambar di Delphi

Berhubung kemarin baru saja menghadapi masalah upload gambar di delphi dan serching pun hanya menemukan beberapa solusi, maka sekarang akan saya bagikan satu solusi untuk upload gambar di delphi. Langkah-langkahnya sebagai berikut:

1. Buka Delphi (So pasti... :p) dan buat project baru.

2. Tambahkan komponen TOpenPictureDialog, TImage dan TcxButton.

3. Atur Stretch TImage menjadi True pada jendela property untuk mendapatkan hasil gambar yang sesuai dengan ukuran TImage.

4. Tambahkan kode berikut di TcxButton:

if OpenPictureDialog1.Execute then
begin
eFoto.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;

5. TOpenPictureDialog hanya dapat membuka gambar dengan format *.png;*.png;*.bmp;*.ico. Untuk menambahkan format lain, maka dapat ditambah kode jpeg pada uses.

Atau dapat mengaturnya pada Filter di jendela properties.

6. Hasil setelan di RUN.

Black Box Testing VS White Box Testing

Pengujian perangkat lunak adalah elemen kritis dari jaminan kualitas suatu perangkat lunak dan merepresentasikan spesifikasi, desain dan pengkodeannya. Pada dasarnya, pengujian merupakan satu langkah dalam proses rekayasa perangkat lunak yang dapat dianggap sebagai hal yang merusak daripada membangun. Berikut ini adalah metode pengujian perangkat lunak yang sering digunakan:

A. BLACK BOX TESTING

 

Black-box testing adalah metode pengujian perangkat lunak yang tes fungsionalitas dari aplikasi yang bertentangan dengan struktur internal atau kerja. Ujicoba blackbox berusaha untuk menemukan kesalahan dalam beberapa kategori, diantaranya :

• Fungsi-fungsi yang salah atau hilang,
• Kesalahan interface,
• Kesalahan dalam struktur data atau akses database eksternal,
• Kesalahan performa.

B. WHITE BOX TESTING

White Box Testing merupakan perancangan test case yang menggunakan struktur kontrol dari perancangan prosedural untuk mendapatkan test case. Testing ini meliputi testing logika, kondisi, pengulangan atau blok statement, testing pada sebagian atau seluruh bagian program.

Jadi, dapat disimpulkan:

Pengujian dengan metode Black Box lebih mudah dilakukan karena penguji hanya mencari kesalahan dari program yang telah dibuat seperti kesalahan fungsi, interface, struktur data, dan performa (kesalahan fisik/ kesalahan yang masih terlihat). Sedangkan untuk pengujian dengan metode White Box penguji diharapkan untuk melakukan test terhadap hal-hal kecil tetapi sangat berpengaruh seperti: logika, kondisi, pengulangan atau blok statement, testing pada sebagian atau bahkan seluruh bagian program. Kedua metode pengujian perangkat lunak ini dan implikasinya sangatlah penting untuk dilakukan karena mengacu pada kualitas perangkat lunak yang dihasilkan nantinya.

Pengurutan(Sorting) dengan Delphi

Ni postingan pertama q tentang pemograman...

moga ja bisa ngebantu kalian.

hehe

:p

Kalo da salah ya mohon dimaklumi, karena q juga baru dalam tahap pembelajaran..

^_^

CARA MEMBUAT PRRGRAM PENGURUTAN

1. Buka apilkasi delphimu, setelah itu buat Label dengan nama "Data [1]" sampai "Data [10]".

2. Buat kotak isian dengan memilih komponen edit,(sesuaikan dengan jumlah Labelnya), dan buat lagi, kalo Labelnya ada 10 berarti komponen editnya ada 20.

kayak gini gambarnya:

3. Setelah itu buat tombol dengan nama Input,StrToInt,Pengurutan dan Selesai lalu pada tiap-tiap beri skrip.

Untuk Tombol input skripnya seperti:

procedure TForm1.Button3Click(Sender: TObject);
begin
edit1.text:='';
edit2.text:='';
edit3.text:='';
edit4.text:='';
edit5.text:='';
edit6.text:='';
edit7.text:='';
edit8.text:='';
edit9.text:='';
edit10.text:='';
button2.Enabled:=false;
button4.Enabled:=true;
end;

Untuk Tombol StrToInt skripnya seperti berikut:

{Untuk Mengubah Data String Ke Integer}
procedure TForm1.Button1Click(Sender: TObject);
begin
data[1]:=StrToInt(edit1.text);
data[2]:=StrToInt(edit2.text);
data[3]:=StrToInt(edit3.text);
data[4]:=StrToInt(edit4.text);
data[5]:=StrToInt(edit5.text);
data[6]:=StrToInt(edit6.text);
data[7]:=StrToInt(edit7.text);
data[8]:=StrToInt(edit8.text);
data[9]:=StrToInt(edit9.text);
data[10]:=StrToInt(edit10.text);
{Untuk Mengnonaktifkan Tombol}
button2.Enabled:=true;
end;

Untuk Tombol Pengurutan skripnya:

{Untuk Mengurutkan/Memproses Data}
procedure TForm1.Button2Click(Sender: TObject);
var
i,j,kecil,sementara: integer;
begin
for i:=1 to 9 do
begin
kecil:=i;
for j:=(i+1) to 10 do
begin
if data[j]< data[kecil] then begin kecil:=j; end; end; sementara:=data[i]; data[i]:=data[kecil]; data[kecil]:=sementara; end; edit11.Text:=IntToStr(data[1]); edit12.Text:=IntToStr(data[2]); edit13.Text:=IntToStr(data[3]); edit14.Text:=IntToStr(data[4]); edit15.Text:=IntToStr(data[5]); edit16.Text:=IntToStr(data[6]); edit17.Text:=IntToStr(data[7]); edit18.Text:=IntToStr(data[8]); edit19.Text:=IntToStr(data[8]); edit20.Text:=IntToStr(data[10]); {Untuk Menampilkan Jendela} showmessage('Data Sudah Terurut'); {Untuk Mengaktifkan Tombol} button4.Enabled:=true; button3.Enabled:=true; end;

Skrip untuk Tombol Selesai:

{Untuk Mengakhiri Program}
procedure TForm1.Button4Click(Sender: TObject);
begin
close;
end;
{Untuk Mengnonaktifkan Tombol}
procedure TForm1.FormCreate(Sender: TObject);
begin
button2.Enabled:=false;
button4.Enabled:=false;
button3.Enabled:=false;
end;

Janan lupa untuk isikan skrip ini diantara public dan { Public declarations }:

data:array[1..10] of integer;
end;

Dan Beginilah hasil Akhirnya:

Ya seperti itu tampilannya, kalo pengen memodifikasi supaya tampilannya lebih bagus pada form berikan judul dan warna, pengaturannya ada di jendela object inspector.

kalo g jelas bisa tanya ke q,komen saja dibawah postingan ini.

OK...moga berhasil..

ba...baaaayyyy....

(^_^)/'