mail.bak

简单的酒店管理源码+文论 适合课程设计和毕业类的 仅做参考

SET SCORE OFF 					&&关闭分值栏
SET SAFETY OFF 					&&关闭安全提示
SET STATUS BAR OFF 				&&关闭系统提示栏
SET CENTURY ON 					&&打开世纪开关
SET DELETED ON 					&&屏闭删除项
SET SYSMENU OFF 					&&关闭系统菜单
SET NOTIFY OFF 					&&关闭提示
&&设置系统窗口属性
_SCREEN.MaxButton = .F.				&&取消最大化按钮
_SCREEN.MaxWidth = 700				&&设置最大宽度
_SCREEN.MaxHeight = 600				&&设置最大高度
_SCREEN.Caption = "白云酒店管理系统" 		&&设置窗口标题
_SCREEN.Picture = '01.jpg'     		&&设置窗口背景图片
_SCREEN.AutoCenter = .T.				&&指定表单初次显示时，自动位于主窗口中央
&&公共变量
PUBLIC FindRecordNo
PUBLIC UserName
Do 主菜单.mpr						&&打开菜单
&&打开登录表单
Do Form [登陆.scx]
READ EVENTS
Procedure OnQuit
  CLEAR EVENTS
  CLOSE ALL
  QUIT
Endproc