FiveTech Software tech support forums

Code: Select all

function Main()

   local oWnd, oFont
   local cName1 := "first     ", nLen1  := 10, cType1 := "C"
   local cName2 := "last      ", nLen2  := 10, cType2 := "C"
   local cName3 := "address   ", nLen3  := 10, cType3 := "C"

   local lvale:= .t.

   DEFINE FONT oFont NAME "Arial" SIZE 0, -10

   DEFINE WINDOW oWnd TITLE "Tutor05"

   @ 1, 2 SAY "Create DBF Test" SIZE 100, 20 COLOR "R+/B" FONT oFont

   @ 3, 2 SAY " FieldName   Type   Len" SIZE 150, 20 COLOR "GR+/G"

   @ 6,  2 GET cName1 SIZE 60, 20 when .f.
   @ 6, 11 GET cType1 SIZE 20, 20
   @ 6, 15 GET nLen1  SIZE 30, 20 PICTURE "999"

   @ 8,  2 GET cName2 SIZE 60, 20 when lvale
   @ 8, 11 GET cType2 SIZE 20, 20
   @ 8, 15 GET nLen2  SIZE 30, 20 PICTURE "999"

   @ 10,  2 GET cName3 SIZE 60, 20 when !lvale
   @ 10, 11 GET cType3 SIZE 20, 20
   @ 10, 15 GET nLen3  SIZE 30, 20 PICTURE "999"
   
   @ 10, 2 BUTTON "&Create" SIZE 60, 30 ACTION ( DbCreate( "test.dbf",;
                                                         { { cName1, cType1, nLen1, 0 },;
                                                           { cName2, cType2, nLen2, 0 },;
                                                           { cName3, cType3, nLen3, 0 } } 

),;
                                                 MsgInfo( "test.dbf created!" ) )
                                                           
   @ 12, 2 BUTTON "&End"    SIZE 60, 30 ACTION oWnd:End()

   ACTIVATE WINDOW oWnd
   
return nil