setup.prg

功能模块:报关操作,运输操作,报关查询,运输查询

SET TALK off
SET NOTIFY ON
SET CLOCK OFF
SET COMPATIBLE OFF
SET PALETTE ON
SET SAFETY OFF
SET ESCAPE ON
SET LOGERRORS ON
SET KEYCOMP TO WINDOWS
SET CARRY OFF
SET CONFIRM OFF
SET BROWSEIMECONTROL OFF
SET STRICTDATE TO 1
SET EXACT OFF
SET NEAR OFF
SET ANSI OFF
SET LOCK OFF
SET EXCLUSIVE OFF
SET MULTILOCKS ON
SET HEADINGS ON
SET DELETED ON
SET OPTIMIZE ON
SET UNIQUE OFF
SET CPDIALOG OFF
SET REFRESH TO 0,5
SET ODOMETER TO 100
SET BLOCKSIZE TO 64
SET REPROCESS TO 0
SET COLLATE TO "PINYIN"
SET DEFAULT TO C:\BGRS
SET PATH TO c:\BGRS;C:\BGRS\datat;c:\BGRS\division;c:\BGRS\forms;c:\BGRS\graphics;c:\BGRS\progs;c:\BGRS\reports
SET RESOURCE ON
STORE "" TO _INCLUDE
STORE "" TO _GETEXPR
STORE "" TO _STARTUP
STORE "" TO _SAMPLES
SET SYSFORMATS OFF
SET SECONDS OFF
SET CENTURY ON
SET CURRENCY LEFT
SET CURRENCY TO "$"
SET HOURS TO 24
SET DATE TO AMERICAN
SET DECIMALS TO 2
SET FDOW TO 1
SET FWEEK TO 1
SET MARK TO "/"
SET SEPARATOR TO ","
SET POINT TO "."
SET TRBETWEEN OFF
STORE 0.00 TO _THROTTLE
modify window screen at 0,0 size 36,132 TITLE "报关管理系统" icon file project1
close all
clear all
releas all
*do form tools
USE CO
IF ISBLANK(CO.CO)=.F.
PUBLIC _BENELUX,_CO,_NAMES,_TEL,_EMAIL,_ZH,_HM,_KH,_address,_cd
_BENELUX=CO.BENELUX
_CO=CO.CO
_KH=CO.KH
_ZH=CO.ZH
_TEL=CO.TEL
_ADDRESS=CO.ADDRESS
_HM=CO.HM
_NAMES=CO.NAMES
_EMAIL=CO.EMAIL
_CD=CO.CD
DO FORM COIN
DO FORM LOADS
else
DO FORM CO
WAIT "请注册,按任意键继续..." WINDOW
endif