Delphide Tarih Sütunundaki Seçili Tarihlerin Silinmesi 

Merhaba arkadaşlar bu makalemizde access veritabanına bağlanacağız.

Formumuza 1 adet DBGrid, 1 adet Button ekleyelim. Ayrıca formumuza 1 er adet DataSource ve ADOTable ekleyelim. Daha önceki makalelerde anlatmıştım. Object Inspector de ADOTable imizin ConnectingString kısmından access veritabanımızın yolunu ekliyoruz. ADOTable in TableName kısmından bağlanacağımız tablonun ismini seçiyoruz. Son olarak Object Inspector de DataSource un DataSet ini ADOTable1 olarak ayarlıyoruz.

Bu örneğimizde Tarih sütununda seçtiğimiz satırların tarih değerlerini veritabanından silinmesini sağlayacağız.

Şekil 1

Şekil 2

unit clear_date_field_Unit1;

interface

uses

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

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.Grids,

Vcl.DBGrids, Vcl.StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

DBGrid1: TDBGrid;

ADOTable1: TADOTable;

DataSource1: TDataSource;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

with ADOTable1 do

begin

Edit;

FieldByName('Date').Clear;

Post;

end;

end;

end.

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