Konu: FARMDA TANIMLANAN BİR DEĞİŞKENİ BAŞKA BİR FORMDA AYNI DEĞERLE KULLANMA
Bir formda tanımlanan bir değişkeni , atanmış içeriği ile başka formlarda nasıl kullanabiliriz ?
Teşekkürler.
Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
Bir formda tanımlanan bir değişkeni , atanmış içeriği ile başka formlarda nasıl kullanabiliriz ?
Teşekkürler.
bilmiyorum soruyu doğru mu anladım ?
bir form dan diğer bir forma parametre aktarmak ise bir kaç yolu var
1. yöntem
birinci form a bir tane buton koy
butonun click ine
Do Form ikinciform With 'yenideger'
yaz
ikinci formunun adı ikinciform olsun
bunun un init ine
Lparameters gelendegisken yaz
burda gelendegisken="yenideger"
olur
2. yöntem
public gelendeğisken
gelendeğişken="yenideger"
Do Form ikinciform
* bu değişkenle işin bitince
release gelendeğisken
kendini fazla public değişken kullanmaya alıştırma programcılık olarak birincisi daha doğru
formun üzerinde değişken tanımlamak var ama sen daha başındasın galiba
genel olarak bir form içinde yeni bir özellik ekleyebiliyorsun form1.degisken gibide kullanılır
Asıl yapmak istediğim :
ana.prg
programım var.
ana.prg de
*****************
PUBLIC personelno
personelno=0
**********************
kullandım.
Şifre soran bir sifre.prg programını
DO sifre
olarak çağırıyorum.
sifre.dbf de form u kodlarla yazıyorum.
burada
add Object txtpersonelno As myTextBox With
de txtpersonel noyu okuttuktan sonra
personelno=.txtpersonelno.Value
şeklinde aktarıyorum ve
ana.prg ye dönyorum.
? personelno
diye sorduğumda personel no değerini alamıyorum..
Sorun nerededir ?
PUBLIC personelno
personelno=0
thisform.txtpersonelno.Value den dönen değer sayı değil sayıya çevirsene val(.... ) yapabilirsin
personelno = VAL(thisform.txtpersonelno.Value)
olursa muhtemelen çalışır
dikkat sifre.dbf de personelno isimli eleman olmasın.
public değişken tüm heryerde kullanılabilirmi formun load eventinde tanımladığım değişken formun başka yerinde if le almay çalıştığımda uyarı veriyor.
form loadda
deger=0
bir butonun clickinde
if deger=0
deger=1
else
seek arama
repl yetkisizgiris=yetkisizgiris+1
deger=0
endif
neden hata veriyor ife girmeden ifin ilk başında
Çetin Hoca Public tanımlamaya kızıyor ama illa yapacaksan
deger=0
dan önce
PUBLIC deger
komutunu girmelisin.
Public kullanirsan "kendi dusen aglamaz":) VFP'de public diye bir komut varligini unut.
Formun Load eventinde degisken tanimlamak anlamsiz. Init'i kullan (form parametre aliyorsa, aldigi yer de Init zaten). Degisken yerine, property kullan. O zaman hem istedigin gibi formun her yerinde mevcut olur hem de "public" kullanip kendi topugundan vurulmamis olursun:
* form.Init
this.AddProperty( 'deger', 0)
* Bu da buton.click duzeltilmis hali (replace icinde = ne alaka?)
if thisform.deger=0
thisform.deger=1
else
seek arama
repl yetkisizgiris=yetkisizgiris+1
thisform.deger=0
endif
tamam çetin hocam
kullanmam sizlere bir sorum olucak program diyagram şema çıkartabilmemize yardımcı olucak program varmıdır.
birde fox proyu çok iyi bilen ve iş arayan birileri varmıdır kpss ye girmiş amirleri sıkıştıram bir personel alalım.
diagram sema derken ne demek istedigin onemli. SQL server, visio, visual studio ve Silverlight ilk aklima gelenler.
anladım abi bunları bir araştırırım
tamam çetin hocam
kullanmam sizlere bir sorum olucak program diyagram şema çıkartabilmemize yardımcı olucak program varmıdır.birde fox proyu çok iyi bilen ve iş arayan birileri varmıdır kpss ye girmiş amirleri sıkıştıram bir personel alalım.
biz çok aradık bulamadık.
moderom yazdı:tamam çetin hocam
kullanmam sizlere bir sorum olucak program diyagram şema çıkartabilmemize yardımcı olucak program varmıdır.birde fox proyu çok iyi bilen ve iş arayan birileri varmıdır kpss ye girmiş amirleri sıkıştıram bir personel alalım.
biz çok aradık bulamadık.
abi gel seni işe alalım sivil memur yapalım sadece sigorta ve maaş programı yazıcan başka bişi yok maaşta olgun dolgun olur :-)
o zaten memur...
medikal doktor olduğu halde bu yolu seçmiş...
Metin,
Niye kismetimi kesiyorsun:) Belki dolgun maas hakikaten dolgundur. Ben acikcasi bana sekreter maasi verecek yer bulsam gecicem (tabii nerenin sekreteri olduguna bagli galiba).
hehe... devlette dolgun maaş olmaz. olsaydı daha 19 yaşında demiryollarının teklifini kabul eder, devlet memuru olurdum. sen neden devleti bırakıp tamamen kendini o üniversite programına vermiyorsun anlayamıyorum (aslında anlıyorum, bir doktor arkadaşım var acıbadem ve amerikan hospital'e nöbete gidiyor ama sırf eşinin ısrarı yüzünden devlet memurluğunu da bırakmıyor, seninki de aynı durumdur heralde).
güzel sekreterlik bir chp'de vardı. o da tüzük değişikliğinin uygulamaya geçmesiyle bitti...
Sabah neşesi oldunuz
Metin, Çetin Üstad 'ın sekreterlik esprisi LightSwitch e göndermeydi. Yada ben öyle anladım
Evet aynen "es durumundan":) Yok benim kastettigim bizzat Turkiye'de, Istanbul'da adi lazim degil bir sirketin yonetici sekreterligi. Lise mezunu olmak yetiyor ve benden cok daha fazla kazaniyor (kiskaniyor muyum? Hayir desem yalan:). Siyasetle ilgili olsaydi ya gemicikte calisirdim ya da yumurta isinde filan.
valla abi maaşlar dolgun bizdeki programcı kadrosundaki memurlar 2000 tl civarı alıyorlar artı zorunlu tasarrufları var (oyak KÖBF) falan onlar kesilmese 2500 rahat alırlar.imreniyorum ama onlardan fazla ben uğraşıyorum programlarla onlar yerinde oturuyor isyan bayrağını dikeyim bali.
birde abi bu arada nerelerde çalışıyorsunuz ne işlerle meşgulsunuz. ben eskişehirdeyim hvkk da sefil memurum.
Evet aynen "es durumundan":) Yok benim kastettigim bizzat Turkiye'de, Istanbul'da adi lazim degil bir sirketin yonetici sekreterligi. Lise mezunu olmak yetiyor ve benden cok daha fazla kazaniyor (kiskaniyor muyum? Hayir desem yalan:). Siyasetle ilgili olsaydi ya gemicikte calisirdim ya da yumurta isinde filan.
arkadaşımın eşi bizzat tayyib erdoğan'ın sekreteriydi (başbakan olmadan çok önce). kanada'ya göç ettiler. sonra başbakan olunca "ya bak dedim şimdi başbakan sekreteri olacaktı, pişman mısın?". "isterse c.başkanı olsun, değilim burası çok güzel" dedi arkadaş.
valla abi maaşlar dolgun bizdeki programcı kadrosundaki memurlar 2000 tl civarı alıyorlar artı zorunlu tasarrufları var (oyak KÖBF) falan onlar kesilmese 2500 rahat alırlar.imreniyorum ama onlardan fazla ben uğraşıyorum programlarla onlar yerinde oturuyor isyan bayrağını dikeyim bali.
birde abi bu arada nerelerde çalışıyorsunuz ne işlerle meşgulsunuz. ben eskişehirdeyim hvkk da sefil memurum.
dolgun değil bence. ben istanbulda yazılım geliştiriciyim. bence dolgun maaş 5000'den başlar, üst sınırı olmaz. ne verirlerse alırım, geri çevirmem. )
yani yabancı memleket başka burda hayatmı var abi keşke bizlerde gidebilmenin yollarını bulupta gidebilseydik ben daha türkiyedeki 81 ilin 20 sini anca gezmişim onuda ayrıntılı değil 1 2 gün kalıp ayrılmışım başka yer bilmem yurt bilmem