158 uygun sonuç bulundu

gönderen Commandx
30 Haz 2020 01:43
Forum: Paket Programlar
Başlık: Ip ve MAC adresi tarama
Cevaplar: 11
Görüntüleme: 5036

Re: Ip ve MAC adresi tarama

Delphi7 de bile kullanabileceğiniz Formatta getirdim.
Projemin Clientlerini Serverimin Network Traffic Monitoründe görüntülemek için kullanmıştım.
https://s4.dosya.tc/server11/vz4h0l/Ip ... .rar.html
gönderen Commandx
19 Haz 2020 11:01
Forum: Programlama
Başlık: popupmenu ile dbgrid üzerinden ödeme yapma işlemi
Cevaplar: 5
Görüntüleme: 461

Re: popupmenu ile dbgrid üzerinden ödeme yapma işlemi

İnputbox kullanımı için http://www.delphibasics.co.uk/RTL.asp?Name=inputbox var value : string; begin repeat value := inputbox('Miktarı girin', 'giriş', '0'); until value <> ''; query.edit; query.fieldbyname('rakamsal_alan_borc_sutunu').value := value; // inputboxtaki value query.post; Edit1.Text:=(...
gönderen Commandx
11 Haz 2020 09:31
Forum: Programlama
Başlık: UTF8 CSV FILE OLUŞTURMA
Cevaplar: 9
Görüntüleme: 666

Re: UTF8 CSV FILE OLUŞTURMA

Elektriğin 5. Şarzı :N) O halde Silah Şarjörlerini de Şarzör olarak değiştirmeleri gerekecek Türk dili yaşayan bir dil. Gözükme doğru bir ifade. Fakat dil kurallarına aykırı bir kelime halkın benimsemesi ve kolayına gelmesi nedeniyle zamanla doğruya dönüşebiliyor. Korkum odur ki TDK bir gün imla kıl...
gönderen Commandx
15 May 2020 11:22
Forum: Programlama
Başlık: Memo1 satur değerinin ilk 8 karakterini integer olarak atamak
Cevaplar: 2
Görüntüleme: 303

Re: Memo1 satur değerinin ilk 8 karakterini integer olarak atamak

Bunu bi deneyin

Kod: Tümünü seç

VAR
I,j:INTEGER;
kopyalanan:string;
BEGIN
for i:=0 to memo1.lines.count-1 do begin
kopyalanan := copy((Memo1.lines.strings[i]),0,8);
memo2.lines.add( kopyalanan); // burası text string variable
// veya j:=strtoint(kopyalanan); //burası da integer variable yeri 
end;
END;
gönderen Commandx
14 May 2020 04:09
Forum: Makale ve İpucu
Başlık: Firebird Güncelleme Yöntemi
Cevaplar: 3
Görüntüleme: 3185

Re: Firebird Güncelleme Yöntemi

Peki Hangi Kaydın değiştiğini nasıl bulabiliriz?
Mesela ID = 100 nolu kaydımızı editledik , ID =100 de adsoyad kolonunda bulunan Mehmet i Tüm Clientlarda , Örn Showmessage ile nasıl gösterebiliriz
gönderen Commandx
14 May 2020 11:01
Forum: FireBird
Başlık: Trigger İle Toplama
Cevaplar: 1
Görüntüleme: 361

Trigger İle Toplama

Merhaba arkadaşlar. Trigger ile toplama yapmak tıpkı exceldeki gibi Row Cell Toplamak istiyorum DBGRidde ki her bir row toplamının TOTALS alanına yazılmasını nasıl sağlayabilirim TAX1 TAX2 TAX3 ve TOTALS Adında 4 integer Sütunum var TAX1 + TAX2 + TAX3 = TOTALS Sütununa Sadece Kendi Row Satırı Toplam...
gönderen Commandx
13 Nis 2020 04:06
Forum: Programlama
Başlık: Ağ Bağlantı Traffic Bandwidth Monitor
Cevaplar: 0
Görüntüleme: 849

Ağ Bağlantı Traffic Bandwidth Monitor

Merhaba Arkadaşlar . Bilgisayarımı bir firebird server olarak kurdum. Ağ bağlantısının kendi bilgisayarıma bağlanan clientlerin aşırı kullanımını gösteren bir uygulama yapmak istiyorum. Network adapteri meşgul eden gelen/giden trafiği bir grafikte örneğin tıpkı windows görev yöneticisindeki gibi htt...
gönderen Commandx
02 Nis 2020 09:23
Forum: Programlama
Başlık: DBGrid1 Hücre Kontrolü
Cevaplar: 4
Görüntüleme: 703

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: 928

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: 808

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: 808

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: 808

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: 808

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: 473

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
23 Kas 2019 04:38
Forum: Programlama
Başlık: QR Code Barkod'u Delphi ile Yapmak Mümkün mü?
Cevaplar: 7
Görüntüleme: 4661

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

Componenti Dephi7 ye tanıtamadım. Sanırım Zxing türevi D7 Desteklemiyor yada ben başaramadım.. Birsürü Unit var, birini tanıtıyorum öteki var da var, bir yere kadar gelebildim sonra tıkandım. Rica etsem QR Kodun Decode edilmiş WebCam görüntüsünün Decode edilmiş TXT halini alıp memoya ordanda uygulam...