Selasa, 18 Desember 2012
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;
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.
Minggu, 16 Desember 2012
Sabtu, 15 Desember 2012
KONEKSI DATABASE DARI DELPHI KE MS. ACCESS
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
2
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
3
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
4
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
5
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
t]
"ImplicitCommitSync"=""
"MaxBufferSize"=dword:00000800
"PageTimeout"=dword:00000005
"Threads"=dword:00000003
"UserCommitSync"="Yes"
Gb. Cara menjalankan file mdbodbc.reg
6
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)"
7
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
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 .
Langganan:
Postingan (Atom)