main.prg

一个简单的航空售票系统：登录

\\setting 
SET TALK OFF
SET ESCAPE OFF
SET EXACT ON
SET DATE TO YMD
SET SAFETY OFF
SET SYSMENU OFF
SET NOTIFY OFF
SET DEFAULT TO SYS(5)+CURDIR()

_SCREEN.Caption="航空售票系统"
_SCREEN.MaxWidth=800
_SCREEN.MaxHeight=601
_SCREEN.Picture="photos\road.jpg"
_SCREEN.AutoCenter=.T.

\\begin
DO FORM FORMS\登录

READ EVENTS

\\quit
Procedure OnQuit
  CLEAR EVENTS
  CLOSE ALL
  QUIT
Endproc