http://projetosec.codeplex.com/

We just released Visual Studio LightSwitch Beta 1 to MSDN subscribers. Public availability will be this Monday, August 23rd but if you are an MSDN subscriber visit your subscriptions page to get access to the download now. Otherwise check the the LightSwitch Developer Center on Monday for the public download.

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

DEFINE CLASS Kons AS Custom

    vertarih=CTOD("")

    isteyen=""

    neden=""

    teden=""

    talan=""

    yakin=""

    iletisim=""

    blok=.F.

    bloksayi=0

    blokistem=.F.

    he=.F.

    hesayi=0

    heistem=.F.

    ihk=.F.

    ihksayi=0

    ihkistem=.F.

    sito=.F.

    sitosayi=0

    sitoistem=.F.

    boyasiz=.F.

    boyasizsay=0

    doku=.F.

    notlar=""

    geritarih=CTOD("")

    gerinotlar=""

    geriblok=0

    gerihe=0

    gerihk=0

    gerisito=0

    sonuc=""

    sontarih=CTOD("")

    sonrapor=.F.

    tutanakbas=CTOT("")

ENDDEFINE

şeklinde bir klasım var. Buna uygun olarak bir obje yaratıyorum.

1

o1=CREATEOBJECT("kons")

Daha sonra bu objenin property lerine değerler atıyorum. Örneğin o1.vertarih=date() gibi. Programımın bir yerinde bu objenin propertyler ve değerleriyle aynı olan bir klon oluşturmam gerekiyor. Bunun için daha önceki sorumda Çetin'in verdiği aşağıdaki procedure'ı kullanmak istediğimde  CONTROLS is not an object gibi bir hata mesajı veriyor.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

Procedure KlonObject( toSource, toTarget )

  Local ix,jx

  Local Array aEleman[1]

  For ix=1 To Amembers(aEleman, toSource)

    Do Case

      Case Type( 'toSource.'+aEleman[m.ix] , 1) = 'A'

        AddProperty( toTarget, ;

          aEleman[m.ix]+'['+Transform(Alen(toSource.&aEleman[m.ix].))+']' )

        For jx=1 To Alen(toSource.&aEleman[m.ix].)

          If Type('toSource.'+aEleman[m.ix]+'[m.jx]') = 'O'

            toTarget.&aEleman[m.ix].[m.jx] = Createobject('Empty')

            KlonObject(toSource.&aEleman[m.ix].[m.jx],toTarget.&aEleman[m.ix].[m.jx])

          Else

            toTarget.&aEleman[m.ix].[m.jx] = toSource.&aEleman[m.ix].[m.jx]

          Endif

        Endfor

      Case Type( 'toSource.'+aEleman[m.ix]) = 'O'

        AddProperty( toTarget, aEleman[m.ix], Createobject('Empty') )

        KlonObject( toSource.&aEleman[m.ix]. , toTarget.&aEleman[m.ix]. )

      Otherwise

        AddProperty( toTarget, aEleman[m.ix], Evaluate('toSource.'+aEleman[m.ix]))

    Endcase

  Endfor

Endproc

Nerede hata yapıyorum bir türlü anlayamadım.
Teşekkürler şimdiden.

1

2

SET MEMOWIDTH TO 60

MODIFY MEMO notlar

istediğim oluyor.
Lütfen Yardımlarınızı esirgemeyiniz.
Yardımcı olacak arkadaşlara şimdiden çok teşekkür ederim.
Sevgilerimle.
Erdal

Yapmak istedigim word oluşturdukdan sonra
sayfa sonuna page x of y nasıl eklerim

1

lodoc.Sections(1).Footers(1).Range.InsertAfter(_pageno)

bu yeterli degil
sayfa sayısı nın yanına toplam sayfayıda koymalıyım

page 1 of 4
page 2 of 4

vs vs gibi

yapıyorum. komuta ragmen tüm kayıtları gösteriyor ?

Teşekkürler.

Teşekkürler.

önce vfp datasını  xml le çevirip denedim oluyor fakat sürekli update edildiği
için anında update edilmiş data yı alamayabilirim. xml büyük datalarda yavaş olur herhalde

sonra sürekli update edilen  VFP database e  direk .NET den erişmeyi denedim  o da oluyor

windows 2000 veya 2003 serverda sürekli kullanılan update edilen  VFP database i 
dışardan .net den erişsem   bu bilgileri update etsem  pratikte ne sorun çıkar

teşekkürler

ilgilenenlere .net den vfp ya erişmeyide göndermiş olayım  belki sonra işinize yarar

1

2

3

4

5

6

7

8

9

10

11

DataSet ds = new DataSet(); 

            OleDbConnection baglanti = new OleDbConnection(); 

            baglanti.ConnectionString = "Provider=VFPOLEDB.1;Data Source=C:\\adres\\genel.dbc";

            baglanti.Open();

            string Goster = "Select * from adres";

            OleDbDataAdapter Adapter = new OleDbDataAdapter(Goster, baglanti);

            Adapter.Fill(ds, "Tablo");

            dataGridView1.DataSource = ds;

            dataGridView1.DataMember = "Tablo"; 

            baglanti.close();

            // burda birde OLEDBPROIDER For vfp yu instal etmeniz gerekiyor

Label

Texbox

bölümlerinde ayrı özellikte fontları nasıl kullanabiliriz ?

Teşekkürler