Delphi Forum

Eline sağlık, güzel çalışma. Lazarus ve linux içinde tasarlanmış olması değerli.
Öğrenme isteği olanlar projeye incelemesini ve katılmasını tavsiye ederim. Pascal tecrübelerini arttırmak için güzel bir fırsat.

https://learn.microsoft.com/en-us/sql/t-sql/functions/getdate-transact-sql?view=sql-server-ver16


procedure TForm3.Button1Click(Sender: TObject);
begin
ADOQuery2.Filter:=('SELECT * FROM HTF_KAYITLAR WHERE A21 = GETDATE()');
ADOQuery2.Filtered:=true;
end;

işin içine saat te girdiği için boş ...

https://learn.microsoft.com/en-us/sql/t-sql/functions/getdate-transact-sql?view=sql-server-ver16


procedure TForm3.Button1Click(Sender: TObject);
begin
ADOQuery2.Filter:=('SELECT * FROM HTF_KAYITLAR WHERE A21 = GETDATE()');
ADOQuery2.Filtered:=true;
end;

işin içine saat te girdiği için boş ...

sako yazdı: 11 Nis 2025 04:10 Konuun üzerinden uzun bir süre geçmiş ama VisualPlanIt componentini indirebileceğiminiz bir link var mı acaba ? Buraya ekleyecek bir arkadaşımız var mıdır acaba ? İnternetten çok aradım ama link bulamadım.

İlk aramamda buldum !!!
https://sourceforge.net/projects/lazaru ... /tvplanit/

select KAYITLAR.ID, A1, A2, SOZLESME.S2, S3, S14
from KAYITLAR
INNER JOIN SOZLESME ON KAYITLAR.A1 = SOZLESME.S1

SQL string inin düzenli yazmanı öneririm. A1, A2 hangi tablonın? başında alias yada tablo isimleri yok. ayrıca formatlı şekilde yazarsan hatayı bulman dahada kolay olacaktır.
"ON ...

ozcank yazdı: 22 Mar 2025 02:04 Çok teşekkür ederim. Emeğine sağlık. Son birşey ben bu alanları c:\ sürücüsün de AYARLAR.INI dosyasına
[Columns]
CARI_KOD=0
CARI_ISIM=1
PLASIYER_KODU=1

Şeklinde kaydediyorum. Sağ Klik yaptığım da 0 ve 1 e göre Cari Kod un durumunu verebilir miyim ? İşaretli veya İşaretsiz şeklinde.

evet

procedure TForm16.CariKod1Click(Sender: TObject);
var
i: Integer;
// ColumnIndex: Integer;
begin
// CariKod1'in Checked durumunu tersine çevir
CariKod1.Checked := not CariKod1.Checked;

// CARI_KOD sütununu bul
// ColumnIndex := 0;
for i := 0 to DBGrid1.Columns.Count - 0 do
begin
if ...

Forumu kurma amacımız zaten soru sorulması :)
sql, code vs için tag kullanırsan daha okunaklı olacak.
Ben olsam ADOQuery_Garanti yerine Q_Garanti yada qry_Garanti şeklinde standart bir kısaltmaya giderdim.
Yazdığını sql server a yıkmaya alıştır, önceliğini sql e vermen, hem sorunları ...

Ertuğrul2025 yazdı: 12 Şub 2025 01:27 Bu işte biraz acemiyim hocam
query lere sort ekle
Nasıl yapabilirim acaba.

sql text ine "order by fieldname(s)"
index olan alanlarda daha verimli çalışır.

dbcombobox kullan, query lere sort ekle.
niye repeat until, while değil?

Firebird 3.0.8 den sonrası mevcut

Dockerhub linki
https://hub.docker.com/r/firebirdsql/firebird
Buda github üzerindeki linkler
https://github.com/FirebirdSQL/firebird-docker

...Trim(Edit3.Text) = '()'Then...
QuotedStr(Edit3.Text) bunun sonucunu (QuotedStr(Edit3.Text) = '''()''') şeklinde kontrol edebilirsin. eşitin sağındaki ilk tırnak, string ifadeyi belirtir

Bunları bir incele, TOleControl.SetBounds u override etmen gerek diye anladım.
https://zarko-gajic.iz.hr/delphi-interceptor-classes-tbutton-classtbutton/
https://zarko-gajic.iz.hr/preserve-internal-state-window-handle-when-changing-parent-or-style-for-an-activex-control-aka-how-to-recreatewnd ...

Edit1.Text:=dbgrid1.Columns.Grid.Fields[1].text;


Edit1.Text:=ADOQuery1.Fields[1].AsString;
Şeklinde kullanman doha doğru olacaktır, hatta,
Edit1.Text:=ADOQuery1.FieldByName('Field Adı').AsString;
Database ile veri alışverişini yapan class ADOQuery, dbgrid ise bunu ekranda göstermene ...

Kendiniz için kullanacaksanız, lazarus kullanın. Hem ücretsizdir hemde forumundan destek almanız kolay olacaktır. lazarus da ki kullanacağın componentlar da ücretsiz, Ben firebird kullanmanı tavsiye ederim.
unicode "kabaca" string lerin saklanması ile ilgili, yani bir class vs değil. Türkçe ...