Membuat Program Database Sederhana (Delphi)

Kali ini saya akan berbagi tentang membuat program delphi yakni program database sederhana. Berikut penampakannya:

Oke langsung aja kita ke TKP

1.Buatlah tabel di database anda dengan field sebagai berikut:

Nama tabel : pelanggan
Primary Key : kd_pelanggan

Field	Type	Size
Kd_Pelanggan	Char	5
Nm_Pelanggan	Varchar	35
Alamat	Varchar	100
No_hp	Varchar	15

2. Desain form seperti gambar di bawah ini:

Buka tab code, lalu tambahkan kode uses unit2 tepat di baah " implemetation " .

implementation
  uses unit2;

Kembali ke form, pilih DBGrid, dan ubah propertie DataSource dengan memilih DM.DS ( DM adalah nama dari Data Module dan DS adalah nama dari DataSource yang berada pada data module). Bagin anda yang belum tahu cara membuat Data Module silahkan baca postingan sebelumnya tentang Membuat Data Module (Delphi) . 

Kembalike tab code, deklarasikan 4 procedure berikut pada private.

private
    { Private declarations }
    procedure tampildata;
    procedure bersihdata;
    procedure tombolmati;
    procedure tombolhidup;

Lengkapi procedure diatas dengan mengetikkan perintah seperti berikut.

procedure TForm1.tampildata;
  begin
    with dm.tampil do
      begin
        sql.Clear;
        sql.Add('select * from barang');
        active := false;
        active := true;
      end;
  end;

 procedure TForm1.bersihdata;
  begin
    edit1.Clear;
    edit2.Clear;
    edit3.Clear;
    edit4.Clear;
    edit5.Clear;
  end;

  procedure TForm1.tombolmati;
  begin
    button1.Enabled := true;
    button2.Enabled := false;
    button3.Enabled := false;
  end;

  procedure TForm1.tombolhidup;
  begin
     button1.Enabled := false;
     button2.Enabled := true;
     button3.Enabled := true;
  end;

Kembali ke Form, pilih event OnShow lalu double click pada event tersebut dan lengkapi perintah seperti berikut:

 

procedure TForm1.FormShow(Sender: TObject);
begin
   tampildata;
   bersihdata;
   tombolmati;
end;

Jalankan program, jika langkah yang anda kerjakan sudah benar maka tampilan akan seperti berikut:

Selanjutnya double click pada edit1, tamabahkan code berikut:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if edit1.Text<>'' then
    begin
      with dm.Query do
        begin
          sql.Clear;
          sql.Add('select * from barang where Kd_barang="'+edit1.Text+'"');
          open;
          if not eof then
            begin
              edit2.Text:=fieldvalues['Nm_barang'];
              edit3.Text:=fieldvalues['Hrg_beli'];
              edit4.Text:=fieldvalues['Hrg_jual'];
              edit5.Text:=fieldvalues['Stok'];
              tombolhidup;
            end
            else
              begin
                edit2.Clear;
                edit3.Clear;
                edit4.Clear;
                edit5.Clear;
                tombolmati;
              end;
        end;
    end;
end;

Selanjutnya Button Simpan , berikut code nya :

procedure TForm1.Button1Click(Sender: TObject);
begin
  if length(edit1.Text)<>5 then
    begin
      messagedlg('Maaf, kode barang harus 5 karakter!',mtwarning,mbokcancel,0);
      edit1.SetFocus;
      exit;
    end;

  if messagedlg('Apakah anda yakin akan menyimpan data ini?',mtconfirmation,[mbyes,mbno],0)=mryes then
    begin
      with dm.Query do
        begin
          sql.Clear;
          sql.Add('insert into barang(Kd_barang,Nm_barang,Hrg_beli,Hrg_jual,Stok)');
          sql.Add('values ("'+edit1.Text+'","'+edit2.Text+'","'+edit3.Text+'","'+edit4.Text+'","'+edit5.Text+'")');
          execsql;
        end;
        tampildata;
        bersihdata;
        tombolmati;
        showmessage('Data telah berhasil disimpan');
        edit1.SetFocus;
    end;

end;

Lalu button Edit :

procedure TForm1.Button2Click(Sender: TObject);
begin
     if messagedlg('Apakah anda yakin akan mengubah data ini?',mtconfirmation,[mbyes,mbno],0)=mryes then
      begin
        with dm.Query do
          begin
            sql.Clear;
            sql.Add('update barang set Nm_barang="'+edit2.Text+'",Hrg_beli="'+edit3.Text+'",');
            sql.Add('Hrg_jual="'+edit4.Text+'",Stok="'+edit5.Text+'" where Kd_barang="'+edit1.Text+'"');
            execsql;
          end;
          tampildata;
          bersihdata;
          tombolmati;
          showmessage('Data telah berhasil diubah');
          edit1.SetFocus;
      end;
end;

Lanjut Ke button hapus:

procedure TForm1.Button3Click(Sender: TObject);
begin
  if messagedlg('Apakah anda yakin akan menghapus data ini?',mtconfirmation,[mbyes,mbno],0)=mryes then
    begin
      with dm.Query do
        begin
          sql.Clear;
          sql.Add('delete from barang where Kd_barang="'+edit1.Text+'"');
          execsql;
        end;
          tampildata;
          bersihdata;
          tombolmati;
          showmessage('Data telah berhasil dihapus');
          edit1.SetFocus;
    end;
end;

Terakhir button keluar:

procedure TForm1.Button4Click(Sender: TObject);
begin
  if messagedlg('Apakah anda yakin akan menutup form ini?',mtconfirmation,[mbyes,mbno],0)=mryes then
   close;
end;

Jalankan kembali program anda, apabila masih ada error periksalah  kembali langkah" ada.. Terikasih

Semoga bermanfaat..

>Irwan Andri

[Continue reading...]

Membuat Data Module (Delphi)

Data Module adalah form khusus yang digunakan untuk meletakkan komponen komponen non visual Delphi, termasuk untuk meletakkan komponen fungsi database. Bila biasanya kita membuat aplikasi database menggunakan satu atau dua form, anda meletakkan komponen fungsi database pada tiap form yang bersangkutan, tetapi dengan Data Module akan lebih mudah dengan aplikasi database yang melibatkan banyak form, cukup dengan dihubungkan dengan Data Module. Berikut langkah - langkah membuat Data Module:

Pilih File > New > Other > Delphi Files > Data Module.

Kemudian akan muncul halaman seperti gambar di bawah ini :

Tambahkan ADOConnections,ADOQuery dan DataSource pada data modue tersebut

Lakukan perubahan Properties pada masing - masing objek.

No.	Komponen	Properties	Value
1	Data Module	Name	DM
2	ADOConnection1	Name	Koneksi
		Login Form	False
3	ADOQuery1	Name	Query
		Connection	Koneksi
		Active	False
4	ADOQuery1	ADOQuery1	Tampil
		Connection	Koneksi
		Active	False
5	DataSource1	Name	DS
		Dataset	Tampil

Set Propertie Connetion String pada ADOConnections(Koneksi) seperti gambar berikut :

Pilih Micrisoft OLE DB Providers for ODBC Drivers, selanjutnya pilih nama DSN yang telah anda buat. Bagi anda yang belum mengetahui bagai mana cara membuat DSN silahkan baca postingan sebelum nya tentang Cara Membuat DSN (Data Source Name) . selanjutnya Klik test Connection, jikan berhasil makan aka keluar messagebox dengan tulisan " Test Connection Succeeded" lalu klik OK.

Dan selesai..

Semoga bermanfaat..

>Irwan Andri

[Continue reading...]

Cara Membuat DSN (Data Source Name)

Oke, disini saya akan memberikan tutorial Cara Membuat DNS (Data Source Name). Disini saya beranggapan bahwa kalian sudah mengerti apa itu DNS , bagi yang belu ngerti silahkan googling dulu :D..
Langsung aja kita ke TKP

1. Buka Control Panel pilih Administrative Tools.

2. Pilih Data Source (ODBC)

3. Pilih Add

4. Pilih MySQL ODBC 5.1 (sesuaikan dengan versi driver ODBC yang anda install), kemudian Finish.

5. Kemudian isi Data Source Name nya , disini saya contohkan dsn nya adalah latihan, Descriptionnya kosongkan saja. Kemudian server : localhost , user : root , password : kosongkan, Kemudian pilih database yang akan anda gunakan, disini saya akan menggunkan database dengan nama latihan, terakhir untuk memastikan database kita terkoneksi atau tidak pilih Test, jika berhasil maka akan ada bacaan Connetion Successful, klik OK dan OK lagi.

6. Selesai.

Sekian Cara Membuat DNS (Data Source Name) . Semoga bermanfaat dan Selamat Mencoba.

> Irwan Andri
 

[Continue reading...]

Cara Mengaktifkan NetFramework 3.5 di Windows 8

Cara Mengaktifkan NetFramework 3.5 di Windows 8 Tanpa Update Windows - Secara default pada sistem operasi Windows 8 tidak akan anda dapati .NetFramework 3.5, padahal untuk menginstal beberapa aplikasi diperlukan file tersebut. Misalnya pada saat instal Purefix 2.03 untuk cracking ESET Smart Security diperlukan .NetFramework 3.5. Anda bisa saja melakukan update windows untuk menginstal .NetFramework 3.5. Namun bila PC tidak terhubung ke Internet, maka hal itu tidak akan bisa dilakukan. 

Sebetulnya .NetFramework 3.5 bisa diaktifkan pada Windows 8 tanpa harus update ke Microsoft. Berikut langkah yang ditempuh guna mengaktifkan .NetFramework 3.5 di Windows 8 :

1. Buat folder baru di drive C dan beri nama dengan net35.

2. Masukkan DVD Installer Windows 8 ke drive optic.

3. Cari dan temukan file source\sxs pada DVD Windows 8.

4. Copy semua file yang berada pada folder sourxe\sxs ke folder net35 di drive C.

    Ingat...! semua file yang ada pada folder sxs, BUKAN folder sxs.

5. Buka command promt dan pastikan anda masuk sebagai administrator

    (Run as administrator).

6. Ketik atau copy paste perintah berikut ke command promt - tekan Enter.

 

    Dism.exe /online /enable-feature /featurename:NetFX3 /All /Source:c:\net35 /LimitAccess

7. Pastikan di layar anda menjumpai seperti gambar di bawah : 

 
8. Buka Control Panel - Programs and Features - Turn Windows features on or off

    dan akan anda temukan .NetFramework 3.5 sudah aktif di Windows 8.

 

Anda bisa juga mengambil file di folder sxs dari image ISO Windows 8 untuk mengaktifkan .NetFramework 3.5. Caranya ISO Windows harus di-Mount terlebih dahulu, kemudian ketik perintah Dism.exe /online /enable-feature /featurename:NetFX3 /All /Source:e:\sources\sxs /LimitAccess (e: adalah drive mount sesuaikan dengan perangkat optic PC anda).

 

sources:http://amminessalafy.blogspot.com

[Continue reading...]