Input Data Merupakan
Proses memasukkan data berupa gambar, tulisan, angka ke dalam database melalui
Form Aplikasi. Untuk Menyimpan data ke database di Delphi pastikan anda telah membuat tabel barang di database MySQL dan Selanjutnya Buat Coding untuk Simpan data langkahnya adalah sebagai berikut:
1.
Design Form Seperti Tampak Pada gambar dibawah
ini
2.
Atur Properti-Propertinya Untuk Form, Edit, dan
Button
3.
Pastikan Telah Membuat Modul untuk koneksi ke database lihat tutorialnya disini
4.
Tambahkan Komponen Zquery dan setting propertienya untuk koneksi
ke database
5.
Buat variable sts : smallint; di global variable
6.
Buat Coding untuk Form Show, dan form Close
seperti berikut
procedure TFmasterbarang.FormShow(Sender: TObject);
begin
qbarang.Close;
qbarang.open;
end;
procedure TFmasterbarang.FormClose(Sender: TObject;
var Action:
TCloseAction);
begin
qbarang.Close;
end;
7.
Selajutnya Buat Coding untuk tombol Tambah, simpan,
dan Edit Seperti terlihat seperti
berikut
|
Komponen
|
Tombol Tambah
|
|
Event
|
On Click
|
|
Coding
|
bt_simpan.Enabled := true;
groupBarang.Visible :=
true;
gridbarang.Height := 129;
edit_namabarang.SetFocus;
bt_batal.Enabled := true;
sts:=1;
|
|
Komponen
|
Tombol
Simpan
|
|
Event
|
On Click
|
|
Coding
procedure
TFmasterbarang.bt_simpanClick(Sender: TObject);
begin
if
edit_namabarang.Text = '' then
begin
application.MessageBox ('Silakan isi Nama
Barang terlebih dahulu..','SIMKorin',MB_ok + MB_NOFOCUS + MB_ICONERROR);
edit_namabarang.SelectAll;
edit_namabarang.SetFocus;
exit;
end;
if sts=1 then
begin // tambah data
with dm.qr do
begin
close;
sql.Clear;
sql.Add('insert into
tbarang(namabarang,tipe,gol,unit,lot,jmlbarang, ');
sql.Add('kategori,
hargajualrp,hargabelirp,hargajualusd,hargabeliusd)');
SQL.Add(' values
(:nbrg,:tip,:gl,:unit,:lot,:jb,:ktg,:hjp,:hbp,:hju,:hbu)');
ParamByName('nbrg').AsString :=
edit_namabarang.Text;
ParamByName('tip').AsInteger :=
cmb_tipe.ItemIndex+1;
ParamByName('gl').AsString :=
edit_gol.Text;
ParamByName('unit').AsString :=
edit_unit.Text;
ParamByName('lot').AsString := edit_lot.Text;
ParamByName('jb').AsInteger :=
strtoint(edit_jumlahbarang.Text);
ParamByName('ktg').AsInteger :=
cmb_kategori.ItemIndex+1;
ParamByName('hjp').AsInteger :=
STRTOINT(edit_hargajual_rp.Text);
ParamByName('hbp').AsInteger:=
STRTOINT(edit_hargabeli_rp.Text);
ParamByName('hju').AsInteger :=
STRTOINT(edit_hargajual_usd.Text);
ParamByName('hbu').AsInteger :=
STRTOINT(edit_hargabeli_usd.Text);
//params[2].AsInteger:=cmb_tipe.ItemIndex+1;
ExecSQL;
ShowMessage('Simpan Data Berhasil');
close;
end;
end;
if sts=0 then
begin //update data
with dm.qr do
begin
close;
sql.Clear;
sql.Add('update tbarang set
namabarang=:namabarang,tipe=:tipe,gol=:gol,');
sql.Add('unit=:unit,lot=:lot,jmlbarang=:jmlbarang,kategori=:kategori,');
sql.Add('hargajualrp=:hjp,hargabelirp=:hbp,hargajualusd=:hju,');
sql.Add('hargabeliusd=:hbu where
idbarang="'+edit_idbarang.Text+'"');
ParamByName('namabarang').AsString :=
edit_namabarang.Text;
ParamByName('tipe').AsInteger :=
cmb_tipe.ItemIndex+1;
ParamByName('gol').AsString :=
edit_gol.Text;
ParamByName('unit').AsString :=
edit_unit.Text;
ParamByName('lot').AsString :=
edit_lot.Text;
ParamByName('jmlbarang').AsInteger :=
strtoint(edit_jumlahbarang.Text);
ParamByName('kategori').AsInteger :=
cmb_kategori.ItemIndex+1;
ParamByName('hjp').AsInteger :=
STRTOINT(edit_hargajual_rp.Text);
ParamByName('hbp').AsInteger:=
STRTOINT(edit_hargabeli_rp.Text);
ParamByName('hju').AsInteger :=
STRTOINT(edit_hargajual_usd.Text);
ParamByName('hbu').AsInteger :=
STRTOINT(edit_hargabeli_usd.Text);
ExecSQL;
ShowMessage('Edit Data Berhasil');
close;
end ;
end;
QBARANG.Refresh;
end;
|
|
8.
Selanjutnya Uji Coba Input data di Form, seperti
terlihat pada gambar dibawah ini
Untuk Tabel Barang Struktur Datanya adalah sebagai berikut.
 |
| STRUKTUR DATABASE TABEL BARANG |
Selamat Mencoba
Padepokan-IT Course
IT. Training Center & Solution
No comments:
Post a Comment