main.prg

很好的程序 是关于旅行业务管理的源码 但是没有报告

*main.prg
*设置系统参数
 clear all
 close all
 set directory to curdir()
 set sysmenu off
 set clock on
 set status bar on
*设置系统全局变量
 public systit
 systit="旅行社业务管理系统"
*设置系统标题及图标
 _screen.caption=systit
 _screen.icon="tp\osk.ico"
*设置系统背景图片
 _screen.addobject("img1","image")
 _screen.img1.stretch=2
 _screen.img1.left=0
 _screen.img1.top=0
 _screen.img1.width=_screen.width 
 _screen.img1.height=_screen.height
 _screen.img1.visible=.t.
 _screen.img1.picture="tp\01.jpg"
*设置系统设计信息
  _screen.addobject("lbl1","label")
 _screen.lbl1.autosize=.t.
 _screen.lbl1.fontsize=32
 _screen.lbl1.fontname="楷体_GB2312"
 _screen.lbl1.caption=systit 
 _screen.lbl1.left=(_screen.width-len(systit)*16-2)/2
 _screen.lbl1.top=120
 _screen.lbl1.forecolor=rgb(255,128,64)
 _screen.lbl1.visible=.t.
 _screen.lbl1.backstyle=0
 _screen.addobject("lbl2","label")
 _screen.lbl2.autosize=.t.
 _screen.lbl2.fontsize=32
 _screen.lbl2.fontname="楷体_GB2312"
 _screen.lbl2.caption=systit 
 _screen.lbl2.left=(_screen.width-len(systit)*16-2)/2
 _screen.lbl2.top=120+2
 _screen.lbl2.forecolor=rgb(0,0,0)
 _screen.lbl2.visible=.t.
 _screen.lbl2.backstyle=0
 _screen.addobject("lbl3","label")
 _screen.lbl3.autosize=.t.
 _screen.lbl3.fontsize=24
 _screen.lbl3.fontname="楷体_GB2312"
 _screen.lbl3.caption="研制人：董双平 郭继光 芝世忠" 
 _screen.lbl3.left=(_screen.width-len(_screen.lbl3.caption)*10-2)/2
 _screen.lbl3.top=300
 _screen.lbl3.forecolor=rgb(0,0,255)
 _screen.lbl3.visible=.t.
 _screen.lbl3.backstyle=0
 _screen.addobject("lbl4","label")
 _screen.lbl4.autosize=.t.
 _screen.lbl4.fontsize=20
 _screen.lbl4.fontname="楷体_GB2312"
 _screen.lbl4.caption="版权所有 (c) 2006" 
 _screen.lbl4.left=(_screen.width-len(_screen.lbl4.caption)*10-2)/2
 _screen.lbl4.top=480
 _screen.lbl4.forecolor=rgb(255,255,0)
 _screen.lbl4.visible=.t.
 _screen.lbl4.backstyle=0 
 do form 登录.scx
 do mmenu.mnx
 read event
 set sysmenu on