Membuat Aplikasi Database Delphi Berbasis Cloud Database

D2 TEKNIK KOMPUTER (BSI PROGRAMMER)

 Membuat Aplikasi Database Delphi Berbasis Cloud Database


Cloud database adalah sebuah database yang dapat diakses oleh klien melalui sistem cloud (server dalam internet) dan dikirimkan kepada user melalui internet dari server penyedia layanan cloud database. Sebuah cloud database pada umumnya berjalan pada platform cloud computing seperti Amazon EC2, gogrid dan Rackspace. Penggunaan cloud computing untuk cloud database memudahkan cloud database mencapai skala optimal, ketersediaan yang memadai, serta alokasi sumber daya yang efektif.

Untuk membuat sebuah cloud database dapat menggunakan sebuah database tradisional seperti mysql atau SQL server yang diadopsi penggunaannya dalam sistem cloud. Namun, sebuah cloud database yang asli seperti Xeround’s MySQL cloud database cenderung lebih baik penggunaannya untuk mengoptimalkan penggunaan resource cloud database, serta dapat menjamin skalabilitas sebaik ketersediaan dan stabilitasnya.

Ada 2 model utama penggunaan cloud database:

1. Virtual Machine :

User dapat menjalankan cloud database secara mandiri menggunakan virtual machine. Virtual machine ini dapat diperoleh secara instan dari cloud platform, tapi hanya untuk penggunaan dalam waktu yang terbatas. Contoh : Oracle Database 11g Enterprise Edition

2. Database Service :

Beberapa cloud platform menawarkan sebuah layanan database tanpa menjalankan sebuah virtual machine secara fisik. Dalam konfigurasi ini user tidak perlu menginstal dan memelihara database sendiri, user hanya perlu membeli sebuah akses ke layanan database yang nantinya database tersebut akan dipelihara dan dikelola oleh penyedia layanan cloud database. Contoh : Amazon Web Services.


Cloud Database yang dipakai oleh saya pada artikel kali ini adalah xeround; yang meyediakan media penyimpanan database SQL secara gratis.

Cara Mendaftar di XEROUND.COM

Anda harus mempunyai email yang aktif untuk bisa mendaftar ke account xeround.com ,
Selanjutnya...

Setelah Login , kemudian create database > pilih yang free/trial

Settingan delphi connection;

Let's Go To Coding....



unit Delphi_Online;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, ZConnection, DB, ZAbstractRODataset,
  ZAbstractDataset, ZDataset, ExtCtrls, DBCtrls, Menus;

type
  TForm1 = class(TForm)
    ZConnection1: TZConnection;
    DBGrid1: TDBGrid;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Button2: TButton;
    Edit5: TEdit;
    Button3: TButton;
    ZQuery1: TZQuery;
    DataSource1: TDataSource;
    Button4: TButton;
    DBNavigator1: TDBNavigator;
    PopupMenu1: TPopupMenu;
    Refresh1: TMenuItem;
    Disconnect1: TMenuItem;
    Connect1: TMenuItem;
    Button5: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Refresh1Click(Sender: TObject);
    procedure Disconnect1Click(Sender: TObject);
    procedure Connect1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
With ZQuery1 Do
   Begin
     SQL.Clear;
     SQL.Text:='INSERT INTO Kupang(Kode_Barang,Banyak_Barang,Jumlah,Total)VALUES('
     +Quotedstr(Edit1.Text)+','+Quotedstr(Edit2.Text)+','+Quotedstr(Edit3.Text)+','+Quotedstr(Edit4.Text)+')';
     ExecSQL;
   End;
Form1.FormCreate(Sender);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if ZQUery1.IsEmpty then
  Begin
    MessageBox(Handle,'Data Masih Kosong','Warning',MB_IconInformation);
    Exit;
  End;

if (Application.MessageBox('Yakin Mau Hapus Data','Delete Data',MB_YesNo)=idYes) then
   Begin
     With ZQuery1 Do
        Begin
          SQL.Clear;
          SQL.Text:='DELETE FROM kupang WHERE Kode_Barang='+Trim(Edit1.Text);
          ExecSQL;
        End;
        Form1.FormCreate(Sender);
   End
 Else Exit;

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if ZQuery1.Locate('Kode_Barang',Edit5.Text,[LoCaseInSensitive,LoPartialKey]) then
   Begin
     DBGRID1.Fields[0].AsString;
   End;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Edit4.Text:=Inttostr(Strtoint(Edit2.Text)*Strtoint(Edit3.Text));
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm1.Connect1Click(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
ZConnection1.Connected:=False;
With ZQuery1 Do
  Begin
    Active:=False;
    SQL.Clear;
    SQL.Text:='SELECT Kode_Barang, Banyak_Barang, Jumlah, Total FROM kupang';
    Open;
    Active:=True;
  End;
ZConnection1.Connected:=True;
end;

procedure TForm1.Disconnect1Click(Sender: TObject);
begin
ZConnection1.Disconnect;
ZQuery1.Active:=False;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=Cafree;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
ZConnection1.Connected:=False;
With ZQuery1 Do
  Begin
    Active:=False;
    SQL.Clear;
    SQL.Text:='SELECT Kode_Barang, Banyak_Barang, Jumlah, Total FROM kupang';
    Open;
    Active:=True;
  End;
ZConnection1.Connected:=True;
end;

procedure TForm1.Refresh1Click(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
ZConnection1.Connected:=False;
With ZQuery1 Do
  Begin
    Active:=False;
    SQL.Clear;
    SQL.Text:='SELECT Kode_Barang, Banyak_Barang, Jumlah, Total FROM kupang';
    Open;
    Active:=True;
  End;
ZConnection1.Connected:=True;
end;

end.



Sekian Dan Terima Kasih!!!

SALAM DELPHIER<>