main.bak

由于音像制品的品种繁多,所以音像租赁对于数据的查找,修改,删除和添加等功能的需求量很大,用人工手记的方式显然很烦琐,所以本项目就是为此设计.本项目可以对音像制品进行规范化管理,进而提高经营效率,实

SET TALK OFF 						&&关闭对话
SET ESCAPE OFF 					&&关闭ESCAPE键
SET EXACT ON   					&&打开完全匹配
SET EXCLUSIVE ON 					&&打开独占
SET CONSOLE ON  					&&将输出结果到发送到Visual FoxPro主窗口或当前的活动窗口
*!*	SET DATE TO SHORT 					&&设置短日期
*!*	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 = 780				&&设置最大宽度
_SCREEN.MaxHeight = 600				&&设置最大高度
_SCREEN.Caption = "音像租赁管理系统" 		&&设置窗口标题
_SCREEN.Picture = 'img\vcd.bmp'     		&&设置窗口背景图片
_SCREEN.AutoCenter = .T.				&&指定表单初次显示时，自动位于主窗口中央
&&公共变量
PUBLIC FindRecordNo
PUBLIC UserName
Do MyMenu.mpr						&&打开菜单
&&打开登录表单
Do Form [Forms\登录.scx]
READ EVENTS
Procedure OnQuit
  CLEAR EVENTS
  CLOSE ALL
  QUIT
Endproc