start.prg

红狐VFP6通讯录V3.3,大家看看,可能会有帮助,好了

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: START.PRG(主文件) <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 DO FORM 开始画面 NAME OLOGOFORM
 SET TALK OFF
 SET SAFETY OFF
 SET ECHO OFF
 SET ESCAPE OFF
 SET NOTIFY OFF
 SET CENTURY ON
 SET DATE ansi
 SET HOURS TO 24
 SET CLASSLIB TO myclasslib.vcx
 SET CLOCK STATUS 
 SET HELP ON
 ON SHUTDOWN DO SHUTDOWN
 _SCREEN.CAPTION = '通讯录 - 红虎工作室'
 PUBLIC RUN_APPE , RUN_SEARCH , RUN_BROWSE , RUN_EDIT , CUR_PASS , CUR_PATH , BACK_BMP ,  ;
      SHOW_TOOLBAR , SHOW_STATUS , SEARCH_MODE , MAX_ID , CURRENT_ID
 PUBLIC NDELAY_BIRTH , ISAUTOMSG , ISPRINTCONFIG , ISPRINTPREVIEW
 PUBLIC OAPPEND , OBROWSER , OSEARCH , OQSEARCH , OEDIT , OABOUT , OSYS , OATTRIB ,  ;
      OFOUND , OPASSWORD , OOPTION , OEDITBAR , OBIRTHDAY
 PUBLIC CSF , NRECN , NRECC
 PUBLIC PRUN , SORT_XM , SORT_XB , SORT_JTDH , SORT_GZDH , SORT_YDDH , SORT_JTDZ
 PUBLIC MPAGE1 , MPAGE2 , MPAGE3 , MPAGE4
 PUBLIC ORDER_XM , ORDER_XB , ORDER_DH , ORDER_JTDZ , ORDER_GZDWMC
 PUBLIC VIEW_EMPTY , CCAPTION
 PUBLIC RECEIVER_ADDRESS , RECEIVER_NAME , ISZHIWU , RECEIVER_TYPE , ISSEND_ADDRESS ,  ;
      SEND_ADDRESS , SEND_POSTCODE , ISSEND_NAME , SEND_NAME
 IF FILE('txl.ini')
    RESTORE FROM txl.ini ADDITIVE
 ELSE 
    RUN_APPE = .T.
    RUN_SEARCH = .T.
    RUN_BROWSE = .T.
    RUN_EDIT = .F.
    CUR_PASS = 'Tiger'
    BACK_BMP = ''
    SHOW_TOOLBAR = .T.
    SHOW_STATUS = .T.
    SEARCH_MODE = .F.
    NDELAY_BIRTH = 0
 ENDIF 
 CUR_PATH = SYS(5) + SYS(2003) + '\'
 _SCREEN.PICTURE = BACK_BMP
 IF FILE('txl.dbf')
    CSF = 'txl.dbf'
 ELSE 
    NANSWER =  ;
         MESSAGEBOX('数据库文件不存在！' + CHR(13) + CHR(13) + '是否新建 Txl.dbf ？',19,'通讯录警告：')
    DO CASE 
    CASE NANSWER = 2
       RETURN 
    CASE NANSWER = 6
       DO NEW_TXL
       CSF = 'txl.dbf'
    CASE NANSWER = 7
       DO WHILE .T.
          CSF = UPPER(GETFILE('dbf'))
          IF  .NOT. '\TXL.DBF' $ CSF
             NANSWER = MESSAGEBOX('不是文件Txl.dbf！',21,'通讯录警告：')
             IF NANSWER = 4
                LOOP 
             ELSE 
                RETURN 
             ENDIF 
          ENDIF 
          EXIT 
       ENDDO 
    ENDCASE 
 ENDIF 
 CLOSE DATABASES 
 USE 
 SET MULTILOCKS ON
 SELECT 1
  use "&csf" Shared
 = CURSORSETPROP('Buffering',5,1)
 NRECN = RECNO(1)
 NRECC = RECCOUNT(1)
 DO ONLY_ID
 DO GET_MAX_ID
 DO menu.prg
 IF SHOW_STATUS
    SET STATUS BAR ON
 ELSE 
    SET STATUS BAR OFF
 ENDIF 
 SET MESSAGE TO '正在启动，请稍等...'
 IF ISAUTOMSG = .T.
    OBIRTHDAY = CREATEOBJECT('Birthday')
     OBIRTHDAY.SHOW
 ENDIF 
 _SCREEN.AUTOCENTER = .T.
 _SCREEN.WINDOWSTATE = 2
  _SCREEN.SHOW
 OMYTOOLBAR = CREATEOBJECT('MyToolBar')
  OMYTOOLBAR.DOCK(0)
 IF SHOW_TOOLBAR
     OMYTOOLBAR.SHOW
 ELSE 
     OMYTOOLBAR.HIDE
 ENDIF 
 OLOGOFORM.TIMER2.ENABLED = .T.
 SET MESSAGE TO '就绪'
 READ EVENTS 
*