屋價網 - 資料庫

  IF .F.
    __dbCreate( "TEMP" )
    DBAPPEND()
    FIELD->FIELD_NAME := "A0101"
    FIELD->FIELD_TYPE := "C"
    FIELD->FIELD_LEN := 20
    FIELD->FIELD_DEC := 0
    DBAPPEND()
    FIELD->FIELD_NAME := "A0102"
    FIELD->FIELD_TYPE := "C"
    FIELD->FIELD_LEN := 20
    FIELD->FIELD_DEC := 0
//總價
    DBAPPEND()
    FIELD->FIELD_NAME := "A0103"
    FIELD->FIELD_TYPE := "N"
    FIELD->FIELD_LEN := 10
    FIELD->FIELD_DEC := 0  
//坪數
    DBAPPEND()
    FIELD->FIELD_NAME := "A0104"
    FIELD->FIELD_TYPE := "N"
    FIELD->FIELD_LEN := 6
    FIELD->FIELD_DEC := 2  
//房
    DBAPPEND()
    FIELD->FIELD_NAME := "A0105"
    FIELD->FIELD_TYPE := "N"
    FIELD->FIELD_LEN := 2
    FIELD->FIELD_DEC := 0  
//廳
    DBAPPEND()
    FIELD->FIELD_NAME := "A0106"
    FIELD->FIELD_TYPE := "N"
    FIELD->FIELD_LEN := 2
    FIELD->FIELD_DEC := 0  
//衛
    DBAPPEND()
    FIELD->FIELD_NAME := "A0107"
    FIELD->FIELD_TYPE := "N"
    FIELD->FIELD_LEN := 2
    FIELD->FIELD_DEC := 0  
//車
    DBAPPEND()
    FIELD->FIELD_NAME := "A0108"
    FIELD->FIELD_TYPE := "N"
    FIELD->FIELD_LEN := 2
    FIELD->FIELD_DEC := 0  
//車價
    DBAPPEND()
    FIELD->FIELD_NAME := "A0109"
    FIELD->FIELD_TYPE := "N"
    FIELD->FIELD_LEN := 10
    FIELD->FIELD_DEC := 0  
//車坪
    DBAPPEND()
    FIELD->FIELD_NAME := "A0110"
    FIELD->FIELD_TYPE := "N"
    FIELD->FIELD_LEN := 6
    FIELD->FIELD_DEC := 2  
    DBCLOSEAREA()
    __dbCreate( "TBA01", "TEMP" )
  ENDIF