FoxPro Tutorial & Source Code
* Author : Team of Pelagian Softwares
* Date : 28/03/2007
* Source : chtable.prg
* Description : Program to creat field in structure / table through coding
set talk off
set safe off
clear
do addField with "STUDENT", "FAT_NAME", "C", 30, 0
proc addField
para data2ch, fldname, fldtype, fldlen, flddec
procChk=.n.
use &data2ch
if type( fldname ) = 'U'
procChk=.y.
endI
clos data
if procChk
?"Creating Field",fldname,"in",data2ch
USE &data2ch
copy to temp for !dele()
USE TEMP
COPY TO SEXT STRUCTURE EXTENDED
use sext
appe blank
repl FIELD_NAME with fldname
repl FIELD_TYPE with fldtype
repl FIELD_LEN with fldlen
repl FIELD_DEC with flddec
USE
if file("TEMPX.OLD")
erase tempx.old
endI
RENAME TEMP.DBF TO TEMPX.OLD
CREATE TEMP FROM SEXT ALIAS cAlias
USE
USE TEMP
APPEND FROM TEMPX.OLD
clos data
USE TEMP
copy to &data2ch
clos data
else
?
?
?fldname,"Field already exist in",data2ch
endI
clos data
REturn .t.
Also download:
database/student.dbf
|
|
