Friday, May 23, 2014
Insert Update dan Delete dengan Raudus di Delphi
Ini adalah postingan kedua saya tentang Raudus. sebelumnya saya sudah pernah membahas tentang bagaimana membuat sebuah website di Delphi dengan menggunakan Framework Raudus pada postingan berkenalan dengan raudus, jika anda belum membacanya silahkan cek disini karena ini adalah lanjutannya.
Seperti yang sudah sering saya sampaikan, dalam membangun aplikasi. database hal utama yang perlu ada dalam proses aplikasi adalah adanya proses insert, update dan delete data oleh karenanya pada postingan ini saya akan membahas bagaimana membuat proses tersebut (CRUD) dengan Raudus.
Membuat Aplikasi CRUD data Web Based Sederhana dengan Raudus di Delphi
1. Saya berasumsi anda sudah membaca postingan saya, jadi kita tidak akan membahas bagaimana memulai membuat aplikasi dengan Framework Raudus (Fokus ke proses insert, update dan delete).
2. Disini saya menggunakan dua buah form, form1 untuk form utama dan form dua untuk proses Editing data seperti terlihat pada gambar diatas. silahkan Desain form tersebut sesuai kebutuhan anda.
3. Buatlah sebuah database dengan minimal sebuah tabel. DBMSnya terserah anda. saya sendiri menggunakan Database Access. Untuk koneksi sama saja dengan koneksi database pada umumnya. silahkan baca disini
4. Step selanjutnya menambahkan komponen ke dua buah form yang telah kita tambahkan. adapun komponen yang saya gunakan adalah sebagai berikut
Nomor | Nama Komponen | Jumlah | Lokasi Pallete |
Form 1 | RaPanel | 3 | Raudus |
RaDBGrid | 1 | Raudus | |
RaBitButton | 3 | Raudus | |
Open Picture Dialog | 1 | Dialog | |
RaButton | 2 | Raudus | |
RaImage | 2 | Raudus | |
RaEdit | 3 | Raudus | |
RaCombobox | 1 | Raudus | |
RaLabel | 4 | Raudus | |
AdoConnection | 1 | Ado | |
AdoQuery | 1 | Ado | |
Datasource | 1 | Data Access | |
Form 2 | RaPanel | 3 | Raudus |
RaBitButton | 2 | Raudus | |
Open Picture Dialog | 1 | Dialog | |
RaButton | 2 | Raudus | |
RaImage | 1 | Raudus | |
RaEdit | 3 | Raudus | |
RaCombobox | 1 | Raudus | |
RaLabel | 5 | Raudus |
5. Langkah kelima adalah mengatur properti masing-masing komponen seperti melakukan koneksi ke database yang telah dibuat. mengatur caption dan peletakan. saya kira ini bukan masalah.
6. Yang perlu ditekankan mungkin adalah proses untuk menampilkan data ke RaDBGrid. Caranya adalah Masuk ke Objek TreeView lalu pilih komponen RaImage | Tambahkan Item sesuai jumlah field dalam tabel anda lalu atur properti masing-masing items (FieldName) di Objek Inspector
6. Yang perlu ditekankan mungkin adalah proses untuk menampilkan data ke RaDBGrid. Caranya adalah Masuk ke Objek TreeView lalu pilih komponen RaImage | Tambahkan Item sesuai jumlah field dalam tabel anda lalu atur properti masing-masing items (FieldName) di Objek Inspector
Proses Pencodingan
Saya anggap sudah tidak ada masalah dengan langkah diatas jadi kita lanjutkan dengan membuat prosesnya. Sebenarnya coding untuk melakukan proses simpan, edit dan delete sama seperti pada umumnya. berikut adalah coding yang saya gunakan.
1. Coding Cari Gambar
if OpenPictureDialog1.Execute then
RaImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
2. Coding Simpan
if (RaEdit1.Text='') or (RaEdit2.Text='') or (RaEdit3.Text='') or (RaComboBox1.Text='') then
MessageDlg('Inputan Masih ada yang kosong !',mtInformation,[mbok],0) else
begin
ADOQuery2.Append;
ADOQuery2.FieldByName('nama').AsString:=RaEdit1.Text;
ADOQuery2.FieldByName('jenis_kelamin').AsString:=RaComboBox1.Text;
ADOQuery2.FieldByName('handphone').AsString:=RaEdit2.Text;
ADOQuery2.FieldByName('foto').AsString:=OpenPictureDialog1.FileName;
ADOQuery2.FieldByName('tanggal').AsString:=RaEdit3.Text;
ADOQuery2.Post;
ShowMessage('Berhasil di Simpan !');
3. Coding Hapus
if ADOQuery2.RecordCount<=0 then
MessageDlg('Data Tidak ada !',mtWarning,[mbok],0) else
ADOQuery2.Delete;
4. Coding Edit (Form1)
if ADOQuery2.RecordCount<=0 then
MessageDlg('Data Tidak ada !',mtWarning,[mbok],0) else
begin
Form2.RaEdit1.Text:=Form1.ADOQuery2['nama'];
Form2.RaComboBox1.Text:=Form1.ADOQuery2['jenis_kelamin'];
Form2.RaEdit2.Text:=Form1.ADOQuery2['handphone'];
Form2.RaImage1.Picture.LoadFromFile(Form1.ADOQuery2['foto']);
form2.RaEdit3.Text:=Form1.ADOQuery2['tanggal'];
Form2.Show;
end;
5. Coding Update (Form2)
if (RaEdit1.Text='') or (RaEdit2.Text='') or (RaEdit3.Text='') or (RaComboBox1.Text='') thenMinat Source code ? Download disini. Happy Coding. :)
MessageDlg('Inputan Masih ada yang kosong !',mtInformation,[mbok],0) else
begin
Form1.ADOQuery2.Edit;
Form1.ADOQuery2.FieldByName('nama').AsString:=RaEdit1.Text;
Form1.ADOQuery2.FieldByName('jenis_kelamin').AsString:=RaComboBox1.Text;
Form1.ADOQuery2.FieldByName('handphone').AsString:=RaEdit2.Text;
Form1.ADOQuery2.FieldByName('foto').AsString:=OpenPictureDialog1.FileName;
Form1.ADOQuery2.FieldByName('tanggal').AsString:=RaEdit3.Text;
Form1.ADOQuery2.Post;
ShowMessage('Berhasil di Perbarui !');
end;
Subscribe to:
Post Comments (Atom)
thanks gan numpang copy paste ya materinya!
ReplyDeletekenapa ketika koneksi adotable muncul error "CoInitialize has not been called" mohon pencerahan
ReplyDeleteGimana caranya supaya pas load form bisa setfocus ke edit.text ?
ReplyDelete