SET DELETED ON
 SET EXCLUSIVE OFF
 SET EXACT ON
 SET ANSI ON
 SET CENTURY ON
 SET DATE YMD
 SET SAFETY OFF
 SET HELP OFF
 SET TALK OFF
 SET ESCAPE OFF
 SET STATUS OFF
 SET STATUS BAR OFF
 SET MULTILOCKS ON
 SET NULLDISPLAY TO ''
 SET OPTIMIZE ON
 PUBLIC GUSERNO , GUSERNM , GADMIN
 SET PATH TO Data
 GADMIN = .F.
 GUSERNO = ''
 GUSERNM = ' '
 USE data\hy\data\lk exclusive IN 0
 DELETE all
 pack
 USE IN lk
 ON SHUTDOWN quitsystem()  
 DO FORM form\dl.scx
 READ EVENTS     
 DO FORM form\zh.scx WITH 'll.mpr'  
 READ EVENTS  
 SET CLASS TO mytoolbar
 _screen.AddObject('opentoolbar','mytoolbar')
  READ EVENTS
 

多谢版主们的厚爱！小生定要潜心学习。

我修改了主程序，虽然调用了类，但类的标题栏总赋存着，请给予指教！
***********
CLEAR ALL
SET DELETED ON
 SET EXCLUSIVE OFF
 SET EXACT ON
 SET ANSI ON
 SET CENTURY ON
 SET DATE YMD
 SET SAFETY OFF
 SET HELP OFF
 SET TALK OFF
 SET ESCAPE OFF
 SET STATUS OFF
 SET STATUS BAR OFF
 SET MULTILOCKS ON
 SET NULLDISPLAY TO ''
 SET OPTIMIZE ON
 PUBLIC GUSERNO , GUSERNM , GADMIN
_SCREEN.BACKCOLOR=RGB(0,128,128)
_SCREEN.LEFT=-10000
_SCREEN.CONTROLBOX=.T.
_SCREEN.VISIBLE=.T.
_SCREEN.CLOSABLE=.T.
_SCREEN.MAXBUTTON=.T.
_SCREEN.MINBUTTON=.T.
_SCREEN.MOVABLE=.T.
DO FORM dl.SCX
READ EVENTS
PUBLIC ZBD AS OBJECT
DEACTIVATE WINDOW 'PROJECT MANAGER'
SET CLASSLIB TO MYTOOLBAR
_SCREEN.BACKCOLOR=RGB(0,128,128)
DO ll.mpr
DO FORM ZBD
_SCREEN.LEFT=0
_SCREEN.top=0
_SCREEN.CAPTION='统计管理系统' &&窗口标题
ZOOM WINDOW SCREEN MAX
@SROWS()-5,SCOLS()-52 SAY "作者：李更生  技术支持：QQ1442513151" FONT '宋体',11 STYLE 'T' COLOR R+/B
READ EVENTS
ON SHUTDOWN DO quitsystem
WITH _SCREEN
.LEFT=0
.TOP=0
.MOVABLE=.T.
ENDWITH

已解决！OK