Konu: oForm.Show(1) hatası
Aşaıdaki kod
oForm.Show
kullanıldığında DOĞRU ÇALIŞIYOR.
oForm.Show(1)
kullanıldığında
PROCEDURE ana içindeki İŞLEMLERİ YAPMIYOR.
Neden olabilir ?
Teşekkürler
***************************************************************************
Clear All
SET TALK OFF
SET NOTIFY OFF
SET CURSOR ON
ON ERROR DO HATA
Public oForm
oForm = Createobject("dosya")
oForm.Show
*(1)
oForm.ana
oForm.Release
Define Class dosya As Form
DataSession = 2
Top = 20
Left = 70
Height = 80
Width = 150
Name = "dosyabak"
Caption = "D.B."
orecord = .Null.
ADD OBJECT lblyuzde AS label WITH ;
FontSize = 26, ;
FontBold = .T., ;
Caption = "yuzde", ;
Enabled = .F., ;
Height = 37, ;
Left = 25, ;
Top = 20, ;
Width = 110, ;
DisabledForeColor = RGB(0,128,0), ;
Name = "lblyuzde"
PROCEDURE ana
m.lnResult = MessageBox('D.B.İşlemini Başlatmak'+Chr(13)+'İstediğinize Eminmisiniz?', ;
4+32+256, 'D.B.İşlemini Başlatmak')
If lnResult = 6
*((((((((((((((((((((((((((((((((((((((((
**
USE mer
PACK
**
USE mer2
PACK
SET EXCLUSIVE OFF
*))))))))))))))))))))))))))))))))))))))))
MessageBox('D.B. İşlemi'+Chr(13)+'Başarıyla Tamamlandı', 64,'D.B. İşlemi')
EndIf
this.refresh
return .t.
ENDPROC
*================================================================
Procedure Load
SET TALK OFF
SET NOTIFY OFF
SET DELE ON
SET ESCAPE OFF
SET ECHO OFF
SET TALK OFF
SET DATE TO BRITI
SET CENT ON
set safe off
SET EXCLUSIVE ON
Datasession = 2 && Private session
Endproc
PROCEDURE Init
this.lblyuzde.enabled = .f.
this.lblyuzde.caption = '% '
ENDPROC
Enddefine
PROCEDURE HATA
*? ERROR()
*? MESSAGE()
*WAIT
RETURN