dbdatetimepicker

[freeman35]

kod yazarken class ların nelerden türetildiği yada neyin nereye bağlı olduğuna dikkat edin,
kaçırdığınız yer şurası, dbxxxx kullanıyorsunuz, ama atamalarınız hep DBdatetime. siz buna istediğiniz kadar atama yapın o gene gidip bağlı olduğu db den bilgiyi alacak, dbdatexxx db ye direk kayıt yapmanızı ve okunan bilgiyi göstermenizi kolaylaştırır, ayrıca koda yazmanıza gerek bırakmaz.
bir diğeride navigator ın click inde atama yapıyorsunuz. bunda hata almazsınız ama mantıklı değil. gene dbdatexxx örneğindeki gibi bunuda bağladığınız datasource üzerinde işlem yapmanızı sağlar. Yapmanız gereken suyun başından tutmanız

yani yeni kayıtta atamalar için, xTable yada xQuery nin OnNewRecord Event ini kullanın

Kod: Tümünü seç

procedure TDM_xxxx.QUE_StokNewRecord(DataSet: TDataSet);
begin
     DataSet.FieldByName('TARIH').AsDateTime := Date;
end;

bu sayede her yeni kayıt işleminde ister bir component ister grid verdiğiniz değer görülecek ve ilk değer olarak gelecektir

Kolay gele

[bobasturk]

Freeman35, ve hüseyin ustam;

Değerli vakitlerinizi ayırarak yardımcı olduğunuz için teşekkür ederim.
Freeman35 ustamın bu gayet açıklayıcı ve bu işin mantığını anlatan makalesi gerçekten güzel ve yararlı oldu.

Vermiş olduğunuz mantık ve kod istenilen şekilde çalışıyor.
Cevabımın geç olmasının sebebi gece vardiyam vardı çalışmaya gitmiştim.
Yeni geldim ve ilk işim forumu açmak oldu.

Hepinize yeniden teşekkür ve saygılarla
Hayırlı iş ve çalışmalar.

[Berdem]

Merhaba buna benzer bir problemi bende yaşıyorum.

Kod: Tümünü seç

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
DateTimePicker3.DateTime:=ADODataSet1.IndexFields[3].AsDateTime;
end;

list indeks out of bounds(3) hatası verdi..indeksin 3 olduğundan eminim..
Ben ado ve access kullanıyorum.gridde ve cursor değişiklerinde tarihi datetimepickera taşımak istiyorum.editte problem yaşıyorum.ADODataSet1.Fieldbyname hiç kabul etmiyor.
Sevgi ve Saygılarımla...

[aslangeri]

S.A.
indexfield yerine
fields[3] deniyebilirmisin.
kolay gelsin.

[Berdem]

Çok teşekkür ediyorum.Dediğiniz gibi çalıştı..