MEMBUAT APLIKASI KAMUS KIMIA DG DELPHI

BERIKUT KOMPONEN MINIMAL DALAM DELPHI

Komponen	Properti	Fungsi
Adoconnection1	Connection dg ODBC driver	Mengatur koneksi dengan database
Adoquery1	Select*from  istilah	Mengisikan query
Datasetprovider1	Connection: adoquery1	Sbg provider dari adoquery-dataset
Clientdataset 1	Provider: datasetprovider1	Memberikan perintah SQL dalam aplikasi
Datasource1	Dataset: clientdataset1	Sumber data untuk ditampilkan dalam dbgrid dll
Dbgrid	Datasource: datasource1	Bentuk tabel yang disajikan
Dbmemo1	Datasource: datasource1	Menampilkan data memo
Button1		Memberikan perintah

SETELAH KOMPONEN DI MUKTAHIRKAN
PELAJARI CODING DALAM DELPHI BERIKUT :

unit Unit5;

interface

uses

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

  Dialogs, StdCtrls, DBCtrls, Grids, DBGrids, DB, DBClient, Provider, ADODB,

  jpeg, ExtCtrls;

type

  TForm5 = class(TForm)

    ADOConnection1: TADOConnection;

    DBGrid1: TDBGrid;

    Button1: TButton;

    ADOQuery1: TADOQuery;

    DataSetProvider2: TDataSetProvider;

    ClientDataSet2: TClientDataSet;

    DataSource2: TDataSource;

    DBMemo1: TDBMemo;

    Image1: TImage;

    Label1: TLabel;

    Label3: TLabel;

    Button2: TButton;

    ADOQuery1NO: TAutoIncField;

    ADOQuery1ISTILAH: TWideStringField;

    ADOQuery1DEFINISI: TWideMemoField;

    ClientDataSet2NO: TAutoIncField;

    ClientDataSet2ISTILAH: TWideStringField;

    ClientDataSet2DEFINISI: TWideMemoField;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

    Button6: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button6Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject); (perintah dalam tombol cari)

var

tanggal: string;

  tombolOk:boolean;

  begin

  tanggal:='';

  tombolOk:=inputquery('ISTILAH','ISTILAH :',tanggal);

if (tombolOk) then

begin

adoquery1.Active:=false;

clientdataset2.Active:=false;

adoquery1.SQL.Clear;

adoquery1.SQL.Add(

'select definisi.[NO],'+

'       definisi.[ISTILAH],'+

'       definisi.[definisi]'+

'FROM  definisi ' )     ;

if (tanggal <> '') then

begin

  adoquery1.SQL.Add(

  ' WHERE DEFINISI.[ISTILAH] like ''%'+

  tanggal+'%''');

end;

  adoquery1.Active:=true;

  clientdataset2.Active:=true;

end;

  end;

procedure TForm5.Button2Click(Sender: TObject); (perintah dalam tombol about)

begin

showmessage('app developer : DIDI KURNIADI');

showmessage('kunjungi kami di www.labkim-ia.blogspot.com');

end;

procedure TForm5.Button3Click(Sender: TObject); (tombol back)

begin

CLIENTDATASET2.PRIOR;

end;

procedure TForm5.Button4Click(Sender: TObject); tombol next

begin

CLIENTDATASET2.Next;

end;

procedure TForm5.Button5Click(Sender: TObject); (tombol last)

begin

CLIENTDATASET2.Last;

end;

procedure TForm5.Button6Click(Sender: TObject); (tombol first)

begin

CLIENTDATASET2.First;

end;

end.

SELAMAT MECOBA :)

JIKA KESULITAN SILAHKAN TINGGALKAN KOMENTAR.

APLIKASI DAPAT DI DOWNLOAD DISINI