PHP - Membuat File Koneksi [mysql - mysqli - pdo ]

Membuat file koneksi php menggunakan mysql, mysqli, dan pdo

<?php

// cara mengakses MySQL menggunakan mysql extension:
// nama database coba
$link = mysql_connect("localhost", "root", "");
mysql_select_db("coba");      
  
// cara mengakses MySQL menggunakan mysqli extension:
// nama database coba>
$mysqli = new mysqli("localhost", "root", "", "coba");     
  
// cara mengakses MySQL menggunakan PDO:
// nama database coba
$pdo = new PDO('mysql:host=localhost; dbname=coba', 'root', '');    

?> 

======================================================

1. mysql ( menge-test koneksi ke database menggunakan  mysql )
copy kan script dibawah ini dalam text editor anda dan buatlah file baru, contoh: koneksi_mysql.php
dan ditempatkan dalam folder htdoc,

kemudian coba jalankan dibrowser anda..!!

contoh gambar bila koneksi ke database success..
saya membuat folder pada localhost/belajar/koneksi/koneksi_mysql.php

==============================================================

2. mysqli ( menge-test koneksi ke database menggunakan  mysqli )
copy kan script dibawah ini dalam text editor anda dan buatlah file baru, contoh: koneksi_mysqli.php
dan ditempatkan dalam folder htdoc,

kemudian coba jalankan dibrowser anda..!!

contoh gambar bila koneksi ke database success..
saya membuat folder pada localhost/belajar/koneksi/koneksi_mysqli.php

==================================================================

3. pdo ( menge-test koneksi ke database menggunakan  pdo )
copy kan script dibawah ini dalam text editor anda dan buatlah file baru, contoh: koneksi_mysqli.php
dan ditempatkan dalam folder htdoc,

kemudian coba jalankan dibrowser anda..!!

contoh gambar bila koneksi ke database success..
saya membuat folder pada localhost/belajar/koneksi/koneksi_pdo.php

==================================================================

Selamat Mencoba. . . . !!!

Read More

DELPHI - Contoh Program Pembayaran Sekolah

DELPHI
======================================================================
Contoh Program Pembayaran Sekolah = >> Download

Read More

DELPHI - Latihan 2 dengan database access

1. buatlah database DVD dengan nama tabel DVD untuk pembuatan database lebih rinci bisa dlihat tutorial sebelumnya.. >>> koneksi database access













2. buat lah desain sepertigambar dibawah ini, nama objectnya default saja seperti aslinya..

3. koneksikan database yg tadi di buat seperti pada pembahasan sebelumnya di koneksi database access

4. buatlah procedure aktif, procedure pasif, prosedure tampil, dan procedure kode..

a. pertama buat procedure di public

    private
    { Private declarations }
  public
  procedure aktif;
  procedure pasif;
  procedure tampil;
  procedure kode;
    { Public declarations }
  end;
----------------------------------------------------------------------------------
b. kedua buat procedurenya di bawah code {$R *.dfm}

procedure tform1.aktif;        { membuat procedure aktif  }
begin
groupbox1.Enabled:=true;
button1.Enabled:=false;
button2.Enabled:=false;
button3.Enabled:=true;
button4.Enabled:=false;
button5.Enabled:=true;
end;

procedure tform1.pasif;        { membuat procedure pasif  }
begin
edit1.Clear;
edit2.Clear;
combobox1.Clear;
combobox1.Items.Add('HQ');
combobox1.Items.Add('HD');
combobox1.Items.Add('Blu-ray');
edit3.Text:='0';
edit4.Text:='0';
groupbox1.Enabled:=false;
button1.Enabled:=true;
button2.Enabled:=false;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button1.SetFocus;
end;

procedure tform1.tampil;        { membuat procedure tampil }
begin
if adotable1.RecordCount<>0 then         { Jika record tidak kosong maka semua field akan tampil }
  begin
  edit1.Text:=adotable1['kode_dvd'];       { field kode_dvd masuk kedalam edit1.text }
  edit2.Text:=adotable1['judul'];               { atau edit1.text MENAMPUNG field kode_dvd }
  combobox1.Text:=adotable1['format'];
  edit3.Text:=adotable1['harga_sewa'];
  edit4.Text:=adotable1['stok'];
  button1.Enabled:=false;
  button2.Enabled:=true;
  button3.Enabled:=false;
  button4.Enabled:=true;
  button5.Enabled:=true;
  end
end;

procedure tform1.kode;                   { membuat procedure kode otomatis }
var kode:integer;
begin
adotable1.Refresh;
if adotable1.RecordCount=0 then      { jika record samadengan 0 atau tidak ada record }
  begin
  edit1.Text:='DVD'+'001';                 { maka kodenya adalaha DVD001 }
  end
else
  begin
  adotable1.Last;                                                           { jika record yg paling akhir ada maka }
  kode:=strtoint(copy(adotable1['kode_dvd'],4,3));        
  inc(kode);
  if kode<10 then                                                            { jika kurang dari 10 maka kodenya 00 + 1 }
    edit1.Text:='DVD'+'00'+inttostr(kode)
  else
    edit1.Text:='DVD'+'0'+inttostr(kode);                      { jika lebih dari 9 maka kodenya 0 + 10 }
  end
end;

-----------------------------------------------------------------------

5. mengisi combo box dengan cara manual pada menu properties combobox "items {T-String}

kemudian isi kan listingnya sebagai berikut

procedure TForm1.ComboBox1Change(Sender: TObject);   { isi listing dari combobox1 }
begin
if combobox1.Text='HQ' then
  edit3.Text:='10000'
else if combobox1.Text='HD' then
  edit3.Text:='15000'
else
  edit3.Text:='20000';
end;

--------------------------------------------------------------------

6. membuat listing TAMBAH pada button1

procedure TForm1.Button1Click(Sender: TObject);        { membuat tombol tambah  }
begin
isi:=true;
aktif;
kode;
edit2.SetFocus;
end;

----------------------------------------------------------------------

7. membuat listing UBAH / EDIT pada button2

procedure TForm1.Button2Click(Sender: TObject);        { membuat tombol EDIT  }
begin
aktif;
end;

------------------------------------------------------------------

8. Membuat Listing SIMPAN / SAVE pada button3

procedure TForm1.Button3Click(Sender: TObject);        { membuat tombol simpan  }
begin
if isi=true then
  begin
  adotable1.Append;
  adotable1['kode_dvd']:=edit1.Text;
  adotable1['judul']:=edit2.Text;
  adotable1['format']:=combobox1.Text;
  adotable1['harga_sewa']:=strtoint(edit3.Text);
  adotable1['stok']:=strtoint(edit4.Text);
  adotable1.Post;
  messagedlg('Data disimpan.',mtinformation,[mbok],0);
  pasif;
  end
else
  begin
  isi:=false;
  adotable1.Edit;
  adotable1['judul']:=edit2.Text;
  adotable1['format']:=combobox1.Text;
  adotable1['harga_sewa']:=strtoint(edit3.Text);
  adotable1['stok']:=strtoint(edit4.Text);
  adotable1.Post;
  messagedlg('Data diubah.',mtinformation,[mbok],0);
  pasif;
  end
end;

--------------------------------------------------------------------

9. Membuat Listing HAPUS pada button4

procedure TForm1.Button4Click(Sender: TObject);        { membuat tombol hapus  }
begin
if messagedlg('Hapus data?',mtconfirmation,[mbyes,mbno],0)=mryes then
  begin
  adotable1.Delete;
  adotable1.Refresh;
  adotable1.First;
  pasif;
  end
end;

-------------------------------------------------------------------

10. Membuat Listing BATAL atau CANCEL pada button5

procedure TForm1.Button5Click(Sender: TObject);        { membuat tombol batal atau cancel }
begin
pasif;
end;

---------------------------------------------------------------------

11. Membuat Listing CARI atau FIND pada button6

procedure TForm1.Button6Click(Sender: TObject);        { membuat tombol cari  }
begin
if adotable1.Locate('kode_dvd',edit5.Text,[]) then
  begin
  tampil;
  edit5.Clear;
  end
else
  begin
  messagedlg('Data tidak ditemukan.',mtwarning,[mbok],0);
  edit5.Clear;
  end
end;

----------------------------------------------------------------------

12. Membuat listing First Record pada button 7

procedure TForm1.Button7Click(Sender: TObject);        { membuat tombol first record  }
begin
adotable1.First;
tampil;
end;

---------------------------------------------------------------------

13. Membuat listing Previous Record pada button8

procedure TForm1.Button8Click(Sender: TObject);        { membuat tombol previous record  }
begin
adotable1.Prior;
tampil;
if adotable1.Bof=true then
  if adotable1.RecordCount<>0 then
    messagedlg('Data pertama.',mtinformation,[mbok],0);
end;

-------------------------------------------------------------------

14. Membuat listing Next Record pada button9

procedure TForm1.Button9Click(Sender: TObject);        { membuat tombol next record  }
begin
adotable1.Next;
tampil;
if adotable1.Eof=true then
  if adotable1.RecordCount<>0 then
    messagedlg('Data terakhir.',mtinformation,[mbok],0);
end;

--------------------------------------------------------------------

15. Membuat listing Last Record pada button10

procedure TForm1.Button10Click(Sender: TObject);    { membuat tombol last record  }
begin
adotable1.Last;
tampil;
end;

-------------------------------------------------------------------

16. Membuat listing EXIT atau keluar pada button11 atau bisa menggunakan listing seperti di pembahasan di membuat messagebox

procedure TForm1.Button11Click(Sender: TObject);    { membuat tombol exit  }
begin
if messagedlg('Tutup jendela DVD?',mtconfirmation,[mbyes,mbno],0)=mryes then
  close;
end;

--------------------------------------------------------------------

bisa anda coba, hasilnya akan seperti ini

---------------------------------------------------
jika ingin download source codenya silahkan download di
>> DELPHI form DVD melalui dropbox

catatan: "jika ada masalah pada saat program dijalankan, silahkan priksa kembali connection string yg ada pada adotable1.."


~ semoga bermanfaat ~

Read More

DELPHI [ TUTORIAL VI ] Mengkoneksikan database access

1. Langkah pertama buka database access anda.. kemudian ketik namanya dan klik tempat folder yang akan menempatkan database anda..

2. Langkah kedua jika sudah menetukan folder tempat anda ingin menyimpan database, sekarang pilih save as type ( microsoft database access 2002-2003format ) kemudian ok atau save

3. jika sudah klik create.. akan muncul gambar dibawah ini dan klik kanan pada table1 pilih "design view"

4. buatlah nama tabel sesuai keinginan anda, kemudian anda membuat type field dan data type sesuai keinginan anda

5.Langkah kelima cobalah buka aplikasi delphi anda, dan buat design seperti gambar dibawah ini

6. Setelah anda membuat seperti design diatas, sekarang klik adotable1.. liat di properties sebelah kiri anda.. kemudian pilih connection string

7. setelah klik build akan muncul pilihan seperti ini, kemudian pilih "microsoft jet 4.0 OLE DB provider

8.  Kemudian klik next, anda klik pada samping yg ditandai merah paling atas pada gambar dibawah ini, kemudian lokasikan pada folder penyimpanan database anda disimpan

9. kemudian "test conection" jika success.. kemudian ok, dan ok lagi..

10. setelah itu masih di menu properties adotable1, anda cari "Table Name" kemudian pilih sesuai tabel yg anda ingin tampilkan...

11. Setelah itu masih pada menu properties adotable1, anda pilih "Active" pilih menjadi "True"

12. Sekarang beralih pada menu properties "DataSet" pilih datasource  kemudian pilihlah adotable1

13. Nah Setelah itu kita beralh ke menu properties menu DBgrid1.. pada menu properties pilihlah "DataSource" pilih "datasource1"

14. Kemudian anda bisa lihat hasilnya

Terima kasih atas perhatiannya.. jika ingin bertanya silahkan tinggalkan pesan di komentar :)

Read More