DB CHECK

[cunsey]

MErhaba arkadaşlar

Yazdığım programın databaseinde check bir alan var kayıtları gride giriyorum mesala birinci kayıttayım ve check alanı işaretledim kaydettim
yeni bi kayıt açtım burda yapmak istediğim check alanı işaretlediğim zaman diğerini kaldırması yani databasete hep bir alan işaretli kalacak

Bunu nasıl yapabilyardımlarınız için tşk

[mepc]

şu kodu yazarak işini görebilirsin: (query1 kullanarak)

Kod: Tümünü seç

query1.Close;
query1.SQL.Clear;
query1.SQL.Add('update tabloadı');
query1.sql.Add('set alanadı=false); //Alanı true-false tuttuğunuzu varsayıyorum.
query1.ExecSQL;

ile tüm alanların seçili özelliğini iptal edersiniz.

Daha sonra tablenin onnewrecord olayına

Kod: Tümünü seç

tablex.fieldbyname('alanadı').asboolean:=true;

kodu ile yeni veri girilecek alanı seçili hale getirirsiniz.

[aslangeri]

S.A.
şöle bişi işini görebilirmi?
önce global bir değişken tanımlarız. bu değişkende chek etmek isteyip istemediğin tutulur.

Kod: Tümünü seç

var 
varsayilan:Boolean=false;

bunu tablonun beforeinsert olayında set edersin.

Kod: Tümünü seç

if dataset['ALAN']<>null then varsayilan:=dataset['ALAN'];

daha sonra afterinsert olayında da alana bu değeri veririz.

Kod: Tümünü seç

dataset['ALAN']:=varsayilan;

umarım işini görür.
Kolay gelsin.