Langkah Pertama buat database
menggunakan MySQL dengan nama database “mhs”. Selanjutnya buat tabel dengan
nama “tbmhs”, jumlah field 6 (nim, nama,
jenkel, alamat, jurusan, foto) isi Ukuran/Panjang Nilai sesuai keinginan.
Kemudian klik Start/Control Panel/System
and Security/Administrative Tools/Data Sources (ODBC) untuk Windows 7. Pada
tab System DSN klik add
pilih MySQL ODBC 3.51 Driver. Isi Data Source Name : mhs, TCP/IP Server : localhost, User : root, Database : mhs (sesuai dengan database yang sudah dibuat diatas)
klik OK.
Desain Form
sesuai dengan gambar dibawah :
 |
Komponen-komponen
yang diperlukan :
1.
Database1
dan Query1 terdapat pada komponen BDE
2.
OpenPictureDialog1
terdapat pada komponen Dialogs
Ket : Atur
properties Database1 dengan ketentuan sebagai berikut :
1DatabaseName:
mhs, LoginPrompt: False, Connected: True.
Atur properties Query1
dengan ketentuan sebagai berikut :
DatabaseName: mhs, SQL: select * from tbmhs, Active: True
Buat
folder dengan nama images dan
tempatkan didalam folder dimana hasil program yang dibuat tersimpan, folder
tersebut berfungsi sebagai tempat penyimpan foto.
Source Code :
1. Untuk Form
Create :
procedure
TForm1.FormCreate(Sender: TObject);
begin
ed_nim.Clear;
ed_nama.Clear;
rb_lk.Checked:=False;
rb_pr.Checked:=False;
ed_alamat.Clear;
cb_jurusan.Clear;
cb_jurusan.Text:='Pilih';
cb_jurusan.Items.Add('Teknik Informatika');
cb_jurusan.Items.Add('Teknik Elektro');
cb_jurusan.Items.Add('D1 Prof. Komputer');
ed_foto.Clear;
Image1.Picture:=nil;
bt_edit.Enabled:=False;
bt_hapus.Enabled:=False;
//Refresh
Database
with Query1 do
begin
SQL.Clear;
SQL.Text:='select * from tbmhs';
Open;
end;
end;
2. Untuk Button
Browse Foto :
procedure
TForm1.bt_fotoClick(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
begin
ed_foto.Text:=OpenPictureDialog1.FileName;
Image1.Picture.LoadFromFile(ed_foto.Text);
end;
end;
3. Untuk Button
Simpan :
procedure
TForm1.bt_simpanClick(Sender: TObject);
var
jenkel:string;
begin
if rb_lk.Checked=True then
jenkel:='Laki-laki'
else if rb_pr.Checked=True then
jenkel:='Perempuan';
if Length(ed_nim.Text) < 1 then
begin
MessageDlg('Lengkapi data
kembali',mtWarning,[mbOK],0);
ed_nim.SetFocus;
Exit;
end;
//file name lokasi folder images ditempatkan,
keterangan : harus disesuaikan dengan tempat folder ditempatkan
Image1.Picture.SaveToFile('D:\EXCOM\images\'+ed_nim.Text+'.jpg');
with Query1 do
begin
SQL.Clear;
SQL.Text:='insert into tbmhs
(nim,nama,jenkel,alamat,jurusan,foto)
values ("'+ed_nim.Text+
'","'+ed_nama.Text+'","'+jenkel+'","'+ed_alamat.Text+'","'+cb_jurusan.Text+
'","'+ed_foto.Text+'")';
ExecSQL;
bt_batalClick(Sender);
end;
end;
4. Untuk Button Edit
:
procedure
TForm1.bt_editClick(Sender: TObject);
var
jenkel:string;
begin
if rb_lk.Checked=True then
jenkel:='Laki-laki'
else if rb_pr.Checked=True then
jenkel:='Perempuan';
//file name lokasi folder images ditempatkan,
keterangan : harus disesuaikan dengan tempat folder ditempatkan
Image1.Picture.SaveToFile('D:\EXCOM\images\'+ed_nim.Text+'.jpg');
with Query1 do
begin
SQL.Clear;
SQL.Text:='update tbmhs set
nama="'+ed_nama.Text+'",jenkel="'+jenkel+
'",alamat="'+ed_alamat.Text+'",jurusan="'+cb_jurusan.Text+'",foto="'+ed_foto.Text+
'" where
nim="'+ed_nim.Text+'"';
ExecSQL;
bt_batalClick(Sender);
end;
end;
5. Untuk Button
Hapus :
procedure
TForm1.bt_hapusClick(Sender: TObject);
begin
with Query1 do
begin
SQL.Clear;
SQL.Text:='delete from tbmhs where
nim='+QuotedStr(ed_nim.Text);
ExecSQL;
bt_batalClick(Sender);
bt_simpan.Enabled:=True;
end;
end;
6. Untuk Button
Batal :
procedure
TForm1.bt_batalClick(Sender: TObject);
begin
FormCreate(Sender);
ed_foto.Clear;
ed_nim.SetFocus;
end;
7. Untuk Button
Keluar:
procedure
TForm1.bt_keluarClick(Sender: TObject);
begin
if MessageDlg('Close the programe
?',mtConfirmation,[mbOK,mbCancel],0) = mrok then
Application.Terminate;
end;
Tampilan
aplikasi ketika dijalankan :
Silahkan download aplikasinya di bawah ini
0 komentar:
Posting Komentar