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)