DBEdit otomatik kayıt yapıyor

[McVeLeT]

Arkadaşlar işin içinden çıkamadım acemi olunca, forumunuzda araştıra araştıra ufak çaplı birşeyler yapmaya çalıştım.

Sorum şu Ben DBEdite birşey girdiğimde otomatik olarak DBye kayıt ediyor. (Kayıt buttonu hiç bir işe yaramıyor bu nedenle)

Ben sadece bu bilgiler girildiğinde kayıt et buttonuna bastığımda kayıt etmesini istiyorum.

Resimdede görüldüğü gibi daha 3. edite geçtiğimde hemen kayıt etti, yardımlarınızı bekliyorum saolun şimdiden

[mkysoft]

db nesnenizde aktif kayıt değiştiğinde otomatik post ve update yapılıyor demekki. Aktif kaydın değişmesi için gridden farklı bir kayda tıklıyor olabilirsiniz yada master detail şeklinde mevcut dbyi kullanmışsınız. Öncelikle db de neyin scroll olayını tetiklediğini bulun. bunun için db nesnenizin beforescroll olayına breakpoint ekleyebilrisiniz.

[McVeLeT]

Master detail kısmı boş beforescroll olayına nasıl breakpoint ekleyeceğimi bilmiyorum.

Peki DBEdit yerine sadece Edit kullansam DB ye bağlantı yapabilirmiyim Kaydet buttonuyla?

[NewMember]

dbeditin bağlı olduğu datasource nesnesinin autoedit özelliğinş false yap

[aslangeri]

s.a.
dbgridde indicator u gösterirsen o bilgilerin henüz veritabanına kayıt yapılmadığını kaydın insert modunda olduğunu görürsünüz.
db kontrollü bileşenler ortak çalıştıkları için editte yaptığınız değişiklik gridde gridde (eğer izinverdiyseniz) yaptığınız değişiklik editte görünür.
editte yaptığınız değişikliklerin gridde görünmesini istemiyorsanız editleri dbedit yerine normal edit kullanmanız ,kaydet dendiği zaman editlerdeki bilgileri tablodaki ilgil alanlara kodla atamanız lazım. bu durumda grid üzerinde seçtiğiniz kayıt ta editlerde görünmeyecektir. ilgili dataset in afterscrool eventina yazacağınız kodlarla bu durumu düzeltebilirsiniz.
kolay gelsin.

[McVeLeT]

Normal edit yaptığımda Kaydet buttonuna hangi kodları ekleyeceğim? Veri tabanını database desktop ile hazırladım

[mkysoft]

db.insert
db.fiellds = xxxx
db.post

[McVeLeT]

table1.insert
Table1.Fields['URUN_ADI']:=Edit2.text;
table1.post

Be şekilde yaptığımda Table1.FieldDefs.Add('URUN_ADI'); kısmında şu hatayı veriyor.

Kod: Tümünü seç

[Warning] Unit3.pas(7): Unit 'FileCtrl' is specific to a platform
[Error] Unit3.pas(195): Missing operator or semicolon
[Error] Unit3.pas(195): Incompatible types: 'Integer' and 'String'
[Error] Unit3.pas(195): Incompatible types: 'TField' and 'TCaption'
[Fatal Error] Project1.dpr(9): Could not compile used unit 'Unit3.pas'

[orhancc]

table1.insert
Table1.Fields['URUN_ADI']:=Edit2.text;
table1.post

Be şekilde yaptığımda Table1.FieldDefs.Add('URUN_ADI'); kısmında şu hatayı veriyor.

Kod: Tümünü seç

[Warning] Unit3.pas(7): Unit 'FileCtrl' is specific to a platform
[Error] Unit3.pas(195): Missing operator or semicolon
[Error] Unit3.pas(195): Incompatible types: 'Integer' and 'String'
[Error] Unit3.pas(195): Incompatible types: 'TField' and 'TCaption'
[Fatal Error] Project1.dpr(9): Could not compile used unit 'Unit3.pas'

Delphide satır sonlarını ; ile bitirmen gerekiyor

Kod: Tümünü seç

Table1.Fields['URUN_ADI'].value :=Edit2.text;

olacak
ayrıca sayısal alana metin kayıt ettirmeye çalışırsan da hata alırsın bilgine... Tip dönüşümlerini bir incele

[McVeLeT]

Eyw. Saolun hallettim

[McVeLeT]

peki yeni ürünü kayıt için hayır dendiğinde hangi kod yazılacak 5 tane Editin veri tabanına kayıt olmaması için

var
a:integer;

begin
a:=Application.MessageBox('Ürünü Kaydetmek İstiyormusunuz?','YENİ ÜRÜN KAYIT', MB_YESNO or MB_ICONQUESTION);
if a=idNO then ..........................

[aslangeri]

s.a.
editlerin text ini boşalt;