gz1.prg

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

		Name = "txtF12"


	ADD OBJECT lblf12 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 11, ;
		WordWrap = .F., ;
		BackStyle = 0, ;
		Caption = "假 旷", ;
		Height = 19, ;
		Left = 374, ;
		Top = 216, ;
		Width = 44, ;
		TabIndex = 42, ;
		ForeColor = RGB(0,0,255), ;
		Name = "lblF12"


	ADD OBJECT txtf13 AS textbox WITH ;
		Comment = "", ;
		FontSize = 11, ;
		ControlSource = "gzb.公积金", ;
		Height = 25, ;
		Left = 106, ;
		TabIndex = 18, ;
		Top = 247, ;
		Width = 81, ;
		DisabledBackColor = RGB(213,217,204), ;
		DisabledForeColor = RGB(255,0,0), ;
		Name = "txtF13"


	ADD OBJECT lblf13 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 11, ;
		WordWrap = .F., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "公积金", ;
		Height = 19, ;
		Left = 42, ;
		Top = 253, ;
		Width = 51, ;
		TabIndex = 43, ;
		ForeColor = RGB(0,0,255), ;
		Name = "lblF13"


	ADD OBJECT txtf14 AS textbox WITH ;
		Comment = "", ;
		FontSize = 11, ;
		ControlSource = "gzb.托儿费", ;
		Height = 25, ;
		Left = 271, ;
		TabIndex = 19, ;
		Top = 247, ;
		Width = 81, ;
		DisabledBackColor = RGB(213,217,204), ;
		DisabledForeColor = RGB(255,0,0), ;
		Name = "txtF14"


	ADD OBJECT lblf14 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 11, ;
		WordWrap = .F., ;
		BackStyle = 0, ;
		Caption = "托儿费", ;
		Height = 19, ;
		Left = 205, ;
		Top = 253, ;
		Width = 51, ;
		TabIndex = 44, ;
		ForeColor = RGB(0,0,255), ;
		Name = "lblF14"


	ADD OBJECT txtf15 AS textbox WITH ;
		Comment = "", ;
		FontSize = 11, ;
		ControlSource = "gzb.个调税", ;
		Height = 25, ;
		Left = 435, ;
		TabIndex = 20, ;
		Top = 247, ;
		Width = 81, ;
		DisabledBackColor = RGB(213,217,204), ;
		DisabledForeColor = RGB(255,0,0), ;
		Name = "txtF15"


	ADD OBJECT lblf15 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 11, ;
		WordWrap = .F., ;
		BackStyle = 0, ;
		Caption = "个调税", ;
		Height = 19, ;
		Left = 370, ;
		Top = 253, ;
		Width = 51, ;
		TabIndex = 45, ;
		ForeColor = RGB(0,0,255), ;
		Name = "lblF15"


	ADD OBJECT txtf16 AS textbox WITH ;
		Comment = "", ;
		FontSize = 11, ;
		ControlSource = "gzb.储蓄", ;
		Height = 25, ;
		Left = 106, ;
		TabIndex = 21, ;
		Top = 285, ;
		Width = 81, ;
		DisabledBackColor = RGB(213,217,204), ;
		DisabledForeColor = RGB(255,0,0), ;
		Name = "txtF16"


	ADD OBJECT lblf16 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 11, ;
		WordWrap = .F., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "储 蓄", ;
		Height = 19, ;
		Left = 46, ;
		Top = 291, ;
		Width = 44, ;
		TabIndex = 46, ;
		ForeColor = RGB(0,0,255), ;
		Name = "lblF16"


	ADD OBJECT txtf17 AS textbox WITH ;
		Comment = "", ;
		FontSize = 11, ;
		ControlSource = "gzb.会费", ;
		Height = 25, ;
		Left = 271, ;
		TabIndex = 22, ;
		Top = 285, ;
		Width = 81, ;
		DisabledBackColor = RGB(213,217,204), ;
		DisabledForeColor = RGB(255,0,0), ;
		Name = "txtF17"


	ADD OBJECT lblf17 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 11, ;
		WordWrap = .F., ;
		BackStyle = 0, ;
		Caption = "会 费", ;
		Height = 19, ;
		Left = 205, ;
		Top = 291, ;
		Width = 44, ;
		TabIndex = 47, ;
		ForeColor = RGB(0,0,255), ;
		Name = "lblF17"


	ADD OBJECT txtf18 AS textbox WITH ;
		Comment = "", ;
		FontSize = 11, ;
		ControlSource = "gzb.有线电视", ;
		Height = 25, ;
		Left = 435, ;
		TabIndex = 23, ;
		Top = 285, ;
		Width = 81, ;
		DisabledBackColor = RGB(213,217,204), ;
		DisabledForeColor = RGB(255,0,0), ;
		Name = "txtF18"


	ADD OBJECT lblf18 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 11, ;
		WordWrap = .F., ;
		BackStyle = 0, ;
		Caption = "有线电视", ;
		Height = 19, ;
		Left = 365, ;
		Top = 291, ;
		Width = 67, ;
		TabIndex = 48, ;
		ForeColor = RGB(0,0,255), ;
		Name = "lblF18"


	ADD OBJECT txtf19 AS textbox WITH ;
		Comment = "", ;
		FontSize = 11, ;
		ControlSource = "gzb.电话费", ;
		Height = 25, ;
		Left = 106, ;
		TabIndex = 24, ;
		Top = 324, ;
		Width = 81, ;
		DisabledBackColor = RGB(213,217,204), ;
		DisabledForeColor = RGB(255,0,0), ;
		Name = "txtF19"


	ADD OBJECT lblf19 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 11, ;
		WordWrap = .F., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "电话费", ;
		Height = 19, ;
		Left = 42, ;
		Top = 330, ;
		Width = 51, ;
		TabIndex = 49, ;
		ForeColor = RGB(0,0,255), ;
		Name = "lblF19"


	ADD OBJECT txtf20 AS textbox WITH ;
		Comment = "", ;
		FontSize = 11, ;
		ControlSource = "gzb.总扣数", ;
		Enabled = .F., ;
		Height = 25, ;
		Left = 271, ;
		TabIndex = 25, ;
		Top = 324, ;
		Width = 81, ;
		DisabledBackColor = RGB(213,217,204), ;
		DisabledForeColor = RGB(255,0,0), ;
		Name = "txtF20"


	ADD OBJECT lblf20 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 11, ;
		WordWrap = .F., ;
		BackStyle = 0, ;
		Caption = "总扣数", ;
		Height = 19, ;
		Left = 202, ;
		Top = 330, ;
		Width = 51, ;
		TabIndex = 50, ;
		ForeColor = RGB(0,0,255), ;
		Name = "lblF20"


	ADD OBJECT txtf21 AS textbox WITH ;
		Comment = "", ;
		FontSize = 11, ;
		ControlSource = "gzb.实发数", ;
		Enabled = .F., ;
		Height = 25, ;
		Left = 435, ;
		TabIndex = 26, ;
		Top = 324, ;
		Width = 81, ;
		DisabledBackColor = RGB(213,217,204), ;
		DisabledForeColor = RGB(255,0,0), ;
		Name = "txtF21"


	ADD OBJECT lblf21 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 11, ;
		WordWrap = .F., ;
		BackStyle = 0, ;
		Caption = "实发数", ;
		Height = 19, ;
		Left = 366, ;
		Top = 330, ;
		Width = 51, ;
		TabIndex = 51, ;
		ForeColor = RGB(0,0,255), ;
		Name = "lblF21"


	ADD OBJECT combo1 AS combobox WITH ;
		FontSize = 11, ;
		RowSourceType = 2, ;
		RowSource = "pmb", ;
		ControlSource = "gzb.部门", ;
		Height = 25, ;
		Left = 272, ;
		TabIndex = 5, ;
		Top = 58, ;
		Width = 145, ;
		DisabledBackColor = RGB(213,217,204), ;
		DisabledForeColor = RGB(255,0,0), ;
		Name = "Combo1"


	ADD OBJECT command2 AS commandbutton WITH ;
		Top = 207, ;
		Left = 565, ;
		Height = 37, ;
		Width = 104, ;
		FontBold = .T., ;
		FontName = "宋体", ;
		FontSize = 11, ;
		Caption = "设定输入条件", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command2"


	ADD OBJECT command3 AS commandbutton WITH ;
		Top = 159, ;
		Left = 564, ;
		Height = 38, ;
		Width = 103, ;
		FontBold = .T., ;
		FontSize = 11, ;
		Caption = "复制上月工资", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command3"


	ADD OBJECT commandgroup2 AS commandgroup WITH ;
		ButtonCount = 2, ;
		Value = 1, ;
		Height = 64, ;
		Left = 559, ;
		Top = 269, ;
		Width = 102, ;
		Name = "Commandgroup2", ;
		Command1.Top = 5, ;
		Command1.Left = 5, ;
		Command1.Height = 27, ;
		Command1.Width = 94, ;
		Command1.FontBold = .T., ;
		Command1.FontSize = 12, ;
		Command1.Caption = "批量删除", ;
		Command1.ForeColor = RGB(255,0,0), ;
		Command1.Name = "Command1", ;
		Command2.Top = 33, ;
		Command2.Left = 5, ;
		Command2.Height = 27, ;
		Command2.Width = 94, ;
		Command2.FontBold = .T., ;
		Command2.FontSize = 12, ;
		Command2.Caption = "批量修改", ;
		Command2.ForeColor = RGB(255,0,0), ;
		Command2.Name = "Command2"


	PROCEDURE disp
		select gzb
		if this.jls>0 &&表不为空
		   thisform.commandgroup1.command1.enabled=.T.
		   thisform.commandgroup1.command2.enabled=.T.
		   thisform.commandgroup1.command3.enabled=.T.
		   thisform.commandgroup1.command4.enabled=.T.
		   thisform.commandgroup1.command6.enabled=.T.
		   thisform.commandgroup1.command7.enabled=.T.
		else
		   thisform.commandgroup1.command1.enabled=.F.
		   thisform.commandgroup1.command2.enabled=.F.
		   thisform.commandgroup1.command3.enabled=.F.
		   thisform.commandgroup1.command4.enabled=.F.
		   thisform.commandgroup1.command5.enabled=.T.
		   thisform.commandgroup1.command6.enabled=.F.
		   thisform.commandgroup1.command7.enabled=.F.
		endif  
		thisform.setall("enabled",.F.,"textbox")
		thisform.combo1.enabled=.F.
		thisform.commandgroup1.command8.enabled=.F.
		thisform.commandgroup1.command9.enabled=.F.
	ENDPROC


	PROCEDURE Destroy
		select gzb
		pack
	ENDPROC


	PROCEDURE Load
		set multilock on
		set date ansi
	ENDPROC


	PROCEDURE Init
		public curyh,curmh,currq
		curyh=year(date())
		curmh=month(date())
		currq=date()
		select gzb
		this.jls=recc()      &&jls属性记录当前记录个数
		this.currno=recno()  &&currno属性记录当前记录号
		this.disp
	ENDPROC


	PROCEDURE commandgroup1.Command1.Click
		select gzb
		go top
		thisform.currno=recno()
		thisform.setall("enabled",.F.,"textbox")
		thisform.combo1.enabled=.F.
		thisform.refresh
	ENDPROC


	PROCEDURE commandgroup1.Command2.Click
		select gzb
		skip -1
		if bof()
		   go top
		endif
		thisform.currno=recno()
		thisform.setall("enabled",.F.,"textbox")
		thisform.combo1.enabled=.F.
		thisform.refresh
	ENDPROC


	PROCEDURE commandgroup1.Command3.Click
		select gzb
		skip
		if eof()
		   go bottom
		endif
		thisform.currno=recno()
		thisform.setall("enabled",.F.,"textbox")
		thisform.combo1.enabled=.F.
		thisform.refresh
	ENDPROC


	PROCEDURE commandgroup1.Command4.Click
		select gzb
		go bottom
		thisform.currno=recno()
		thisform.setall("enabled",.F.,"textbox")
		thisform.combo1.enabled=.F.
		thisform.refresh
	ENDPROC


	PROCEDURE commandgroup1.Command5.Click
		append blank
		thisform.jls=thisform.jls+1
		thisform.disp
		thisform.setall("enabled",.T.,"textbox")
		thisform.combo1.enabled=.T.
		thisform.commandgroup1.command8.enabled=.T.
		thisform.commandgroup1.command9.enabled=.T.
		thisform.opmode=1  &&指定操作模式
		thisform.refresh
		thisform.txtyh.setfocus
		thisform.txtxm.setfocus
	ENDPROC


	PROCEDURE commandgroup1.Command6.Click
		if messagebox("记录一旦删除便不能恢复,真的要删除吗?",48+4,"信息提示")=6 &&回答"是"
		   delete
		   thisform.jls=thisform.jls-1
		   thisform.opmode=2  &&指定操作模式
		   thisform.disp
		   thisform.refresh
		endif
	ENDPROC


	PROCEDURE commandgroup1.Command7.Click
		thisform.setall("enabled",.T.,"textbox")
		thisform.combo1.enabled=.T.
		thisform.commandgroup1.command8.enabled=.T.
		thisform.commandgroup1.command9.enabled=.T.
		thisform.opmode=3  &&指定操作模式
		thisform.refresh
		thisform.txtyh.setfocus
		thisform.txtxm.setfocus
	ENDPROC


	PROCEDURE commandgroup1.Command8.Click
		if  messagebox("是否放弃当前操作?", 48+4,"信息提示")=6 &&回答"是"
			=tablerevert(.F.)	&&将数据恢复
		    this.enabled=.F.
		    thisform.commandgroup1.command9.enabled=.F.
		    if thisform.opmode=1 &&添加操作
		       thisform.jls=thisform.jls-1
		       if thisform.jls>0 &&若存在记录,则转向"取消"操作前的记录
		          go thisform.currno
		       endif
		    endif
		    thisform.setall("enabled",.F.,"textbox")
		    thisform.combo1.enabled=.F.
		    thisform.disp
			thisform.refresh()
		endif
	ENDPROC


	PROCEDURE commandgroup1.Command9.Click
		if tableupdate(.F.)=.F.
		   =messagebox("数据保存不成功",48,"信息提示")
		else
		   this.enabled=.F.
		   thisform.commandgroup1.command8.enabled=.F.
		endif
	ENDPROC


	PROCEDURE command1.Click
		thisform.release
		select gzb
		pack
	ENDPROC


	PROCEDURE txtrq.LostFocus
		currq=this.value
	ENDPROC


	PROCEDURE txtyh.GotFocus
		this.value=curyh
		thisform.txtmh.value=curmh
		thisform.txtrq.value=currq
	ENDPROC


	PROCEDURE txtyh.LostFocus
		curyh=this.value
	ENDPROC


	PROCEDURE txtmh.LostFocus
		curmh=this.value
	ENDPROC


	PROCEDURE txtxm.LostFocus
		select gzb
		currec=recno()
		locate for 年份=thisform.txtyh.value and 月份=thisform.txtmh.value and 姓名=alltrim(this.value) and recno()!=currec
		if found()
		   =messagebox("该职工本月工资重复输入,需要进行处理",48,"信息提示")
		endif
		go currec
	ENDPROC


	PROCEDURE txtf8.LostFocus
		thisform.txtf9.value=thisform.txtf1.value+thisform.txtf2.value+thisform.txtf3.value+thisform.txtf4.value+ ;
		   thisform.txtf5.value+thisform.txtf6.value+thisform.txtf7.value+thisform.txtf8.value
		  
	ENDPROC


	PROCEDURE txtf19.LostFocus
		thisform.txtf20.value=thisform.txtf10.value+thisform.txtf11.value+thisform.txtf12.value+;
		     thisform.txtf13.value+thisform.txtf14.value+thisform.txtf15.value+;
		     thisform.txtf16.value+thisform.txtf17.value+thisform.txtf18.value+;
		     +thisform.txtf19.value
		thisform.txtf21.value=thisform.txtf9.value-thisform.txtf20.value
	ENDPROC


	PROCEDURE combo1.LostFocus
		select pmb
		locate for alltrim(pm)==alltrim(this.text)
		if !found()
		   select gzb
		   repl 部门 with this.text
		   if messagebox("输入的新部门,添加到部门表中吗?",48+4,"信息提示")=6
		      select pmb
		      append blank
		      repl pm with this.text
		   endif
		endif
		select gzb
	ENDPROC


	PROCEDURE command2.Click
		do form gz11
		thisform.refresh
	ENDPROC


	PROCEDURE command3.Click
		do form gz12
	ENDPROC


	PROCEDURE commandgroup2.Command1.Click
		if messagebox("所有记录一旦删除便不能恢复,真的要删除吗?",48+4,"信息提示")=6 &&回答"是"
		   count to deljls
		   delete all
		   thisform.jls=thisform.jls-deljls
		   thisform.disp
		   thisform.refresh
		endif
	ENDPROC


	PROCEDURE commandgroup2.Command2.Click
		do form gz11
		thisform.refresh
	ENDPROC


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