后
高手们,帮忙解决一下,我的主程序是这样的!!
set sysmenu off
set sysmenu to
set status bar off
set talk off
set notify off
set clock status
set palette off
set bell on
set safety off
set esca off
set keycomp to windows
set carry on
set confirm on
set exact on
set near on
set ansi on
set lock on
set exclusive off
set multilocks on
set deleted on
set optimize on
set refresh to 0.5
set sysformats off
set seconds on
set century on
set currency left
set currency to 'nt$'
set hours to 12
set decimals to 2
set fdow to 1
set fweek to 1
set point to '.'
set date to ansi
set safe off
set dele on &&不处理已删除的记录
set cent on
set date to ansi
set help off
close all
clear all
deactivate window "项目管理器"
RELEASE WINDOW 常用 &&去掉常用窗口
RELEASE WINDOW 命令
_screen.icon=":/..\graph07.ico"
_screen.backcolor=rgb(51,128,192)
MODIFY WINDOW SCREEN TITLE "诺曼地原材料统计管理系统 "
_screen.controlbox=.t.
_screen.movable=.f.
_screen.maxbutton=.f.
_screen.minbutton=.t.
_screen.closable=.f.
_screen.titlebar=0
_screen.windowstate=2
set sysmenu off
set sysmenu to
set talk off
set delete on
set exact off
set safety off
set status bar off
set century on
set date YMD
close all
clear all
PUBLIC zong
copy file ":/..\胶类.dbf" to ":/..\jl.dbf"
copy file ":/..\炭黑.dbf" to ":/..\th.dbf"
copy file ":/..\促进剂.dbf" to ":/..\cjj.dbf"
copy file ":/..\其它.dbf" to ":/..\qt.dbf"
sele 1
use jl excl
sele 2
use th excl
sele 3
use cjj excl
sele 4
use qt excl
sele 5
use jljxm excl
sele 6
use thjxm excl
sele 7
use cjjxm excl
sele 8
use qtjxm excl
sele 9
use bcd excl
sele 10
use tubiao excl
*******
do form 总界面
READ EVENTS