26

Re: Grid de cell merge gibi birsey

Selamlar;

Arkadaşlar hepinizden Allah razı olsun.
Gerçektern ulaşılmaz bilgiler içeriyor burası. 
Tüm arkadaşlar tek tek teşekkür ediyorum.
Belki acayip kaçacak ama benim bir önerin var.
Önerim şu;
Buradan herkes faydalı bir bilgi aldığında, aldığı her bir bilgi için kendisinin belirlediği bir parayı forum için kullanılacak bir havuza atsa. Tabi tamamen isteğe bağlı.  Buradan faydalanılan bilgiyi sonuçta bizler paraya dönüştürüyoruz. Ama burası yani forum bundan pek bir faydasını göremiyor. Reklam gelirleride malum zaten. Belki bir gün biriken para ile Türkiye deki foxcular Türkiye nin bir yerinde bir araya gelip görülerini daha farklı ortamlarda dile getirebilirler.

Bilmediğin Neyse Yanıldığındır.

27

Re: Grid de cell merge gibi birsey

Güzel fikir ufak tefek destekler forumun hosting masrafını karşılasa zaten iyi bir iş yapılmış olur ben foxtan kazandıgım parayla 1 yıllıgını forumun hostingine odedim ve katılım arttıkca helal hoş olsun diyorum iyi bir is yapabilmiş olabilmenin mutlulugu ile ...

http://www.soykansoft.com/images/twitter.jpghttp://www.soykansoft.com/images/wp.jpg

28

Re: Grid de cell merge gibi birsey

Arkadaslar,


Site icin maddi harcama yapildigi kadar manevi harcamalarda sozkonusu ve bunun en onemlisi sizin degerli vakitleriniz. Hem bu sitenin olusumu hemde degerli cevaplariniz.

Isin manevi harcamasinin karsiligina maddi yaklasim yapmak zaten abes kacar. Lakin Soykan in da dedigi gibi eger yapilan amme hizmetinin karsiligi goruluyor ise helal hos olsun deniliyor.

Benim de dikkat cekmek istedigim nokta Mustafa arkadasimizin da dedigi gibi (mrduyar mustafa raamzan duyar olsa gerek:)) bu site icin maddi harcamada yapiliyor ve bunu birkac kisi karsiliyor. Karsilayanlar 2-3 kisi ama yararlananlar bircok. Buna biraz adalet getirmeli gibi.

Benim onerim su olacak. Eger Soykan bize site icin yapilan harcamalari listelerse belki gonullu olarak bunlari paylasabiliriz. Yani

hosting = xxxxx YTL/yil
domain = xxxxx YTL/yil
vs vs   = xxxxxx YTL/yil

gibi bir liste. Boylece sizlerin yukunu birazda olsa azaltabiliriz diye dusunuyorum. Baskalarini bilmem ama ben bu listeyi gordukten sonra ustume dusene karar verecegim. Tabii sizlerde kabul ederseniz.

Bu sitenin aktif olmasi icin reklamlara ihtiyac duymasi buradan faydalanan kisiler icin uzucu bir durum olmali.

Ben Foxpro dan maddi kazanc elde eden biri degilim. Bir sirketin Sistem Yoneticisiyim ve yurtdisinda yasiyorum. Foxpro benim kisisel zevkim. Bazende ese dosta yardim ediyorum.

Madem Foxprodan para kazanmiyorum neden elimi tasin altina sokmaya calisiyorum??

Bu site Turkiye de Turk Foxpro programcisinin ihtiyacina cevap verebilen tek platform. Amacim bu sitenin aktif tutulmasina destek olmak.

Basariyi sahiplenmek degil !!!

Klasik ama cok dogru - Bilgi Paylastikca Cogalir ve Degerlenir !

29

Re: Grid de cell merge gibi birsey

Selamlar;

Özgür kardeşim kesinlikle katılıyorum dediklerine. Bende zaten site açık kalaması için bu para önerisinde bulunmadım. Site inşallah her zaman açık kalacak.

Benim bahsettiğim konu site dışına biraz çıkıp diğer forum ve ya programcılardan farklı bir şeyler yapmak. Kafamızı bilgisayarın başından biraz kaldırıp biryerlerde buluşmak v.s. forum,panel gibi bir organizasyon yapmak. Tabi olarak ben bunu hemen demiyorum bunu belki 3-5 yıl sonra ama bunu bir ön hazırlığı olmalı.

Örneğin şuanda bu arkadaşlara desekki şu tarihte istanbulda buluşalım, herhalde 20 kişi gelir. bunu biz bi forum,panel gibi düşünürsen hem sesimizi duyurmuş oluruz, hemde fox insanlara sevdirmiş oluruz.

Acizane fikirlerim.
Mehmet Ramazan DUYAR

Site ahalisine selam eder, Ustaların ellerinden, acemilerin gözleirnden öperim tongue:D

Bilmediğin Neyse Yanıldığındır.

30

Re: Grid de cell merge gibi birsey

ozgurtetik yazdı:

Arkadaslar,


Site icin maddi harcama yapildigi kadar manevi harcamalarda sozkonusu ve bunun en onemlisi sizin degerli vakitleriniz. Hem bu sitenin olusumu hemde degerli cevaplariniz.

Isin manevi harcamasinin karsiligina maddi yaklasim yapmak zaten abes kacar. Lakin Soykan in da dedigi gibi eger yapilan amme hizmetinin karsiligi goruluyor ise helal hos olsun deniliyor.

Benim de dikkat cekmek istedigim nokta Mustafa arkadasimizin da dedigi gibi (mrduyar mustafa raamzan duyar olsa gerek:)) bu site icin maddi harcamada yapiliyor ve bunu birkac kisi karsiliyor. Karsilayanlar 2-3 kisi ama yararlananlar bircok. Buna biraz adalet getirmeli gibi.

Benim onerim su olacak. Eger Soykan bize site icin yapilan harcamalari listelerse belki gonullu olarak bunlari paylasabiliriz. Yani

hosting = xxxxx YTL/yil
domain = xxxxx YTL/yil
vs vs   = xxxxxx YTL/yil

gibi bir liste. Boylece sizlerin yukunu birazda olsa azaltabiliriz diye dusunuyorum. Baskalarini bilmem ama ben bu listeyi gordukten sonra ustume dusene karar verecegim. Tabii sizlerde kabul ederseniz.

Bu sitenin aktif olmasi icin reklamlara ihtiyac duymasi buradan faydalanan kisiler icin uzucu bir durum olmali.

Ben Foxpro dan maddi kazanc elde eden biri degilim. Bir sirketin Sistem Yoneticisiyim ve yurtdisinda yasiyorum. Foxpro benim kisisel zevkim. Bazende ese dosta yardim ediyorum.

Madem Foxprodan para kazanmiyorum neden elimi tasin altina sokmaya calisiyorum??

Bu site Turkiye de Turk Foxpro programcisinin ihtiyacina cevap verebilen tek platform. Amacim bu sitenin aktif tutulmasina destek olmak.

Basariyi sahiplenmek degil !!!


Özgür hosting bedelini ben karsiladim domain name Cemal e kayıtlı , bedelini sorarsan yıllık 150 ytl sınırsız alan gerisi emek ve programcılık sevgisi

http://www.soykansoft.com/images/twitter.jpghttp://www.soykansoft.com/images/wp.jpg

31

Re: Grid de cell merge gibi birsey

mrduyar yazdı:

Selamlar;

Özgür kardeşim kesinlikle katılıyorum dediklerine. Bende zaten site açık kalaması için bu para önerisinde bulunmadım. Site inşallah her zaman açık kalacak.

Benim bahsettiğim konu site dışına biraz çıkıp diğer forum ve ya programcılardan farklı bir şeyler yapmak. Kafamızı bilgisayarın başından biraz kaldırıp biryerlerde buluşmak v.s. forum,panel gibi bir organizasyon yapmak. Tabi olarak ben bunu hemen demiyorum bunu belki 3-5 yıl sonra ama bunu bir ön hazırlığı olmalı.

Örneğin şuanda bu arkadaşlara desekki şu tarihte istanbulda buluşalım, herhalde 20 kişi gelir. bunu biz bi forum,panel gibi düşünürsen hem sesimizi duyurmuş oluruz, hemde fox insanlara sevdirmiş oluruz.

Acizane fikirlerim.
Mehmet Ramazan DUYAR

Site ahalisine selam eder, Ustaların ellerinden, acemilerin gözleirnden öperim tongue:D


Valla ben bu tur bulusmalari cok seviyorum gecen sene Bulgaristan'a gidecek kadar smile

http://www.soykansoft.com/images/twitter.jpghttp://www.soykansoft.com/images/wp.jpg

32

Re: Grid de cell merge gibi birsey

metin yazdı:

ayıp kaçmazsa bu 2. örneğe oha diyecem. vfp gridiyle nasıl oluyo bu ya? grid olduğunu anlayamadım gerçekten... soykan!.. hani alkışlayan adam, bak bütün forumlarda var burda yok... smile

cetinbasoz yazdı:

river,
Bu da native fox grid ile (burada 2 adet grid bar):

http://www.accutrack.org/images/daily_viewer.jpg


Metin,
Merhaba. Ben bu forumun ikinci sayfaya uzadigini tesadufen bugun farkettim.
Aslinda daha guzelleri var ama rakiplerimiz yuzunden hep 2-3 versiyon oncesinin goruntuleri yayinlaniyor:) Bir de grid oldugu belli olsa da ancak kendin kullaninca VFP grid olduguna inanmanin zor oldugu gridler var.
O ornekte, gri alan bir grid. Goruntude 3 satir ve tek kolon var (eger goruntulenmesi gereken 4 satir ve altindaysa, grid ve form size ediliyor. Ustundeyse 4 satira sabitleniyor, vertical scrollbar gorunuyor). Her hucrede bir container var. Containerin icindeki label, commandbutton,shape vs belli. Listbox gibi gorunen ise yine bir grid.
Yani ekranda yer derdi olmasa, bir ana gridin hucresine bir baska grid, onun icine bir diger grid vs koyarak treeGrid oluyor:) Aslinda ekranim 1920*1440 oldugundan beri denemedim, belki simdi yer derdi olmadan daha guzel olur. Otomatikman merge isi halledilmis oluyor. Bir checkbox (+/- imageli, graphical style, veya image + invisile button, conatiner vs) ile treeview +/- isi halloluyor. -'de ister diger hucreyi kaldir, istersen sadece ilk satirina indirge vs.
Eskiden beri browse ve grid'e bayildigimdan eger yapabilirsem bircok seyi onlarla yapiyorum. Yoksa ozellikle baslangicta gridler cildirtir insani.

33

Re: Grid de cell merge gibi birsey

Çetin Bey, merhaba

www.accutrack.org sitesini incelemiş birisi olarak size bir kez daha tebrik ve takdirlerimi iletmek istiyorum.

Merak ettğim bir konu var. Sitede referans olarak gösterilen yaklaşık 140 universitenin hepsinde VFP la yazılmış bir ürün öğrenci yerleştirme ve takip sistemi olarak mı  kullanılıyor. Bu konuda bilgi verebilirmisiniz.

Altun

34

Re: Grid de cell merge gibi birsey

mrduyar yazdı:

Selamlar;

Özgür kardeşim kesinlikle katılıyorum dediklerine. Bende zaten site açık kalaması için bu para önerisinde bulunmadım. Site inşallah her zaman açık kalacak.

Benim bahsettiğim konu site dışına biraz çıkıp diğer forum ve ya programcılardan farklı bir şeyler yapmak. Kafamızı bilgisayarın başından biraz kaldırıp biryerlerde buluşmak v.s. forum,panel gibi bir organizasyon yapmak. Tabi olarak ben bunu hemen demiyorum bunu belki 3-5 yıl sonra ama bunu bir ön hazırlığı olmalı.

Örneğin şuanda bu arkadaşlara desekki şu tarihte istanbulda buluşalım, herhalde 20 kişi gelir. bunu biz bi forum,panel gibi düşünürsen hem sesimizi duyurmuş oluruz, hemde fox insanlara sevdirmiş oluruz.

Acizane fikirlerim.
Mehmet Ramazan DUYAR

Site ahalisine selam eder, Ustaların ellerinden, acemilerin gözleirnden öperim tongue:D


Mehmet,

Buradan oraya gitgel $2000. aci bana smile

Klasik ama cok dogru - Bilgi Paylastikca Cogalir ve Degerlenir !

35

Re: Grid de cell merge gibi birsey

altun yazdı:

Çetin Bey, merhaba

www.accutrack.org sitesini incelemiş birisi olarak size bir kez daha tebrik ve takdirlerimi iletmek istiyorum.

Merak ettğim bir konu var. Sitede referans olarak gösterilen yaklaşık 140 universitenin hepsinde VFP la yazılmış bir ürün öğrenci yerleştirme ve takip sistemi olarak mı  kullanılıyor. Bu konuda bilgi verebilirmisiniz.

Altun


Evet ogrenci/ogretim gorevlisi/instructor (Turkcede kime karsilik cikaramadim - belki de yok) arasi baglantilar, onlarin takipleri, seminerler, laboratuvarlar, kutuphane vs. AccuTrack sirketin baslica urunu. Yan urunler filan da var ama agirlik onda. Su anda betada olan bir ek modul labrotuvarlardaki aktiviteyi offline/online izlemeye yonelik. Amerika,Canada,Ingiltere ve Peru'da kullaniliyor bildigim kadariyla (pazarlama ile pek ilgilenmiyorum). %100 VFP degil ama %99 (geri kalani da VFP sayilir, C'de yazilmis bir iki FLL, winAPI ve activex).

36

Re: Grid de cell merge gibi birsey

Merhaba, smile

Bak bunun listbox olmadığını öğrendiğim iyi oldu. Doğrusu grid'in bu kadar esnek olduğunu bilmiyordum.

cetinbasoz yazdı:

...Listbox gibi gorunen ise yine bir grid.
...Eskiden beri browse ve grid'e bayildigimdan eger yapabilirsem bircok seyi onlarla yapiyorum. Yoksa ozellikle baslangicta gridler cildirtir insani.


Browse'yi ben pek sevmezdim doğrusu. çünkü bir grid gibi diğer kontrollerle tamamen bütünleşemiyordu. Clipper sanki bu konuda daha iyiydi (özellik olarak öyle miydi bilmiyorum, görüntü olarak). çeşitli numaralar yapmak gerekiyordu. Ben benim dos programında getleri kullanarak grid gibi birşey yapmıştım.

Bu arada, benim de favorim Julia Roberts'dır... wink

Haksızlıklar karşısında susanlar, dilsiz şeytanlardır!
www.metinemre.com

37

Re: Grid de cell merge gibi birsey

herkese merhabalar,
bu örneği form kullanarak yapmaya çalışıyorum ,
forma olecontrol den ' MSHierarchicalFlexGridLib.MSHFlexGrid.6 ' yı ekledim

formun initine

Visual Fox Pro
LOCAL oCon as AdoDb.Connection, oRS as ADODb.Recordset

oCon = CREATEOBJECT('AdoDb.Connection')
oCon.ConnectionString = ;
  "Provider=VFPOLEDB;Data Source="+'P:\emir\MSSS'
oCon.Open()
 
TEXT to m.lcSQL NOSHOW PRETEXT 8
Select c.kod,
  o.issira, o.emno,o.kod,
  o.miktar
  FROM  makina c
  INNER Join emir o
  ON  c.kod = o.tezgah
  order By c.kod
ENDTEXT
 
oRS = oCon.Execute(m.lcSQL)


kodları yazdım

aşağıdaki kodları formun neresine yazacağım

Visual Fox Pro
PROCEDURE init(toRS)

    with This.HFlex
      .Datasource = toRS
      for ix = 1 to .Cols - 1
        .MergeCol(ix) = .t.
      endfor
      .MergeCells = 3
    endwith
    this.DoSort(This.HFlex)
  ENDPROC
 
  PROCEDURE doSort(toObject)
    with toObject
      .Col = 0
      .ColSel = .Cols - 1
      .Sort = 1 && Generic Ascending
    endwith
  ENDPROC
Kader, beyaz kağıda sütle yazılmış yazı
Elindeyse beyazdan, gel de sıyır beyazı. (NFK)

38

Re: Grid de cell merge gibi birsey

&& form Init

Visual Fox Pro
with This.HFlex

      .Datasource = toRS
      for ix = 1 to .Cols - 1
        .MergeCol(ix) = .t.
      endfor
      .MergeCells = 3
    endwith
this.DoSort(This.HFlex)


form a DoSort isimli method ekle

&& doSort

Visual Fox Pro
with toObject

      .Col = 0
      .ColSel = .Cols - 1
      .Sort = 1 && Generic Ascending
endwith
http://www.soykansoft.com/images/twitter.jpghttp://www.soykansoft.com/images/wp.jpg

39

Re: Grid de cell merge gibi birsey

.Datasource = toRS

bu satırda

variable 'TORS' is not found hatası veriyor

Kader, beyaz kağıda sütle yazılmış yazı
Elindeyse beyazdan, gel de sıyır beyazı. (NFK)

40

Re: Grid de cell merge gibi birsey

*** Formun initi

Visual Fox Pro
LOCAL oCon as AdoDb.Connection, oRS as ADODb.Recordset

oCon = CREATEOBJECT('AdoDb.Connection')
oCon.ConnectionString = ;
  "Provider=VFPOLEDB;Data Source="+'P:\emir\MSSS'
oCon.Open()
 
TEXT to m.lcSQL NOSHOW PRETEXT 8
Select c.kod,
  o.issira, o.emno,o.kod,
  o.miktar
  FROM  makina c
  INNER Join emir o
  ON  c.kod = o.tezgah
  order By c.kod
ENDTEXT
 
oRS = oCon.Execute(m.lcSQL)
 
with This.HFlex
      .Datasource = oRS
      for ix = 1 to .Cols - 1
        .MergeCol(ix) = .t.
      endfor
      .MergeCells = 3
endwith
this.DoSort(This.HFlex)

*** DoSort diye metod ekle onun kodu
***  PROCEDURE doSort(toObject)

Visual Fox Pro
LPARAMETERS toObject

    with toObject
      .Col = 0
      .ColSel = .Cols - 1
      .Sort = 1 && Generic Ascending
    endwith

41

Re: Grid de cell merge gibi birsey

Visual Fox Pro
TEXT to m.lcSQL NOSHOW PRETEXT 8

Select c.kod,
  o.emno,o.kod,K.TANIM,Z.MIKTAR,
  o.miktaru,o.A1,o.A2,o.B1,o.B2,o.C1,o.C2,o.D1,o.D2,o.E1,o.E2,o.F1,o.F2,o.G1,o.G2
  FROM  makina c
  INNER Join FISGUN o
  ON  c.kod = o.kodm
  inner join emir z
  ON o.emno = z.emno
  inner join kart K
  ON o.kod = k.kod
  order By c.kod
ENDTEXT


kodu bu şekilde düzenledim,  miktar,A1,A2 gibi  kolonlarda değerleri aynı olan satırlarda birleşiyor ama ben sadece c.kod hanesini birleşmesini istiyorum bunu nasıl sağlarım.
birde bu satırların renklendirmesi ve kolonların inputmask'lerini nasıl ayarlayabilirim
foruma nasıl resim ekleniyor

Kader, beyaz kağıda sütle yazılmış yazı
Elindeyse beyazdan, gel de sıyır beyazı. (NFK)

42

Re: Grid de cell merge gibi birsey

Tarık SQL ini biraz elden geçirdim, bu şekilde daha kolay okunuyor.  SQL aliaslarda tek harf kullanmanı tavsiye etmem. Tamamen kişisel bir öneri.

SQL için Biraz data vermen mümkün mü.  Sonuç seti olarak görmek istediğin satırları yazabilirmisin?  Bu şekilde daha hızlı ve kolay cevap alırsın.


Visual Fox Pro
Select ;

    Makina.kod,;
    Fisgun.emno,;
    Fisgun.kod,;
    Kart.TANIM,;
    Emir.MIKTAR,
    Fisgun.miktar,;
    Fisgun.A1,;
    Fisgun.A2,;
    Fisgun.B1,;
    Fisgun.B2,;
    Fisgun.C1,;
    Fisgun.C2,;
    Fisgun.D1,;
    Fisgun.D2,;
    Fisgun.E1,;
    Fisgun.E2,;
    Fisgun.F1,;
    Fisgun.F2,;
    Fisgun.G1,;
    Fisgun.G2 ;
From  Makina ;
    INNER Join Fisgun On  Makina.kod = Fisgun.kodm ;
    INNER Join Emir     On Fisgun.emno = Emir.emno ;
    INNER Join Kart     On Fisgun.kod = Kart.kod ;
    order By Makina.kod
Uğur
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır.  Türk Atasözü

43

Re: Grid de cell merge gibi birsey

Birde Mutlaka "Join" kullanman gerekmiyor;  Mecbursan bile oluşturduğun Join in tablo kullanması şart değil ( yine yazılmış bir SELECT tümcesi de  olabilir ). Yani özetle türetilmiş tablolarda Join kullanabilirsin.

İç içe SQL de kullanabilirsin, ayrıca SQL sorgularında IN  , EXIST ve NOT EXIST tümcelerini incelemeni tavsiye edeim

Uğur
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır.  Türk Atasözü

44

Re: Grid de cell merge gibi birsey

create cursor crsmakina ( kod c(6) )
insert into crsmakina values ("PR04")
insert into crsmakina values ("PR05")
insert into crsmakina values ("PR06")
insert into crsmakina values ("PR07")
insert into crsmakina values ("PR08")

CREATE CURSOR crsfisgun ( kodm c(10),emno c(6),kod c(16),miktaru n(8),A1 N(6),A2 N(6),B1 N(6),B2 N(6),C1 N(8),C2 N(8))
INSERT INTO crsfisgun VALUES ("PR04","301594","4020000403",60000,5000,0,0,0,0,0)
INSERT INTO crsfisgun VALUES ("PR04",    "301603","TŞ 2425 RÇN",119500,0,0    ,35600,0,40000,0)
INSERT INTO crsfisgun VALUES ("PR04",    "301586","TŞ 2423 RPK",18500,0    ,0,0,    0,0,0)
INSERT INTO crsfisgun VALUES ("PR04",    "301559","C2013",    47500,    0    ,0,0,    0,0,0)
INSERT INTO crsfisgun VALUES ("PR05" ,"301546","TEK 2863 RP"    ,775000 ,    200000 ,    200000,75000,0,0,0)
INSERT INTO crsfisgun VALUES ("PR05" ,"301597","TB 2206.70 RP",42250     ,    0 ,    0 ,0,0,0,0)
INSERT INTO crsfisgun VALUES ("PR05" ,"301610","TEK 2862 RP"    ,12800     ,    0,    0 ,0,0,0,0)
INSERT INTO crsfisgun VALUES ("PR06" , "301579" ,    "TE 2324 DPK"    ,130000 ,    60000 ,0 ,0,0,0,0)
INSERT INTO crsfisgun VALUES ("PR06" , "301394" ,    "TD 2122.80 RP"    ,100000 ,    0 ,0 ,0,0,60000,4000)
INSERT INTO crsfisgun VALUES ("PR06" , "301578" ,    "TE 2318 DPK"    ,154700 ,    0 ,    0 ,0,0,0,23000)
INSERT INTO crsfisgun VALUES ("PR06" , "301600" ,    "TÖZ 2045 DFBK"    ,32000     ,    0 ,    0 ,0,0,0,0)
INSERT INTO crsfisgun VALUES ("PR07" , "301509" ,    "61710200-02"    ,809600 ,    36000,0 ,63000,38100,66000,32000)
INSERT INTO crsfisgun VALUES ("PR08" , "301543" ,    "MT 2111.80 RP"    ,1218000 ,252000,28000,238000,112000,56000,168000)
INSERT INTO crsfisgun VALUES ("PR08" , "301607" ,    "MS 2111.80 RP"    ,210000 ,    0     ,    0,0,0,0,0)


CREATE CURSOR crsemir (emno c(6),miktar n(8))
INSERT INTO crsemir VALUES ("301594",100000)
INSERT INTO crsemir VALUES ("301603",250000)
INSERT INTO crsemir VALUES ("301586",100000)
INSERT INTO crsemir VALUES ("301559",100000)
INSERT INTO crsemir VALUES ("301546",90000)
INSERT INTO crsemir VALUES ("301597",120000)
INSERT INTO crsemir VALUES ("301610",120000)
INSERT INTO crsemir VALUES ("301579",500000)
INSERT INTO crsemir VALUES ("301394",300000)
INSERT INTO crsemir VALUES ("301578",170000)
INSERT INTO crsemir VALUES ("301600",150000)
INSERT INTO crsemir VALUES ("301509",30000)
INSERT INTO crsemir VALUES ("301543",85000)
INSERT INTO crsemir VALUES ("301607",100000)
INSERT INTO crsemir VALUES ("301608",100000)

Kader, beyaz kağıda sütle yazılmış yazı
Elindeyse beyazdan, gel de sıyır beyazı. (NFK)

45

Re: Grid de cell merge gibi birsey

ugurlu2001 yazdı:

Birde Mutlaka "Join" kullanman gerekmiyor;  Mecbursan bile oluşturduğun Join in tablo kullanması şart değil ( yine yazılmış bir SELECT tümcesi de  olabilir ). Yani özetle türetilmiş tablolarda Join kullanabilirsin.

İç içe SQL de kullanabilirsin, ayrıca SQL sorgularında IN  , EXIST ve NOT EXIST tümcelerini incelemeni tavsiye edeim


iç içe SQL birkaç yerde kullanmayı denedim , ekrana bilgiler biraz geç geliyor bende, bunun bir nedenide sanırım ağ ile ilgili kullanılan swicth 100 lük daha geçemedik gigabite,  konu dağılmasın diye exist ve not exist olayını sonra sorcam

Kader, beyaz kağıda sütle yazılmış yazı
Elindeyse beyazdan, gel de sıyır beyazı. (NFK)

46

Re: Grid de cell merge gibi birsey

Tarık, Kart tablosu yok? Birde Nasıl bir sonuc istiyorsun?

Uğur
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır.  Türk Atasözü

47

Re: Grid de cell merge gibi birsey

buraya nasıl resim ekliyoruz

Kader, beyaz kağıda sütle yazılmış yazı
Elindeyse beyazdan, gel de sıyır beyazı. (NFK)

48 Son düzenleyen, ugurlu2001 (28.09.2010 14:46:06)

Re: Grid de cell merge gibi birsey

* Author: Cetin BASOZ

Visual Fox Pro
*SampleData2Text.prg

Lparameters tcTableName,tnRecords
Use (m.tcTableName) In 0 Alias 'sampling'
Select 'sampling'
Local lcTemp, ix, lcData, lcRetVal
lcTemp = Sys(2015)+'.tmp'
If !Empty(m.tnRecords) And Type('m.tnRecords') = 'N'
  Copy To (m.lcTemp) Type Delimited Next m.tnRecords
Else
  Copy To (m.lcTemp) Type Delimited
Endif
lcData = Filetostr(m.lcTemp)
Erase (m.lcTemp)
 
Set Textmerge Delimiters To '%%','%%'
Set Textmerge To (m.lcTemp) Noshow
Set Textmerge On
\CreateCursor_%%m.tcTableName%%()
\
\Procedure CreateCursor_%%m.tcTableName%%
\LOCAL lcData, lcTemp
\lcTemp = SYS(2015)+'.tmp'
\TEXT TO m.lcData noshow
\%%m.lcData%%
\ENDTEXT
\
\STRTOFILE(m.lcData,m.lcTemp)
\
\create CURSOR %%m.tcTableName%% ;
\ ( ;
For ix=1 To Afields(aStruc,'sampling')
%%IIF(m.ix > 1,',','')%%
\\%%aStruc[m.ix,1]%% %%aStruc[m.ix,2]%%(%%aStruc[m.ix,3]%%,%%aStruc[m.ix,4]%%)
\\ %%IIF(aStruc[m.ix,5],'',' NOT ')%% NULL
\\ %%IIF(aStruc[m.ix,6],'NOCPTRANS','')%% ;
Endfor
)
\
\APPEND FROM (m.lcTemp) TYPE delimited
\ERASE (m.lcTemp)
\endproc
Set Textmerge To
Set Textmerge Off
Set Textmerge Delimiters
lcRetVal = Filetostr(m.lcTemp)
Erase (m.lcTemp)
Use In 'sampling'
Return m.lcRetVal
Uğur
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır.  Türk Atasözü

49 Son düzenleyen, ugurlu2001 (28.09.2010 14:51:10)

Re: Grid de cell merge gibi birsey

Tarık; yukarıdaki kod parçacığını :"SampleData2Text.prg" olarak kaydet.

Sonra "Command Window" da
Do SampleData2Text WITH "makina",50
şeklinde çalıştır. makina dosyasındaki 50 kaydı Cursor oluşturucak şekilde memory ye alıcaksın.

Forumu aç ve sadece Ctrl + V ile örnek Cursor u yapıştır.

Diğer tablolar içinde aynını yapabilirsin.

Çetin Hocanın bu kodu her SQL örneklemesinde kullanılsa cevap süreleri inanılmaz hızlanır ...

Resim göndermek için; flickr benzeri bir siteye kopyalamalısın. sonra buraya link ver. Forumumuzn böyle bir kusuru var smile

Uğur
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır.  Türk Atasözü

50

Re: Grid de cell merge gibi birsey

Visual Fox Pro
create cursor crskart ( c(16),tanim(40) )

INSERT INTO values ("TD 2122.80 RP","AAA")
INSERT INTO values ("61710200-02",    "BBB")
INSERT INTO values ("MT 2111.80 RP","CCC")
INSERT INTO values ("TB 2201.65 RP","DDD")
INSERT INTO values ("TEK 2863 RP",    "EEE")
INSERT INTO values ("TK 2805 RP",    "FFF")
INSERT INTO values ("C2013","GGG")
INSERT INTO values ("TE 2318 DPK",    "HHHH")
INSERT INTO values ("TE 2324 DPK",    "KKKK")
INSERT INTO values ("TE 2341 RP",    "LLLLL")
INSERT INTO values ("TŞ 2423 RPK",    "MMMM")
INSERT INTO values ("TYE 2705 RPK",    "NNNN")
INSERT INTO values ("4020000403",    "ZZZZZ")
INSERT INTO values ("TB 2206.70 RP","TYTYTY")
INSERT INTO values ("TD 2107.50 RP","ERTERT")
INSERT INTO values ("TÖZ 2045 DFBK","YUTRWE")
INSERT INTO values ("TŞ 2425 RÇN",    "HUNURTE")
INSERT INTO values ("MS 2111.80 RP","MNKUM")
INTO values ("MT 2117.80 RP","DTRUS")
INSERT INTO values ("TEK 2862 RP",    "EKREST")

sadece makina dosyasında kod lara göre satırlarda birleşme istiyorum

Kader, beyaz kağıda sütle yazılmış yazı
Elindeyse beyazdan, gel de sıyır beyazı. (NFK)