gz11.prg

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

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


	Top = 116
	Left = 169
	Height = 211
	Width = 429
	DoCreate = .T.
	Caption = "批量修改"
	Closable = .F.
	MaxButton = .F.
	MinButton = .F.
	WindowType = 1
	Name = "Form1"


	ADD OBJECT combo1 AS combobox WITH ;
		FontSize = 11, ;
		RowSourceType = 8, ;
		RowSource = "", ;
		Height = 25, ;
		Left = 24, ;
		Top = 112, ;
		Width = 97, ;
		Name = "Combo1"


	ADD OBJECT label1 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 11, ;
		Caption = "替换成", ;
		Height = 19, ;
		Left = 126, ;
		Top = 116, ;
		Width = 51, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label1"


	ADD OBJECT text1 AS textbox WITH ;
		FontSize = 11, ;
		Height = 25, ;
		Left = 180, ;
		Top = 112, ;
		Width = 229, ;
		Name = "Text1"


	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 167, ;
		Left = 93, ;
		Height = 33, ;
		Width = 73, ;
		FontBold = .T., ;
		FontName = "楷体_GB2312", ;
		FontSize = 18, ;
		Caption = "确定", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command1"


	ADD OBJECT command2 AS commandbutton WITH ;
		Top = 167, ;
		Left = 211, ;
		Height = 33, ;
		Width = 73, ;
		FontBold = .T., ;
		FontName = "楷体_GB2312", ;
		FontSize = 18, ;
		Caption = "取消", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command2"


	ADD OBJECT label2 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 12, ;
		Caption = "指定字段", ;
		Height = 20, ;
		Left = 36, ;
		Top = 87, ;
		Width = 71, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label2"


	ADD OBJECT label3 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 12, ;
		Caption = "替换的表达式", ;
		Height = 20, ;
		Left = 231, ;
		Top = 88, ;
		Width = 105, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label3"


	ADD OBJECT shape1 AS shape WITH ;
		Top = 12, ;
		Left = 32, ;
		Height = 61, ;
		Width = 361, ;
		SpecialEffect = 0, ;
		Name = "Shape1"


	ADD OBJECT label4 AS label WITH ;
		FontBold = .T., ;
		FontSize = 12, ;
		WordWrap = .T., ;
		Caption = "当选择“确认”后将当前满足条件的记录均进行本次替换。", ;
		Height = 37, ;
		Left = 55, ;
		Top = 24, ;
		Width = 325, ;
		ForeColor = RGB(255,0,0), ;
		Name = "Label4"


	PROCEDURE command1.Click
		select gzb
		err=0
		on error err=1
		comp="repl "+thisform.combo1.value+" with "+thisform.text1.value+" all"
		&comp.
		if err=1
		   =messagebox("替换表达式有错误,不能执行本操作",48,"信息提示")
		else
		   select gzb
		   repl 应发数 with 职务工资+结余补贴+奖金津贴+校内津贴+教护津贴+特种津贴+房贴+降温费 all
		   repl 总扣数 with 房租+水电+假旷+公积金+托儿费+个调税+储蓄+会费+有线电视+电话费 all
		   repl 实发数 with 应发数-总扣数 all
		   thisform.release
		endif
	ENDPROC


	PROCEDURE command2.Click
		thisform.release
	ENDPROC


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