Merhaba arkadaşlar bu makalemizde DBGrid nesnesine girilen kayıtlar arasında gezinti yapacağız. Bir önceki kayıt, bir sonraki kayıt, ilk ve son kayıtlara butona tıklayarak ulaşacağız. DBEdit nesnelerinde de kayıtlarımızın gösterimini sağlayacağız.
Delphi de veritabanına nasıl kayıt eklenir? Eklenen kayıtlar ile ilgili Edit, Update,Delete,Search işlemleri konusunu daha önceki makalede anlatmıştım. Önceki makaleye ulaşmak için Buraya tıklayabilirsiniz.
Formumuza 3 adet DBEdit, 4 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
unit dbgrid_adotable_Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.Grids,
Vcl.DBGrids, Vcl.StdCtrls, Vcl.Mask, Vcl.ExtCtrls, Vcl.DBCtrls;
type
TColorDBGrid = Class(TCustomDBGrid);
TForm1 = class(TForm)
DBGrid1: TDBGrid;
ADOTable1: TADOTable;
DataSource1: TDataSource;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
btnFirst: TButton;
btnPrior: TButton;
btnNext: TButton;
btnLast: TButton;
lblId: TLabel;
lblName: TLabel;
lblSurname: TLabel;
procedure btnNextClick(Sender: TObject);
procedure btnFirstClick(Sender: TObject);
procedure btnPriorClick(Sender: TObject);
procedure btnLastClick(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.btnFirstClick(Sender: TObject);
begin
ADOTable1.First;
end;
procedure TForm1.btnLastClick(Sender: TObject);
begin
ADOTable1.Last;
end;
procedure TForm1.btnNextClick(Sender: TObject);
begin
ADOTable1.Next;
end;
procedure TForm1.btnPriorClick(Sender: TObject);
begin
ADOTable1.Prior;
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