pass.prg

客户管理系统所有文件（数据表、表单、报表以及.exe文件等）。

**************************************************
* 类:  pass
* 父类:form
* 基类:form
*
DEFINE CLASS pass AS form
	Top = 41
	Left = 69
	Height = 410
	Width = 675
	DoCreate = .T.
	ShowTips = .F.
	Caption = ""
	Movable = .F.
	TitleBar = 1
	WindowType = 1
	WindowState = 0
	SizeBox = .F.
	Name = "Form1"
	succ = .F.
	cont = .F.
	pass = .F.
	ADD OBJECT container1 AS container WITH ;
		Top = 23, ;
		Left = 112, ;
		Width = 409, ;
		Height = 253, ;
		SpecialEffect = 1, ;
		TabIndex = 4, ;
		Name = "Container1"
	ADD OBJECT image1 AS image WITH ;
		Picture = "host.bmp", ;
		Height = 219, ;
		Left = 139, ;
		Top = 40, ;
		Width = 372, ;
		Name = "Image1"
	ADD OBJECT container2 AS container WITH ;
		Top = 20, ;
		Left = 89, ;
		Width = 460, ;
		Height = 260, ;
		BackStyle = 0, ;
		SpecialEffect = 0, ;
		TabIndex = 5, ;
		Name = "Container2"
	ADD OBJECT label2 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontName = "楷体_GB2312", ;
		FontSize = 16, ;
		Caption = "系统密码", ;
		Height = 26, ;
		Left = 181, ;
		Top = 312, ;
		Width = 95, ;
		TabIndex = 6, ;
		ForeColor = RGB(255,0,255), ;
		Name = "Label2"
	ADD OBJECT text1 AS textbox WITH ;
		FontSize = 16, ;
		Height = 32, ;
		Left = 285, ;
		TabIndex = 1, ;
		Top = 305, ;
		Width = 110, ;
		PasswordChar = "*", ;
		BackColor = RGB(255,128,128), ;
		Name = "Text1"
	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 360, ;
		Left = 214, ;
		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 = 360, ;
		Left = 352, ;
		Height = 35, ;
		Width = 70, ;
		FontBold = .T., ;
		FontName = "宋体", ;
		FontSize = 14, ;
		Caption = "取 消", ;
		TabIndex = 3, ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command2"
	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
**************************************************