Delphi Forum

Bu bilgileri vermediğim için kusura bakmayın karşılaştırma olayı parça numarasına göre yapılacak. Yani benzersiz alan 'PARCA KODU' olacak.Kullandığım veri tabanları ise Firebird ve MSSQL2019'dur.

procedure TForm1.Button1Click(Sender: TObject);
var
EXCELDEKISATIR,i:Integer;
begin
try
exceldosyasi:=CreateOleObject('excel.application');
exceldosyasi.Visible:=false;
exceldosyasi.workbooks.open('C:\Users\senkr\OneDrive\Masaüstü\MASTERDATA.xlsx');
EXCELDEKISATIR:=2;
Repeat
fdquery1.append ...

Memnuniyetle ancak dosya boyutu yüksek olduğu için burada paylaşamıyorum. aşağıdaki linkten indirebilirsiniz.

https://www.tarimorman.gov.tr/Konu/1861 ... ip_Sistemi

Arkadaşlar bilindiği üzere Tarım ve Orman bakanlığı zirai ilaç kullanımını takip altına almaya başladı ve bunuda kendi kurmuş olduğu web sitesi ile gerçekleştirmektedir.Ancak bu site bazı açılardan yetersiz kalıyor ve iş yükünü çoğaltıyor bu yüzden işi kolaylaştıran bazı programlar var ama ben ...

Ekran Alıntısı.PNG
Arkadaşlar merhaba paylaşmış olduğum fotoğrafta görüldüğü üzere e-ticaret sitemizin sepet butonunda böyle bir drop drown menü hatası ile karşılaştık ürün fiyat bilgilerini gösteren klavuz çizgileri menü kutucuğunun dışına taşıyor ben bunnu gerekli dosyadan düzeltmesini yaptığım ...

Teşekkür ederim.

Teşekkür ederim.

Evet bu problemde sayenizde halloldu Sayın ErtanK hocam her şey için çok teşekkür ederim.

Sayın ErtanK hocam teşekkür ediyorum kod çalıştı belki benim gibi bilmeyen arkadaşlar olur şunu belirteyim apddatapackete data gelmesini sağlamak istiyorsak küçük bir ayar yapmak gerekli apddatapacket in properties kısmında Endcond yeri var oraya tıklayıp ecPacketsize değerini true yapalım packet ...

https://i.hizliresim.com/BXEYMk.jpg[/img][/url]
https://i.hizliresim.com/zRHoyy.jpg[/img][/url]
https://i.hizliresim.com/wX8YU7.jpg[/img][/url]
https://i.hizliresim.com/BhWrog.jpg[/img][/url]

Resimleri [img] değil url olarak ekleyin
FreeMan35

Sayın ErtanK hocam resimlerdede görüldüğü üzere;

1 ...

Sayın Ertank hocam öncelikle cevabınız için teşekkür ediyorum.işlerim dolayısıyla uzun zamandır bakmadım konuya dün akşam denedim sizin projeniz çalışıyor fakat ne indikatör cihazını görüyor ne de otomatik bağlantı sağlıyor acemi sınıfından olduğum için çözemedim. Kodları değiştirdim biraz ...

Arkadaşlar filtreleme sorununu hallettim şükür. Belki işine yarayan olur diye kodu paylaşıyorum konu ile ilgilenip cevap yazan arkadaşlara da çok teşekkür ediyorum.

procedure TForm1.Button1Click(Sender: TObject);
VAR
SQL : string;
toplam:currency;
begin
FORM2.SHOW;
SQL := '';
if trim(combobox1 ...

https://hizliresim.com/dl8VTp

Arkadaşlar merhaba yukarda linkini paylaşmış olduğum fotoğraftaki gibi filtreleme işlemini nasıl yapabilirim.
aynı tabloda farklı sütunlarda filtreleme yapılıyor filtreleme işleminde comboboxlar kullanılıyor.Checkboxlar işaretlendiğinde ise filtreye tarihlerde
dahil ...

Cevabınız için teşekkür ederim ama acemi olduğum için çok bir şey bilmiyorum şimdi checkbox işaretlendiğinde filtreye tarih de dahil olacak ama checkbox işaretlenmediğinde tarih filtreye dahil olmayacak ama ürün adı ve ürün kodu cxlookupcomboboxları filtreleme işlemine devam edecek işte burada sorun ...

function SQLDateFmt( aDate: TDate ): string;
begin
Result := QuotedSTR( FormatDateTime('dd-mm-yyyy', aDate) );
end;


procedure TForm1.Button1Click(Sender: TObject);
VAR
SQL : string;
begin

SQL := '';
if checkbox1.Checked=true then SQL := '[bitistarihi]>='+SQLDateFmt(datetimepicker1.Date) else ...