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
0 comments:
Yorum Gönder