为什么封面一直存在，而用户登陆却一直不出现？

[myccc0270]

set talk off
clea all
do form fm &&封面
keyb'{ctrl+f4}'
modi wind screen titl ' 工资管理系统'
clea all

do form c_bzdl &&开始用户登陆
read events
quit

[ihwfn]

因为你执行read events语句后，没有廷时就执行了quit语，因此效果看不见。

[myccc0270]

那该怎样解决？？

[lnfxzcl]

程序是按顺序执行的。如果你关了封面而没有出现登录表单，是因为你执行完read events命令后，又执行了quit。

[jmkwok]

SET TALK OFF
* Hide the Visual FoxPro system menu
PUSH MENU _MSYSMENU
SET SYSMENU OFF

* Change the screen desktop color
WITH _SCREEN
.LockScreen = .T.
.Caption = "工资管理系统"
.BackColor = RGB(64,128,128)
.Closable = .F.
.WindowState = 2
.BorderStyle = 2
.LockScreen = .F.
ENDWITH


FormDesigner_ToolBar = "Form Designer"
Standard_ToolBar = "Standard"
Layout_ToolBar = "Layout"
Query_ToolBar = "Query"
ViewDesigner_ToolBar = "View Designer"
ColorPalette_ToolBar = "Color Palette"
FormControls_ToolBar = "Form Controls"
DataDesigner_ToolBar = "Data Designer"
ReportDesigner_ToolBar = "Report Designer"
ReportControls_ToolBar = "Report Controls"
PrintPreview_ToolBar = "Print Preview"
CommandWindow = "Command"

DIMENSION gaToolBars[12,2]
gaToolBars[1,1] = FormDesigner_ToolBar
gaToolBars[2,1] = Standard_ToolBar
gaToolBars[3,1] = Layout_ToolBar
gaToolBars[4,1] = Query_ToolBar
gaToolBars[5,1] = ViewDesigner_ToolBar
gaToolBars[6,1] = ColorPalette_ToolBar
gaToolBars[7,1] = FormControls_ToolBar
gaToolBars[8,1] = DataDesigner_ToolBar
gaToolBars[9,1] = ReportDesigner_ToolBar
gaToolBars[10,1] = ReportControls_ToolBar
gaToolBars[11,1] = PrintPreview_ToolBar
gaToolBars[12,1] = CommandWindow

FOR i=1 TO 12
gaToolBars[i,2] = WVISIBLE(gaToolBars[i,1])
ENDFOR

FOR i = 1 TO ALEN(gaToolBars, 1)
IF gaToolBars[i,2]
IF WEXIST(gaToolBars[i,1])
HIDE WINDOW (gaToolBars[i,1])
ENDIF
ENDIF
ENDFOR

* ****************************
* Put your form here
* DO FORM .....
.............
.............

DO FORM c_bzdl


* ****************************
READ EVENTS

FOR j = 1 TO ALEN(gaToolBars, 1)
IF gaToolBars[j,2] AND WEXIST(gaToolBars[j,1])
SHOW WINDOW (gaToolBars[j,1])
ENDIF
ENDFOR

POP MENU _MSYSMENU TO MASTER
SET SYSMENU ON

QUIT

[jmkwok]

SET TALK OFF
* Hide the Visual FoxPro system menu
PUSH MENU _MSYSMENU
SET SYSMENU OFF

* Change the screen desktop color
WITH _SCREEN
.LockScreen = .T.
.Caption = "工资管理系统"
.BackColor = RGB(64,128,128)
.Closable = .F.
.WindowState = 2
.BorderStyle = 2
.LockScreen = .F.
ENDWITH


FormDesigner_ToolBar = "Form Designer"
Standard_ToolBar = "Standard"
Layout_ToolBar = "Layout"
Query_ToolBar = "Query"
ViewDesigner_ToolBar = "View Designer"
ColorPalette_ToolBar = "Color Palette"
FormControls_ToolBar = "Form Controls"
DataDesigner_ToolBar = "Data Designer"
ReportDesigner_ToolBar = "Report Designer"
ReportControls_ToolBar = "Report Controls"
PrintPreview_ToolBar = "Print Preview"
CommandWindow = "Command"

DIMENSION gaToolBars[12,2]
gaToolBars[1,1] = FormDesigner_ToolBar
gaToolBars[2,1] = Standard_ToolBar
gaToolBars[3,1] = Layout_ToolBar
gaToolBars[4,1] = Query_ToolBar
gaToolBars[5,1] = ViewDesigner_ToolBar
gaToolBars[6,1] = ColorPalette_ToolBar
gaToolBars[7,1] = FormControls_ToolBar
gaToolBars[8,1] = DataDesigner_ToolBar
gaToolBars[9,1] = ReportDesigner_ToolBar
gaToolBars[10,1] = ReportControls_ToolBar
gaToolBars[11,1] = PrintPreview_ToolBar
gaToolBars[12,1] = CommandWindow

FOR i=1 TO 12
gaToolBars[i,2] = WVISIBLE(gaToolBars[i,1])
ENDFOR

FOR i = 1 TO ALEN(gaToolBars, 1)
IF gaToolBars[i,2]
IF WEXIST(gaToolBars[i,1])
HIDE WINDOW (gaToolBars[i,1])
ENDIF
ENDIF
ENDFOR

* ****************************
* Put your form here
* DO FORM .....
.............
.............

DO FORM c_bzdl


* ****************************
READ EVENTS

FOR j = 1 TO ALEN(gaToolBars, 1)
IF gaToolBars[j,2] AND WEXIST(gaToolBars[j,1])
SHOW WINDOW (gaToolBars[j,1])
ENDIF
ENDFOR

POP MENU _MSYSMENU TO MASTER
SET SYSMENU ON

QUIT

[jmkwok]

do form fm &&封面
這里應加入Timer控件用於Release Form

[myccc0270]

多谢