我的一个简单的主程序,供您参考:
*******************************
* 2005.10.28 XZMAIN.PRG
* 人力资源管理系统
*******************************
* 作者:
*
*
*******************************
_Screen.CAPTION="XXXX公司人力资源管理系统1.0版 人力资源部编制"
_Screen.MAXBUTTON=.T.
_Screen.MINBUTTON=.T.
_Screen.CLOSABLE=.T.
_Screen.VISIBLE=.F.
_Screen.WINDOWSTATE=2
_Screen.VISIBLE=.T.
Close ALL
Clear ALL
Set SYSMENU OFF
Set SYSMENU TO
Set TALK OFF
Set DELETE ON
Set EXACT OFF
Set SAFETY OFF
Public MYDIR
MYDIR=SYS(5)-SYS(2003)
Set DEFAUL TO (MYDIR)
p1=sys(5)+sys(2003)+"\backpicture.jpg"
_Screen.PICTURE=P1
_Screen.ACTIVATE
Set DATE ANSI
Set CENTURY ON
On SHUTDOWN DO TCXT.PRG
Do FORM XZMAINFORM
Read EVENT
_Screen.CAPTION='Microsoft Visaul FoxPro 6.0'
_Screen.CLOSABLE=.T.
_Screen.PICTURE=''
Clear EVENT
Clear ALL
Clear
Clos ALL
Return
[此贴子已经被作者于2007-7-6 11:56:27编辑过]