DianaParamita's Blog: 2012

Selasa, 18 Desember 2012

Database Program E-KTP

Script database delphi7

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, Mask,

jpeg;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

ednama: TEdit;

edalamat: TEdit;

edtempat: TEdit;

edtgl: TEdit;

edagama: TEdit;

edkw: TEdit;

edgol: TEdit;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

ADOConnection2: TADOConnection;

ADOTable1: TADOTable;

Label10: TLabel;

edkerja: TEdit;

btsimpan: TButton;

btbatal: TButton;

edstatus: TEdit;

MaskEdit1: TMaskEdit;

Label11: TLabel;

edjk: TEdit;

Image1: TImage;

Memo1: TMemo;

Label12: TLabel;

procedure ednamaKeyPress(Sender: TObject; var Key: Char);

procedure edalamatKeyPress(Sender: TObject; var Key: Char);

procedure edtempatKeyPress(Sender: TObject; var Key: Char);

procedure edtglKeyPress(Sender: TObject; var Key: Char);

procedure edagamaKeyPress(Sender: TObject; var Key: Char);

procedure edstatusKeyPress(Sender: TObject; var Key: Char);

procedure edkwKeyPress(Sender: TObject; var Key: Char);

procedure edgolKeyPress(Sender: TObject; var Key: Char);

procedure MaskEdit1KeyPress(Sender: TObject; var Key: Char);

procedure edkerjaKeyPress(Sender: TObject; var Key: Char);

procedure FormActivate(Sender: TObject);

procedure btsimpanClick(Sender: TObject);

procedure edjkKeyPress(Sender: TObject; var Key: Char);

procedure btbatalClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ednamaKeyPress(Sender: TObject; var Key: Char);

begin

if not (key=chr(13)) then exit;

if ednama.Text='' then

begin

ShowMessage('Data Harus Diisi');

ednama.SetFocus;

end

else

edalamat.SetFocus;

end;

procedure TForm1.edalamatKeyPress(Sender: TObject; var Key: Char);

begin

if not (key=chr(13)) then exit;

if edalamat.Text='' then

begin

ShowMessage('Data Harus Diisi');

edalamat.SetFocus

end

else

edtempat.SetFocus;

end;

procedure TForm1.edtempatKeyPress(Sender: TObject; var Key: Char);

begin

if not (key=chr(13)) then exit;

if edtempat.Text='' then

begin

ShowMessage('Data Harus Diisi');

edtempat.setfocus;

end

else

edtgl.setfocus;

end;

procedure TForm1.edtglKeyPress(Sender: TObject; var Key: Char);

begin

if not (key=chr(13)) then exit;

if edtgl.Text='' then

begin

ShowMessage('Data Harus Diisi');

end

else

edjk.SetFocus;

end;

procedure TForm1.edagamaKeyPress(Sender: TObject; var Key: Char);

begin

if not (key=chr(13)) then exit;

if edagama.Text='' then

begin

ShowMessage('Data Harus Diisi');

edagama.setfocus;

end

else

edstatus.SetFocus;

end;

procedure TForm1.edstatusKeyPress(Sender: TObject; var Key: Char);

begin

if not (key=chr(13)) then exit;

if edstatus.Text='' then

begin

ShowMessage('Data Harus Diisi');

edstatus.setfocus;

end

else

edkw.SetFocus;

end;

procedure TForm1.edkwKeyPress(Sender: TObject; var Key: Char);

begin

if not (key=chr(13)) then exit;

if edkw.Text='' then

begin

ShowMessage('Data Harus Diisi');

edkw.setfocus;

end

else

edgol.SetFocus;

end;

procedure TForm1.edgolKeyPress(Sender: TObject; var Key: Char);

begin

if not (key=chr(13)) then exit;

if edgol.Text='' then

begin

ShowMessage('Data Harus Diisi');

edgol.setfocus;

end

else

MaskEdit1.SetFocus;

end;

procedure TForm1.MaskEdit1KeyPress(Sender: TObject; var Key: Char);

begin

if not (key=chr(13)) then exit;

if MaskEdit1.Text='' then

begin

ShowMessage('Data Harus Diisi');

maskedit1.setfocus;

end

else

edkerja.SetFocus;

end;

procedure TForm1.edkerjaKeyPress(Sender: TObject; var Key: Char);

begin

if not (key=chr(13)) then exit;

if edkerja.Text='' then

begin

ShowMessage('Data Harus Diisi');

edkerja.setfocus;

end

else

btsimpan.SetFocus;

end;

procedure TForm1.FormActivate(Sender: TObject);

begin

ednama.SetFocus;

end;

procedure TForm1.btsimpanClick(Sender: TObject);

begin

Adotable1.Open;

AdoTable1.Append;

ADOTable1.FieldByName('Nama').AsString:=ednama.Text;

ADOTable1.FieldByName('Alamat').AsString:=edalamat.Text;

ADOTable1.FieldByName('Tempat').AsString:=edtempat.Text;

ADOTable1.FieldByName('TanggalLahir').AsString:=edtgl.Text;

ADOTable1.FieldByName('Agama').AsString:=edagama.Text;

ADOTable1.FieldByName('Status').AsString:=edstatus.Text;

ADOTable1.FieldByName('Kewarganegaraan').AsString:=edkw.Text;

ADOTable1.FieldByName('GolonganDarah').AsString:=edgol.Text;

ADOTable1.FieldByName('TanggalPembuatanKTP').AsString:=MaskEdit1.Text;

ADOTable1.FieldByName('Pekerjaan').AsString:=edkerja.Text;

ShowMessage('DataTelahTersimpan');

end;

procedure TForm1.edjkKeyPress(Sender: TObject; var Key: Char);

begin

if not (key=chr(13)) then exit;

if edjk.Text='' then

begin

ShowMessage('Data Harus Diisi');

edjk.setfocus;

end

else

edagama.SetFocus;

end;

procedure TForm1.btbatalClick(Sender: TObject);

begin

ednama.clear;

edalamat.clear;

edtempat.clear;

edtgl.clear;

edjk.clear;

edagama.clear;

edstatus.clear;

edkw.clear;

edgol.clear;

maskedit1.clear;

edkerja.clear;

ednama.setfocus;

end;

end.

Delphi7 database tampilan awal

Delphi7 database

Minggu, 16 Desember 2012

Sabtu, 15 Desember 2012

KONEKSI DATABASE DARI DELPHI KE MS. ACCESS

Membuat koneksi database *.mdb dari Delphi ke Ms Access bisa dilakukan

melalui ODBC Data Source Adminstrator yang ada pada Control Panel ->

Administrative Tools (Windows XP). Namun bagi anda yang suka sekali

bermain script pada registry bisa mencoba cara yang kedua.

A. KONEKSI MELALUI ODBC DATA SOURCE

ADMINISTRATOR

Berikut ini adalah contoh langkah-langkah mengkoneksikan

database sederhana dari Delphi ke Ms Acces :

1. MENYIAPKAN DATABASE MS.ACCESS

Buatlah sebuah database menggunakan Ms Acces (penulis

menganggap anda sudah familiar dengan Ms Acces sehingga

tidak perlu dijelaskan bagaimana cara membuat database

melalui Ms Access). Misalnya database sebuah toko buku

sederhana, database disimpan dengan nama Latihan.mdb dan

table dengan nama TkBuku, seperti contoh berikut :

2. MENGATUR KONFIGURASI ODBC DAN BDE

Buka ODBC Data Source Adminstrator, (untuk Windows XP)

caranya klik tombol Start -> All Programs -> Control Panel ->

Gb. Table TkBuku

KONEKSI DATABASE DARI DELPHI KE MS. ACCESS

Administrative Tools -> Data Sources (ODBC). Atau melalui

Start menu -> Run kemudian ketikkan odbcad32 dan klik Ok,

Pada tab User DSN, klik tombol Add, kemudian pilih Microsoft

Acces Driver (*.mdb). dan klik finish.

Kemudian muncul form ODBC Microsoft Access Setup. Disini

kita akan mengatur nama alias untuk database (Data Source

Name), database file serta password. Isikan Data Source

Name dengan DbTkBuku. Untuk database filenya klik select

pada group database, lalu cari file database Latihan.mdb.

Apabila anda ingin menambahkan password untuk keamanan

data, klik tombol Advanced, lalu isikan Login Name dan

Password sesuai keinginan anda. Apabila tidak menghendaki

adanya password, maka opsi advanced bisa diabaikan.

Kemudian klik Ok. Database Latihan1.mdb dengan nama alias

DbTkBuku sudah terdaftarkan.

Microsoft Access Driver (*.mdb)

Gb. Setting ODBC

KONEKSI DATABASE DARI DELPHI KE MS. ACCESS

3. MENGAKSES DATABASE DARI DELPHI

1. Buatlah sebuah aplikasi baru. Tempatkan sebuah

komponen TTable. Pada property database name pilih

DbTkBuku. Lalu pilih TkBuku pada property Tablename.

Isikan login name dan password sesuai pada langkah 2.

Bila anda tidak memasukkan login name dan password

maka abaikan kotak dialog password tersebut..

Kemudian ubah property Aktive menjadi true.

Isikan DbTkBuku

pada Data Source

Name

Klik Select

untuk mencari

file database

Latihan.mdb

Opsi advanced

untuk menambah

password

Gb. ODBC Microsoft Access Setup

Gb. DbTkBuku yang sudah didaftarkan

KONEKSI DATABASE DARI DELPHI KE MS. ACCESS

2. Letakkan komponen Datasource, pada property DataSet

pilih Table1.

3. Tambahkan sebuah komponen DBGrid dan DBNavigator.

Set masing-masing property DataSource menjadi

DataSource1.

4. Cobalah menjalankan aplikasi. Apabila tidak muncul

error maka pada langkah ini koneksi sederhana

database dari Delphi ke Acces telah berhasil anda buat.

Gb. Property Komponen Table

Komponen Table Komponen DataSource Komponen DBNavigator

Komponen DBGrid

Gb. Contoh aplikasi sederhana koneksi database *.mdb

KONEKSI DATABASE DARI DELPHI KE MS. ACCESS

B. KONEKSI MELALUI REGISTRY (SCRIPT)

Berikut adalah cara lain mengkoneksikan database *.mdb.

Salin script berikut pada aplikasi notepad kemudian simpan dengan

nama mdbodbc.reg. Kemudian jalankan file tersebut dengan cara

klik kanan mdbodbc.reg lalu klik merge.

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\coba]

"Driver"="C:\\WINDOWS\\System32\\odbcjt32.dll"

"DBQ"="c:\\db1.mdb"

"DriverId"=dword:00000019

"FIL"="MS Access;"

"SafeTransactions"=dword:00000000

"UID"=""

[HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\coba\Engines]

[HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\coba\Engines\Je

"ImplicitCommitSync"=""

"MaxBufferSize"=dword:00000800

"PageTimeout"=dword:00000005

"Threads"=dword:00000003

"UserCommitSync"="Yes"

Gb. Cara menjalankan file mdbodbc.reg

KONEKSI DATABASE DARI DELPHI KE MS. ACCESS

[HKEY_USERS\S-1-5-21-854245398-492894223-839522115-

1003\Software\ODBC\ODBC.INI\ODBC Data Sources]

"MS Access Database"="Microsoft Access Driver (*.mdb)"

"Excel Files"="Microsoft Excel Driver (*.xls)"

"dBASE Files"="Microsoft dBase Driver (*.dbf)"

"coba"="Microsoft Access Driver (*.mdb)"

[HKEY_USERS\S-1-5-21-854245398-492894223-839522115-

1003\Software\ODBC\ODBC.INI\coba]

"Driver"="C:\\WINDOWS\\System32\\odbcjt32.dll"

"DBQ"="c:\\db1.mdb"

"DriverId"=dword:00000019

"FIL"="MS Access;"

"SafeTransactions"=dword:00000000

"UID"=""

[HKEY_USERS\S-1-5-21-854245398-492894223-839522115-

1003\Software\ODBC\ODBC.INI\coba\Engines]

[HKEY_USERS\S-1-5-21-854245398-492894223-839522115-

1003\Software\ODBC\ODBC.INI\coba\Engines\Jet]

"ImplicitCommitSync"=""

"MaxBufferSize"=dword:00000800

"PageTimeout"=dword:00000005

"Threads"=dword:00000003

"UserCommitSync"="Yes"

[HKEY_USERS\S-1-5-21-854245398-492894223-839522115-

1003\Software\ODBC\ODBC.INI\ODBC Data Sources]

"MS Access Database"="Microsoft Access Driver (*.mdb)"

"Excel Files"="Microsoft Excel Driver (*.xls)"

"dBASE Files"="Microsoft dBase Driver (*.dbf)"

"coba"="Microsoft Access Driver (*.mdb)"

KONEKSI DATABASE DARI DELPHI KE MS. ACCESS

Keterangan :

Data Source Name : coba

Database File : C:\db1.mdb -> tertulis c:\\db1.mdb

Kemudian anda tinggal membuat aplikasi dari delphi seperti pada cara

pertama langkah 3. Selamat mencoba ☺

Ardi Sanjaya / Feb 2008 / dari pengalaman dan berbagai sumber

dersky@gmail.com

www.dersky.wordpress.com

Gb. Script pada mdbodbc.reg notepad

Membuat Database menggunakan Microsoft Office Access 2007

Membuat Database menggunakan Microsoft Office Access 2007

Di sini saya akan menshare bagaimana cara membuat database menggunakan Microsoft Office Access 2007. Articale ini saya tulis karena saya mendapatkan tugas dari Dosen saya,

sekalian tambah & update postingan my blog

sebelumnya, taukah anda, apa itu Database ????????

adalah kumpulan informasi yang disimpan di dalam komputer secara sistematik sehingga dapat diperiksa menggunakan suatu program komputer untuk memperoleh informasi dari basis data tersebut.

Langkah-langkah Membuat Database menggunakan Microsoft Office Access 2007

1. Pastikan ms office sudah anda install

2. Pilih Ms access 2007

3. Setelah anda open Ms access tadi, pilih blink database

4. kemudia akan tampil tampilan

5. Kemudian buka file name tadi seperti gambar di atas, akan muncul form lagi

buat folder kemudian pilih format file(mdb). karena nantinya kita akan menghubungkan access dengan Delphi(Postingan selanjutnya). setalah sudah di pilih tinggal klik ok

6. Pilih Create

7. Pilih table1, klik kanan pilih design view isi nama table: missal bio

8. kemudian isi table dengan berapa field yang anda inginkan, misalnya seperti ini

9. Di sini saya menggunakan 4 filed (npm,nama,alamat,no_hp)terserah anda sesuai kebutuhan

10. Kemudian isi sesuai kebutuhan

11. kemudian Save. liat hasilnya di mana anda menyimpan file tersebut.

12. Selesai .

DianaParamita's Blog

welcome

Selasa, 18 Desember 2012

Database Program E-KTP

Script database delphi7

Delphi7 database tampilan awal

Delphi7 database

Minggu, 16 Desember 2012

Sabtu, 15 Desember 2012

KONEKSI DATABASE DARI DELPHI KE MS. ACCESS

Membuat Database menggunakan Microsoft Office Access 2007

About Me

Arsip Blog