pass.prg

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

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


	Height = 412
	Width = 558
	DoCreate = .T.
	AutoCenter = .T.
	Caption = "Form1"
	TitleBar = 0
	Name = "Form1"


	ADD OBJECT container1 AS container WITH ;
		Top = 48, ;
		Left = 48, ;
		Width = 432, ;
		Height = 133, ;
		SpecialEffect = 1, ;
		ForeColor = RGB(192,192,192), ;
		BackColor = RGB(156,226,193), ;
		Name = "Container1"


	ADD OBJECT pass.container1.container1 AS container WITH ;
		Top = 24, ;
		Left = 36, ;
		Width = 365, ;
		Height = 85, ;
		SpecialEffect = 0, ;
		BackColor = RGB(255,255,255), ;
		Name = "Container1"


	ADD OBJECT pass.container1.container1.label1 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontName = "楷体_GB2312", ;
		FontSize = 28, ;
		BackStyle = 0, ;
		Caption = "路桥收费管理系统", ;
		Height = 44, ;
		Left = 25, ;
		Top = 24, ;
		Width = 315, ;
		ForeColor = RGB(255,0,0), ;
		Name = "Label1"


	ADD OBJECT label1 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 16, ;
		Caption = "用户编号:", ;
		Height = 26, ;
		Left = 126, ;
		Top = 216, ;
		Width = 103, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label1"


	ADD OBJECT label2 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 16, ;
		Caption = "密  码:", ;
		Height = 26, ;
		Left = 147, ;
		Top = 264, ;
		Width = 83, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label2"


	ADD OBJECT text1 AS textbox WITH ;
		FontSize = 11, ;
		Height = 25, ;
		Left = 232, ;
		Top = 216, ;
		Width = 121, ;
		Name = "Text1"


	ADD OBJECT text2 AS textbox WITH ;
		FontSize = 11, ;
		Height = 25, ;
		Left = 232, ;
		Top = 264, ;
		Width = 121, ;
		PasswordChar = "*", ;
		Name = "Text2"


	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 330, ;
		Left = 139, ;
		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 = 331, ;
		Left = 304, ;
		Height = 38, ;
		Width = 75, ;
		FontBold = .T., ;
		FontName = "楷体_GB2312", ;
		FontSize = 20, ;
		Caption = "取消", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command2"


	PROCEDURE Init
		public n,m
		n=1
	ENDPROC


	PROCEDURE Destroy
		if m=1
		   clear event
		endif
	ENDPROC


	PROCEDURE command1.Click
		if (n>2)
		   =messagebox("口令三次输入错误,不能使用本系统",48,"信息提示")
		   m=1
		   thisform.release
		else
		   select oper
		   locate for alltrim(op)==alltrim(thisform.text1.value) and alltrim(pwd)==alltrim(thisform.text2.value)
		   if found()
		      if alltrim(jb)="操作员"
		         =messagebox("你是操作员,不能使用本系统[只有系统员才能使用本系统]",48,"信息提示")
		         m=1
		         thisform.release
		      else
		         use in oper
		         thisform.release
		         m=2
		         do form main
		      endif
		  else
		     =messagebox("[用户编号/密码]不正确, 重新输入",48,"信息提示")
		     thisform.text1.value=space(10)
		     thisform.text2.value=space(10)
		     n=n+1
		     thisform.text1.setfocus
		  endif
		endif
	ENDPROC


	PROCEDURE command2.Click
		m=1
		thisform.release
	ENDPROC


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