void HarcamaKaydet; var girilenTutar: Real; girilenTarih: String; secilenKategoriID: Integer; sqlSorgu: String; { try if((guncelTutarEdit == nil) || (guncelTarihEdit == nil) || (guncelKategoriBtn == nil) ){ ShowMessage('Form elemanları bulunamadı!'); Exit; } try girilenTutar = StrToFloat(guncelTutarEdit.Text); except ShowMessage('Lütfen geçerli bir tutar giriniz!'); Exit; } girilenTarih =guncelTarihEdit.Text; //girilenTarih=guncelTarihEdit.DateStr; secilenKategoriID = guncelKategoriBtn.ClTagInt; if (girilenTutar <= 0) { ShowMessage('Tutar sıfırdan büyük olmalıdır!'); Exit; } if (secilenKategoriID <= 0) { ShowMessage('Lütfen bir kategori seçiniz!'); Exit; } if (girilenTarih == '') { ShowMessage('Lütfen bir tarih seçiniz!'); Exit; } Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'ncyyn.db3', ''); sqlSorgu = 'INSERT INTO harcamalar (kategori_id, tutar, tarih) VALUES (' + IntToStr(secilenKategoriID) + ', ' + FloatToStr(girilenTutar) + ', ' + QuotedStr(girilenTarih) + ')'; Qry = Clomosy.DBSQLiteQueryWith(sqlSorgu); Qry.OpenOrExecute; Qry.Free; ShowMessage('Harcama kaydedildi!'); - tumHarcamalariYukle; except ShowMessage('Harcama kaydetme hatası: ' + LastExceptionClassName + ' - ' + LastExceptionMessage); } }Merhaba,böyle bir fonksiyonum var .guncelTutarEdit,guncelTarihEdit ,guncelKategoriBtn global değiskenler.Başka bir fonksiyonda nesneleri oluşturuyorum.guncelTarihEdit TclProDateEdit ile tanımladım.Tarih seçmeme rağmen Lütfen bir tarih seçiniz!hatası alıyorum.Yorum satırındaki şekilde denediğimde de SQL hatası alıyorum.Bir dönüşüm yapmam gerek sanırım ama,bilemedim.Yardımcı olursanız çok sevinirim.
|