1 Konuyu açan mrduyar

  • mrduyar
  • Üye
  • Offline
  • Yer: Antalya
  • Kayıt Tarihi: 09.10.2006
  • İleti: 514

Konu: Command Click Oncesi Procedure

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?

Son düzenleyen, mrduyar (29.07.2009 10:34:42)

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

mrduyar's Website

2 Cevaplayan ugurlu2001

  • ugurlu2001
  • Üye
  • Offline
  • Yer: Istanbul
  • Kayıt Tarihi: 11.10.2006
  • İleti: 1,052

Re: Command Click Oncesi Procedure

Ramazan; anlayamadığım şu: zaten Command click e tıkladığında gerekli kodu yada metodu çalıştırmıyormusun?  Sorunu tam anlayamadım.

Son düzenleyen, ugurlu2001 (29.07.2009 11:57:55)

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ü

3 Cevaplayan mrduyar

  • mrduyar
  • Üye
  • Offline
  • Yer: Antalya
  • Kayıt Tarihi: 09.10.2006
  • İleti: 514

Re: Command Click Oncesi Procedure

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!

Son düzenleyen, mrduyar (29.07.2009 14:04:53)

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

mrduyar's Website

4 Cevaplayan ugurlu2001

  • ugurlu2001
  • Üye
  • Offline
  • Yer: Istanbul
  • Kayıt Tarihi: 11.10.2006
  • İleti: 1,052

Re: Command Click Oncesi Procedure

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

Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

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

Son düzenleyen, ugurlu2001 (29.07.2009 15:37:41)

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ü