Grid de cell merge gibi birsey (Sayfa 2 / 3)

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

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.

Mehmet,

Buradan oraya gitgel $2000. aci bana

Merhaba,

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

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...

&& form Init

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

with toObject

      .Col = 0

      .ColSel = .Cols - 1

      .Sort = 1 && Generic Ascending

endwith

*** Formun initi

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)

LPARAMETERS toObject

    with toObject

      .Col = 0

      .ColSel = .Cols - 1

      .Sort = 1 && Generic Ascending

    endwith

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.

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

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)

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

* Author: Cetin BASOZ

*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