?? pass.prg
字號(hào):
**************************************************
* 類: 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 = "系統(tǒng)密碼", ;
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 = "確 認(rèn)", ;
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("口令三次輸入錯(cuò)誤,不能使用本系統(tǒng)",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
*
* 結(jié)束定義: pass
**************************************************
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -