Cara mendelet data pada data base

Cara mendelet data pada data base

Oleh:

JOKO TURWANTO

NIM : 2011.15.458.0016

JURUSAN TEKNIK INFORMATIKA

FAKULTAS TEKNIK

                                                         UNIVERSITAS WAHIDIYAH

Cara mmendelet data pada data base Ok gust lang saja ya tanpa basa basi kali ini kita akan membuat bagai mana caranya mendelet data pada data base langkah awal yang harus kita lakukan antara lain

Buka delphi 2010 kemudian bikin form area kerja kita baru lalu kita minimaze terlebih dahulu delphinya tapi jangan di keluarkan ya gust, kemudian kita buka microsof acces dan membikin tabel data yang akan kita koneksikan pada delphi 2010 caranya

Klik tombol star yang ada di taskbar.

Pilih atau klik menu All Programs > Microsoft Office >

Microsoft Office Access 2007.

Pada jendela Getting Started with Microsoft Office

Access, pilih dan klik ikon Blank Database.kemudian di beri nama data mahasiswa apa yang lain

Setelah pembuatan data jadi baru deh kita simpan dan kaaiata tutup dulu ms accesnya kembali ke delphi dalam form baru kita yang tadi kita masukan komponen komponen yang digunakan dalam pembuatan program komponenya antara lain

Group box1 dan masukan komponen dalam combobox

Label1,2,3,4, dbedit1,2,,3,4, dbn nafigator, ado conektion, ado table, data source, main menu, xp manifest, atur komponen secantik mungkin

Dan yang ada di combobox 2

Label6,7 , image1 dbgre , bitbtn, atatur posisi becantik mungkin

Nama komponen	caption	Nama
TADOConnection	-	ADOConnection1
TADOTable	-	TMahasiswa
TDataSource	-	DsTMahasiswa
TGroupBox	-	GroupBox1
TGroupBox	-	GroupBox2
TMainMenu	-	MainMenu1
TLabel		Label1
TLabel		Label2
TLabel		Label3
TLabel		Label4
TLabel		Label5
TLabel		Label6
TLabel		Label7
TLabel		Label8
TDBEdit		DBEdit1
TDBEdit		DBEdit2
TDBEdit		DBEdit3
TDBEdit		DBEdit4
TBitBtn		BitBtn2
TDBGrid		DBGrid1
TBevel		Bevel1
TDBNavigator		DBNavigator1
TXPManifest		XPManifest1
Timage		Image1
Timage		Image2
Tpanel		Panel1
ttimer		Timer1
ttimer		Timer2

 setelah  selesai memselanjutnya masukan komponen kedalam form lalu langkah selanjutnya truz untuk t image kita bisa pilih sendiri sesuai dengan keinginan kita untuk mempercantik tampilan caranya pilih properti kemu dian pictur cari dech gambarnya sesuai kesukaan kita

kemudian masukan kode seperti di bawah ini pilih kode yang terletak di bawah form kan ada tiga pilihan  yaitu kode,  design dan histori klik satu kali di kode  pastikan kode sama persis di bawah ini

unit UMenu;

interface

uses

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

  Dialogs, DB, ADODB, ExtCtrls, Grids, DBGrids, StdCtrls, Buttons, Mask,

  DBCtrls, Menus, XPMan, jpeg;

type

  TFMenu = class(TForm)

    TMahasiswa: TADOTable;

    ADOConnection1: TADOConnection;

    TMahasiswaNIM: TWideStringField;

    TMahasiswaNama: TWideStringField;

    TMahasiswaAlamat: TWideStringField;

    TMahasiswaFakultas: TWideStringField;

    DsTMahasiswa: TDataSource;

    GroupBox1: TGroupBox;

    GroupBox2: TGroupBox;

    MainMenu1: TMainMenu;

    File1: TMenuItem;

    N1: TMenuItem;

    Keluar1: TMenuItem;

    N2: TMenuItem;

    Label1: TLabel;

    DBEdit1: TDBEdit;

    Label2: TLabel;

    DBEdit2: TDBEdit;

    Label3: TLabel;

    DBEdit3: TDBEdit;

    Label4: TLabel;

    DBEdit4: TDBEdit;

    BitBtn2: TBitBtn;

    DBGrid1: TDBGrid;

    Bevel1: TBevel;

    DBNavigator1: TDBNavigator;

    XPManifest1: TXPManifest;

    Label5: TLabel;

    Image1: TImage;

    Label6: TLabel;

    Label7: TLabel;

    Image2: TImage;

    waktu: TPanel;

    Timer1: TTimer;

    Label8: TLabel;

    Timer2: TTimer;

    procedure BitBtn2Click(Sender: TObject);

    procedure Keluar1Click(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

    procedure Timer2Timer(Sender: TObject);

untuk tipe di atas tidak perlu kita masukan sebab saat kita memasukan komponen kedalam form maka type akan muncul secara otomatis

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  FMenu: TFMenu;

implementation

{$R *.dfm}

Untuk memberi perintah pada bit btn maka caranya kita pilih even on clik atau langsung klik dua kali pada bit btn dan masukan kode seperti di bawah ini

procedure TFMenu.BitBtn2Click(Sender: TObject);

var

  d:pChar;

  s:Array[0..255]of Char;// Array untuk menditeksi huruf yg akan kita eksekusi nantinya

begin

//listing hapus data di database per record

 if TMahasiswa.RecordCount=0 then  //jika record kosong di dalam database

  begin

    ShowMessage('Data Kosong, silahkan Input Telebih dahulu (+)');// tampilkan pesan

    end

    else

    begin

    d:=StrPCopy(s, Format('Anda yakin akan menghapus NIM : %s ??', // pesan delete dengan data nama

    [TMahasiswa.Fields[0].AsString])); // field[0] adalah colom pertama dari database

     if MessageBox(Self.Handle, d, 'Peringatan', Mb_YesNo or MB_ICONQUESTION)= // pesan komfirmasi

    IDYes then

     begin

     TMahasiswa.Delete;// perintah delete

     end;

end;

end;

masukan kode di tf menu yang kita beri nama keluar seperti di bawah ini

procedure TFMenu.Keluar1Click(Sender: TObject);

begin

Application.Terminate;

end;

dan selanjutnya klik dua kali pada timer1dan masukan kode

procedure TFMenu.Timer1Timer(Sender: TObject);

begin

waktu.Caption:=FormatDateTime('dddd, dd mmmm yyyy (hh:mm:ss)',Now);

end;

dan di timer 2 klik 2x dan masukan kode:

procedure TFMenu.Timer2Timer(Sender: TObject);

begin

if label8.Left <= 700 then

label8.Left := label8.Left + 2

else

label8.Left := -310;

end;

end.

Selesai deh tahap pengkodean kita selanjutnya kita cara pengoneksian ke ms acces

Klik 2 kali pada ADO conection dan pilih buil pilih conection dan pilih di select or enter a data base name untuk mencari data yang sudah kita bikin di ms acces tdi law udah untuk mengetes conek apa tidak data yang kita coneksikan klik test conection jika berhasil maka akan muncul data aktif conected lalu tekan ok

Dan klik 2x pada tmain menu dan beri fil atau nama keluar lalu klik dua kali pada fiel ataunama tersebut masukan kode di tf menu yang kita beri nama keluar seperti di bawah ini

procedure TFMenu.Keluar1Click(Sender: TObject);

begin

Application.Terminate;

end;

ini gak perlu di tulis lagi soalnaya sudah kita tulis di pengkodean komponen di atas tadi

selamat mencoba

g_mail   :dprwscout717@gmail.com

blok       :designprogram717.blokspot.com

no hp    : 082302577717