180 uygun sonuç bulundu

gönderen Commandx
02 Nis 2020 09:23
Forum: Programlama
Başlık: DBGrid1 Hücre Kontrolü
Cevaplar: 4
Görüntüleme: 1198

Re: DBGrid1 Hücre Kontrolü

procedure TForm26.DBGrid1KeyPress(Sender: TObject; var Key: Char); Var SabitCevap:Byte; begin IF Key=#13 Then begin SabitCevap:=Application.MessageBox('Stok Bilgileri Güncellenecek Eminmisiniz ?','Netsis Stok Sabit Güncelle', MB_YESNO or MB_ICONQUESTION); IF SabitCevap = MrYes Then // cevap evetse ...
gönderen Commandx
26 Mar 2020 08:53
Forum: FireBird
Başlık: Firebird null değeri bulma
Cevaplar: 2
Görüntüleme: 2130

Re: Firebird null değeri bulma

Bana da Lazım oldu, belki birine de lazım olur. (char_length)

Kod: Tümünü seç

UNIQUERY1.SQL.Add(' select * From KAYITLARTABLOSU Where (KOLONADI IS NULL OR CHAR_LENGTH(KOLONADI)= 0)');
gönderen Commandx
05 Mar 2020 02:10
Forum: Programlama
Başlık: Bir Editte Birden fazla arama yapmak
Cevaplar: 10
Görüntüleme: 2103

Re: Bir Editte Birden fazla arama yapmak

Delphi7 eski sürüm kullanıyorum Öncelikle, en son Delphi sürümüne geçiş yapmanızı ne kadar tavsiye etsem azdır. Kullandığınız sürüm ile en son sürüm arasında birçok programlama dili ve özellik eklendi. Kaldı ki 4-5 ay içinde çıkacak yeni sürümde beklenen geliştirmeler büyük projeler ile çalışmayı, ...
gönderen Commandx
28 Şub 2020 04:17
Forum: Programlama
Başlık: Bir Editte Birden fazla arama yapmak
Cevaplar: 10
Görüntüleme: 2103

Re: Bir Editte Birden fazla arama yapmak

Function TersCevir(no:String):String; var Cevrilen:String; i:Integer; Begin i:= 0; Cevrilen := ''; For i := length(no) DownTo 1 Do Begin Cevrilen := Cevrilen + no[i]; End; Result := Cevrilen; End; Function ARADANSEC( text, ilk, son:String ): String; begin Delete(Text, 1, pos(ilk, Text) + Length(ilk...
gönderen Commandx
28 Şub 2020 08:09
Forum: Programlama
Başlık: Bir Editte Birden fazla arama yapmak
Cevaplar: 10
Görüntüleme: 2103

Re: Bir Editte Birden fazla arama yapmak

Üstat, string parse ile yapmam lazım
En azından İsimlerin bulunduğu comboboxtaki Noktalı virgül ile belirlenilen isimleri parse ederek listboxa atarsam SQL tarafını kendim halledecem.
Comboboxtaki isimlerin ayraçlanmış halinden listboxa altalta gelecek şekilde yapmam gerek.
gönderen Commandx
27 Şub 2020 03:50
Forum: Programlama
Başlık: Bir Editte Birden fazla arama yapmak
Cevaplar: 10
Görüntüleme: 2103

Bir Editte Birden fazla arama yapmak

Merhaba Arkadaşlar. Delphi7 Kullanıyorum Bir editte arama yapacağım zaman 1. kişinin adsoyadını yazıp 2. kişinin adısoyadını 3. kişinin adısoyadını yazıp ...... x kadar kişinin advesoyadlarını yazıp Noktalı virgül (veya bir seperatör, örn Noktalı virgül) kullanarak Noktalı virgül ile ayırdığım kişil...
gönderen Commandx
16 Ara 2019 11:38
Forum: Programlama
Başlık: Sql komutu ile İf şartı
Cevaplar: 2
Görüntüleme: 857

Re: Sql komutu ile İf şartı

form uzerine iki adet dbedit koy (kullaniciadi. text ve sifre. text) sifre. text visible false yap, alttaki kodu edit1 in onchange eventine yaz tamamdır. var kullaniciadi,sifre,sorgu:string; begin kullaniciadi:=kullaniciadi.text; // Burası veritabanına bağladığın db editlerden - kullanıcı adı (visib...
gönderen Commandx
21 Kas 2019 08:29
Forum: Programlama
Başlık: QR Code Barkod'u Delphi ile Yapmak Mümkün mü?
Cevaplar: 6
Görüntüleme: 5568

Re: QR Code Barkod'u Delphi ile Yapmak Mümkün mü?

Arkadaşlar, D7 ve + Fastreportta Qrkodu oluşturdum ve.
qrkod kısmını Delphi7 de pc deki webcamı kullanarak decode etmek ve veritabanına kaydetmek istiyorum vt kaydı kolay da kameradan qr code decode işi zor, varsa böyle bir komponent d7 için neyi kullanabilirim.

Bu componentin adı nedir?
.
gönderen Commandx
10 Kas 2019 04:56
Forum: Programlama
Başlık: İki Tarih Arası Filtreye Adsoyad Kriteri ? [ÇÖZÜLDÜ]
Cevaplar: 4
Görüntüleme: 1174

Re: İki Tarih Arası Filtreye Adsoyad Kriteri ?

SQL.TEXT YERİNE SQL.ADD Demişim Çalışmaması Bu yüzdenmiş . UniQuIZIN.Close ; UniQuIZIN.SQL.TEXT:=('SELECT * FROM KALANIZIN WHERE IZIN_BASLA BETWEEN :B_TARIH AND :S_TARIH AND ADSOYAD LIKE'+ '''%'+COMBOBOX13.Text +'%'' ORDER BY ISBASI_TAR DESC') ; UniQuIZIN.ParamByName('B_TARIH').AsDateTime := DATETI...
gönderen Commandx
09 Kas 2019 03:19
Forum: Programlama
Başlık: İki Tarih Arası Filtreye Adsoyad Kriteri ? [ÇÖZÜLDÜ]
Cevaplar: 4
Görüntüleme: 1174

İki Tarih Arası Filtreye Adsoyad Kriteri ? [ÇÖZÜLDÜ]

İki Kriterli filtreleme Yapmak istiyorum başaramadım yardımcı olur musunuz? (ADSOYAD VE IZIN_BASLA) Adında iki sütun yani iki tarih arası filtreye dayalı bir de Adsoyad Sütunundaki verilerin Filtre SQL Cümlesi nasıl kuruluyor, Doğru gittiğimi sanıyorum beceremedim hata verdirdim. UniQuIZIN.Close ; U...
gönderen Commandx
23 Eyl 2019 09:08
Forum: Programlama
Başlık: Firebird de Ascend veya Descend Edilen Datayı İnterbase Uzak Sunucumda Tek seferde Post SQL
Cevaplar: 4
Görüntüleme: 955

Re: Firebird de Ascend veya Descend Edilen Datayı İnterbase Uzak Sunucumda Tek seferde Post SQL

filtre dediğin "where", sıralama, yani senin sort dediğinde bunlar en temel sql komutları. sort, where clause dan dönen result uygulanır. Post Yazacağıma sort yazmışım. Biraz inceleme fırsatım oldu fakat nasıl kullanacağımı çözemedim. İlgilendiğiniz için teşekkür ederim. Merhaba, UniDAC b...
gönderen Commandx
21 Eyl 2019 04:28
Forum: Programlama
Başlık: Firebird de Ascend veya Descend Edilen Datayı İnterbase Uzak Sunucumda Tek seferde Post SQL
Cevaplar: 4
Görüntüleme: 955

Firebird de Ascend veya Descend Edilen Datayı İnterbase Uzak Sunucumda Tek seferde Post SQL

Arkadaşlar, Uzak Bir Firebird 2.5 Sunucum var, Datalarım Ordaki Sunucumda Saklı Havuz Adında her ay boşalttığım bir Tablom var Clientler, her ay oluşturdukları verileri normalde Row Row yani satır satır olarak Döngüyle gönderiyorlar, yani bir satırlık verinin Havuz dediğim Tabloya kaydedilmesi bağla...
gönderen Commandx
17 Eyl 2019 04:25
Forum: Programlama
Başlık: Olecontainer de görüntüyü image ve doc olarak FB e kaydetmek
Cevaplar: 5
Görüntüleme: 3020

Re: Olecontainer de görüntüyü image ve doc olarak FB e kaydetmek

Şu anda inanılmaz derecede bana da lazım oldu, Olecontainer nesnesini de bir ara gözden geçireceğim pdf doc xls kaydı, Kalsın burda lazım olacak.. Binary Bloba PDF veya dosya Yükleme procedure TForm1.RzBitBtn3Click(Sender: TObject); VAR BLOB:TSTREAM; FS:TFILESTREAM; BEGIN UniQuery1.Edit; blob := Uni...
gönderen Commandx
17 Tem 2019 08:25
Forum: Programlama
Başlık: frxReport
Cevaplar: 3
Görüntüleme: 774

Re: frxReport

FrxDbdataseti ilgili Datasete bağladınız mı? https://i.hizliresim.com/Lv385V.jpg Bunu yaptıktan sonra; Sorgu Tekil olacaksa ; FRXdbdataset object inspectorda bulunan range begin ve range end kısımlarının rbcurrent ve reCurrent yapın. https://i.hizliresim.com/9YLWZ8.jpg Sorgunuz Liste ise (Çoğul sorg...
gönderen Commandx
07 Haz 2019 09:42
Forum: Programlama
Başlık: Mysql Parçalı Tarih Sorgulama
Cevaplar: 3
Görüntüleme: 1007

Re: Mysql Parçalı Tarih Sorgulama

Qry1.Close ; Qry1.SQL.Text := 'SELECT * FROM TABLO WHERE TABLODAKI_TARIHSUTUNU BETWEEN :B_TARIH AND :S_TARIH' ; Qry1.ParamByName('B_TARIH').AsDateTime := DATETIMEPICKER_BTarih.Date ; // BAŞLANGIÇ TARİHİ Qry1.ParamByName('S_TARIH').AsDateTime := DATETIMEPICKER_STarih.Date ; // BİTİŞ TARİHİ Qry1.Open...