Xtreme23Koe: Membuat Database dengan Delphi

Kali ini saya akan Share lagi bagaimna Cara Membuat Database melalui program Delphi, disini contohnya membuat Databasenya yaitu DB Access. Bukan hanya Databasesnya saja tapi juga bisa skalian dengan Tabelnya :

Untuk Screenshotnya saya buat formnya seperti itu, untuk Listingnya Silahkan Coba dibawah ini :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ADODB, DB;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    ADOConnection1: TADOConnection;
    ADOCommand1: TADOCommand;
    OpenDialog1: TOpenDialog;
    Edit1: TEdit;
    CheckBox1: TCheckBox;
    procedure Button1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses ComObj;
{$R *.dfm}
function CreateAccessDatabase(FileName: string): string;
var
  cat: OLEVariant;
begin
  Result := '';
  try
    cat := CreateOleObject('ADOX.Catalog');
    cat.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + FileName + ';');
    cat := NULL;
  except
    on e: Exception do Result := e.message;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
Var BuatTabel:String;
begin
if Button1.Caption='Pilih Nama dan Lokasi' then
Begin
if OpenDialog1.Execute then
  if FileExists(OpenDialog1.FileName) then
     MessageDlg('Nama Sudah Ada !!',mtError,[mbOK],0)
     else
    begin
    Edit1.Text:=OpenDialog1.FileName;
    Button1.Caption:='Create Database';
    end
End
else
Begin
CreateAccessDatabase(OpenDialog1.FileName);
  if CheckBox1.Checked =true then
  begin
  BuatTabel:=Memo1.Text;
  ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+QuotedStr(OpenDialog1.FileName)+';';
  ADOConnection1.Connected:=true;
  ADOCommand1.CommandText:=BuatTabel;
  ADOCommand1.Execute;
  end;

  Button1.Caption:='Pilih Nama dan Lokasi';
  MessageDlg('Database sudah Dibuat',mtInformation,[mbok],0)

End

end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
Memo1.Enabled :=True
else
Memo1.Enabled :=false
end;

end.

Kalau gx mau Report Nulis Silahkan Download Sourcenya disini (Last Upload 22-04-2013)

Xtreme23Koe

Pages

Membuat Database dengan Delphi

No comments:

Post a Comment