Program dari delphi 7 dengan database Mysql

Kita akan membuat Sebuah Program dengan Menggunakan Mysql sebagai databasenya dalam Program.

Pertama-tama Buka Mysql yog agar mempermudah mengolah dan mendesign database serta tablenya

Lalu Klik konekan dan Buat databasenya

CREATE DATABASE ridhik;

Use ridhik

Kemudian kita buat tablenya untuk Login
CREATE TABLE USER(

UserName VARCHAR(15) PRIMARY KEY,

PASSWORD VARCHAR(10),

Akses VARCHAR(1)

);

 

Kemudian Buat table kedua untuk database barangnya.

CREATE TABLE stok(

Kode_barang VARCHAR(10) PRIMARY KEY,

Nama_barang VARCHAR(15),

Jumlah_barang VARCHAR(10)

);

 

Isi table agar menjadi Seperti Berikut dengan cara Mengklik Kanan pada database dan tablenya dan open table, Maka akan muncul seperti ini.

Isi Untuk Table User seperti dibawah ini.

Isi Untuk Table Jual seperti dibawah ini.

 

Buka Administratif Tools dan Buka Database ODBC Kemudian setting seperti gambar Berikut.

Pasang Komponen ADO.Connection Dan setting Connection StringèKlik Build dan Setting seperti tampilan disini

Kemudian tambahkan komponen ADO.Table Connectionnya Set Ke ADO.Connection dan set Active=True TableName Pilih sesuai kebutuhan table yang akan digunankan

Setting DataSource ke table yang dibutuhkan dsUser ke Ado.User dan dsStok Ke Ado.Stok

Saatnya Mendesign Programnya dimulai dari login Buat Designya seperti ini

 

Klik Pada Button  Log in dan ketikan sintax berikut

  if

    DM.User.Locate('UserName;Password', VarArrayOf([edit1.text,edit2.text]),[LopartialKey])

  then

    begin

     Form1.ShowModal;

    end

   else

      MessageDlg('Maaf Username atau Password Salah!',mtError,[mbOK],0);

      Edit1.Text:='';

      Edit2.Text:='';

Pada Edit2 On Changenya ketikkan sintax

Button1.Enabled:=(Edit2.Text<>'');

 

Settinga Form Home Seperti ini
Dan  Pada Button
File Kasir ketikkan Sintax ini
Form2.ShowModal;

Buat Form Untuk Pengelolahannya Seperti ini
Klik Button Cetak setting seperti ini

Form3.QuickRep1.Preview;

Tambahkan Komponen Qreport di form selanjutnya dan masukkan kompone Qrlabel dan Qrdbtext

Mulai dari databasenya dan datafieldnya

 

F9/RUN cek Program anda
Download source Program saya disini