zb.prg

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

		Caption = "打 印", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command4"


	ADD OBJECT zb.pageframe1.page2.command5 AS commandbutton WITH ;
		Top = 444, ;
		Left = 480, ;
		Height = 32, ;
		Width = 108, ;
		FontBold = .T., ;
		FontSize = 12, ;
		Caption = "转处理结果表", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command5"


	ADD OBJECT zb.pageframe1.page2.command6 AS commandbutton WITH ;
		Top = 443, ;
		Left = 608, ;
		Height = 32, ;
		Width = 64, ;
		FontBold = .T., ;
		FontSize = 12, ;
		Caption = "返 回", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command6"


	ADD OBJECT zb.pageframe1.page2.label1 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontName = "仿宋_GB2312", ;
		FontSize = 18, ;
		FontStrikethru = .F., ;
		FontUnderline = .T., ;
		Alignment = 2, ;
		Caption = "核 查 社 会 审 计 机 构 处 理 建 议 汇 总 表", ;
		Height = 29, ;
		Left = 106, ;
		Top = 10, ;
		Width = 560, ;
		ForeColor = RGB(255,0,0), ;
		Name = "Label1"


	ADD OBJECT zb.pageframe1.page2.label2 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 11, ;
		Alignment = 2, ;
		Caption = "单位名称(财政部门):", ;
		Height = 19, ;
		Left = 14, ;
		Top = 62, ;
		Width = 158, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label2"


	ADD OBJECT zb.pageframe1.page2.text1 AS textbox WITH ;
		FontSize = 11, ;
		ControlSource = "zb1app.mc", ;
		Enabled = .F., ;
		Height = 25, ;
		Left = 178, ;
		Top = 57, ;
		Width = 380, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT zb.pageframe1.page2.label3 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 12, ;
		Caption = "提示:按F2键输入√", ;
		Height = 20, ;
		Left = 594, ;
		Top = 58, ;
		Width = 149, ;
		ForeColor = RGB(255,0,0), ;
		Name = "Label3"


	PROCEDURE Init
		on key label F2 keyboard('√')
		select zb1app
		repl mc with data1
		thisform.pageframe1.page1.grid1.column2.header1.caption=alltrim(zb1app.f1)
		thisform.pageframe1.page1.grid1.column3.header1.caption=alltrim(zb1app.f2)
		thisform.pageframe1.page1.grid1.column4.header1.caption=alltrim(zb1app.f3)
		thisform.pageframe1.page1.grid1.column5.header1.caption=alltrim(zb1app.f4)
		thisform.pageframe1.page1.grid1.column6.header1.caption=alltrim(zb1app.f5)
		thisform.pageframe1.page1.grid1.column7.header1.caption=alltrim(zb1app.f6)
		thisform.pageframe1.page1.grid1.column8.header1.caption=alltrim(zb1app.f7)
		thisform.pageframe1.page1.grid1.column9.header1.caption=alltrim(zb1app.f8)
		select zb1
		if (recc()=0)
		   append blank
		   repl mc with '   合   计'
		   appe from dwk field mc for not "转入"$mc
		endif
		go top
		select zb1
	ENDPROC


	PROCEDURE pageframe1.Page1.Activate
		select zb1
	ENDPROC


	PROCEDURE pageframe1.Page2.Activate
		select zb2
	ENDPROC


	PROCEDURE text1.LostFocus
		currec=recno()
		sum val(sz1) to a for recno()<>1
		if (!a=0)
		   repl sz1 with str(a,10,2) for recno()=1
		else 
		   repl sz1 with space(10) for recno()=1
		endif
		go currec
	ENDPROC


	PROCEDURE text1.LostFocus
		currec=recno()
		sum val(sz2) to a for recno()<>1
		if (!a=0)
		   repl sz2 with str(a,10,2) for recno()=1
		else 
		   repl sz2 with space(10) for recno()=1
		endif
		go currec
	ENDPROC


	PROCEDURE text1.LostFocus
		currec=recno()
		sum val(sz3) to a for recno()<>1
		if (!a=0)
		   repl sz3 with str(a,10,2) for recno()=1
		else 
		   repl sz3 with space(10) for recno()=1
		endif
		go currec
	ENDPROC


	PROCEDURE text1.LostFocus
		currec=recno()
		sum val(sz4) to a for recno()<>1
		if (!a=0)
		   repl sz4 with str(a,10,2) for recno()=1
		else 
		   repl sz4 with space(10) for recno()=1
		endif
		go currec
	ENDPROC


	PROCEDURE text1.LostFocus
		currec=recno()
		sum val(sz5) to a for recno()<>1
		if (!a=0)
		   repl sz5 with str(a,10,2) for recno()=1
		else 
		   repl sz5 with space(10) for recno()=1
		endif
		go currec
	ENDPROC


	PROCEDURE text1.LostFocus
		currec=recno()
		sum val(sz6) to a for recno()<>1
		if (!a=0)
		   repl sz6 with str(a,10,2) for recno()=1
		else 
		   repl sz6 with space(10) for recno()=1
		endif
		go currec
	ENDPROC


	PROCEDURE text1.LostFocus
		currec=recno()
		sum val(sz7) to a for recno()<>1
		if (!a=0)
		   repl sz7 with str(a,10,2) for recno()=1
		else 
		   repl sz7 with space(10) for recno()=1
		endif
		go currec
	ENDPROC


	PROCEDURE text1.LostFocus
		currec=recno()
		sum val(sz8) to a for recno()<>1
		if (!a=0)
		   repl sz8 with str(a,10,2) for recno()=1
		else 
		   repl sz8 with space(10) for recno()=1
		endif
		go currec
	ENDPROC


	PROCEDURE text1.LostFocus
		currec=recno()
		sum val(sz9) to a for recno()<>1
		if (!a=0)
		   repl sz9 with str(a,10,2) for recno()=1
		else 
		   repl sz9 with space(10) for recno()=1
		endif
		go currec
	ENDPROC


	PROCEDURE text1.LostFocus
		currec=recno()
		sum val(sz10) to a for recno()<>1
		if (!a=0)
		   repl sz10 with str(a,10,2) for recno()=1
		else 
		   repl sz10 with space(10) for recno()=1
		endif
		go currec
	ENDPROC


	PROCEDURE text1.LostFocus
		currec=recno()
		sum val(sz11) to a for recno()<>1
		if (!a=0)
		   repl sz11 with str(a,10,2) for recno()=1
		else 
		   repl sz11 with space(10) for recno()=1
		endif
		go currec
	ENDPROC


	PROCEDURE text1.LostFocus
		currec=recno()
		sum val(sz12) to a for recno()<>1
		if (!a=0)
		   repl sz12 with str(a,10,2) for recno()=1
		else 
		   repl sz12 with space(10) for recno()=1
		endif
		go currec
	ENDPROC


	PROCEDURE text1.LostFocus
		currec=recno()
		sum val(sz13) to a for recno()<>1
		if (!a=0)
		   repl sz13 with str(a,10,2) for recno()=1
		else 
		   repl sz13 with space(10) for recno()=1
		endif
		go currec
	ENDPROC


	PROCEDURE text1.LostFocus
		currec=recno()
		sum val(sz14) to a for recno()<>1
		if (!a=0)
		   repl sz14 with str(a,10,2) for recno()=1
		else 
		   repl sz14 with space(10) for recno()=1
		endif
		go currec
	ENDPROC


	PROCEDURE text1.LostFocus
		currec=recno()
		sum val(sz15) to a for recno()<>1
		if (!a=0)
		   repl sz15 with str(a,10,2) for recno()=1
		else 
		   repl sz15 with space(10) for recno()=1
		endif
		go currec
	ENDPROC


	PROCEDURE commandgroup1.Command1.Click
		select zb1
		insert blank
		thisform.pageframe1.page1.grid1.setfocus
	ENDPROC


	PROCEDURE commandgroup1.Command2.Click
		select zb1
		appe blank
		thisform.pageframe1.page1.grid1.setfocus
	ENDPROC


	PROCEDURE commandgroup1.Command3.Click
		if  messagebox("单位一旦删除,不能再恢复,真的删除吗?",48+4,"信息提示")=6
		    select zb1
		    delete
		    thisform.refresh
		endif
	ENDPROC


	PROCEDURE command1.Click
		select  zb1
		currec=recno()
		row=recc()
		maxpage=21
		zpage=int((row-1)/maxpage)+1
		for i=row+1 to zpage*maxpage
		    append blank
		endfor
		report form zb1 prev
		go currec
	ENDPROC


	PROCEDURE command2.Click
		thisform.pageframe1.activepage=2
	ENDPROC


	PROCEDURE command3.Click
		thisform.release
		use in zb1
		use in zb2
		set excl on
		use zb1 in 0
		select zb1
		pack
		use in zb1
		use zb2 in 0
		select zb2
		pack
		use in zb2
		on key label F2
	ENDPROC


	PROCEDURE command4.Click
		do form setkm
		thisform.pageframe1.page1.grid1.column2.header1.caption=alltrim(zb1app.f1)
		thisform.pageframe1.page1.grid1.column3.header1.caption=alltrim(zb1app.f2)
		thisform.pageframe1.page1.grid1.column4.header1.caption=alltrim(zb1app.f3)
		thisform.pageframe1.page1.grid1.column5.header1.caption=alltrim(zb1app.f4)
		thisform.pageframe1.page1.grid1.column6.header1.caption=alltrim(zb1app.f5)
		thisform.pageframe1.page1.grid1.column7.header1.caption=alltrim(zb1app.f6)
		thisform.pageframe1.page1.grid1.column8.header1.caption=alltrim(zb1app.f7)
		thisform.pageframe1.page1.grid1.column9.header1.caption=alltrim(zb1app.f8)
	ENDPROC


	PROCEDURE text1.LostFocus
		 
	ENDPROC


	PROCEDURE command2.Click
		thisform.pageframe1.activepage=2
	ENDPROC


	PROCEDURE command3.Click
		thisform.release
	ENDPROC


	PROCEDURE commandgroup2.Command1.Click
		select zb2
		insert blank
		thisform.pageframe1.page2.grid1.setfocus
	ENDPROC


	PROCEDURE commandgroup2.Command2.Click
		select zb2
		append blank
		thisform.pageframe1.page2.grid1.setfocus
	ENDPROC


	PROCEDURE commandgroup2.Command3.Click
		if  messagebox("单位一旦删除,不能再恢复,真的删除吗?",48+4,"信息提示")=6
		    select zb2
		    delete
		    thisform.refresh
		endif
	ENDPROC


	PROCEDURE command4.Click
		select  zb2
		currec=recno()
		report  form  zb2  prev
		go currec
	ENDPROC


	PROCEDURE command5.Click
		select zb1
		thisform.pageframe1.activepage=1
	ENDPROC


	PROCEDURE command6.Click
		thisform.release
		use in zb1
		use in zb2
		set excl on
		use zb1 in 0
		select zb1
		pack
		use in zb1
		use zb2 in 0
		select zb2
		pack
		use in zb2
		on key label F2
	ENDPROC


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