main.prg

一个很优秀的企业人事管理系统。本软件免费

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


	Top = 0
	Left = 0
	Height = 574
	Width = 798
	ShowWindow = 0
	DoCreate = .T.
	Caption = "Form1"
	TitleBar = 0
	WindowState = 0
	BackColor = RGB(89,169,249)
	Name = "Form1"
	pass = .F.


	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 357, ;
		Left = 257, ;
		Height = 38, ;
		Width = 75, ;
		FontBold = .T., ;
		FontName = "楷体_GB2312", ;
		FontSize = 20, ;
		Caption = "确定", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command1"


	ADD OBJECT command2 AS commandbutton WITH ;
		Top = 358, ;
		Left = 422, ;
		Height = 38, ;
		Width = 75, ;
		FontBold = .T., ;
		FontName = "楷体_GB2312", ;
		FontSize = 20, ;
		Caption = "取消", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command2"


	ADD OBJECT olecontrol1 AS olecontrol WITH ;
		Top = 84, ;
		Left = 188, ;
		Height = 97, ;
		Width = 397, ;
		Name = "Olecontrol1"


	ADD OBJECT shape1 AS shape WITH ;
		Top = 216, ;
		Left = 221, ;
		Height = 96, ;
		Width = 328, ;
		BackStyle = 1, ;
		SpecialEffect = 0, ;
		Name = "Shape1"


	ADD OBJECT label1 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontName = "楷体_GB2312", ;
		FontSize = 18, ;
		BackStyle = 0, ;
		Caption = "口令", ;
		Height = 29, ;
		Left = 286, ;
		Top = 255, ;
		Width = 53, ;
		ForeColor = RGB(255,0,0), ;
		Name = "Label1"


	ADD OBJECT text1 AS textbox WITH ;
		FontSize = 12, ;
		Height = 29, ;
		Left = 354, ;
		Top = 253, ;
		Width = 108, ;
		PasswordChar = "*", ;
		Name = "Text1"


	PROCEDURE Init
		public n,m
		n=1
		restore from pass additive
		thisform.pass=pass
		thisform.text1.setfocus
	ENDPROC


	PROCEDURE Destroy
		if m=1
		   clear event
		endif
	ENDPROC


	PROCEDURE command1.Click
		if (n>2)
		   =messagebox("口令三次输入错误,不能使用本系统",48,"信息提示")
		   m=1
		   thisform.release
		else
		   if alltrim(thisform.pass)==alltrim(thisform.text1.value)
		      m=2
		      thisform.release
		      do mainmenu.mpr
		  else
		     =messagebox("口 令 不 正 确, 重 新 输 入",48,"信息提示")
		     thisform.text1.value=space(10)
		     n=n+1
		     thisform.text1.setfocus
		  endif
		endif
	ENDPROC


	PROCEDURE command2.Click
		m=1
		thisform.release
	ENDPROC


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