start.prg

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

cCurrentProcedure = SYS(16,1)
nPathStart = AT("：",cCurrentProcedure) - 1
nLenOfPath = RAT("\", cCurrentProcedure,2) - (nPathStart)
SET DEFAULT TO (SUBSTR(cCurrentProcedure, nPathStart, nLenOfPath))
SET PATH TO datat,FORMS,images,FORMS/CWFORM,DATAT/CWDATA,GRAPHICS,menus,PROGS,division,IMAGES,reports,reports\CWREPORTS


HIDE WINDOWS SCREEN
SET DELETED ON
SYS(3099,70)
SET SAFETY OFF
SET TALK off
SET NOTIFY ON
SET CLOCK OFF
SET COMPATIBLE OFF
SET PALETTE ON
SET BELL ON
SET BELL TO '', 1
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 ON
SET ANSI OFF
SET LOCK OFF
SET EXCLUSIVE OFF
SET MULTILOCKS ON
SET HEADINGS 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"
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
SET MULTILOCKS ON
STORE 0.00 TO _THROTTLE
*on shutdown do shutdown

**on error do Err_Hand with error(),message(),message(2),program(),program(1),lineno(2) 

public oSystemData,oReportForm,oResultForm,nTotalPAGEs
nTotalPages=1

public plManageMode

cCaption="集装箱运输管理系统 - 燎原工作室"
Declare integer FindWindow in win32api string cClass,String cCaption
if FindWindow(0,cCaption)#0
   *SHOW WINDOWS SCREEN
   _screen.caption=cCaption
   =messagebox("箱运输管理系统，请查看任务栏！",16,"系统资源省着点用哦！    @_@ ")
   return .f.
endif

set classlib to myclasslib addi


USE CO
IF ISBLANK(CO.co)=.F.
select co
PUBLIC _BENELUX,_CO,_NAMES,_TEL,_EMAIL,_KH,_ZH,_HM,_address,_cd,_TC,_yj,_YJG,dm,kh,cph,sj,DATE1,DATE2,yl,NO,NAMES,sk
_BENELUX=CO.BENELUX
_CO=CO.CO
_BENELUX=CO.BENELUX
_ZH=CO.ZH
_KH=CO.KH
_TEL=CO.TEL
_ADDRESS=CO.ADDRESS
_HM=CO.HM
_yj=CO.yj
_YJG=CO.YJG
_NAMES=CO.NAMES
_EMAIL=CO.EMAIL
_CD=CO.CD
yl=0
_tc=0
NO=1
DO FORM LOGIN
*!*	*DO FORM COIN.scx
else
DO FORM LOGIN
DO FORM CO
endif
**do form main name main
&&105

_screen.caption=cCaption
_screen.picture="back.bmp"
_screen.autocenter=.t.
*_screen.windowstate=2
*_screen.ControlBox=.f.
*_screen.show
*do form login 
* _screen.ControlBox=.t.
read events