Archive for May 2013

Membuat CRUD Delphi dengan Database MySQL

8:23 PM Add Comment
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.
Asal Muasal Munculnya AJAX

Asal Muasal Munculnya AJAX

12:11 PM Add Comment
Tahukan Anda, apa perbedaan paling mencolok antara aplikasi website dengan aplikasi desktop dikomputer? Yup betul gan, Aplikasi desktop lebih interaktif dan responsif dibandingkan aplikasi web.. lho agan-agan kan belum jawab, darimana penulisnya tau kalau jawabannya betul.. emang penulis yang aneh.

Jika anda pernah melihat/menjalankan aplikasi desktop, dimana jika Anda mengklik satu tombol, maka reaksi perubahannya akan langsung terlihat pada aplikasi tersebut, hal itulah yang menjadi aplikasi desktop sangat interaktif.

Lain ceritanya dengan aplikasi website, dimana jika Anda mengklik satu tombol, maka browser akan melakukan refresh/reload pada browser. biasanya layar browser akan menjadi halaman kosong blog berwarna putih sesaat, karena pada saat itu browser sedang melakukan request/permintaan data ke server. Hal itulah yang membuat aplikasi website kurang interaktif dan responsif dibandingkan aplikasi desktop.. sekarang sudah paham gan?

Namun, pada suatu hari yang cerah, ada seorang pria londo, presiden sekaligus pendiri perusahaan Adaptive Path, bernama Jesse James Garret yang memperkenalkan Ajax untuk mengatasi permasalahan tersebut, dimana Ajax dapat membuat aplikasi website menjadi lebih interaktif dan responsif layaknya aplikasi desktop.

Dikemusian hari, Ajax semakin populer saja dikalangan pengembang website, karena kehadiran Ajax menandai lahirnya suatu generasi baru bagi web modern, atau istilah kerennya Web 2.0.

Bermula dari profokasi Google yang menggunakan Ajax untuk membuat aplikasi Google Maps, Google Suggest, dan Gmail. Di ikuti oelh Flickr, Apple, Yahoo! New dan Yahoo!Mail. Terus lahirnya Youtube, Facebook, serta Twitter. Dan terus menginspirasi website-website populer lainnya semakin membuat Ajax tak terbendung aja.

Demikian postingan kali ini tentang sekilas Ajax.. Terus berkarya yang muda yang berkarya.. Salam blogger.

Cara Install ADT

11:02 AM Add Comment
Sejak 3 Desember 2013, situs www.developer.android.com resmi merilis paket ADT 21.x.x ( Android Development Tool) berukuran + 300Mb. ADT berisi SDK (Standart Development Kit) Android dan eclipse yang sudah di set khusus untuk mengembangkan aplikasi android. Jika Anda sudah mempunyai ADT, maka bisa langsung dipakai untuk membuat aplikasi tanpa harus melakukan setting serperti versi sebelumnya. Beirkut ini langkah menjalankan ADT

  1. Lakukan ekstrak file adt-bundle-windows-x86.zp ke C:/developer/android
  2. Masuk ke folder C:/developer/android/eclipse jalankan eclipse.exe

Tampilan Saat Eclips dijalankan



Sekian tutorial kali ini.. Salam blogger.

Cara Install ADT Manual Offline

10:42 AM 19 Comments
Sapa yang gak tau dengan Android?? Mungkin ada yang masih bingung gimana cara install ADT Ke Eclipse dengan cara manual tanpa koneksi internet. Di postingan sebelumnya emang udah ada tapi itu udah bundle satu paket. Kali ini saya mau bagi tutorial cara instal manual step by stap.. Gak usah panjang lebar ntar pada males baca...Lol

Langsung aj, tentu sebelum menginstal menyiap kan apa aja yang dibutuhkan..
1. jdk-7u21-windows-i586 bila yang belum diinstal
2. android-sdk_r21.1-windows
3. android-2.3.3_r01-linux
4. platform-tools_r16.0.2-windows
5. eclipse-java-juno-SR2-win32
6. ADT-21.1.0

FILES

http://adf.ly/1Wb2Qq
http://adf.ly/1Wb6bb
http://adf.ly/1Wb5oS
http://adf.ly/1Wb5Nk
http://adf.ly/1Wb47B
http://adf.ly/1Wb4dk

Bila udah didownload semua, berikut langkah-langkah intallasinya:
  1. Instal jdk-7u21-windows-i586
  2. Buat Folder baru lalu Ekstrak android-sdk_r21.1-windows dalam folder tesebut rename folder dengan nama SDK
  3. Ekstrak android-2.3.3_r01-linux ke dalam folder SDK -> paltform
  4. Ekstrak platform-tools_r16.0.2-windows kedalam folder android-sdk_r21.1-windows
  5. Ekstrak eclipse-java-juno-SR2-win32 kedalam satu folder SDK
bila sudah semua maka akan susunan forder seperti gamabar dibawah


Langkah selanjutnya install ADT kedalam eclipsenya, ikuti langkah seperti gambar dibawah, perlu diingat sebelum installasi pastikan tidak terhubung dengan internet.
  • Buka eclipse yang ada didalam folder eclipse
  • Browse folder workspace untuk menyimpan projek-projek yang kita buat
  •  Selanjutnya pada tampilan awal eclipse pilih menu help ->instal new software
  • Pilih Add
  • Pilih Archive
  • Browse File ADT-21.1.0
  • Centang yang Developer Tools aja
  • Pilih Next
  • Accept... lalu Pilih Finish
  • Jika ada warning next ok aja, karena warning tersebut memberi peringatan jika kita install lewat offline
  • Lalu Restart Now agar efek intallasi nya lancar dan bisa dipakai
  • Pastika setingan SDK location nya udah benar, untuk mengeceknya pilih window -> preferences -> pilih tab yang android, lihat bagian SDK Location nya udah benar belum sama lokasi SDK yang kita ekstrak tadi, klw blum browse aja.

Demikian tutorial cara installasi SDK secara offline, jika masih bingung email aja randy.riolis@gmail.com. Terus berkarya yang muda yang berkarya. Salam bloger...
    Subscribe to: Posts (Atom)

    Followers

    Category : Source Code

    Category : Laravel