Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
Selamlar;
1 adet class formum var üzerinde 1 adet command1 buton var.
Bu butonda kayit işlemi yapılıyor.
Ben bir user log yaptım buton tıklandığında onun çalışmasını istiyorum.
Sorun:
Command button click öncesi hangi procedure çalışır veya öneriniz nedir?
Ramazan; anlayamadığım şu: zaten Command click e tıkladığında gerekli kodu yada metodu çalıştırmıyormusun? Sorunu tam anlayamadım.
class forma da kayıt butonu click inde
tableupdate()
thisform.release
gibi satırlar var.
benim kayıttan önde değişen bilgileri başka bir table a kayıt yapmam gerekiyor.
Çünkü bazı formlarda bu butonunun class bilgilerini kullanmıyorum!
Forma yeni bir Metod ekleyerek sorununu çözebilirsin. Formu parametre ile çalıştır ve eğer parametre istediğin değerse butonun Click eventında parametre değerini kontrol edip ThisForm.MySelectedMedtoh() şeklinde çalıştırırsın
PUBLIC oForm
oForm = CreateObject("MyForm","MyParameter1")
oForm.AddObJect("cmdMyButton","MyButton")
oForm.Show()
READ EVENTS
DEFINE CLASS MyForm As Form
PROCEDURE TodoMe
*!* .....
MessageBox("Seçimlik Yapılıcak İşlemler",0+48,"Parametre ile çalıştı",4)
ENDPROC
PROCEDURE Init
PARAMETERS tcParam1
IF Pcount() < 1 && OR Type(tcParam1) # "C"
MessageBox("Parametre Hatası", 0+16, "MyForm - Init")
ELSE
AddProperty(ThisForm,"GerekirseCalistir","")
This.GerekirseCalistir = "MyParameter1" && "MyParameter1" yerine başka bir şey yazarsan çalışmaz.
ENDIF
ENDPROC
ENDDEFINE
DEFINE CLASS MyButton As CommandButton
Top = 20
Left = 20
Height = 25
Width = 75
Enabled = .T.
Visible = .T.
Caption = "Durum ?"
PROCEDURE Click
IF ThisForm.GerekirseCalistir = "MyParameter1" && Eğer parametre istediğin değerdeyse
ThisForm.TodoMe()
ENDIF
ENDPROC
ENDDEFINE