Membuat CRUD Delphi dengan Database MySQL

Pada artikel saya kali ini, saya membuat sample program dari java, sebelum saya menerangkannya saya pengen berbicara sedikit tentang istilah CRUD yang saya gunakan.

Langsung aja pertama buat dulu tabel didatabase:
"CREATE TABLE mahasiswa(
nim varchar(50)not null PRIMARY KEY,
nama varchar(50),
alamat varchar(50))"

Langkah selanjutnya buat tampilan utama program seperti gambar dibawah:

Selanjutnya buat form DataModul untuk koneksi kedatabase seperti gamabar dibawah:

Source Code:

1. unit Utama;
3. interface
5. uses
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7.   Dialogs, StdCtrls, Grids, DBGrids, ExtCtrls;
9. type
10.   TFormUtama = class(TForm)
11.     pnl1: TPanel;
12.     lbl1: TLabel;
13.     lbl2: TLabel;
14.     lbl3: TLabel;
15.     edt1: TEdit;
16.     edt2: TEdit;
17.     edt3: TEdit;
18.     dbgrd1: TDBGrid;
19.     btn1: TButton;
20.     btn2: TButton;
21.     btn3: TButton;
22.     lbl4: TLabel;
23.     procedure Simpan();
24.     procedure Ubah();
25.     procedure Hapus();
26.     procedure Tampil();
27.     procedure btn1Click(Sender: TObject);
28.     procedure btn2Click(Sender: TObject);
29.     procedure btn3Click(Sender: TObject);
30.     procedure FormShow(Sender: TObject);
31.   private
32.     { Private declarations }
33.   public
34.     { Public declarations }
35.   end;
37. var
38.   FormUtama: TFormUtama;
40. implementation
42. uses DataModul, MyAccess;
44. {$R *.dfm}
46. procedure TFormUtama.Tampil();
47. begin
48.   with dm.myqryTampil do
49.   begin
50.     Active:=False;
51.     Close;
52.     SQL.Clear;
53.     SQL.Add('SELECT * FROM mahasiswa');
54.     Active:=True;
55.   end;
56. end;
58. procedure TFormUtama.Simpan();
59. begin
60.   try
61.     dm.con1.StartTransaction;
62.     with dm.myqryProses do
63.     begin
64.       Active:=False;
65.       Close;
66.       SQL.Clear;
67.       SQL.Add('INSERT INTO mahasiswa(nim,nama,alamat) VALUES('+
68.         QuotedStr(edt1.Text)+','+
69.         QuotedStr(edt2.Text)+','+
70.         QuotedStr(edt3.Text)+')');
71.       ExecSQL;
72.     end;
73.     dm.con1.Commit;
74.     ShowMessage('Berhasil');
75.   except
76.     dm.con1.Rollback;
77.     ShowMessage('Gagal');
78.   end;
79. end;
81. procedure TFormUtama.Ubah();
82. begin
83.   try
84.     dm.con1.StartTransaction;
85.     with dm.myqryProses do
86.     begin
87.       Active:=False;
88.       Close;
89.       SQL.Clear;
90.       SQL.Add('UPDATE mahasiswa SET nama='+
91.         QuotedStr(edt2.Text)+',alamat='+
92.         QuotedStr(edt3.Text)+' WHERE nim='+
93.         QuotedStr(edt1.Text));
94.       ExecSQL;
95.     end;
96.     dm.con1.Commit;
97.     ShowMessage('Berhasil');
98.   except
99.     dm.con1.Rollback;
100.     ShowMessage('Gagal');
101.   end;
102. end;
104. procedure TFormUtama.Hapus();
105. begin
106.   try
107.     dm.con1.StartTransaction;
108.     with dm.myqryProses do
109.     begin
110.       Connection:=dm.con1;
111.       Close;
112.       SQL.Clear;
113.       SQL.Add('DELETE FROM mahasiswa WHERE nim='+QuotedStr(edt1.Text));
114.       ExecSQL;
115.     end;
116.     dm.con1.Commit;
117.     ShowMessage('Berhasil');
118.   except
119.     dm.con1.Rollback;
120.     ShowMessage('Gagal');
121.   end;
122. end;
124. procedure TFormUtama.btn1Click(Sender: TObject);
125. begin
126.   Simpan();
127.   Tampil();
128. end;
130. procedure TFormUtama.btn2Click(Sender: TObject);
131. begin
132.   Ubah();  
133.   Tampil();
134. end;
136. procedure TFormUtama.btn3Click(Sender: TObject);
137. begin
138.   Hapus();
139.   Tampil();
140. end;
142. procedure TFormUtama.FormShow(Sender: TObject);
143. begin      
144.   Tampil();
145. end;
147. end.

Sekarang kita tinggal jalankan program yang kita buat. Ini untuk screenshoot program ketika dijalankan.

Download Source Code

password : http://randhy-wongpalembang.blogspot.com

Demikian artikel kali ini,jika masih bingung silahkan coment aja.  Terus berkarya yang muda yang berkarya.. Salaam blogger.

Share this

Share on FacebookPlus on Google+