Delphide ClientDataSet Kullanımı ve Kayıt İşlemleri

 

Merhaba arkadaşlar bu makalemizde  ClientDataSet kullanımına bakacağız. ClientDataSet kullanarak veritabanına kayıt girişi yapabiliyoruz. Ayrıca yine ClientDataSet kullanarak cds uzantılı veritabanından verileri alabiliyoruz.

Formumuza Data Controls kısmından 1 adet DBGrid DataSource ekleyin. Ayrıca Şekil1 deki gibi Edit ve butonu formunuza ekleyin.

ClientDataSet e sağ tıklayalım. Açılan pencerede Fields Editor e tıklayalım. Açılan pencerede sağ tıklayarak gerekli sütunları ekleyelim.

 

Şekil 1

 

Şekil 2

 

Şimdi tekrar ClientDataSet e sağ tıklayalım. Save to Binary MyBase File kısmından cds dosyasını kaydedeceğimiz yeri belirliyoruz.

 

Şekil 3

 

Editlere girdiğimiz verileri cds uzantılı veritabanımıza kayıt işlemini gerçekleştiriyoruz.

 

Şekil 4

 

Şekil 5

 

unit sql_client_Unit1;

interface

uses

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

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Datasnap.DBClient,

Vcl.StdCtrls, Vcl.Grids, Vcl.DBGrids;

type

TForm1 = class(TForm)

DBGrid1: TDBGrid;

btnSave: TButton;

DataSource1: TDataSource;

ClientDataSet1: TClientDataSet;

Edit1: TEdit;

Label1: TLabel;

Label2: TLabel;

Edit2: TEdit;

Label3: TLabel;

Edit3: TEdit;

Label4: TLabel;

Edit4: TEdit;

ClientDataSet1Id: TStringField;

ClientDataSet1Name: TStringField;

ClientDataSet1Surname: TStringField;

ClientDataSet1Contact: TStringField;

procedure FormCreate(Sender: TObject);

procedure btnSaveClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnSaveClick(Sender: TObject);

var

i,j:integer;

ID: string;

begin

with ClientDataSet1 do begin

if ClientDataSet1.Active then ClientDataSet1.Close;

Open;

Append;

//InsertRecord metodu ile toplu bir sekilde kaydedebiliriz.

//ClientDataSet1.InsertRecord([Edit1.Text,Edit2.Text,Edit3.Text,Edit4.Text]);

FieldByName('Id').AsString := Edit1.Text;

FieldByName('Name').AsString := Edit2.Text;

FieldByName('Surname').AsString := Edit3.Text;

FieldByName('Contact').AsString := Edit4.Text;

Post;

//kayit sayisini aliyoruz.

j:=DBGrid1.DataSource.DataSet.RecordCount;

Edit1.Text:=inttostr(j);

//girilen verileri cds veritabanimiza kaydediyoruz.

ClientDataSet1.SaveToFile('D: \person.cds');

//veritabanimizdan verileri aliyoruz.

ClientDataSet1.LoadFromFile('D:\ person.cds');

Edit1.Text:=inttostr(j+1);

Edit2.Text:='';

Edit3.Text:='';

Edit4.Text:='@';

//sutun font boyutunu ayarliyoruz.

for i := 0 to DBGrid1.Columns.Count-1 do

begin

DBGrid1.Columns[i].Title.Font.Size:=14;

end;

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

ClientDataSet1.LoadFromFile('D: \person.cds');

Edit1.Text:=inttostr(DBGrid1.DataSource.DataSet.RecordCount +1);

end;

end.

 

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

Share This:

Facebook Twitter Pinterest Linkedin Whatsapp Whatsapp

About Bahadır Şahin

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.