gz3.prg

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

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


	Top = 40
	Left = 103
	Height = 346
	Width = 591
	DoCreate = .T.
	Caption = "系统维护"
	Closable = .F.
	MaxButton = .F.
	MinButton = .F.
	WindowType = 1
	Name = "Form1"


	ADD OBJECT optiongroup1 AS optiongroup WITH ;
		ButtonCount = 4, ;
		Value = 1, ;
		Height = 190, ;
		Left = 38, ;
		Top = 51, ;
		Width = 186, ;
		Name = "Optiongroup1", ;
		Option1.FontBold = .T., ;
		Option1.FontName = "楷体_GB2312", ;
		Option1.FontSize = 14, ;
		Option1.Caption = "工资数据转出", ;
		Option1.Value = 1, ;
		Option1.Height = 24, ;
		Option1.Left = 26, ;
		Option1.Top = 42, ;
		Option1.Width = 154, ;
		Option1.AutoSize = .T., ;
		Option1.ForeColor = RGB(255,0,128), ;
		Option1.Name = "Option1", ;
		Option2.FontBold = .T., ;
		Option2.FontName = "楷体_GB2312", ;
		Option2.FontSize = 14, ;
		Option2.Caption = "工资数据转入", ;
		Option2.Height = 24, ;
		Option2.Left = 24, ;
		Option2.TabIndex = 6, ;
		Option2.Top = 74, ;
		Option2.Width = 154, ;
		Option2.AutoSize = .T., ;
		Option2.ForeColor = RGB(255,0,128), ;
		Option2.Name = "Option2", ;
		Option3.FontBold = .T., ;
		Option3.FontName = "楷体_GB2312", ;
		Option3.FontSize = 14, ;
		Option3.Caption = "修改系统密码", ;
		Option3.Height = 24, ;
		Option3.Left = 24, ;
		Option3.TabIndex = 2, ;
		Option3.Top = 106, ;
		Option3.Width = 154, ;
		Option3.AutoSize = .T., ;
		Option3.ForeColor = RGB(255,0,128), ;
		Option3.Name = "Option3", ;
		Option4.FontBold = .T., ;
		Option4.FontName = "楷体_GB2312", ;
		Option4.FontSize = 14, ;
		Option4.Caption = "数据初始化", ;
		Option4.Height = 24, ;
		Option4.Left = 24, ;
		Option4.TabIndex = 3, ;
		Option4.Top = 136, ;
		Option4.Width = 133, ;
		Option4.AutoSize = .T., ;
		Option4.ForeColor = RGB(255,0,128), ;
		Option4.Name = "Option4"


	ADD OBJECT label1 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontItalic = .T., ;
		FontName = "楷体_GB2312", ;
		FontSize = 18, ;
		FontExtend = .T., ;
		Caption = " 请选择 ", ;
		Height = 29, ;
		Left = 73, ;
		Top = 40, ;
		Width = 104, ;
		ForeColor = RGB(255,0,0), ;
		Name = "Label1"


	ADD OBJECT command5 AS commandbutton WITH ;
		Top = 298, ;
		Left = 443, ;
		Height = 37, ;
		Width = 73, ;
		FontBold = .T., ;
		FontName = "楷体_GB2312", ;
		FontSize = 14, ;
		Caption = "返回", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command5"


	ADD OBJECT container1 AS container WITH ;
		Top = 60, ;
		Left = 252, ;
		Width = 313, ;
		Height = 217, ;
		SpecialEffect = 1, ;
		Name = "Container1"


	ADD OBJECT gz3.container1.label2 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 16, ;
		Caption = "旧密码", ;
		Height = 26, ;
		Left = 52, ;
		Top = 38, ;
		Width = 69, ;
		ForeColor = RGB(0,128,255), ;
		Name = "Label2"


	ADD OBJECT gz3.container1.label3 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 16, ;
		Caption = "新密码", ;
		Height = 26, ;
		Left = 52, ;
		Top = 90, ;
		Width = 69, ;
		ForeColor = RGB(0,128,255), ;
		Name = "Label3"


	ADD OBJECT gz3.container1.text1 AS textbox WITH ;
		FontSize = 11, ;
		Height = 30, ;
		Left = 131, ;
		Top = 32, ;
		Width = 120, ;
		Name = "Text1"


	ADD OBJECT gz3.container1.text2 AS textbox WITH ;
		FontSize = 11, ;
		Height = 30, ;
		Left = 131, ;
		Top = 86, ;
		Width = 120, ;
		Name = "Text2"


	ADD OBJECT gz3.container1.command1 AS commandbutton WITH ;
		Top = 152, ;
		Left = 63, ;
		Height = 37, ;
		Width = 73, ;
		FontBold = .T., ;
		FontSize = 16, ;
		Caption = "确 认", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command1"


	ADD OBJECT gz3.container1.command2 AS commandbutton WITH ;
		Top = 152, ;
		Left = 171, ;
		Height = 37, ;
		Width = 73, ;
		FontBold = .T., ;
		FontSize = 16, ;
		Caption = "取 消", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command2"


	PROCEDURE test1
		ok=.T.
		oldp=sys(5)+sys(2003)
		on error ok=.F.
		set defa to a:
		set defa to &oldp
		return ok
	ENDPROC


	PROCEDURE Init
		thisform.container1.visible=.F.
	ENDPROC


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


	PROCEDURE optiongroup1.Option1.Click
		thisform.container1.visible=.F.
		if thisform.test1()=.F.
		    =messagebox("请将要一张空白软盘插入到A驱动器中后再选择本选项",48,"提示信息")
		    return
		endif
		use gzb in 0
		select gzb
		copy to a:gzb
		use in gzb
		use pmb in 0
		select pmb
		copy to a:pmb
		use in pmb
		=messagebox("数  据  转  出  完  毕!",48+0,"信息提示")
	ENDPROC


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


	PROCEDURE optiongroup1.Option2.Click
		thisform.container1.visible=.F.
		if thisform.test1()=.F.
		    =messagebox("请将要转入数据的软盘插入到A驱动器中后再选择本选项",48,"提示信息")
		    return
		endif
		h=fopen("a:gzb.dbf")
		if (h=-1)
		    =messagebox("你的软盘不包含要转入的数据,请插入正确的软盘后再选择本选项",48,"提示信息")
		    return
		endif
		=fclose(h)
		use gzb in 0
		select gzb
		append from a:gzb
		use in gzb
		use pmb in 0
		select pmb
		append from a:pmb
		use in pmb
		=messagebox("数  据  转  入  完  毕 !",48+0,"信息提示")
	ENDPROC


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


	PROCEDURE optiongroup1.Option3.Click
		restore from pass additive
		thisform.container1.visible=.T.
		thisform.container1.text1.value=pass
		thisform.container1.text2.setfocus
	ENDPROC


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


	PROCEDURE optiongroup1.Option4.Click
		thisform.container1.visible=.F.
		??chr(7)
		if messagebox("真的进行系统初始化,删除所有的数据!",4+32,"提示信息")=6
		   set exclusive on
		   use gzb in 0
		   select gzb
		   zap
		   use pmb in 0
		   select pmb
		   zap
		   =messagebox("系统初始化过程己完成!",48,"信息提示")
		endif
	ENDPROC


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


	PROCEDURE command5.Click
		thisform.release
	ENDPROC


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


	PROCEDURE command1.Click
		pass=thisform.container1.text2.value
		save to pass all like pass
		thisform.container1.visible=.F.
	ENDPROC


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


	PROCEDURE command2.Click
		thisform.container1.visible=.F.
	ENDPROC


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