[Delphi] Penyimpanan Data ke Database Secara Massal

Tutorial ini saya buat sebenarnya menanggapi banyaknya pertanyaan2 baik melalui ym ato email bahkan temen2 sendiri ada yg telepon menanyakan bagaimana caranya menyimpan data input dari aplikasi ke database dalam 1x klik maka akan menyimpan seluruh data yang tertampung sebelumnya, mungkin hal ini dapat diakali dengan cara membuat suatu table temporary dan kemudian isi dari table temporary tersebut dimasukkan ke tabel sebenarnya tapi saya bilang hal ini sangat merepotkan, sebelum memasuki topik utamanya, terlebih dahulu saya akan menjelaskan tentang kegunaan penyimpanan data secara massal ini, mungkin bagi yang masih kuliah akan mengalami hal ini ketika contohnya mengerjakan tugas membuat suatu aplikasi peminjaman dimana ketika satu anggota dapat meminjam lebih dari 1 barang, nah disini akan dibahas cara untuk menyimpannya dalam 1 klik saja. tentunya dengan menggunakan Delphi 🙂 , sebelumnya diinformasikan bahwa tutorial ini mengasumsikan temen-temen telah dapat mengkoneksikan antara aplikasi dengan database, database yang akan dicontohkan yaitu adalah MySQL. apabila temen-temen belum dapat mengkoneksikannya maka alangkah baiknya temen-temen membaca artikel sebelumnya di https://programminglearning.wordpress.com/2009/05/02/delphi-koneksi-delphi-mysql-dengan-menggunakan-zeos/ .

Sekarang kita akan memulai untuk proses pembuatannya, pertama kita siapkan terlebih dahulu rancangan database dimana saya memberi nama databasenya “db_vcd”, saya tidak akan membuat aplikasi yang kompleks melainkan hanya sesuai dengan topik yang dibahas, adapun rancangan database hanya melingkupi peminjaman saja, untuk barang dan lainnya akan saya buat sebagai data statis. berikut ini adalah rancangannya tabelnya :

nah, selanjutnya kita membuat suatu form, disini untuk menyimpan data-data transaksi saya akan memakai TStringGrid, berikut ini adalah rancangan formnya :

Berbeda dengan tutorial sebelumnya, sekarang saya menggunakan Delphi 7 untuk praktiknya 🙂 hal ini karena pertimbangan saya masih banyak programmer delphi yang menggunakan versi 7 untuk belajar. seperti yang kita lihat rancangan form di atas dalam koneksi dengan MySQL menggunakan Zeos dan sekali lagi bagi yang belum mengerti mengenai koneksi Aplikasi ke MySQL dengan menggunakan zeos silahkan membaca tutorial saya yang sebelumnya, untuk rancangannya sendiri, file rancangannya adalah sbb :

object frmMain: TfrmMain
Left = 303
Top = 177
BorderStyle = bsDialog
Caption = 'Penyimpanan Data Secara Massal'
ClientHeight = 403
ClientWidth = 629
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 16
Top = 40
Width = 93
Height = 13
Caption = 'Tanggal Transaksi :'
end
object Label2: TLabel
Left = 37
Top = 13
Width = 72
Height = 13
Caption = 'No. Transaksi :'
end
object Label3: TLabel
Left = 320
Top = 40
Width = 99
Height = 13
Caption = 'Tanggal Kembali :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 323
Top = 13
Width = 96
Height = 13
Alignment = taRightJustify
Caption = 'Anggota Peminjam :'
end
object dpPinjam: TDateTimePicker
Left = 115
Top = 37
Width = 186
Height = 21
Date = 39948.274073159720000000
Time = 39948.274073159720000000
TabOrder = 0
OnChange = dpPinjamChange
end
object edNota: TEdit
Left = 115
Top = 10
Width = 186
Height = 21
TabOrder = 1
end
object dpKembali: TDateTimePicker
Left = 425
Top = 37
Width = 186
Height = 21
Date = 39948.274073159720000000
Time = 39948.274073159720000000
TabOrder = 2
end
object cbAnggota: TComboBox
Left = 425
Top = 10
Width = 186
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 3
Items.Strings = (
'Tigor Mangatur Manurung'
'Heri Wersyadi'
'Hendra Purwanto'
'Susi Simelekete'
'Andi Purnama')
end
object Panel1: TPanel
Left = 16
Top = 80
Width = 595
Height = 273
BevelOuter = bvLowered
TabOrder = 4
object Label5: TLabel
Left = 21
Top = 8
Width = 71
Height = 13
Caption = 'Nama Barang :'
end
object sgData: TStringGrid
Left = 21
Top = 40
Width = 556
Height = 217
ColCount = 2
FixedCols = 0
RowCount = 2
ScrollBars = ssVertical
TabOrder = 0
ColWidths = (
105
420)
end
object cbBarang: TComboBox
Left = 98
Top = 5
Width = 383
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 1
end
object btnTambah: TButton
Left = 487
Top = 3
Width = 90
Height = 25
Caption = 'Tambah'
TabOrder = 2
OnClick = btnTambahClick
end
end
object btnSimpan: TButton
Left = 455
Top = 368
Width = 75
Height = 25
Caption = '&Simpan'
TabOrder = 5
OnClick = btnSimpanClick
end
object btnBatal: TButton
Left = 536
Top = 368
Width = 75
Height = 25
Caption = '&Batal'
TabOrder = 6
OnClick = btnBatalClick
end
object zConn: TZConnection
Protocol = 'mysql'
HostName = 'localhost'
Port = 3308
Database = 'db_vcd'
User = 'root'
Connected = True
Left = 16
Top = 368
end
object qAct: TZQuery
Connection = zConn
Params = <>
Left = 48
Top = 368
end
end

Karena akan terlalu banyak yang diterangkan, maka saya langsung kepada kode pada unitnya, tetapi jangan khawatir karena saya telah menyertakan komentar-komentar supaya lebih mudah memahami maksud dalam setiap sintak yang ada 🙂

unit uMain;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, ExtCtrls, ComCtrls, ZConnection, DB,
ZAbstractRODataset, ZAbstractDataset, ZDataset;

type
TfrmMain = class(TForm)
Label1: TLabel;
dpPinjam: TDateTimePicker;
Label2: TLabel;
edNota: TEdit;
Label3: TLabel;
dpKembali: TDateTimePicker;
Label4: TLabel;
cbAnggota: TComboBox;
Panel1: TPanel;
sgData: TStringGrid;
Label5: TLabel;
cbBarang: TComboBox;
btnTambah: TButton;
btnSimpan: TButton;
btnBatal: TButton;
zConn: TZConnection;
qAct: TZQuery;
procedure FormCreate(Sender: TObject);
procedure btnBatalClick(Sender: TObject);
procedure btnTambahClick(Sender: TObject);
procedure dpPinjamChange(Sender: TObject);
procedure btnSimpanClick(Sender: TObject);
private
function GenCode: string; //fungsi auto no.nota
procedure RunSQL(_SQL: string ; isOpen: boolean = True);
{ Private declarations }
public
{ Public declarations }
end;
CONST
lama_pinjam_hari = 7; //lama pinjam adalah 7 hari
var
frmMain: TfrmMain;
iRow: integer;  //variabel indikator jumlah baris

implementation

{$R *.dfm}

procedure TfrmMain.FormCreate(Sender: TObject);
var
ch: char;
begin
//variabel jumlah baris
iRow := 2;
//Pembuatan judul kolom grid
with sgData do
  begin
   Cells[0,0] := 'No. Nota';
   Cells[1,0] := 'Nama Barang';
  end;
//buat simulasi nama barang
for ch := 'A' to 'Z' do
  begin
   cbBarang.Items.Add('Barang - ' + ch);
  end;

//set tanggal pinjam menjadi tanggal hari ini
dpPinjam.Date := NOW;

//set tanggal kembali secara default
dpKembali.Date := Now + lama_pinjam_hari;

//munculkan nota
edNota.Text := GenCode;
end;

function TfrmMain.GenCode: string;
CONST
zero = '0000';
var
strTemp: string;
begin
//Format Nota adalah N-0001

//liat no.nota terakhir dari tb_pinjam
RunSQL('SELECT idpinjam FROM tb_pinjam ORDER BY idpinjam DESC LIMIT 1');

//cek apakah udah ada data dalam tabel, kalo belum hasilkan nilai pertama seperti format
//pada contoh
if qAct.Eof then
  begin
   result := 'N-0001';
   exit; //stop sampe disini saja perintahnya,
  end;

//jika memasuki baris ini, maka berarti telah ada data dalam tabel dan saatnya untuk
//melakukan filtering
strTemp := Copy(qAct.FieldByName('idpinjam').AsString,3,4); //potong data yang ditemukan dari karakter ke - 3 dan
//karakter yg dipotong adalah 4 (sampai akhir format no.nota)

strTemp := IntToStr(StrToInt(strTemp) + 1);//dah ketemu nilai berikutnya

strTemp := 'N-' + Copy(zero,1,Length(zero) - Length(strTemp)) + strTemp;
result  := strTemp;

end;

procedure TfrmMain.btnBatalClick(Sender: TObject);
begin
Application.Terminate;
end;

procedure TfrmMain.btnTambahClick(Sender: TObject);
begin
//validasi ketika pilihan kosong, maka abaikan perintah penambahan
if cbBarang.ItemIndex < 0 then
  exit; //supaya tidak menjalankan perintah selanjutnya ketika tidak ada barang yg dipilih

//identifikasikan jumlah baris
sgData.RowCount := iRow;

//isikan data sesuai pilihan ke dalam grid
with sgData do
  begin
   Cells[0,RowCount - 1] := edNota.Text;
   Cells[1,RowCount - 1] := cbBarang.Text;
  end;

//bersihkan isi cbBarang
cbBarang.ItemIndex := -1; //karena style DropDownList, maka membersihkannya dengan cara seperti ini

//tambah jumlah baris
Inc(iRow,1);
end;

procedure TfrmMain.dpPinjamChange(Sender: TObject);
begin
//isikan secara default tanggal pengembalian, lama pinjam sesuai dengan konstanta yang telah ditetapkan
dpKembali.Date := dpKembali.Date + lama_pinjam_hari;
end;

procedure TfrmMain.RunSQL(_SQL: string; isOpen: boolean);
begin
with qAct do
  begin
    Close;
    SQL.Text := _SQL;
    if isOpen then
     Open
    else
     ExecSQL;
  end;
end;

procedure TfrmMain.btnSimpanClick(Sender: TObject);
var
i: integer;
_SQL: string;
begin
try
//simpan ke tabel tb_detpinjam dlu ya
for i:=1 to sgData.RowCount - 1 do  //ini nih cara nyimpen massal yang sederhana, pake looping aja
  begin                             //jadi disimpen per baris gitu, inget mulai baris 1 pada stringgrid karena baris 0 adalah judul kolom!!!
    _SQL := 'INSERT INTO tb_detpinjam(idpinjam,barang)VALUES(' + QuotedStr(sgData.Cells[0,i]) + ',' + QuotedStr(sgData.Cells[1,i]) + ')';
    RunSQL(_SQL,False); //eksekusi SQL
  end;

//setelah selesai, dah simpen di tabel tb_pinjam
_SQL := 'INSERT INTO tb_pinjam(idpinjam,anggota,tglpinjam,tglkembali)VALUES(' +
QuotedStr(edNota.Text) + ',' + QuotedStr(cbAnggota.Text) + ',' + QuotedStr(FormatDateTime('yyyy-mm-dd',dpPinjam.Date)) +
',' + QuotedStr(FormatDateTime('yyyy-mm-dd',dpKembali.Date)) + ')';
RunSQL(_SQL,False); //eksekusi SQL
Application.MessageBox('Data berhasil disimpan dengan sempurna!!!','Informasi',MB_OK or MB_ICONINFORMATION);

//generate no.nota selanjutnya
edNota.Text := GenCode;

//bersih - bersih...
iRow := 2;
with sgData do
  begin
   RowCount := iRow;
   Cells[0,1] := ''; Cells[1,1] := '';
  end;

except
  Application.MessageBox('Data gagal disimpan dengan sempurna!!!','Peringatan',MB_OK or MB_ICONERROR);
end;
end;

end.

Untuk yang belum jelas atau berhasil silahkan download project jadi disini

Demikian tutorial ini semoga berguna bagi temen-temen semuanya…