Delphi de Veritabanı İşlemleri (Insert, Save, Edit, Delete, Search)

Merhaba arkadaşlar bu makalemizde DBGrid nesnesine kayıt girişi, kayıt düzenlemesi, seçili kayıtın silinmesi ve DBGrid de kayıt arama işlemlerini yapacağız. Formumuza  3 adet DBEdit, 5 adet Button, 3 adet Label, 1 adet DBGrid nesnesi ve sonrasında 1 adet DataSource ve ADOTable ekliyoruz. ADOTable nesnesinin ConnectionString kısmından Access veritabanımızı seçiyoruz.

Yine ADOTable nesnesinin TableName kısmından tablomuzu seçiyoruz. Bu örnekte tablomuzun ismi “Musteri” şeklindedir.

Şekil 1

DBEdit nesnesinde DataSource kısmından DataSource1 i seçiyoruz. Yine DataField kısmından veritabanında ki tablomuzda bağlayacağımız sütunun adını seçiyoruz. 

DBEdit nesnesine girilen verileri kaydetmek için ilk önce Insert butonuna tıklayarak boş satır ekliyoruz. 

Şekil 2

Sonrasında DBEdit e veri girişi yapıyoruz ve Save butonuna tıklayarak DBEdit e girilen verileri DBGrid nesnesine kaydediyoruz.

Şekil 3

unit dbgrid_insert_Unit1;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Data.DB, Vcl.Grids,

Vcl.DBGrids, Data.Win.ADODB, Vcl.Mask, Vcl.ExtCtrls, Vcl.DBCtrls;

type

TColorDBGrid = Class(TCustomDBGrid);

TForm1 = class(TForm)

Id: TLabel;

Name: TLabel;

Surname: TLabel;

btnInsert: TButton;

btnSave: TButton;

btnEdit: TButton;

btnDelete: TButton;

btnSearch: TButton;

DBGrid1: TDBGrid;

ADOTable1: TADOTable;

DataSource1: TDataSource;

txtId: TDBEdit;

txtName: TDBEdit;

txtSurname: TDBEdit;

procedure btnInsertClick(Sender: TObject);

procedure btnSearchClick(Sender: TObject);

procedure btnSaveClick(Sender: TObject);

procedure btnEditClick(Sender: TObject);

procedure btnDeleteClick(Sender: TObject);

procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;

DataCol: Integer; Column: TColumn; State: TGridDrawState);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnDeleteClick(Sender: TObject);

begin

ADOTable1.Delete;

end;

procedure TForm1.btnEditClick(Sender: TObject);

begin

ADOTable1.Edit;

end;

procedure TForm1.btnInsertClick(Sender: TObject);

begin

ADOTable1.Insert;

end;

procedure TForm1.btnSaveClick(Sender: TObject);

begin

ADOTable1.Post;

end;

procedure TForm1.btnSearchClick(Sender: TObject);

begin

//txtName adli DBEdit e girilen isimi

//Veritabanindaki tablomuzdaki Adi sutununda aramasini yaptiriyoruz.

ADOTable1.Filter:='Adi ='+QuotedStr(txtName.Text) ;

ADOTable1.Filtered:=True;

end;

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;

DataCol: Integer; Column: TColumn; State: TGridDrawState);

begin

with TColorDBGrid(Sender) do begin

if DataLink.ActiveRecord = Row - 1 then begin

Canvas.Brush.Color := clLime;

Canvas.Font.Color := clFuchsia;

end

else begin

Canvas.Brush.Color := clWindow;

Canvas.Font.Color := clWindowText;

end;

DefaultDrawColumnCell(Rect, DataCol, Column, State);

end;

end;

end.

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN