Delphi Forum

Nasıl yani :D Kardeş , 1-sorguyu hazırladın(bir query'nin sql'ine atadın) 2-bir datasource koydun 3-Datasource'un dataset'ine query nesnesini atadın 4-cxgridin databinding 'ine datasource ' u atadın 5-bir butonun click'ine veya başka bir yere ( formcreate vs) query'inin active'ini true yaptıysan ver...

sql server 'da şöyle bulunabiliyor

Kod: Tümünü seç

select IDENT_CURRENT('tabloadı')

Select * from tablo where tablo.alan1 like editdekitext+'%' or tablo.alan2 like editdekitext+'%' or tablo.alan3 like editdekitext+'%' -------------------------------- en basitinden yukarıdaki gibi yaparsın.Kaçtane alanın varsa or ile ekle

Sorudan cevap alma ihtimalinizi arttırmak istiyorsanız, herkesin anlayabileceği şekilde , açıklamalı sormanızda fayda var.

if i=nar then IntToStr(nat)); bu satırı .add içerisine ekleyemzsiniz, bunu yerine bu şartı dışarıda oluşturup oluşan stringi add ile listbox'a eklersin. var i,nar,nat:integer; str,x:string; begin for i:=1 to 10 do begin if i=nar then x:=IntToStr(nat) else x:=''; str:='+'+ IntToStr(i)+ ' : '+x; Atk7...

Kod: Tümünü seç

'Ahmet'+cast(@i as varchar(5))

1-stored procedure kullanarak ; cursor veya while vs
2-eğer for ile ekleyeceğiniz datasetini bir select ile çekebiliyorsanız, döndüye ihtiyaç kalmadan çözebilirsiniz

Kod: Tümünü seç

insert into  deneme (NO,ADI,SOYADI) select no,adi,soyadi from master

Kod: Tümünü seç

SELECT distinct
NO,
DEGER
sum(TUTAR),
COUNT(*)
FROM TABLE
GROUP BY NO,DEGER

Kod: Tümünü seç

showmessage(RadioGroup1.Items[RadioGroup1.itemindex]);

Bununla ilgili delphi'nin teamsource adlı bir paketi var bunu kullanabilirsin, alternatif birçok yazılım var (starteam,cvs vd..). Fakat biz projelerimizde genellikle çok sağlıklı olmasada pas ve dfmleri manuel birleştirme yoluna gidiyoruz

aslangeri yazdı:Bu arada @bgoktas neresi için yazıyorsunuz? hazır bir yer varmı yoksa yazıp pazarlayacakmısınız?

Hocam pazarlama sahamız güneydoğuanadolu olacak daha çok. Henüz net satılmış bir yer yok, bazı illerle görüşmeler sürüyor.

Kod: Tümünü seç

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
 if (Arow=1) and (ACol=1) then
 begin
      CanSelect:=false;

 end;

böyle olur mu?

a.s Estağfirullah , ne demek , bilgilendirmeler için sağolun. Bizim projemiz kısa vadede aile hekimliğine de geçmiş olacak, ve yine bildiğim kadarıyla yukarıda da belirttiğim gibi her i.s.m kendi uygun bulduğu programı kullanabilecek. Tabi uzun vadede neler değişir bilemeyiz. Ama ben bu konuyla ilgi...

Merhabalar, cevaplara teşekkürler, s.a. hocam, Bende 5 yıldır filan bu alanda yazdım ve artık bu alanda yazmıyorum.Çünkü 2009 yılından itibaren aile hekimliğine geçilecek ve Sağlık Bakanlığının verdiği proğram kullanılacak.Sağlık ocakları ve sağlık evleri kapanacak.sadece aile hekimleri olacak. Bu y...

A.S,
cevap için teşekkürler. Teechart veya başka printable bir tool ile yapmaya çalışıyorum. Fakat söylediğiniz metoduda deneyeceğim. Tekrardan teşekkürler.
2009'da biteceği derken neyi kasdettiğinizi anlayamadım

Delphi Forum

400 uygun sonuç bulundu

Re: Birden Fazla table içinde Adoquery ile sorgulama yapmak

Re: Query ile insert edilen kaydın ID değerini bulma paradoksu

Re: arama ile ilgili sorunum var lütfen yardım edin

Re: Hiyerarşi Oluşturmak.

Re: case içinde listbox.items.add ta if then

Re: Sql de for döngüsü

Re: Sql de for döngüsü

Re: Group By Hakkında

Re: TradioGroup 'da tıklanan buton hangisi

Re: Delphi projesinde aynı anda 1 den fazla yazılımcı nasıl çalı

Re: Nüfus Piramidi

Re: Stringgrid istenilen Sütunu Enabled=false yapmak

Re: Nüfus Piramidi

Re: Nüfus Piramidi

Re: Nüfus Piramidi