rsgl.prg

包括了6个VFP程序设计实例

DO WHILE .T.
  SET PROC TO PGSUBPRG.APP

  PRIVATE m.ScrFontWidth, m.ScrFontHeight, m.WinFontWidth, m.WinFontHeight, m.ObjFontWidth, m.ObjFontHeight

  m.ScrFontWidth = 0
  m.ScrFontHeight = 0
  m.WinFontWidth = 0
  m.WinFontHeight = 0
  m.ObjFontWidth = 0
  m.ObjFontHeight = 0

  *** 计算屏幕窗口字体宽度和高度
  DO GetWFontWH WITH 'SCREEN', m.ScrFontWidth, m.ScrFontHeight

  IF WEXIST('LrWindow') AND WTITLE('LrWindow') == '医院通用人事管理系统'
     RELEASE WINDOW LrWindow
  ENDIF

  SET PALETTE OFF
  DEFINE WINDOW LrWindow IN SCREEN ;
     FROM 8 / m.ScrFontHeight, 8 / m.ScrFontWidth TO 404 / m.ScrFontHeight, 632 / m.ScrFontWidth ;
     TITLE '医院通用人事管理系统' ;
     FONT 'System', 10 ;
     STYLE 'B' ;
     FLOAT NOCLOSE NOMINIMIZE SYSTEM GROW ;
     FILL FILE LOCFILE('RSMAIN.BMP', 'BMP|ICO', '窗口壁纸文件?') ;
     COLOR RGB(, , , 192, 192, 192)

  SET PALETTE ON
  ACTIVATE WINDOW LrWindow
  MOVE WINDOW LRWINDOW CENTER
CLEAR
ON KEY LABEL ESCAPE
CLOSE DATA
USE RSCZY
MCZY=SPACE(8)
MMM=SPACE(10)
MCMM="PASS"
YMM=SPACE(10)
XMM=SPACE(10)
QMM=SPACE(10)
OK=.F.         && 判断口令是否正确
XG=.F.         && 判断口令是否允许修改
S=0            && 口令输入记数器
DO FORM gjczy.scx
MOVE WINDOWS FORM1 CENTER
READ EVENTS
IF OK
   DO MAIN
   ELSE
     EXIT
ENDIF
ENDDO
CLEA WINDOWS ALL
CLOSE DATA
QUIT
RETURN