Parametreler sırasıyla veritabanının adı, filtre (sadece lokal veritabanları için),
tablo dosya uzantıları olacak mı?, sistem tabloları gösterilecek mi? (sadece SQL veritabanları) ve
listenin getirileceği yer.
Bir sonraki kayıt yerine 3 kayıt birden atlamak isterseniz
Table1.MoveBy(3);
Bir Paradox tablosunda en fazla kaç alan olabilir
En fazla 255 alan (field) olabilir.
BDE ile Oracle9i'yi kullanabilir miyim?
BDE artık gelişitirilmiyor. Son versiyonu 5.2 ise Oracle 8.0.4'ten 8.1.6'ya kadar destekliyor.
Oracle 9i için dbExpress kullanmalısınız.
dbGo nedir?
dbGO'nun diğer bir ismi ADO. Delphi 5 Enterprise ve Delphi 6 ve sonrasında Professional ve Enterprise sürümlerinde yer alıyor. Delphi 5 Professional'a da ayrıca kurulabiliyor. Diğer bir ismi de ADO Express.
dbExpress ile hangi veritabanlarına ulaşabilirim, Paradox, dBase tablolarına erişebilirmiyim?
dbExpress şu anda DB2, Interbase, MySQL, Oracle ve Informix ile çalışabiliyor. Delphi 7 ile birlikte
SQL Server 2000'de bu listeye dahil oldu.
dbExpress ile Paradox, dBase ve FoxPro tablolarını kullanamazsınız.
Geçici işlemler için tablo kullanma (memory table)
Bazen programda bilgilerinizi geçici olarak saklama ihtiyacı duyarsınız.
Memory Table'lar bu iş için biçilmiş kaftan. Şu an piyasadaki en iyi memory table bileşeni kbmMemTable ve bedava. Bileşeni sitesinden indirebilirsiniz : www.components4developers.com
Paradox Alternatifleri
Paradox tek kullanıcılı programlarda pek fazla problem çıkarmazken,
ağ ortamında eğer dikkatli kullanılmazsa tam bir başbelası.
Ayrıca BDE'nin artık geliştirilmiyor olması ayrı bir dezavantaj. Paradox yerine çeşitli 3. parti veritabanları kullanabilirsiniz.
Delphi veritabanı desteği yönünden çok geniş, ancak ben çok tutulan 2 bileşeni aşağıda belirttim.
- dbIsam ( www.elevatesoft.com ): Çok kullanıcı desteği var, ODBC desteği var, SQL desteği var,
teknik desteği çok iyi. dbIsam parayla satılıyor, sitesinden deneme sürümünü indirip deneyebilirsiniz.
- Easy Table ( www.aidaim.com ) : SQL desteği var, hızlı. Easy Table da parayla satılıyor, sitesinden deneme sürümünü indirip deneyebilirsiniz.
NOT : Bir de bedava bir çözüm olan TurboPower FlashFiler var. İyi bir veritabanı, bedava olması ve BDE gerektirmemesi de avantajları. Sitede 3. parti bileşenler kısmında, TurboPower yazısında detayları ve linki var.
Paradox veritabanına verileri yazdığım halde kayboluyor
- Paradox tablosuna yazdığınız veriler anında dosyaya kaydedilmez. Anında kayıt olmasını istiyorsanız BDE Administrator'dan Local Share özelliğini True yapın. (BDE Administrator - Configuration - System - INIT).
- Eğer cachedUpdates çalışmıyorsanız, Tablonun CachedUpdates özelliği False'mu dikkat edin.
- Bunların ikisi de işe yaramaz ise Table/Query bileşenini silip yeni bir bileşen koyup, onu ayarlayın.
dbGrid'te bir alanın değerine göre satırı renklendirme
Aşağıdaki kodla bu işi yapabilirsiniz. NO alanının değeri 100'den küçükse satır sarı,
100 ile 200 arası ise yeşil, 200 ile 300 arası ise kırmızı olur.
dbExpress ile SqlTable nesnesi ile veriyi değiştiremiyorum, "can not modify read only data set" hatası veriyor
SQL Table unidirectional bir dataset'tir. Yani birden fazla kayıtı hafızadaki buffer'da tutmaz. Bunlar da First ve Next metoduyla kayıtlar arasında gezebilirsiniz. Raporlama gibi işlemler için oldukça kullanışlıdır.
Eğer veriyi güncellemek istiyorsanız SQL komutları : UPDATE kullanmanız lazım. Delphi Yardımda detaylı bilgiler var, inceleyebilirsiniz.
Bir tablodaki kayıt sayısını bulma
Table kullanıyorsanız: RecordCount ile, Query kullanıyorsanız Count(*) ile tablodaki toplam kayıt sayısını bulabilirsiniz. Burda dikkat etmeniz gereken SQL veritabanlarında Table bileşeni ve RecordCount komutunu kullanmayın. Çünki bu durumda tablodaki tüm veriler client'a yüklenecek, gereksiz yavaşlama ve ağ trafiği oluşacaktır.
Table : Table1.RecordCount;
Query : SELECT COUNT(*) FROM TABLO_İSMİ
Paradox'ta silinen bir kaydı kurtarabilir miyim?
Paradox'ta silinen kayıtlar geri kurtarılamıyor. Silinen kayıtların üzerine boş bilgiler yazılıp yeni bir kayıt için ayrılıyor.
Paradox ile çalışıyorsanız, iyi bir yedekleme sistemi kurmalısınız.
dbGrid'e checkBox eklemek
1. Forma bir TcheckBox bileşeni koyun ve visible'ını False yap. Verdiğim kodda TcheckBox'ın ismi : Dbck
2. DBGrid1DrawColumnCell olayını aşağıdaki gibi ayarlayın.
3. DBGrid1ColExit olayını aşağıdaki gibi ayarlayın.
4. DBCheck.Click olayını aşağıdaki gibi ayarlayın.
Access Violation olmayan, henüz oluşturulmamış bir nesneye ulaşmak isterseniz çıkar. Mesela 10 öğeli bir dizide 11. öğeye ulaşmaya çalışırsanız, bu hata çıkar. 11. öğe yok çünki.
Bu hata, büyük ihtimalle ana formu datamodule'den önce create ettiğiniz için oluşuyor. Project -> View Source ile dpr dosyasını açıp, datamodule'ü en üstte taşıyın, ilk önce data module oluşturulsun.
SQL sorgusu ile tablomdan NO isimli alanı seçerken problem çıkıyor
Alan isimlerini verirken, NO, NOT vb. ayrılmış kelimeleri (reserved words) kullanmamalısınız. Bu kelimelerin tamamını kullandığınız veritabanının dökümanlarından öğrenebilirsiniz.
AutoInc bir alanda silinen kayıtlar için yeniden sıralama yapmak istiyorum
Bu hiç uygun bir yol değil. Hele ki bu auto increment alanları key olarak kullanıyorsanız, zaten AutoInc alanlara müdahele edemezsiniz.
Kullanıcı sıraladığında bir atlayarak gözüksün, ne farkeder. Bence pek farkeden birşey olmaz. Kullanıcı sizden bu tip isteklerde bulunuyorsa yönlendirmeniz lazım, olmaz diye. Zaten çoğu yerde göstermenize bile gerek yok. Genelde takip için başka alanlar olduğu için ben genelde bu alanları grid'te ve formda gizlerim. Öğrenciyse okul no, çalışansa sicil no vs. gibi.
Bu tip alanları autoinc yerine kendiniz artırıyor olsanız bile, yeniden sıralama yoluna gitmeyin. Giderseniz başınız ağrıyabilir.
Programımı hızlandırmak için neler yapabilirim
1. Sorgulama, Sıralama ve gruplama için çok kullandığın alanları indeksle. Mesela genelde kayıtlarını tarih'e göre süzüyorsan, Tarih alanını indeksle.
2. Sadece gerekli alanları seç. Mesela bir tabloda 15 alan var ve sana sadece 4 tanesi yetiyor ise, "SELECT *" ile tüm alanları seçmek yerine, "SELECT ALAN1, ALAN2, ALAN3, ALAN4" gibi sadece gerekli alanları seç.
3. BLOB alan kullanıyorsan sorguda bunları seçmemeye gayret et.
4. ve en önemlisi ne kadar az kayıt seçebiliyorsan o kadar iyi ve hızlı olur. Mesela fatura girişi yaparken tüm fatura tablosunu seçmek yerine sadece 1 kayıt seçebilirsin.
5. Eğer veritabanınız destekliyorsa mümkün olduğu kadar veritabanı bazlı çalışın, trigger ve stored procedure kullanın.
Veritabanı olarak dBase kullanıyorsanız ve _qsql000.dbf , _qsql213.dbf bunlar gibi temp dosyalar oluşabilir. Eğer tablolara query'lerle ulaşıyorsan bu tip temp tabloların oluşması normaldır. Program normal şekilde sonlandırıldığında silinmeleri gerekir. Yoksa programı kapatırken o tip dosyaları aratıp sildirebilirsiniz.
Paradox Tablosunda "index out of range" Hatası
index out of date hatası, tablodaki veri ile index arasında uyşmazlık olduğu zaman meydana çıkan bir hata. Bu durumu düzeltmek için indexi kaldırıp tekrar oluşturun.
Bu hatanın oluşmasına sebep olan 8 neden tespit edilmiş. Aşağıdaki linkten detaylara bakabilirsiniz :
Bu mesajı genelde büyük veritabanlarından farklı özellikteki sql ifadelerini database desktop gibi bir uygulamada çalıştırmak istediğinizde karşınıza çıkar. Böyle bir durumla karşılaşmamak için uygulamanızda kullandığınız database'in toolları ile denemek istediğiniz şeyleri yapabilirsiniz (Sql Server-Query Analyzer, Oracle-Sql Plus veya 3rd parti programlar)
Programınız içinde BDE kullanıyorsanız Database nesnesini eksik etmeyin...
bu dosyayı da indirin. Bunda da hem dll'in nasıl kullanılacağını gösteren kaynak kod var, hem de exe dosya olarak direk çalışabilir hali var. Tablolarınızı kurtarıp, daha sonra bu dll ile programınıza index düzeltme seçeneği koyabilirsiniz.
NOT : çalıştırmadan önce yedek almayı unutmayın.
Query'de Sonuçlar Salt Okunur (Read Only) Dönüyor
Query nesnesinde sonuçlar salt okunur olarak döner (AdoQuery hariç!). Eğer SQL cümleciğiniz basit ise Query'nin RequestLive özelliğini True yaparak, Query'i yazma/okuma durumuna alabilirsiniz. Ancak karmaşık SQL cümlelerinde bu işe yaramayacaktır. Bunun için TUpdateSQL bileşenini kullanmalısınız.
Interbase için ODBC Driver
http://www.ibphoenix.com/ adresinden Main Downloads kısmına girin. ODBC kısmından IBPhoenix Open Source ODBC Driver'a tıklayın.
2. OnFetchProgressEvent olayında aşağıdaki komutu yazın.
DataSet.Recordset.Cancel;
NOT : tabii Application.ProcessMessagess komutunu vermeyi unutmayın.
View nedir ve niçin kullanılır?
view'lar bir veya birden fazla tablodan verileri çekmek için; bir SQL cümlesi ile oluşturulan sanal bir tablodur. Bu tablo veya tablolara kayıt eklendikçe, ilgili view'da kayıtları görebilirsiniz. View'daki bilgiler veritabanında depolanmaz, ilgili tablolardan alınır. Ne işe yarar:
1. Birden fazla tablodan kolayca veri çekmek için. Mesela Rapor oluşturmak veya acemi programcıların işini kolaylaştırmak için.
2. Bazı bilgileri gizlemek için. Mesela personel tablonuz var. Tüm alanlar görünsün ancak maaş kısmı görünmesin istiyorsunuz. Bu tip durumlarda faydalı olur.
3. Tabloyla birlikte bir takım bilgiler göstermek için kullanışlı olabilir. Mesela bazı alanları toplamı veya bu alanlardan en büyüğü, en küçüğünü göstermek gibi.
Query'deki SQL cümlesini kontrol etmek
Eğer SQL cümlesini kod ile oluşturyorsanız, bir hata durumunda oluşan SQL cümleciğini görüp, hatayı tespit etmek isteyebilirsiniz. Bu durumda kodda SQL cümlesini ekledikten sora Open/ExecSQL komutunu vermeden şu satırı yazın. Bu size Query'nin içinde oluşan SQL cümlesini gösterir.
ShowMessage(Query1.SQL.Text);
DBGrid'te satır numarası oluşturma
Bunun için kullandığınız table'da bir calculated alan oluşturun, mesela SIRANO olsun. Daha sonra Table'ın OnCalcFields olayına aşağıdaki kodu yazın:
FireBird/Interbase veritabanı ve tabloları oluşturma
Bunun için veritabanı ile birlikte gelen IB Console programını kullanabilirsiniz. Ancak bu pek kullanışlı değildir. Piyasada bu işi yapan birçok araç var. Bunlardan en iyileri :
* IB Expert : www.ibexpert.com - Personal sürümü ücretsiz.
* EMS Interbase Manager : www.ems-hitech.com
Bu araçlar ile veritabanı, tablo, index oluşturma, kayıtları görme vs. gibi komple veritabanı yönetim işlemlerini yapabilirsiniz.
dBase ve paradox tablolarının pack edilmesi
dBase'de bir kayıtı sildiğiniz zaman fiziksel olarak silinmez, dosya da kalır. Pack işlemi silinen ama hala dosyada duran kayıtları fiziksel olarak siler ve dosyanın boyutunu küçültür.
Paradox'ta da kayıt silindiği zaman fiziksel olarak silinmez ancak sonraki yapılan kayıtlar, bu silinen kayıtların üzerine kaydedildiğinden paradox tablolarında, pack işlemi pek gerekli değildir.
dBase'de pack işlemini, Borland'ın yayınladığı kodlarla yapabilirsiniz. Şu iki dosyayı indirin :
* BDE Administrator'ü açın. Denetim Masası veya Delphi linklerinden
* Object -> New komutunu verin
* Database Driver Name'de STANDART seçili olsun, OK'a basın
* Alias'a istediğiniz bir isim verin, enter'a basın
* Path kısmından tabloların olduğu klasörü seçin
* Object -> Apply komutunu verin.
Datamodule nedir ve Niçin Kullanılır
Datamodule özel bir formdur ve görünmeyen (non visual) bileşenleri birden fazla formdan ortak kullanmak için tercih edilir. Bunlarda genelde veritabanı bileşenleridir. Mesela bir datamodüle koyduğunuz bir table bileşenini birçok formdan kullanabilirsiniz. Tabi illa veritabanı bileşeni olması gerekmiyor. Diğer görünmeyen bileşenleride datamodule'e koyabilirsiniz.
Paradox'ta Bilgilerin Kaybolması
Elektirik kesintisi gibi durumlarda paradox tablosundaki verilerin kaybını önlemek için:
Uses a BDE ekleyin ve her table veya query nin afterpost olayına aşağıdaki kodu yaz. Bir daha elektrik kesilmesinden etkilenmezsin ve index bozulmalarıda yaşamazsınız.
try
DBISaveChanges((DataSet As TBDEDataSet).Handle)
except
On EDatabaseError do
ShowMessage('Tabloya Kaydetme hatası !...');
end;
DisableControls-EnableControls
Mesela bir tabloda kayıtları baştan sonra tarıyorsanız, bu kodları yazmazsanız, geçerli kayıtın bilgileri bağlı DBEdit, DBGrid vs. de güncellenir. Bu hem görüntü açısından hoş olmuyor, hem de işlemi yavaşlatıyor. Bu kodları yazarsanız bağlı bileşenlerle irtibat kesiliyor ve bu olumsuzluklar olmuyor, tekrar bağlıyorsunuz.
Open ile ExecSql arasındaki fark nedir?
Delphi'de Query'ler iki şekilde açılabilir : Open veya ExecSql. Peki ne zaman Open, ne zaman ExecSql kullanılır? Bu çalıştırdığınız SQL cümlesine bağlı. Eğer SQL cümlesi sonuçta size kayıt(lar) döndürüyorsa Open kullanmalısınız. Mesela SQL cümleniz "SELECT *..." gibi ise. Eğer SQL cümleniz hiçibr kayıt döndürmüyorsa, ExecSQL kullanmalısınız. Mesela UPDATE, INSERT, DELETE gibi bir sql cümlesi yazmışsanız.
Database'i açtığım anda Login ekranı çıkmasın
TDatabase nesnesi veya benzer işlevi gören (mesela TAdoConnection) bir bileşeni açtığınız zaman karşınıza Login ekranı gelir ve sizden kullanıcı ismi ile şifre girmeniz istenir. Bu ekranın çıkmaması için LoginPrompt özelliğini False yapın.
DBLookupComboBox'ın içerisini temizlemek
Delphi'de temel kural olarak, DB bileşenlere (DBEdit, DBLookupComboBox vs) atama yapmayın, ilgili field'a atama yapın. DBLokupComboBox'ın içeriğini temizlemek için KeyValue'sinin değerini null yapın. Örneğin PERSONEL tablosunda BOLUM_NO alanına karşılık BOLUM_ADINI getiriyorsanız :
PERSONELBOLUM_NO.Clear;
Tekrarlanan kayıtları tespit etme
Bazı kayıtlardan çift ise problem çıkartabilir. Bu tip kayıtları SQL ile çok kolay bir şekilde tespit edebilirsiniz. Mesela PERSONEL tablosunda, birden fazla aynı isme sahip kayıtları dökmek için :
SELECT AD_SOYAD, COUNT(*)
FROM TABLO_ADI
GROUP BY AD_SOYAD
HAVING COUNT(*)>1
Delphi - .....................................
tarih-saat fonksiyonlari
//bende yeni yeni delphi ogrenmeye basladim ve buldugum dokumanlari sizlerle
//paylasmak istedim.maalesef tamamen c/p ama onemli olan dokumanlarin artmasi
TARİH VE SAAT (DateTime) FONKSİYONLARI
Delphi her türlü tarih fonksiyonu içeren DateUtils unitini içerir.
Aşağıda bu fonksiyonlardan en çok ihtiyacınız olacağınızı düşündüklerimi açıkladım.
Her fonksiyondan sonra, bir örnek ve örneğin döndüreceği değeri yazdım.
Böylelikle konu daha açık anlaşılacaktır.
Günün tarihini "03/09/2002" Salı, saatini ise "11:05:03" olarak kabul ettim.
Bu fonksiyonları kullanırken uses kısmına DateUtils'i eklemeyi unutmayın.
-*- CompareDate : verilen iki tarihi karşılaştırır. 1. tarih büyükse 1, küçükse -1,
eğer iki tarihte aynı ise 0 değerini döndürür.
CompareDate(Date -2 , Date) = -1
NOT : Tarihler üzerinde direk toplama ve çıkarma işlemi yapabilirsiniz. "Date -2" iki
gün öncesinin tarihini verecektir.
-*- CompareDateTime : verilen iki tarih ve saat içeren datetime değerini karşılaştırır.
1. değer büyükse 1, küçükse -1, her iki tarihsaat değeri aynı ise 0 döndürür.
Burada değerin aynı olması demek yıl'dan başlayark saliseye kadar tüm değerlerin aynı olması demektir.
-*- CompareTime : verilen iki saat değerini karşılaştırır. 1. değer büyükse 1, küçükse -1,
iki değerde aynı ise 0 döndürür.
-*- CurrentYear : Geçerli yıl bilgisini 4 karakter olarak döndürür. 2002 gibi.
CurrentYear = 2002
-*- Date : Geçerli tarihi döndürür.
Date = 03/09/2002
-*- DateOf : Bir datetime değerini alarak bunun sadece tarih kısmını döndürür.
Aslında burada saat bilgisi silinmez, "00:00:00" yani geceyarısını gösterecek şekilde değiştirilir.
Yani tarih ve saat ayrılmaz ikilidir. Sürekli beraberdirler.
DateOf ( Now ) = 03/09/2002
-*- DateTimeToStr : Verilen bir DateTime değerini string'e çevirir.
DateTimeToStr ( Now ) = '03/09/200211:05:03'
-*- DateTimeToString : Verilen bir DateTime değerini istediğiniz formatta string'e çevirir.
var
Str : String;
DateTimeToString(Str, 'd mmmm yyyy dddd, hh:nn', Now);
ShowMessage ( Str );= 3 Eylül 2002Salı, 11:05
-*- DateToStr : verilen bir DateTime değerini string'e çevirir. Sonuçta sadece tarih verisi bulunur,
saat olmaz.
DateToStr ( Date) = '03/09/2002'
-*- DayOf : Verilen bir DateTime değerindeki günü döndürür. Yani sonuç 1 ile 31 arasında bir değer olabilir.
DayOf ( Date ) = 3
-*- DayOfTheMonth : DayOf fonksiyonu ile tamamen aynıdır.
DayOfTheMonth ( Date ) = 3
-*- DayOfTheWeek : Haftanın kaçıncı günü olduğunu döndürür. Pazartesi ise 1, Salı ise 2, ...
Pazar ise 7 döndürür.
DayOfTheWeek ( Date ) = 2
-*- DayOfTheYear : Yılın kaçıncı günü olduğunu döndürür.
DayOfTheYear ( Date ) = 246
-*- DayOfWeek : Haftanın kaçıncı günü olduğunu döndürür. Bu fonksiyonun farkı Pazar günü ilk gün sayılır.
Yani Pazar ise 1, Pazartesi 2 ... Cumartesi ise 7 döndürür.
DayOfWeek ( Date ) = 3
-*- DaysBetween : verilen iki DateTime arasındaki geçen gün sayısını döndürür.
Bu fonksiyonda saatte önemlidir. 24 saat geçmiş olmalıdır.
Yani "02/09/2002 11:54:00" ile "03/09/2002 11:53:59" arasındaki gün sayısı 24
saat dolmadığı için 0 dır.
-*- DaysInAMonth : Verilen yıl ve aydaki gün sayısını döndürür.
DaysInAMonth (2002, 5) = 31
-*- DaysInAYear : Verilen yılda kaç gün olduğunu döndürür.
DaysInAYear ( 2002 ) = 365
-*- DaysInMonth : Verilen tarihteki ayın kaç gün olduğunu hesaplar. Yani yıl ve ay
değerini verdiğiniz tarihten alır.
DaysInMonth ( Date ) = 30
-*- DaysInYear : Verilen tarihteki yılda kaç gün olduğunu döndürür.
Yani yıl değerini verdiğiniz tarihten alır.
DaysInYear ( Date ) = 365
-*- DaySpan : Verilen iki DateTime değeri arasındaki gün farkını bulur.
yil, ay, gun, saat, dakika, saniye, salise : Word;
DecodeDateTime ( Now, yil, ay, gun, saat, dakika, saniye, salise);
-*- DecodeDateWeek : Verilen DateTime değerinin yılını, yılın kaçıncı haftası olduğunu ve
haftanın kaçıncı günü olduğunu döndürür.
-*- DecodeTime : Verilen DateTime değerinin saat, dakika, saniye ve salise değerlerini döndürür.
var
saat, dakika, saniye, salise : Word;
DecodeTime ( Now, saat, dakika, saniye, salise);
-*- EncodeDate : Verilen yıl, ay, gün değerlerini birleştirip oluşan tarih değerini döndürür.
var
Tarih : TDateTime;
Tarih := EncodeDate (2002, 10, 5); = 05/10/2002
-*- TryEncodeDate : Verilen yıl, ay, gün değerlerini birleştirip oluşan tarih değerini döndürür.
Eğer yanlış değerler verilmişse fonksiyon False değerini geri döndürür,
tarih başarıyla birleştirilmişse True değerini döndürür.
var
Tarih : TDateTime;
if TryEncodeDate(2002, 10, 5, Tarih) then
ShowMessage (' tarih başarıyla birleştirildi!');
-*- EndOfAMonth : Verilen yıl ve ayın son günü ve son anını döndürür.
EndOfAMonth (2002, 5) = 31/05/2002 23:59:59
-*- FormatDateTime : Verilen DateTime değerini istediğiniz formatta göstermek için kullanılır.
FormatDateTime ('d mmmm yyyy', Date) = '3 Eylül 2002'
-*- HourOf, HourofTheDay : Verilen DateTime değerinin saatini döndürür. Yani sonuç 0 ile 23 arasındadır.
HourOf (Now) = 11
-*- HoursBetween : Verilen iki DateTime değeri arasında geçen saati döndürür. Fonksiyon 60
dakika tamamlanınca değeri arttırır. Yani 12:00:00 ile 12:59:59 arasındaki fark 0 (sıfır)
dır, ancak 13:00:00 olduğunda 1 döndürür.
-*- HourSpan : Verilen iki DateTime değeri arasında geçen saati döndürür.
Yukarıdaki fonksiyondan farkı saat tam olmasa bile değeri küsuratlı olarak döndürür.
Mesela 12:00:00 ile 12:59:59 arasındaki saat farkı 0,9998 saat gibi.
-*- IncMonth : Verilen tarihi, istenilen ay kadar artırır veya azaltır.
o Eğer parametre - verilirse önceki ayları döndürür. Örneğin -1 verilirse bir ay önceki tarihi döndürür.
o Eğer parametre 1 den büyük bir değer verilirse o kadar ay sonrasını döndürür.
o Eğer tarih arttırıldığı zaman verilen gün o ay içerinde yoksa, o ayın son günü döndürülür. Mesela 31/01/2002 tarihini bir ay artırırsanız şubat ayında 31. gün olmadığı için sonuç 28/02/2002 olacaktır.
IncMonth ( Date ) = 03/10/2002
-*- IncDay : Verilen tarihi istenilen gün kadar artırır veya azaltır. Parametre + verilirse artırır,
- verilirse azaltır.
IncDay ( Date ) = 04/09/2002
IncDay ( Date, 3 ) = 06/09/2002
IncDay ( Date, -1) = 02/09/2002
-*- IncHour : Verilen DateTime değerinin saatinin istenilen değer kadar artırır veya azaltır.
Benzer şekilde IncMinute, IncMilisecond, IncSecond fonksiyonları da vardır.
-*- IncWeek : Verilen tarihi istenilen hafta sayısı kadar artırır veya azaltır. Parametre + verilirse artırır,
- verilirse azaltır.
IncWeek ( Date ) = 10/09/2002
-*- IncYear : Verilen tarihin senesini istediğinz kadar artırır veya azaltır. Parametre + verilirse artırır,
- verilirse azaltır.
IncYear ( Date ) = 03/09/2003
IncYear ( Date, -2) = 03/09/2000
-*- IsInLeapYear : Verilen tarihin artık bir senede (Şubat'ın 29 gün olduğu) olup olmadığını test eder.
if IsInLeapYear (Date) then
ShowMessage (' 2002 senesi artık yıl olmadığı için, bu mesajı asla göremezsiniz!');
-*- IsLeapYear : Verilen senenin artık sene (Şubat'ın 29 gün olduğu) olup olmadığını test eder.
if IsLeapYear ( CurrentYear ) then
ShowMessage (' Bu sene Şubat ayı 29 gün çekiyor');
-*- IsToday : Verilen tarihin bugünün tarihi olup olmadığını test eder. Aynı gün ise True döndürür.
if IsToday ( Date ) then
ShowMessage ( 'Date bugünün tarihini verdiği için bu mesajı görürsünüz');
-*- IsValidDate : Verilen yıl, ay, gün değerlerinin geçerli bir tarih olup olmadığını test eder.
Örneğin ay 2 ve gün 30 ise, Şubat hiç bir zaman 30 gün olamayacağı için False döndürür.
if IsValidDate (2002, 10, 1) then
ShowMessage ('geçerli bir tarihtir');
-*- IsValidDateTime : Verilen yıl, ay, gün, saat, dakika, saniye, salise değerlerinin geçerli bir
DateTime değeri olup olmadığın test eder. Geçerli ise True, değilse False döndürür.
if not IsValidDateTime ( 2002, 13, 5, 11, 11, 11, 11 ) then
ShowMessage (' ay hiç bir zaman 13 olamaz, 1 ile 12 arası bir değer olamlıdır!');
-*- IsValidTime : Verilen saat, dakika, saniye, salise değerlerinin geçerli bir saat değeri olup
olmadığın test eder. Geçerli ise True, değilse False döndürür.
if not IsValidTime (30, 11, 10, 1) then
ShowMessage (' saat 23'' ten büyük olamayacağı için geçersiz bir tarihtir');
-*- MinutesBetween : Verilen iki tarih arasındaki dakika farkını verir.
Dakika tam olduğu zaman değeri artırır. Örneğin 9:00:00 ile 9:00:59 arasındaki
farkı 0 (sıfır) olarak döndürür.
-*- MinuteSpan : Verilen iki tarih arasındaki dakika farkını verir. Dakika tam olmasa bile küsuratlı
olarak değeri döndürür. Örneğin 9:00:00 ile 9:00:59 arasındaki farkı 0,998 dakika gibi döndürür.
-*- MonthOf : Verilen tarihin ayını döndürür. Yani sonuç 1 ile 12 arasında bir değer olmalıdır.
MonthOf ( Date ) = 9
-*- MonthsBetween : Verilen iki tarih arasındaki ay farkını verir.
Ayların uzunlukları eşit olmadığı için bir ay 30.4375 gün olarak belirlenmiştir.
Her 30.4375 gün için değer 1 arttırılır.
-*- MonthSpan : Verilen iki tarih arasındaki ay farkını verir. 1 ay yine 30.4375 gün olarak belirlenmiştir.
Süre tamalanmasa bile küsuratlı olarak değeri döndürür.
-*- Now : Geçerli tarih ve saati döndürür.
Now = 03/09/2002 11:05:03
-*- NthDayOfWeek : Verilen tarihteki günün, o ay içindeki kaçıncı iş günü olduğunu döndürür.
Mesela gün Salı ve ayın ikinci Salısı ise 2 döndürür.
NthDayOfWeek ( Date ) = 1
-*- StartOfAMonth : Verilen yıl ve aydaki ilk günün ilk anını döndürür.
StartOfAMonth (2002, 5) = 01/05/2002 00:00:00
-*- StrToDate: Verilen stringi tarih değerine çevirir.
StrToDate ('01/01/2002') = 01/01/2002
-*- StrToDateTime : Verilen stringi DateTime değerine çevirir.
yil, ay, gun, saat, dakika, saniye, salise : Word;
DecodeDateTime ( Now, yil, ay, gun, saat, dakika, saniye, salise);
-*- DecodeDateWeek : Verilen DateTime değerinin yılını, yılın kaçıncı haftası olduğunu ve
haftanın kaçıncı günü olduğunu döndürür.
-*- DecodeTime : Verilen DateTime değerinin saat, dakika, saniye ve salise değerlerini döndürür.
var
saat, dakika, saniye, salise : Word;
DecodeTime ( Now, saat, dakika, saniye, salise);
-*- EncodeDate : Verilen yıl, ay, gün değerlerini birleştirip oluşan tarih değerini döndürür.
var
Tarih : TDateTime;
Tarih := EncodeDate (2002, 10, 5); = 05/10/2002
-*- TryEncodeDate : Verilen yıl, ay, gün değerlerini birleştirip oluşan tarih değerini döndürür.
Eğer yanlış değerler verilmişse fonksiyon False değerini geri döndürür,
tarih başarıyla birleştirilmişse True değerini döndürür.
var
Tarih : TDateTime;
if TryEncodeDate(2002, 10, 5, Tarih) then
ShowMessage (' tarih başarıyla birleştirildi!');
-*- EndOfAMonth : Verilen yıl ve ayın son günü ve son anını döndürür.
EndOfAMonth (2002, 5) = 31/05/2002 23:59:59
-*- FormatDateTime : Verilen DateTime değerini istediğiniz formatta göstermek için kullanılır.
FormatDateTime ('d mmmm yyyy', Date) = '3 Eylül 2002'
-*- HourOf, HourofTheDay : Verilen DateTime değerinin saatini döndürür. Yani sonuç 0 ile 23 arasındadır.
HourOf (Now) = 11
-*- HoursBetween : Verilen iki DateTime değeri arasında geçen saati döndürür. Fonksiyon 60
dakika tamamlanınca değeri arttırır. Yani 12:00:00 ile 12:59:59 arasındaki fark 0 (sıfır)
dır, ancak 13:00:00 olduğunda 1 döndürür.
-*- HourSpan : Verilen iki DateTime değeri arasında geçen saati döndürür.
Yukarıdaki fonksiyondan farkı saat tam olmasa bile değeri küsuratlı olarak döndürür.
Mesela 12:00:00 ile 12:59:59 arasındaki saat farkı 0,9998 saat gibi.
-*- IncMonth : Verilen tarihi, istenilen ay kadar artırır veya azaltır.
o Eğer parametre - verilirse önceki ayları döndürür. Örneğin -1 verilirse bir ay önceki tarihi döndürür.
o Eğer parametre 1 den büyük bir değer verilirse o kadar ay sonrasını döndürür.
o Eğer tarih arttırıldığı zaman verilen gün o ay içerinde yoksa, o ayın son günü döndürülür. Mesela 31/01/2002 tarihini bir ay artırırsanız şubat ayında 31. gün olmadığı için sonuç 28/02/2002 olacaktır.
IncMonth ( Date ) = 03/10/2002
-*- IncDay : Verilen tarihi istenilen gün kadar artırır veya azaltır. Parametre + verilirse artırır,
- verilirse azaltır.
IncDay ( Date ) = 04/09/2002
IncDay ( Date, 3 ) = 06/09/2002
IncDay ( Date, -1) = 02/09/2002
-*- IncHour : Verilen DateTime değerinin saatinin istenilen değer kadar artırır veya azaltır.
Benzer şekilde IncMinute, IncMilisecond, IncSecond fonksiyonları da vardır.
-*- IncWeek : Verilen tarihi istenilen hafta sayısı kadar artırır veya azaltır. Parametre + verilirse artırır,
- verilirse azaltır.
IncWeek ( Date ) = 10/09/2002
-*- IncYear : Verilen tarihin senesini istediğinz kadar artırır veya azaltır. Parametre + verilirse artırır,
- verilirse azaltır.
IncYear ( Date ) = 03/09/2003
IncYear ( Date, -2) = 03/09/2000
-*- IsInLeapYear : Verilen tarihin artık bir senede (Şubat'ın 29 gün olduğu) olup olmadığını test eder.
if IsInLeapYear (Date) then
ShowMessage (' 2002 senesi artık yıl olmadığı için, bu mesajı asla göremezsiniz!');
-*- IsLeapYear : Verilen senenin artık sene (Şubat'ın 29 gün olduğu) olup olmadığını test eder.
if IsLeapYear ( CurrentYear ) then
ShowMessage (' Bu sene Şubat ayı 29 gün çekiyor');
-*- IsToday : Verilen tarihin bugünün tarihi olup olmadığını test eder. Aynı gün ise True döndürür.
if IsToday ( Date ) then
ShowMessage ( 'Date bugünün tarihini verdiği için bu mesajı görürsünüz');
-*- IsValidDate : Verilen yıl, ay, gün değerlerinin geçerli bir tarih olup olmadığını test eder.
Örneğin ay 2 ve gün 30 ise, Şubat hiç bir zaman 30 gün olamayacağı için False döndürür.
if IsValidDate (2002, 10, 1) then
ShowMessage ('geçerli bir tarihtir');
-*- IsValidDateTime : Verilen yıl, ay, gün, saat, dakika, saniye, salise değerlerinin geçerli bir
DateTime değeri olup olmadığın test eder. Geçerli ise True, değilse False döndürür.
if not IsValidDateTime ( 2002, 13, 5, 11, 11, 11, 11 ) then
ShowMessage (' ay hiç bir zaman 13 olamaz, 1 ile 12 arası bir değer olamlıdır!');
-*- IsValidTime : Verilen saat, dakika, saniye, salise değerlerinin geçerli bir saat değeri olup
olmadığın test eder. Geçerli ise True, değilse False döndürür.
if not IsValidTime (30, 11, 10, 1) then
ShowMessage (' saat 23'' ten büyük olamayacağı için geçersiz bir tarihtir');
-*- MinutesBetween : Verilen iki tarih arasındaki dakika farkını verir.
Dakika tam olduğu zaman değeri artırır. Örneğin 9:00:00 ile 9:00:59 arasındaki
farkı 0 (sıfır) olarak döndürür.
-*- MinuteSpan : Verilen iki tarih arasındaki dakika farkını verir. Dakika tam olmasa bile küsuratlı
olarak değeri döndürür. Örneğin 9:00:00 ile 9:00:59 arasındaki farkı 0,998 dakika gibi döndürür.
-*- MonthOf : Verilen tarihin ayını döndürür. Yani sonuç 1 ile 12 arasında bir değer olmalıdır.
MonthOf ( Date ) = 9
-*- MonthsBetween : Verilen iki tarih arasındaki ay farkını verir.
Ayların uzunlukları eşit olmadığı için bir ay 30.4375 gün olarak belirlenmiştir.
Her 30.4375 gün için değer 1 arttırılır.
-*- MonthSpan : Verilen iki tarih arasındaki ay farkını verir. 1 ay yine 30.4375 gün olarak belirlenmiştir.
Süre tamalanmasa bile küsuratlı olarak değeri döndürür.
-*- Now : Geçerli tarih ve saati döndürür.
Now = 03/09/2002 11:05:03
-*- NthDayOfWeek : Verilen tarihteki günün, o ay içindeki kaçıncı iş günü olduğunu döndürür.
Mesela gün Salı ve ayın ikinci Salısı ise 2 döndürür.
NthDayOfWeek ( Date ) = 1
-*- StartOfAMonth : Verilen yıl ve aydaki ilk günün ilk anını döndürür.
StartOfAMonth (2002, 5) = 01/05/2002 00:00:00
-*- StrToDate: Verilen stringi tarih değerine çevirir.
StrToDate ('01/01/2002') = 01/01/2002
-*- StrToDateTime : Verilen stringi DateTime değerine çevirir.
-*- TimeToStr : Verilen saat değerini stringe çevirir.
TimeToStr ( Time ) = '11:05:03'
-*- Today : Bugünün tarihini döndürür.
Today = 03/09/2002
-*- Tomorrow : Ertesi günün (yarın) tarihini döndürür.
Tomorrow = 04/09/2002
-*- YearOf : Verilen tarihin yılını döndürür.
YearOf ( Date ) = 2002
-*- YearsBetween : Verilen iki tarih arasındaki yıl farkını döndürür.
-*- Yesterday : Bir önceki günün (dün) tarihini döndürür.
Yesterday = 02/09/2002
Delphi - .....................................
registry
//bende yeni yeni delphi ogrenmeye basladim ve buldugum dokumanlari sizlerle
//paylasmak istedim.maalesef tamamen c/p ama onemli olan dokumanlarin artmasi
Registry Windows'un tüm ayarlarını sakladığı veri deposudur. Registry'nin önemi hafife alınmamalıdır.
Registry sistem donanım konfigürasyonu, Denetim Masası (Control Panel) ayarları gibi önemli bilgiler içerir. Sizde programlarınızla ilgili ayarları ve bazı verilerinizi Registry'de saklayabilirsiniz. Registry hakkında herhangi bir bilginiz yoksa bilgisayar dergilerine bakmanızı tavsiye ederim. Ayrıca Internet üzerinden PcWorld Dergisinin Windows 95 köşesine bakarsanız burda Registry ile ilgili bilgi bulabilirsiniz.
Delphi ile Registry'e bilgi yazmak ve Registry'den bilgi okumak son derece kolaydır.
Delphi'de Registry kullanımına iki yaklaşım bulunur: TRegistry ve TRegIniFile. TRegIniFile sınıfı
TRegistry sınıfının bir alt sınıfıdır ve TIniFile sınıfının yöntem ve özelliklerini kullanır,
ancak ini dosyalar yerine Registry'ye kaydeder. TRegistry sınıfını kullanmak için genellikle ilk
olarak bir anahtarı açmanız ve daha sonra değer ve alt anahtarlarıyla birlikte verilere ulaşmanız gerekir.
Benim yaptığım bir örnek programı (regist1.zip) esas alarak yapılan işlemleri adım adım açıkladım.
Registry ile ilgili komutları kullanmak için uses kısmına "Registry" ifadesini eklemelisiniz.
- İlk önce
var
Reg1:TRegistry;
ile TRegistry türünden bir değişken tanımlayın. Reg1 yerine Delphi'deki isimlendirme kuralları dahilinde
istediğiniz ismi verebilirsiniz.
- Daha sonra
Reg1:=TRegistry.Create;
ile uygulama için bir Registry objesi oluşturun.
-Registry'de 6 tane ana anahtar bulunur. Registry objesini oluşturduğunuz zaman (bir önceki adım)
RootKey (ana anahtar) olarak HKEY_CURRENT_USER atanır. Eğer başka bir ana anahtar'da işlem yapmak
istiyorsanız "RootKey" özelliğini kullanmalısınız. Mesela biz işlemlerimizi HKEY_LOCAL_MACHINE'de
yapmak istiyoruz;
Reg1.RootKey:=HKEY_LOCAL_MACHINE;
-RootKey olarak HKEY_LOCAL_MACHINE atadık. Daha sonra işlem yapmak istediğimiz anahtarı
"OpenKey" ile açmalıyız. OpenKey fonksiyonu iki parametre alır. Birincisi açmak istediğimiz anahtar,
diğeri ise açmak istediğimiz anahtar yoksa bu anahtarın oluşturulup, oluşturulmayacağı. Bu özelliği
True atarsanız açmak istediğiniz anahtar yok ise bu anahtar oluşturulur.
