pass.prg

这是一个去年做的电大毕业设计,可能还不太完善,但基本功能有,

**************************************************
*-- 类:           pass (e:\yh\user.vcx)
*-- 父类:  form
*-- 基类:    form
*
DEFINE CLASS pass AS form


	Top = 89
	Left = 105
	Height = 346
	Width = 579
	DoCreate = .T.
	ShowTips = .T.
	Caption = ""
	Movable = .T.
	TitleBar = 0
	WindowType = 1
	WindowState = 0
	SizeBox = .F.
	Name = "Form1"
	succ = .F.
	cont = .F.
	pass = .F.


	ADD OBJECT container1 AS container WITH ;
		Top = 25, ;
		Left = 44, ;
		Width = 480, ;
		Height = 157, ;
		SpecialEffect = 1, ;
		TabIndex = 4, ;
		Name = "Container1"


	ADD OBJECT label2 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontName = "楷体_GB2312", ;
		FontSize = 16, ;
		Caption = "系统密码", ;
		Height = 26, ;
		Left = 142, ;
		Top = 236, ;
		Width = 95, ;
		TabIndex = 6, ;
		ForeColor = RGB(255,0,255), ;
		Name = "Label2"


	ADD OBJECT text1 AS textbox WITH ;
		FontSize = 16, ;
		Height = 32, ;
		Left = 246, ;
		TabIndex = 1, ;
		Top = 229, ;
		Width = 110, ;
		PasswordChar = "*", ;
		BackColor = RGB(255,128,128), ;
		Name = "Text1"


	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 284, ;
		Left = 175, ;
		Height = 35, ;
		Width = 70, ;
		FontBold = .T., ;
		FontName = "宋体", ;
		FontSize = 14, ;
		Caption = "确 认", ;
		TabIndex = 2, ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command1"


	ADD OBJECT command2 AS commandbutton WITH ;
		Top = 284, ;
		Left = 313, ;
		Height = 35, ;
		Width = 70, ;
		FontBold = .T., ;
		FontName = "宋体", ;
		FontSize = 14, ;
		Caption = "取 消", ;
		TabIndex = 3, ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command2"


	ADD OBJECT label1 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontItalic = .T., ;
		FontName = "楷体_GB2312", ;
		FontSize = 36, ;
		Caption = "商品进销存管理系统", ;
		Height = 57, ;
		Left = 58, ;
		Top = 75, ;
		Width = 444, ;
		ForeColor = RGB(255,255,255), ;
		Name = "Label1"


	ADD OBJECT label3 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontItalic = .T., ;
		FontName = "楷体_GB2312", ;
		FontSize = 36, ;
		BackStyle = 0, ;
		Caption = "商品进销存管理系统", ;
		Height = 57, ;
		Left = 57, ;
		Top = 72, ;
		Width = 444, ;
		ForeColor = RGB(255,0,0), ;
		Name = "Label3"


	PROCEDURE Unload
		RETURN THISFORM.CONT
	ENDPROC


	PROCEDURE Init
		PUBLIC N
		N=1
		RESTORE FROM PASS ADDITIVE
		THISFORM.PASS=PASS
	ENDPROC


	PROCEDURE command1.Click
		IF (N>2)
		   =MESSAGEBOX("口令三次输入错误,不能使用本系统",48,"信息提示")
		   THISFORM.CONT=.F.
		   THISFORM.RELEASE
		ELSE
		   IF ALLTRIM(THISFORM.PASS)==ALLTRIM(THISFORM.TEXT1.VALUE)
		     THISFORM.CONT=.T.
		     THISFORM.RELEASE
		  ELSE
		     =MESSAGEBOX("口 令 不 正 确, 重 新 输 入",48,"信息提示")
		     THISFORM.TEXT1.VALUE=SPACE(10)
		     N=N+1
		     THISFORM.TEXT1.SETFOCUS
		  ENDIF
		ENDIF
	ENDPROC


	PROCEDURE command1.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC


	PROCEDURE command2.Click
		THISFORM.RELEASE
	ENDPROC


	PROCEDURE command2.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC


ENDDEFINE
*
*-- 结束定义: pass
**************************************************