main.prg

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

_SCREEN.MaxButton = .t.				
_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