<![CDATA[Fox4um - Formlar]]> 2012-01-31T09:47:58Z PunBB http://www.fox4um.com/ <![CDATA[Formdaki grid]]> Bir formdaki gride focus olamıyorum.
Formun dışında desktopla başka bir programa tıkladığımda yani formdan uzaklaştığımda tekrar formun içindeki gride tıklarsam gride focus olamıyorum.
Önce Formun header'ına tıklayıp formu focuslamam gerekiyor, sonra da içindeki gride tıklayabiliyorum.
Direkt gride tıklayarak focus olmanın bir yolu var mı acaba ?
Yanlış bir property mi ayarladım bilemiyorum.
Şimdiden teşekkürler

]]> http://www.fox4um.com/user/3087/ 2012-01-31T09:47:58Z http://www.fox4um.com/topic/2108/formdaki-grid/new/posts/ <![CDATA[MessageBox]]> MessageBox(' Seçim Yapınız', 'Uyarı !!!!!')

bu uyarı yazısını ekranın istediğimiz bir yerine yazdırabilirmiyiz ?

]]> http://www.fox4um.com/user/31/ 2012-01-31T09:05:37Z http://www.fox4um.com/topic/2061/messagebox/new/posts/ <![CDATA[combobox]]> combobox da aradığımız kaydı ararken
Ör. "A" yazdığımızda a ile başlayan kayıtlara konumlanmasını (Ekranda göstermesini),
yanına "K" yazdığımızda "AK" ile başlayan kayıtların gelmesini sağlayabilirmiyiz ?

Ya da bunu combobox dişinda bir şekilde yapabilirmiyiz ?

Teşekkürler.

]]> http://www.fox4um.com/user/31/ 2012-01-30T12:16:49Z http://www.fox4um.com/topic/2079/combobox/new/posts/ <![CDATA[PageFram.Page de AddObject ?]]> Merhabalar;

Bir pageframe içindeki herhangi bir page in INIT() event ın da şöyle bir şey yapabiliyormuyum?

Visual Fox Pro
1

2

This.AddProperty(This,"CursorSavedStatus",.F.)

This.AddProperty(This,"CursorSavedNo",0)

Yoksa uzun yola devam edip _Screen.Addproperty ..... ile devam mı etmeliyim?

]]> http://www.fox4um.com/user/30/ 2012-01-19T14:43:22Z http://www.fox4um.com/topic/2097/pageframpage-de-addobject/new/posts/ <![CDATA[Görsel formlar]]> Şöyle hoş görünümlü, cafcaflı formlar ve elemanlarını kullanabileceğim ücretli, ücretsiz eklentiler var mı acaba ?
Standart foxpro formlarının görüntüsünü ne ile değiştirebilirim ?

]]> http://www.fox4um.com/user/3087/ 2012-01-14T17:15:51Z http://www.fox4um.com/topic/2094/gorsel-formlar/new/posts/ <![CDATA[select komutu]]> Select komutu ile bir dosya içindeki bilgileri başka bir dosyaya aktarmak istiyorum.

select * from Kk.DBF where aa<>"E" into table A1.DBF

Komutu bunu yapıyor.

Ama benin "kk.dbf" dosyamda silinmiş işaretli kayıtlarım var. Bu işlemden sonra
oluşan "a1.dbf" dosyasında bu silinmiş kayıtların işaretli olarak aktarılmıyor.

Bunu nasıl yapabilirim ?

Teşekkürler

]]> http://www.fox4um.com/user/31/ 2012-01-12T14:27:45Z http://www.fox4um.com/topic/2092/select-komutu/new/posts/ <![CDATA[Bar ve % gösterimle yükleme bilgisi]]> Formda Uzun süren bir işlem sırasında işlemin % 10-%20 ......... %100 şeklinde
bittiğini ekrana yazdırıp aynı zamanda windows yükleme programlarında
olduğu gibi bu değeri aynı zamanda bir bar çubukla nasıl gösterebiliriz ?

Bar için hazır grafik kullanmak daha mi iyi olur ?

Teşekkürler

]]> http://www.fox4um.com/user/31/ 2011-12-18T19:18:10Z http://www.fox4um.com/topic/1825/bar-ve-gosterimle-yukleme-bilgisi/new/posts/ <![CDATA[mail olarak gönderme]]> "Gönder" tuşuna basıldığında daha önceden tanımlanmış olan bir mail adresine otomatik olarak mail göndermek istiyorum.

Gönderi sırasında programın örneğin. "/LISTE/rapor.xls" liste klasöründe bulunan rapor.xls dosyası da eklenıp gönderilecek.

Yapılabilirmi ?

Teşekkürler...

]]> http://www.fox4um.com/user/31/ 2011-12-13T09:38:36Z http://www.fox4um.com/topic/2070/mail-olarak-gonderme/new/posts/ <![CDATA[grid de kaymalar]]> Her zaman olmamakla beraber GRID te

18 kolon kullanmak istediğimiz halde

ColumnCount = 18

kullanığımız halde "SAĞA - SOLA " kaydırma çubugu kullanıldığımızda
18 kolonun tamamı ekranda görünmüyor.

nedeni ne olabilir ,

özellikle

            .Column2.Width = 180

yüksek kullanıldığı zamanlar.

çözüm olarak

"ColumnCount = 18" değeri yükseltiğinde diğer kolonların görünmesi sağlanabiliyor.

nedeni ne olabilir ?

]]> http://www.fox4um.com/user/31/ 2011-12-11T18:11:44Z http://www.fox4um.com/topic/2072/grid-de-kaymalar/new/posts/ <![CDATA[ilk değer atama]]> Add Object txtUygunluk As myTextBox With ;
      Top = 152, ;
      left = 165, ;
      Width = 20, ;
      BackColor = 65535, ;
      InputMask = "X", ;
      Enabled = .F.


oluşturulan bir objenin ilk değer atamasını nasıl yapabiliriz ?

Örneğin yukarıdaki objeye ilk değer olarak "E" atamak istiyorum.

Teşekkürler.

]]> http://www.fox4um.com/user/31/ 2011-12-08T15:38:55Z http://www.fox4um.com/topic/2071/ilk-deger-atama/new/posts/ <![CDATA[excel e çıkarma]]> Excel e datayı çıkartırken 1. satısı istediğimiz gibi düzenleyebilirmiyiz ?

Teşekkürler

]]> http://www.fox4um.com/user/31/ 2011-12-08T14:40:08Z http://www.fox4um.com/topic/2069/excel-e-cikarma/new/posts/ <![CDATA[seçilen değerden başka değişlenlere değer aktarmak]]> Yeni kayıt tuşuna bastıktan sonra
- OBJECT Islem1
- Object txtFiyat
- Object txtDoviz

.T. yapılıyor. Bunlar alt alta sıralı.
Yapmak istediğim :
- "OBJECT Islem1 " de seçimi yaptığım zaman
- Seçilen değerin "Ucret.fiyat" değerini "Object txtFiyat" a ,
   "Ucret.doviz" değerini "Object txtDoviz" değerine aktarıp
   gerekirse "Object txtFiyat" ve "Object txtDoviz" değerlerinde
   değişiklik yapabilmek

  Bunu nasıl yapabilirim ? "OBJECT Islem1" ile "Object txtFiyat"  arasına
  kod eklemek mi gerekiyor ?
 

  Teşekkürler.

*===========================================
ADD OBJECT Islem1 AS combobox WITH ;
     Top = 52, ;
     left = 385, ;
     Width = 200, ;   
     BackColor = 65535, ;
     rowsourcetype=2,;
     rowsource="Ucret.adi,no,fiyat,doviz",;
     boundcolumn=4,;
     columncount=4,;
     columnwidths="100,60,30,10",;
     Enabled = .T.

Add Object txtFiyat As myTextBox With ;
     Top = 77, ;
     left = 165, ;
     Width = 80, ;
     BackColor = 65535, ;
     InputMask = "999,999.99", ;
     Enabled = .T.

  Add Object txtDoviz As myTextBox With ;
       Top = 77, ;
       left = 255, ;
       Width = 20, ;
       BackColor = 65535, ;
       InputMask = "9", ;
       Enabled = .T.

]]> http://www.fox4um.com/user/31/ 2011-12-03T06:23:17Z http://www.fox4um.com/topic/2067/secilen-degerden-baska-degislenlere-deger-aktarmak/new/posts/ <![CDATA[GRID TAZELEME]]> 1-Git1 = "0"        Program başında "Git1" değişkenine "0" değeri atıyorum.
2- GRID de

             IF git1="0"
                musf1="ucret.mf0"
                musf2="ucret.md0"
             ELSE
                musf1="ucret.mf"+VAL(git1)
                musf2="ucret.md"+VAL(git1)
             ENDIF   

            .Column5.Header1.Caption = 'İşem Fiyatı'
            .Column5.Width = 90       
            .Column5.ControlSource = "&musf1"

            .Column6.Header1.Caption = 'Döviz'
            .Column6.Width = 50       
            .Column6.ControlSource = "&musf2"

    6. ve 7. kolunda "0" değerini gösteriyorum.

3- "Procedure PPEdit " te "Git1" e yeni bir değer atadım ve "GRID" i tazeledim.

       git1=.FatFirma1.value

        .grdListe.Refresh()
        .grdListe.SetFocus()

4- Amacım yeni atanan değere göre "ELSE den sonraki kısım" GRID te göstermek. Ama GRIDI tazelediğim halde olmadı .Sorun nerede olabilir ?

             IF git1="0"
                musf1="ucret.mf0"
                musf2="ucret.md0"
             ELSE
                musf1="ucret.mf"+VAL(git1)
                musf2="ucret.md"+VAL(git1)
             ENDIF   

            .Column5.Header1.Caption = 'İşem Fiyatı'
            .Column5.Width = 90       
            .Column5.ControlSource = "&musf1"

            .Column6.Header1.Caption = 'Döviz'
            .Column6.Width = 50       
            .Column6.ControlSource = "&musf2"


!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

  ADD OBJECT FatFirma1 AS combobox WITH ;
      Top = 2, ;
      left = 330, ;
      Width = 150, ;   
      BackColor = 65535, ;
      rowsourcetype=2,;
      rowsource="Musteri.adi,no",;
      boundcolumn=2,;
      columncount=2,;
      columnwidths="250,60,0",;
      Enabled = .T.

******************************************************************
Procedure ppEdit
******************************************************************
    With oForm


        git1=.FatFirma1.value

        .grdListe.Refresh()
        .grdListe.SetFocus()

    EndWith
EndProc

******************************************************************
Define Class myGrid as Grid
******************************************************************
*    Top = 62
    Top = 140
    Left = 2
    Height = 400
    Width = 1045
    ColumnCount = 6
    DeleteMark = .F.
    RecordMark = .t.
    ReadOnly = .T.
    RecordSource = "ucret"
    ScrollBars = 3
    GridLineColor = Rgb(192,192,192)
   
    Procedure Init
        With this
*       Scatter Name This.oRecord Memo

            .Column1.Header1.Caption = 'Sıra'
            .Column1.Width = 30       
            .Column1.ControlSource = "ucret.no"

            .Column2.Header1.Caption = 'İşlem Adı'
            .Column2.Width = 230       
            .Column2.ControlSource = "ucret.adi"

            .Column3.Header1.Caption = 'İşem Fiyatı'
            .Column3.Width = 90       
            .Column3.ControlSource = "ucret.fiyat"

            .Column4.Header1.Caption = 'Döviz'
            .Column4.Width = 50       
            .Column4.ControlSource = "ucret.doviz"

             IF git1="0"
                musf1="ucret.mf0"
                musf2="ucret.md0"
             ELSE
                musf1="ucret.mf"+VAL(git1)
                musf2="ucret.md"+VAL(git1)
             ENDIF   

            .Column5.Header1.Caption = 'İşem Fiyatı'
            .Column5.Width = 90       
            .Column5.ControlSource = "&musf1"

            .Column6.Header1.Caption = 'Döviz'
            .Column6.Width = 50       
            .Column6.ControlSource = "&musf2"


        EndWith
    this.SetAll('Enabled',.f.,'textbox')
    this.SetAll('DisabledForeColor',0,'textbox')

    EndProc
   
    Procedure AfterRowColChange
        Lparameters nColIndex
        DoDefault(nColIndex)
        With oForm

            .txtadi.Value     = Adi
               .txtfiyat.Value    = Fiyat
               .txtdoviz.Value    = Doviz

        EndWith
       Thisform.Refresh()
    EndProc
EndDefine

]]> http://www.fox4um.com/user/31/ 2011-11-24T13:36:42Z http://www.fox4um.com/topic/2059/grid-tazeleme/new/posts/ <![CDATA[ERROR 1940 hatası alıyorum.]]> SET FILTER TO kno=.txtKno.Value

komutunu kullanıdığım zaman

ERROR 1940 hatası alıyorum.

kno    C 15
txtKno.Value C15

kno dosya icindeki bi kayıt adı.

Bu hatayı neden veriyor olabiir ?

]]> http://www.fox4um.com/user/31/ 2011-11-17T16:01:41Z http://www.fox4um.com/topic/2053/error-1940-hatasi-aliyorum/new/posts/ <![CDATA[değişken nerede ?]]> ADD OBJECT Musteri1 AS combobox WITH ;
      Top = 202, ;
      left = 385, ;
      Width = 150, ;   
      BackColor = 65535, ;
      rowsourcetype=2,;
      rowsource="Musteri.adi,no",;
      boundcolumn=3,;
      columncount=3,;
      columnwidths="250,60,0",;
      Enabled = .F.

ile combobox kullanımında

".Musteri1.Value" da

adi veya no degerini alamıyorum.

bu değişkeni örneğin

a=.Musteri1.Value

olarak başka bir yerde kullanmak istiyorum.

Nasıl alabilirim ?

Teşekkürler.

]]> http://www.fox4um.com/user/31/ 2011-11-15T14:33:57Z http://www.fox4um.com/topic/2050/degisken-nerede/new/posts/