1

Konu: Page Frame

hasta.dbf dosyasının içindeki adi fieldi içinde arama yaptırmak amacıyla ;
içinde 3 sayfa bulunan bir page fremde bir arama gerçekleştirmeye calıştım. yapılan aramanın sonuçları hemen altındaki gridde görlüyor bunun için

combobox ın lostfocusuna
LOCAL cDisplayValue,cSqlStr,cCountryName
cDisplayValue = ALLTRIM(THIS.DisplayValue)
THIS.SelLength = 0
IF EMPTY(m.cDisplayValue)
    RETURN
ENDIF

THISFORM.LockScreen = .T.

IF THIS.Value = "(All)"
    SELECT adi AS adi,* FROM hasta INTO CURSOR Custs
    This.parent.Grid1.recordsource = "Custs"
ELSE
    SELECT adi AS adi,* FROM hasta ;
         WHERE UPPER(ALLTRIM(hasta.adi)) = UPPER(m.cDisplayValue);
         INTO CURSOR Custs
    This.parent.Grid1.recordsource = "Custs"
    IF _TALLY #0
        cCountryName = ALLTRIM(hasta.adi)
        IF ATC(m.cCountryName,THIS.RowSource) = 0 AND !EMPTY(m.cCountryName)
            THIS.RowSource=THIS.RowSource+","+m.cCountryName
        ENDIF
        THIS.Value = m.cCountryName
    ENDIF   
ENDIF
THISFORM.LockScreen = .F.

keypresine

#DEFINE DELKEY 127
LPARAMETERS nKeyCode, nShiftAltCtrl
LOCAL cDisplayValue
IF nKeyCode = DELKEY
    cDisplayValue = ALLTRIM(THIS.DisplayValue)
    IF LEN(m.cDisplayValue)=1
        cDisplayValue = ""
    ELSE
        cDisplayValue = LEFT(cDisplayValue,LEN(cDisplayValue)-1)
    ENDIF
ELSE
    cDisplayValue = ALLTRIM(THIS.DisplayValue)+CHR(nKeyCode)
ENDIF

THISFORM.LockScreen = .T.
DO CASE
CASE EMPTY(m.cDisplayValue)
    This.parent.Grid1.recordsource = " "
CASE THIS.Value = "(All)"
    SELECT adi AS adi,* FROM hasta;
        INTO CURSOR Custs
    This.parent.Grid1.recordsource = "Custs"
OTHERWISE
    SELECT adi AS adi,* FROM hasta ;
     WHERE UPPER(ALLTRIM(hasta.adi)) = UPPER(m.cDisplayValue);
     INTO CURSOR Custs
    This.parent.Grid1.recordsource = "Custs"
ENDCASE
THISFORM.LockScreen = .F.

********
yazdım arama işi başarılı oldu ;

browse(grd) bölümünde bulduğu kayıtlardan birini seçtiğim zaman diğer page frame sayfalarındaki o kayıtla ilgili bölümlerinde yenilenmesini istiyorum. ama henüz başaramadım

grd :in afterrowcolchange bölümüne
LPARAMETERS nColIndex
SELECT hasta
m.aa=RECNO()
GOTO m.aa
thisform.refresh()
yazdım olmadı
aynı komutu clic ede ekledim yine olmadı

ne yapmam lazım ?

2

Re: Page Frame

LPARAMETERS nColIndex
SELECT hasta
m.aa=RECNO()
GOTO m.aa

bölümü bana biraz gereksiz geldi acaba orada dosya EOF() olabilirmi ?
select HASTA ile zaten istediğin RECNO üzerinde olman gerekiyor, tekrar GOTO m.aa ile
kayda gitmeye çalışıyorsun. eğer ile recno'yu aldığında EOF veya BOF durumuna düşersen
GOTO kısmı hiçbir işine yaramayacak.

Ayrıca form üzerinde textbox.ControlSource'lar ne şekilde tanımlandı.

3 Son düzenleyen, avrasya34 (29.12.2006 16:10:36)

Re: Page Frame

Bende gereksiz olduğunu düşündüm ama bunu yazdıktan sonra frame dişlindaki fieldler griddeki kayıtlar içinde dolaşırken kendini yeniliyor. kendini yenilemeyen birtek o an gözükmeyen frameler.
textbaxlar bir puplice bağlı olarak .f. durumunda .t. olarakda denedim ama yine sonuç değişmedi.
framlerin active ve clickine
scatter memvar memo ekledim sonuç gene değişmedi.

acemilik ne yapayım deniyorum sadece elden başka bişey gelmiyor. yapamayıncada adres burası smile

4

Re: Page Frame

herbir page'in Activate'ine this.Refresh eklemeyi dene

5

Re: Page Frame

pageframe biraz refresh ozurlu o yuzden page active event a this.refresh() yazarsan olacaktir

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

6

Re: Page Frame

Pageframeler refresh'e duyarsiz:

with thisform.myPageFrame
lnActivePage = .ActivePage
for ix = 1 to .PageCount
  .ActivePage = m.ix
endfor
.ActivePage = m.lnActivePage
endwith

7

Re: Page Frame

hepsini denedim arkadaşlar ama sonuç alamadım. framler refresh olmuyor sad

8

Re: Page Frame

textbox.ControlSource'lar ne şekilde tanımlandı ?

9

Re: Page Frame

hepsi disable durumunda ve bir private değişkenine bağlı değişkenin durumuna göre .t. yada .f. oluyor

10

Re: Page Frame

ya, kusura bakma ama herhalde ben tam olarak anlamadım.
Bana göre TextBox'un ControlSource'u bir private değişkene bağlanamaması gerekiyor.
Ayrıca değişkenin durumuna göre .T. yada .F. olan nedir ?

ControlSource özelliğinde table.field şeklinde bir değer varsa herhangi bir sorun yaşamaman gerekiyor.

Eğer Logical bir değişken için bişey arıyorsan bence checkbox kullan.

11

Re: Page Frame

cetinyasar yazdı:

ya, kusura bakma ama herhalde ben tam olarak anlamadım.
Bana göre TextBox'un ControlSource'u bir private değişkene bağlanamaması gerekiyor.
Ayrıca değişkenin durumuna göre .T. yada .F. olan nedir ?

ControlSource özelliğinde table.field şeklinde bir değer varsa herhangi bir sorun yaşamaman gerekiyor.

Eğer Logical bir değişken için bişey arıyorsan bence checkbox kullan.


Esas siz kusura bakmayın hocam. ben vfp de yeniyim. anca şimdi anladım dediğinizi
textboxların cntrolsource leri hasta.dbf adlı dosyaya bağlı. ve malesef sorun nyaşıyorum

12

Re: Page Frame

arama sonuclarinin goruntulendigi grid in

Visual Fox Pro
&&when event 

 
with thisform
.addproperty([lc2Find],[])
.lc2Find=custs.adi
.refresh()
endwith

kodunu yazip

pageframe in ilgili page lerinin

Visual Fox Pro
&&activate event ina da

 
select custs
&&seek(this.parent.parent.lc2Find,[custs],[adi])
&& cursor u index lersen seek te kullanabilirsin
 
locate for this.parent.parent.lc2Find
 
this.refresh

yazabilirsin aklıma gelen bir cozumde bu olabilir yada kodlarini form data vs zipleyip eklenti olarak mesajına eklersen kodu indirip herkes gerekli incelemeyi yapip olmasi gerekeni burada yanitlayabilir,belki cok ufak bir ayrinti istedigini elde etmene engel oluyor ama goremiyorsun,ama başka bir goz o ayrintiyi fark eder ve olay cozulmus olur...

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

13

Re: Page Frame

soykanozcelik yazdı:

arama sonuclarinin goruntulendigi grid in

Visual Fox Pro
&&when event 

 
with thisform
.addproperty([lc2Find],[])
.lc2Find=custs.adi
.refresh()
endwith

kodunu yazip

pageframe in ilgili page lerinin

Visual Fox Pro
&&activate event ina da

 
select custs
&&seek(this.parent.parent.lc2Find,[custs],[adi])
&& cursor u index lersen seek te kullanabilirsin
 
locate for this.parent.parent.lc2Find
 
this.refresh

yazabilirsin aklıma gelen bir cozumde bu olabilir yada kodlarini form data vs zipleyip eklenti olarak mesajına eklersen kodu indirip herkes gerekli incelemeyi yapip olmasi gerekeni burada yanitlayabilir,belki cok ufak bir ayrinti istedigini elde etmene engel oluyor ama goremiyorsun,ama başka bir goz o ayrintiyi fark eder ve olay cozulmus olur...


galiba en doğrusu kodları göndermek ama nasıl göndereceğim burdaki mesajara dosya ekleme diye bir bölüm yok galiba smile

14

Re: Page Frame

arkadaşlar hepiniz sağolun kendi salaklığım yüzünden sizide uğraştırdım.
grd in after rowcoll una
Scatter Name Thisform.oRecord Memo eklemeyi unutmuşum ekleyince framler refre oldu

15

Re: Page Frame

gözünaydin  smile
mesajını yazarken altta eklenti baslikli bir textbox ve browse butonu goreceksin bu sekilde eklenti yapabilirsin

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

16

Re: Page Frame

soykanozcelik yazdı:

gözünaydin  smile
mesajını yazarken altta eklenti baslikli bir textbox ve browse butonu goreceksin bu sekilde eklenti yapabilirsin


bende öyle şeyler çıkmıyor. belki admin omak gerekiyor bunun için sad
bede şunlar var
Bu Postadaki Gülenyüzleri Gösterme
Bu Konuya Üye Ol
geçiş yap.

17

Re: Page Frame

bu kod işime çok yarıyor. big_smile