SET TALK ON
SET NOTIFY ON
SET CLOCK OFF
SET COMPATIBLE OFF
SET PALETTE ON
SET BELL ON
SET BELL TO '', 1
SET SAFETY ON
SET ESCAPE ON
SET LOGERRORS ON
SET KEYCOMP TO WINDOWS
SET CARRY OFF
SET CONFIRM OFF
SET BROWSEIMECONTROL OFF
SET STRICTDATE TO 1
&& TabOrdering = 0
&& ResWidth = 1024
&& ResHeight = 768
&& GridHorz = 12
&& GridVert = 12
&& ScaleUnits = 0
&& FormSetLib =
&& FormSetClass =
&& FormsLib =
&& FormsClass =
SET EXACT OFF
SET NEAR OFF
SET ANSI OFF
SET LOCK OFF
SET EXCLUSIVE ON
SET MULTILOCKS OFF
SET HEADINGS ON
SET DELETED OFF
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"
&& SCCProvider =
STORE "C:\PROGRAM FILES\MICROSOFT VISUAL STUDIO\VFP98\SCCTEXT.PRG" TO _SCCTEXT
&& ProjectHookLib =
&& ProjectHookClass =
&& CrsBuffering = 1
&& CrsMethodUsed = 1
&& CrsWhereClause = 3
&& CrsFetchSize = 100
&& CrsMaxRows = -1
&& CrsNumBatch = 1
&& CrsUseMemoSize = 255
&& SQLDispLogin = 1
&& SQLTransactions = 1
&& SQLConnectTimeOut = 15
&& SQLIdleTimeOut = 0
&& SQLQueryTimeOut = 0
&& SQLWaitTime = 100
SET DEFAULT TO d:\456
&& TMPFILES = c:\docume~1\admini~1\locals~1\temp
SET PATH TO
&& HelpTo =
SET HELP ON
SET RESOURCE ON
SET RESOURCE TO "c:\program files\microsoft visual studio\vfp98\foxuser.dbf"
STORE "C:\PROGRAM FILES\MICROSOFT VISUAL STUDIO\VFP98\WIZARD.APP" TO _WIZARD
STORE "C:\PROGRAM FILES\MICROSOFT VISUAL STUDIO\VFP98\BUILDER.APP" TO _BUILDER
STORE "C:\PROGRAM FILES\MICROSOFT VISUAL STUDIO\VFP98\CONVERT.APP" TO _CONVERTER
STORE "C:\PROGRAM FILES\MICROSOFT VISUAL STUDIO\VFP98\SPELLCHK.APP" TO _SPELLCHK
STORE "C:\PROGRAM FILES\MICROSOFT VISUAL STUDIO\VFP98\GENMENU.FXP" TO _GENMENU
STORE "C:\PROGRAM FILES\MICROSOFT VISUAL STUDIO\VFP98\BROWSER.APP" TO _BROWSER
STORE "C:\PROGRAM FILES\MICROSOFT VISUAL STUDIO\VFP98\GALLERY.APP" TO _GALLERY
STORE "" TO _INCLUDE
STORE "C:\PROGRAM FILES\MICROSOFT VISUAL STUDIO\VFP98\BEAUTIFY.APP" TO _BEAUTIFY
STORE "" TO _GETEXPR
STORE "C:\PROGRAM FILES\MICROSOFT VISUAL STUDIO\VFP98\GENHTML.PRG" TO _GENHTML
STORE "C:\PROGRAM FILES\MICROSOFT VISUAL STUDIO\VFP98\RUNACTD.PRG" TO _RUNACTIVEDOC
STORE "" TO _STARTUP
STORE "" TO _SAMPLES
STORE "C:\PROGRAM FILES\MICROSOFT VISUAL STUDIO\VFP98\COVERAGE.APP" TO _COVERAGE
SET SYSFORMATS OFF
SET SECONDS OFF
SET CENTURY ON
&& CurrSymbol = ¥
SET CURRENCY LEFT
SET CURRENCY TO "¥"
SET HOURS TO 24
SET DATE TO YMD
SET DECIMALS TO 2
SET FDOW TO 1
SET FWEEK TO 1
SET MARK TO "-"
SET SEPARATOR TO ","
SET POINT TO "."
&& DebugEnvironment = 0
SET TRBETWEEN OFF
STORE
0.00 TO _THROTTLE
&& DebugOutputFileName =
&& TraceFontName = 宋体
&& TraceFontSize = 9
&& TraceFontStyle = 0
&& WatchFontName = 宋体
&& WatchFontSize = 9
&& WatchFontStyle = 0
&& LocalsFontName = 宋体
&& LocalsFontSize = 9
&& LocalsFontStyle = 0
&& OutputFontName = 宋体
&& OutputFontSize = 9
&& OutputFontStyle = 0
&& CallstackFontName = 宋体
&& CallstackFontSize = 14
&& CallstackFontStyle = 0
&& TraceNormalColor = RGB(0,0,0,255,255,255), Auto, Auto
&& TraceExecutingColor = RGB(255,255,0,0,0,0), NoAuto, Auto
&& TraceCallstackColor = RGB(0,0,0,236,233,216), Auto, Auto
&& TraceBreakpointColor = RGB(255,0,0,0,0,0), NoAuto, Auto
&& TraceSelectedColor = RGB(255,255,255,0,0,0), Auto, Auto
&& WatchNormalColor = RGB(0,0,0,255,255,255), Auto, Auto
&& WatchSelectedColor = RGB(255,255,255,0,0,0), Auto, Auto
&& WatchChangedColor = RGB(255,0,0,255,255,255), NoAuto, Auto
&& LocalsNormalColor = RGB(0,0,0,255,255,255), Auto, Auto
&& LocalsSelectedColor = RGB(255,255,255,0,0,0), Auto, Auto
&& OutputNormalColor = RGB(0,0,0,255,255,255), Auto, Auto
&& OutputSelectedColor = RGB(255,255,255,0,0,0), Auto, Auto
&& CallstackNormalColor = RGB(0,0,0,255,255,255), Auto, Auto
&& CallstackSelectedColor = RGB(255,255,255,0,0,0), Auto, Auto
public khbh,djh,ygbh,khxm,khdz,khdh,tm
public k,ya,k1,djh1,khbh1
k=.t.
k1=.f.
ya=.t.
set talk off
set safe off
set sysmenu off
set sysmenu to
set exac off
set dele on
set cent on
_Screen.Show
do form 系统表单
read events
return
传上来的,请各位帮我找找错