KONEKSI DATABASE MICROSOFT OFFICE ACCESS PADA BORLAND DELPHI7 DENGAN ADOCONECTION PART 3

LANGKAH III :
1    Buatlah Form kedua dengan memilih menu FILE > NEW > FORM.

2    Desainlah Form kedua tersebut sehingga tampak sebagai berikut :

  Tabel daftar komponen dan properties-nya
No    Komponen    Properties

1   
FORM    Caption : FORM INPUTAN DATA
BorderStyle : BsDialog
Position :PoDesktopCenter
Name : Form2
2    Panel 1    Caption dikosongkan
Caption:=’ ‘
3    Label1    Caption : NIM
4    Label2    Caption : NAMA
5    Label3    Caption : ASAL

6   
EDIT1    Name := E1
Text:= Dikosongkan
Text:=’ ‘

7   
EDIT2    Name := E2
Text:= Dikosongkan
Caption:=’ ‘

8   
EDIT3    Name := E3
Text:= Dikosongkan
Text:=’ ‘
9    Button1    Name := BKEMBALI
Caption:=Kembali
10    Button2    Name := BKELUAR
Caption:=Keluar
11    Button3    Name := BSIMPAN
Caption:=Simpan
12    Button4    Name := BHAPUS
Caption:=Hapus

3    Masukan Listing Programnya :
•    Klik tombol ‘’KELUAR’’ pada Form pertama dan masukan program berikut :

procedure TLEMBARPERTAMA.BCLOSEClick(Sender: TObject);
begin
   APPLICATION.Terminate;
end;

•    Klik tombol ‘’DATABARU’’ pada Form pertama dan masukan program berikut:

procedure TLEMBARPERTAMA.BNEWClick(Sender: TObject);
begin
   LEMBARPERTAMA.Hide;
   Form2.Show;
end;

•    Klik tombol ‘’KELUAR’’ pada Form Kedua dan masukan program berikut :

procedure TForm2.BKELUARClick(Sender: TObject);
begin
APPLICATION.Terminate;
end;

•    Klik tombol ‘’HAPUS’’ pada Form pertama dan masukan program berikut :

procedure TForm2.BHAPUSClick(Sender: TObject);
begin
E1.Clear;
E2.Clear;
E3.Clear;
end;

•    Klik tombol ‘’KEMBALI’’ pada Form pertama dan masukan program berikut :

procedure TForm2.BKEMBALIClick(Sender: TObject);
begin
LEMBARPERTAMA.show;
form2.Hide;
end;

•    Klik tombol ‘’SIMPAN’’ pada Form pertama dan masukan program berikut :

procedure TForm2.BSIMPANClick(Sender: TObject);
begin
LEMBARPERTAMA.ADO.Append;
LEMBARPERTAMA.ADO['NIM']:=E1.Text;
LEMBARPERTAMA.ADO['NAMA']:=E2.Text;
LEMBARPERTAMA.ADO['ASAL']:=E3.Text;
LEMBARPERTAMA.ADO.Post;
end;


NOTE : GUNAKAN KETERANGAN “USES UNIT1 DAN USES UNIT2 UNTUK DAPAT BERPINDAH FORM” SELENGKAPNYA DAPAT DILIHAT PADA LIST PROGRAM YANG AKAN DISERTAKAN.



   
•    Setelah itu simpanlah semua file dengan nama unit1, unit2 dan dengan nama project yang anda kehendaki.
•    Klik menu Project pada ToolBar dan klik BuildProject.
•    Lalu jalankan (RUN)  dengan menekan tombol F9 pada keyboard.
•    Maka akan tampak Form berikut ini:

•    Apabila anda mengklik Tombol DATABARU maka anda akan dibawa ke Form masukan seperti gambar dibawah ini :

•    Apabila anda memasukan data pada kolom-kolom yang tersedia dan menekan tombol “SIMPAN”, maka secara otomatis data masukan akan tersimpan kedalam database. Anda dapat menekan Tombol ‘KEMBALI” dan dapat melihat perubahan pada Database monitornya seperti tampak dibawah ini :

LIST PROGRAM LENGKAP :

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB, Mask, DBCtrls, ExtCtrls;

type
  TLEMBARPERTAMA = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    DBNavigator1: TDBNavigator;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADO: TADOTable;
    DBGrid1: TDBGrid;
    BCLOSE: TButton;
    BNEW: TButton;
    procedure BCLOSEClick(Sender: TObject);
    procedure BNEWClick(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LEMBARPERTAMA: TLEMBARPERTAMA;
implementation
       uses unit2;
{$R *.dfm}

procedure TLEMBARPERTAMA.BCLOSEClick(Sender: TObject);
begin
   APPLICATION.Terminate;
end;

procedure TLEMBARPERTAMA.BNEWClick(Sender: TObject);
begin
   LEMBARPERTAMA.Hide;
   Form2.Show;
end;
END.
unit Unit2;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm2 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    E1: TEdit;
    E2: TEdit;
    E3: TEdit;
    BKEMBALI: TButton;
    BKELUAR: TButton;
    BSIMPAN: TButton;
    BHAPUS: TButton;
    procedure BKEMBALIClick(Sender: TObject);
    procedure BKELUARClick(Sender: TObject);
    procedure BHAPUSClick(Sender: TObject);
    procedure BSIMPANClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form2: TForm2;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm2.BKEMBALIClick(Sender: TObject);
begin
LEMBARPERTAMA.show;
form2.Hide;
end;

procedure TForm2.BKELUARClick(Sender: TObject);
begin
APPLICATION.Terminate;
end;

procedure TForm2.BHAPUSClick(Sender: TObject);
begin
E1.Clear;
E2.Clear;
E3.Clear;
end;

procedure TForm2.BSIMPANClick(Sender: TObject);
begin
LEMBARPERTAMA.ADO.Append;
LEMBARPERTAMA.ADO['NIM']:=E1.Text;
LEMBARPERTAMA.ADO['NAMA']:=E2.Text;
LEMBARPERTAMA.ADO['ASAL']:=E3.Text;
LEMBARPERTAMA.ADO.Post;
end;
end.

################################################################################################################################################
#########PENGEN TAU LEBIH BANYAK???MAMPIR KE BLOGKU##########
################################################################################################################################################

TENTANG PENULIS

Ramdhanevoel (“NCEP EVOEL”) lahir di Bandung, Jawa Barat Jum’at, 13 April 1990 (17 ramadhan/Mama bilang hari turunya Al-Qur’an….xixixixixixi) . Putra ke-2 dari 3 bersaudara dari pasangan Alm. bapak H.Chaerudin dan Ibu Hj. Derawati. Menamatkan Taman kanak-kanak di TK Islam Al-Amanah Cikampek, Dilanjutkan ke Sekolah Dasar (SD) Cikampek Selatan 5, Sekolah Menengah Pertama (SMPN) 2 Cikampek dan dilanjutkan ke Sachie International High School bidang Ilmu matematika-Fisika. Sekarang berstatus sebagai mahasiswa perguruan tinggi, sebagai mahasiswa Teknik Elektro, Fakultas Teknik , Yogyakarta State University (UNY DJOGJA) dan sedang melaksanakan proses study (Bisa Lulus, Bisa Juga DO…!)…...HAH…?
Tertarik dalam bidang programming, Robotika dan komputasi, bercita-cita sebagai masinis kereta api (MAKLUM RAILFAS DAOP VI YOGYAKARTA BOOO…