"
10 Aralık 2005 08:39
merhaba arkadaslar
nevigator kullanmak istemiyorum.bunu biliyorum aynı şeyi kodlarla yapmak
istiyorum.yinede teşekkürler mesajın için.
birde editlerim boş oldugu halde kaydet dediğim zaman boş veri olarak kayıt
yapıyor.bunu nasıl önleyebilirim.
1-//kaydet
append
edit1.text:=table1Adi.text;
"
"
"
bundan sonra editleri temizliyorum
edit1.clear;
"
"
"
başka ne ekleyebilirim boş kayıt yapmaması için
hepsini doldurma zorunluluğu dışında.
2-//düzelt
düzeltmede de buldugu kaydı
editlarda gösterip kayıt et diyorum
bana yeni bir tane kayıt olarak ekliyor.bunu nasıl yapabilirim.
(ben askerim şuan ve pek internete giremiyorum.o nedenle bilgilerim yok
elimde.askerlik insana herşeyi unutturuyor..)
şimdiden teşekkür ederim yardımlarınız için...
suskunking33
"
**************************
10 Aralık 2005 12:46
zorunlu alanlar içn
if ( (edit1.text<>'') and (edit2.text<>'')...) then
begin
kayt işlemleri >>
end else begin
ShowMessage('BOş alanları doldurun');
Exit;
end;
gibi kontrol yaptırabilirsin
ObscurE
***************************
cevap:
öncelikle hayırlı teskereler diliyorum,
askerliğin nasıl olduğunu bilirim......
Allah kolaylık versin...
Obscure arkadaşımıza teşekkürler verdiği yanıt için,
kendi yorumumla kodu şu şekilde düzeltiyorum:
1. düzeltemede bulduğu kaydı yeni bir kayıt olarak eklememek için:
table1.edit;
table1adi=edit1.text;
table1soyadi=edit2.text;
.....
table1.post;
şeklinde kodlama kullanman gerekir.
aktif kaydı düzeltmiş olarak aynı yere yazarsın.
2. yeni kayıt eklemek için:
table1.append;
table1adi=edit1.text;
table1soyadi=edit2.text;
.....
table1.post;
yeni bir kayıt olarak en sona ekler.
3. boş alanların kontrolü için:
yöntem-1:
sanırım paradox kullanıyorsun ( kodlama tercihinden anladığım kadarıyla )
active desktop veri tabanı yönetiminden ilgili field alanlarının
özelliklerine göz at. boş hücre geçememe şartı çentiğini koy.
yöntem-2:
kodlama ile kontrol yaptırmak istiyorsan:
Obscure arkadaşımızın dediği gibi,
if ( (edit1.text<>'') and (edit2.text<>'')...) then
begin
kayt işlemleri >>
end else begin
ShowMessage('BOş alanları doldurun');
Exit;
end;
şeklinde kullanabilirsin,
şayet edit sayısı çok fazla ise bu sana küflet getirecektir,
bunu da şu şekilde yapmanı öneririm,
hafif bir incelik katıyorum......
//button1 cliğine ( kaydet butonu )
var x:string;
begin
x:=edit1.text+edit2.text+edit3.text+...+edit10.text; //hangi hücrelerin
//boş geçilmesini istemiyorsan yan yana ekle
x:=trim(x);
if x<>'' then
begin
...
kayt işlemleri;
...
end
else ShowMessage('BOş alanları doldurun');
//final
end;
daha şık ve estedik bir kodlama oldu.
tüm editleri tek bir satırla kontrol ettirdik.
bu örnekle kodlama estetiğinizin daha da ilerlemesi dileklerimle,
kolay gelsin..........
saygılarımla_
neoturk_