new_txl.prg

来自「红狐VFP6通讯录V3.3,大家看看,可能会有帮助,好了」· PRG 代码 · 共 15 行

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: NEW_TXL.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 CREATE TABLE txl ( TXL_ID N ( 10 ) , XM C ( 12 ) , BM C ( 20 ) , NC C ( 10 ) , XB C ( 2  ;
      ) , DH C ( 6 ) , HF L NULL , NL N ( 3 ) NULL , CSRQ D , MZ C ( 4 ) ,  ;
      JG C ( 10 ) , XX C ( 4 ) , TZ C ( 30 ) , AH C ( 30 ) , RSTJ C ( 30 ) ,  ;
      JTDZ C ( 40 ) , JTYB C ( 6 ) , JTDH C ( 14 ) , JTZK M , GZDWMC C ( 30  ;
      ) , GZZW C ( 10 ) , GZDWDZ C ( 40 ) , GZYB C ( 6 ) , GZDH C ( 14 ) ,  ;
      GZZK M , BP C ( 14 ) , YDDH C ( 14 ) , QTLX M , EMAIL C ( 30 ) ,  ;
      HOMEPAGE C ( 30 ) , FAX C ( 14 ) , PHOTO G , BZ M , CREATE T , UPDATE T )
  MESSAGEBOX('已生成数据库 Txl.dbf ！',64,'通讯录')
*