gz2.prg

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

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


	Top = 0
	Left = 0
	Height = 510
	Width = 783
	DoCreate = .T.
	Caption = "工资查询"
	Closable = .F.
	MaxButton = .F.
	MinButton = .F.
	WindowType = 1
	WindowState = 2
	Name = "Form1"


	ADD OBJECT grid1 AS grid WITH ;
		ColumnCount = 26, ;
		DeleteMark = .F., ;
		Enabled = .T., ;
		Height = 309, ;
		Left = 4, ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordSource = "gzb", ;
		Top = 2, ;
		Width = 767, ;
		Name = "Grid1", ;
		Column1.ColumnOrder = 3, ;
		Column1.ControlSource = "gzb.姓名", ;
		Column1.Enabled = .T., ;
		Column1.Width = 55, ;
		Column1.ReadOnly = .T., ;
		Column1.Name = "Column1", ;
		Column2.ColumnOrder = 4, ;
		Column2.ControlSource = "gzb.部门", ;
		Column2.Enabled = .T., ;
		Column2.Width = 72, ;
		Column2.ReadOnly = .T., ;
		Column2.Name = "Column2", ;
		Column3.ColumnOrder = 5, ;
		Column3.ControlSource = "gzb.职务工资", ;
		Column3.Enabled = .T., ;
		Column3.Width = 54, ;
		Column3.ReadOnly = .T., ;
		Column3.Name = "Column3", ;
		Column4.ColumnOrder = 6, ;
		Column4.ControlSource = "gzb.结余补贴", ;
		Column4.Enabled = .T., ;
		Column4.Width = 61, ;
		Column4.ReadOnly = .T., ;
		Column4.Name = "Column4", ;
		Column5.ColumnOrder = 7, ;
		Column5.ControlSource = "gzb.奖金津贴", ;
		Column5.Enabled = .T., ;
		Column5.Width = 56, ;
		Column5.ReadOnly = .T., ;
		Column5.Name = "Column5", ;
		Column6.ColumnOrder = 8, ;
		Column6.ControlSource = "gzb.校内津贴", ;
		Column6.Enabled = .T., ;
		Column6.Width = 53, ;
		Column6.ReadOnly = .T., ;
		Column6.Name = "Column6", ;
		Column7.ColumnOrder = 9, ;
		Column7.ControlSource = "gzb.教护津贴", ;
		Column7.Enabled = .T., ;
		Column7.Width = 49, ;
		Column7.ReadOnly = .T., ;
		Column7.Name = "Column7", ;
		Column8.ColumnOrder = 10, ;
		Column8.ControlSource = "gzb.特种津贴", ;
		Column8.Enabled = .T., ;
		Column8.Width = 53, ;
		Column8.ReadOnly = .T., ;
		Column8.Name = "Column8", ;
		Column9.ColumnOrder = 11, ;
		Column9.ControlSource = "gzb.房贴", ;
		Column9.Enabled = .T., ;
		Column9.Width = 55, ;
		Column9.ReadOnly = .T., ;
		Column9.Name = "Column9", ;
		Column10.ColumnOrder = 12, ;
		Column10.ControlSource = "gzb.降温费", ;
		Column10.Enabled = .T., ;
		Column10.Width = 54, ;
		Column10.ReadOnly = .T., ;
		Column10.Name = "Column10", ;
		Column11.ColumnOrder = 13, ;
		Column11.ControlSource = "gzb.应发数", ;
		Column11.Enabled = .T., ;
		Column11.Width = 48, ;
		Column11.ReadOnly = .T., ;
		Column11.Name = "Column11", ;
		Column12.ColumnOrder = 14, ;
		Column12.ControlSource = "gzb.房租", ;
		Column12.Enabled = .T., ;
		Column12.Width = 59, ;
		Column12.ReadOnly = .T., ;
		Column12.Name = "Column12", ;
		Column13.ColumnOrder = 15, ;
		Column13.ControlSource = "gzb.水电", ;
		Column13.Enabled = .T., ;
		Column13.Width = 62, ;
		Column13.ReadOnly = .T., ;
		Column13.Name = "Column13", ;
		Column14.ColumnOrder = 16, ;
		Column14.ControlSource = "gzb.假旷", ;
		Column14.Enabled = .T., ;
		Column14.Width = 54, ;
		Column14.ReadOnly = .T., ;
		Column14.Name = "Column14", ;
		Column15.ColumnOrder = 17, ;
		Column15.ControlSource = "gzb.公积金", ;
		Column15.Enabled = .T., ;
		Column15.Width = 57, ;
		Column15.ReadOnly = .T., ;
		Column15.Name = "Column15", ;
		Column16.ColumnOrder = 18, ;
		Column16.ControlSource = "gzb.托儿费", ;
		Column16.Enabled = .T., ;
		Column16.Width = 55, ;
		Column16.ReadOnly = .T., ;
		Column16.Name = "Column16", ;
		Column17.ColumnOrder = 19, ;
		Column17.ControlSource = "gzb.个调税", ;
		Column17.Enabled = .T., ;
		Column17.Width = 63, ;
		Column17.ReadOnly = .T., ;
		Column17.Name = "Column17", ;
		Column18.ColumnOrder = 20, ;
		Column18.ControlSource = "gzb.储蓄", ;
		Column18.Enabled = .T., ;
		Column18.Width = 58, ;
		Column18.ReadOnly = .T., ;
		Column18.Name = "Column18", ;
		Column19.ColumnOrder = 21, ;
		Column19.ControlSource = "gzb.会费", ;
		Column19.Enabled = .T., ;
		Column19.Width = 50, ;
		Column19.ReadOnly = .T., ;
		Column19.Name = "Column19", ;
		Column20.ColumnOrder = 22, ;
		Column20.ControlSource = "gzb.有线电视", ;
		Column20.Enabled = .T., ;
		Column20.Width = 57, ;
		Column20.ReadOnly = .T., ;
		Column20.Name = "Column20", ;
		Column21.ColumnOrder = 23, ;
		Column21.ControlSource = "gzb.电话费", ;
		Column21.Enabled = .T., ;
		Column21.Width = 50, ;
		Column21.ReadOnly = .T., ;
		Column21.Name = "Column21", ;
		Column22.ColumnOrder = 24, ;
		Column22.ControlSource = "gzb.总扣数", ;
		Column22.Enabled = .T., ;
		Column22.Width = 62, ;
		Column22.ReadOnly = .T., ;
		Column22.Name = "Column22", ;
		Column23.ColumnOrder = 25, ;
		Column23.ControlSource = "gzb.实发数", ;
		Column23.Enabled = .T., ;
		Column23.Width = 61, ;
		Column23.ReadOnly = .T., ;
		Column23.Name = "Column23", ;
		Column24.ColumnOrder = 26, ;
		Column24.ControlSource = "gzb.输入日期", ;
		Column24.Enabled = .T., ;
		Column24.Width = 67, ;
		Column24.ReadOnly = .T., ;
		Column24.Name = "Column24", ;
		Column25.ColumnOrder = 1, ;
		Column25.ControlSource = "gzb.年份", ;
		Column25.Enabled = .T., ;
		Column25.Width = 34, ;
		Column25.ReadOnly = .T., ;
		Column25.Name = "Column25", ;
		Column26.ColumnOrder = 2, ;
		Column26.ControlSource = "gzb.月份", ;
		Column26.Enabled = .T., ;
		Column26.Width = 26, ;
		Column26.ReadOnly = .T., ;
		Column26.Name = "Column26"


	ADD OBJECT gz2.grid1.column1.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "姓名", ;
		Name = "Header1"


	ADD OBJECT gz2.grid1.column1.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Enabled = .T., ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT gz2.grid1.column2.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "部门", ;
		Name = "Header1"


	ADD OBJECT gz2.grid1.column2.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Enabled = .T., ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT gz2.grid1.column3.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "职务工资", ;
		Name = "Header1"


	ADD OBJECT gz2.grid1.column3.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Enabled = .T., ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT gz2.grid1.column4.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "结余补贴", ;
		Name = "Header1"


	ADD OBJECT gz2.grid1.column4.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Enabled = .T., ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT gz2.grid1.column5.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "奖金津贴", ;
		Name = "Header1"


	ADD OBJECT gz2.grid1.column5.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Enabled = .T., ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT gz2.grid1.column6.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "校内津贴", ;
		Name = "Header1"


	ADD OBJECT gz2.grid1.column6.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Enabled = .T., ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT gz2.grid1.column7.header1 AS header WITH ;
		Caption = "教护津贴", ;
		Name = "Header1"


	ADD OBJECT gz2.grid1.column7.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Enabled = .T., ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT gz2.grid1.column8.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "特种津贴", ;
		Name = "Header1"


	ADD OBJECT gz2.grid1.column8.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Enabled = .T., ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT gz2.grid1.column9.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "房贴", ;
		Name = "Header1"


	ADD OBJECT gz2.grid1.column9.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Enabled = .T., ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT gz2.grid1.column10.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "降温费", ;
		Name = "Header1"


	ADD OBJECT gz2.grid1.column10.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Enabled = .T., ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT gz2.grid1.column11.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "应发数", ;
		Name = "Header1"


	ADD OBJECT gz2.grid1.column11.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Enabled = .T., ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT gz2.grid1.column12.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "房租", ;
		Name = "Header1"


	ADD OBJECT gz2.grid1.column12.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Enabled = .T., ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT gz2.grid1.column13.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "水电", ;
		Name = "Header1"


	ADD OBJECT gz2.grid1.column13.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Enabled = .T., ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT gz2.grid1.column14.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "假旷", ;
		Name = "Header1"


	ADD OBJECT gz2.grid1.column14.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Enabled = .T., ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT gz2.grid1.column15.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "公积金", ;
		Name = "Header1"


	ADD OBJECT gz2.grid1.column15.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Enabled = .T., ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT gz2.grid1.column16.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "托儿费", ;
		Name = "Header1"


	ADD OBJECT gz2.grid1.column16.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Enabled = .T., ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT gz2.grid1.column17.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "个调税", ;
		Name = "Header1"


	ADD OBJECT gz2.grid1.column17.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Enabled = .T., ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT gz2.grid1.column18.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "储蓄", ;
		Name = "Header1"


	ADD OBJECT gz2.grid1.column18.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Enabled = .T., ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT gz2.grid1.column19.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "会费", ;
		Name = "Header1"


	ADD OBJECT gz2.grid1.column19.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Enabled = .T., ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT gz2.grid1.column20.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "有线电视", ;
		Name = "Header1"


	ADD OBJECT gz2.grid1.column20.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Enabled = .T., ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT gz2.grid1.column21.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "电话费", ;
		Name = "Header1"


	ADD OBJECT gz2.grid1.column21.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Enabled = .T., ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT gz2.grid1.column22.header1 AS header WITH ;