程序1.bak

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

*程序1.prg
clear all
close all
set sysmenu off
set sysmenu to
set clock on
set status bar on

public    systit
systit="旅行社业务管理系统"

_screen.caption=systit
_screen.icon="tp\11.jpg"

_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\11.jpg"
_screen.addobject("lbl1","label")
_screen.lbl1.autosize=.t.
_screen.lbl1.fontsize=28
_screen.lbl1.fontname="楷体_GB2312"
_screen.lbl1.caption=systit
_screen.lbl1.left=(_screen.width-len(systit)*16-2)/2
_screen.lbl1.top=90
_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=28
_screen.lbl2.fontname="楷体_GB2312"
_screen.lbl2.caption=systit
_screen.lbl2.left=(_screen.width-len(systit)*16-2)/2
_screen.lbl2.top=90+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=14
_screen.lbl3.fontname="楷体_GB2312"
_screen.lbl3.caption="研制人：董双平  郭继光  芝世忠"
_screen.lbl3.left=(_screen.width-len(_screen.lbl3.caption)*10-2)/2
_screen.lbl3.top=200
_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=14
_screen.lbl4.fontname="楷体_GB2312"
_screen.lbl4.caption="版权所有 (c) 2006"
_screen.lbl4.left=(_screen.width-len(_screen.lbl4.caption)*10-2)/2
_screen.lbl4.top=280
_screen.lbl4.forecolor=rgb(255,255,0)
_screen.lbl4.visible=.t.
_screen.lbl4.backstyle=0
do form  登录
read event
quit