hz.prg

财政监督管理系统的所有文件（数据表、表单、报表以及.exe文件等）。

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


	Top = 0
	Left = 0
	Height = 574
	Width = 793
	DoCreate = .T.
	Caption = "本系统版权所有,不得非法拷贝！  ＪＣＸＴ Ｖｅｒ ２.０  ２０００年０６月"
	Closable = .F.
	WindowState = 2
	Name = "Form1"


	ADD OBJECT grid1 AS grid WITH ;
		ColumnCount = 6, ;
		DeleteMark = .F., ;
		Height = 327, ;
		Left = 41, ;
		Panel = 1, ;
		ReadOnly = .T., ;
		Top = 46, ;
		Width = 696, ;
		Name = "Grid1", ;
		Column1.ControlSource = "dwk.bh", ;
		Column1.Width = 49, ;
		Column1.ReadOnly = .T., ;
		Column1.Name = "Column1", ;
		Column2.ControlSource = "dwk.mc", ;
		Column2.Width = 155, ;
		Column2.ReadOnly = .T., ;
		Column2.Name = "Column2", ;
		Column3.ControlSource = "dwk.jcdw", ;
		Column3.Width = 132, ;
		Column3.ReadOnly = .T., ;
		Column3.Name = "Column3", ;
		Column4.ControlSource = "dwk.xfr3", ;
		Column4.Width = 56, ;
		Column4.ReadOnly = .T., ;
		Column4.Name = "Column4", ;
		Column5.ControlSource = "dwk.rq3", ;
		Column5.Width = 52, ;
		Column5.ReadOnly = .T., ;
		Column5.Name = "Column5", ;
		Column6.ControlSource = "dwk.sx", ;
		Column6.Width = 600, ;
		Column6.ReadOnly = .T., ;
		Column6.Name = "Column6"


	ADD OBJECT hz.grid1.column1.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "编 号", ;
		Name = "Header1"


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


	ADD OBJECT hz.grid1.column2.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "被查单位名称", ;
		Name = "Header1"


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


	ADD OBJECT hz.grid1.column3.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "检查组单位名称(组长)", ;
		Name = "Header1"


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


	ADD OBJECT hz.grid1.column4.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "签发人", ;
		Name = "Header1"


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


	ADD OBJECT hz.grid1.column5.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "签发日期", ;
		Name = "Header1"


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


	ADD OBJECT hz.grid1.column6.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "核算关系", ;
		Name = "Header1"


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


	ADD OBJECT commandgroup1 AS commandgroup WITH ;
		ButtonCount = 3, ;
		Value = 1, ;
		Height = 109, ;
		Left = 312, ;
		Top = 388, ;
		Width = 210, ;
		Name = "Commandgroup1", ;
		Command1.Top = 7, ;
		Command1.Left = 5, ;
		Command1.Height = 33, ;
		Command1.Width = 202, ;
		Command1.FontBold = .T., ;
		Command1.Caption = "国有企业损益表核查表[汇总表一]", ;
		Command1.ForeColor = RGB(255,0,0), ;
		Command1.Name = "Command1", ;
		Command2.Top = 39, ;
		Command2.Left = 5, ;
		Command2.Height = 33, ;
		Command2.Width = 202, ;
		Command2.FontBold = .T., ;
		Command2.Caption = "国企资产负债表核查表[汇总表二]", ;
		Command2.ForeColor = RGB(255,0,0), ;
		Command2.Name = "Command2", ;
		Command3.Top = 71, ;
		Command3.Left = 5, ;
		Command3.Height = 33, ;
		Command3.Width = 202, ;
		Command3.FontBold = .T., ;
		Command3.Caption = "国企资产负债表核查表[汇总表三]", ;
		Command3.ForeColor = RGB(255,0,0), ;
		Command3.Name = "Command3"


	ADD OBJECT commandgroup2 AS commandgroup WITH ;
		ButtonCount = 3, ;
		Value = 1, ;
		Height = 111, ;
		Left = 204, ;
		Top = 409, ;
		Width = 86, ;
		Name = "Commandgroup2", ;
		Command1.Top = 7, ;
		Command1.Left = 6, ;
		Command1.Height = 33, ;
		Command1.Width = 74, ;
		Command1.FontBold = .T., ;
		Command1.FontSize = 14, ;
		Command1.Caption = "输入", ;
		Command1.ForeColor = RGB(255,0,0), ;
		Command1.Name = "Command1", ;
		Command2.Top = 39, ;
		Command2.Left = 6, ;
		Command2.Height = 33, ;
		Command2.Width = 74, ;
		Command2.FontBold = .T., ;
		Command2.FontSize = 14, ;
		Command2.Caption = "删除", ;
		Command2.ForeColor = RGB(255,0,0), ;
		Command2.Name = "Command2", ;
		Command3.Top = 72, ;
		Command3.Left = 6, ;
		Command3.Height = 33, ;
		Command3.Width = 74, ;
		Command3.FontBold = .T., ;
		Command3.FontSize = 14, ;
		Command3.Caption = "修改", ;
		Command3.ForeColor = RGB(255,0,0), ;
		Command3.Name = "Command3"


	ADD OBJECT label1 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontItalic = .T., ;
		FontName = "仿宋_GB2312", ;
		FontSize = 20, ;
		Caption = "被 检 查 单 位 名 录", ;
		Height = 33, ;
		Left = 216, ;
		Top = 6, ;
		Width = 296, ;
		ForeColor = RGB(255,0,0), ;
		Name = "Label1"


	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 467, ;
		Left = 672, ;
		Height = 36, ;
		Width = 74, ;
		FontBold = .T., ;
		FontSize = 14, ;
		Caption = "返 回", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command1"


	ADD OBJECT commandgroup3 AS commandgroup WITH ;
		ButtonCount = 5, ;
		Value = 1, ;
		Height = 132, ;
		Left = 540, ;
		Top = 391, ;
		Width = 120, ;
		Name = "Commandgroup3", ;
		Command1.Top = 7, ;
		Command1.Left = 10, ;
		Command1.Height = 25, ;
		Command1.Width = 103, ;
		Command1.FontBold = .T., ;
		Command1.FontSize = 10, ;
		Command1.Caption = "检验汇总表", ;
		Command1.ForeColor = RGB(255,0,0), ;
		Command1.Name = "Command1", ;
		Command2.Top = 31, ;
		Command2.Left = 10, ;
		Command2.Height = 25, ;
		Command2.Width = 103, ;
		Command2.FontBold = .T., ;
		Command2.FontSize = 10, ;
		Command2.Caption = "总表:汇总表一", ;
		Command2.ForeColor = RGB(255,0,0), ;
		Command2.Name = "Command2", ;
		Command3.Top = 55, ;
		Command3.Left = 10, ;
		Command3.Height = 25, ;
		Command3.Width = 103, ;
		Command3.FontBold = .T., ;
		Command3.FontSize = 10, ;
		Command3.Caption = "总表:汇总表二", ;
		Command3.ForeColor = RGB(255,0,0), ;
		Command3.Name = "Command3", ;
		Command4.Top = 79, ;
		Command4.Left = 10, ;
		Command4.Height = 25, ;
		Command4.Width = 103, ;
		Command4.FontBold = .T., ;
		Command4.FontSize = 10, ;
		Command4.Caption = "总表:汇总表三", ;
		Command4.ForeColor = RGB(255,0,0), ;
		Command4.Name = "Command4", ;
		Command5.Top = 103, ;
		Command5.Left = 10, ;
		Command5.Height = 25, ;
		Command5.Width = 103, ;
		Command5.FontBold = .T., ;
		Command5.Caption = "设  置", ;
		Command5.ForeColor = RGB(255,0,0), ;
		Command5.Name = "Command5"


	ADD OBJECT commandgroup4 AS commandgroup WITH ;
		ButtonCount = 3, ;
		Value = 1, ;
		Height = 96, ;
		Left = 84, ;
		Top = 409, ;
		Width = 108, ;
		Name = "Commandgroup4", ;
		Command1.Top = 5, ;
		Command1.Left = 11, ;
		Command1.Height = 30, ;
		Command1.Width = 91, ;
		Command1.FontBold = .T., ;
		Command1.FontSize = 12, ;
		Command1.Caption = "软盘审核", ;
		Command1.ForeColor = RGB(255,0,0), ;
		Command1.Name = "Command1", ;
		Command2.Top = 34, ;
		Command2.Left = 10, ;
		Command2.Height = 30, ;
		Command2.Width = 91, ;
		Command2.FontBold = .T., ;
		Command2.FontSize = 12, ;
		Command2.Caption = "转 入", ;
		Command2.ForeColor = RGB(255,0,0), ;
		Command2.Name = "Command2", ;
		Command3.Top = 63, ;
		Command3.Left = 10, ;
		Command3.Height = 30, ;
		Command3.Width = 91, ;
		Command3.FontBold = .T., ;
		Command3.FontSize = 12, ;
		Command3.Caption = "转 出", ;
		Command3.ForeColor = RGB(255,0,0), ;
		Command3.Name = "Command3"


	ADD OBJECT command3 AS commandbutton WITH ;
		Top = 503, ;
		Left = 331, ;
		Height = 23, ;
		Width = 174, ;
		FontBold = .T., ;
		FontSize = 11, ;
		Caption = "打印被查单位名录", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command3"


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


	PROCEDURE Init
		set safe off
		set date ansi
		public no,name,jcname,premc,potsmc
	ENDPROC


	PROCEDURE Activate
		thisform.grid1.setfocus
	ENDPROC


	PROCEDURE text1.When
		premc=this.value
	ENDPROC


	PROCEDURE text1.LostFocus
		postmc=this.value
		if !empty(premc) and !premc=postmc
		   use hzb1 in 0
		   select hzb1
		   locate for mc=premc
		   if found()
		      =messagebox("该单位已录入汇总表,不能更名,否则本系统数据将不正确!",48,"信息提示")
		      this.value=premc
		   endif
		   use in hzb1
		endif
		select dwk
	ENDPROC


	PROCEDURE commandgroup1.Command1.Click
		if not empty(mc)
		   no=bh
		   name=mc
		   jcname=jcdw
		   do form hz1
		else
		    =messagebox( "被查单位不能为空,必须要输入!",40+0,"提示信息") 
		endif
	ENDPROC


	PROCEDURE commandgroup1.Command2.Click
		if not empty(mc)
		   no=bh
		   name=mc
		   jcname=jcdw
		   do form hz2
		else
		    =messagebox( "被查单位不能为空,必须要输入!",40+0,"提示信息") 
		endif
	ENDPROC


	PROCEDURE commandgroup1.Command3.Click
		if not empty(mc)
		   no=bh
		   name=mc
		   jcname=jcdw
		   do form hz3
		else
		    =messagebox( "被查单位不能为空,必须要输入!",40+0,"提示信息") 
		endif
	ENDPROC


	PROCEDURE commandgroup2.Command1.Click
		public txt1,txt2,txt3,txt4,txt5
		txt1=space(8)
		txt2=space(40)
		txt3=space(30)
		txt4=space(10)
		txt5={  /  /  }
		do form dwinput3 with 1
	ENDPROC


	PROCEDURE commandgroup2.Command2.Click
		if  messagebox("单位一旦删除,不能再恢复,真的删除吗?",48+4,"信息提示")=6
		    delete
		    thisform.refresh
		    dwmc=mc
		    if !used("hzb1")
		       use hzb1 in 0
		    endif
		    select hzb1
		    delete for mc=dwmc
		    if !used("hzb2")
		       use hzb2 in 0
		    endif
		    select hzb2
		    delete for mc=dwmc
		    if !used("hzb3")
		       use hzb3 in 0
		    endif
		    select hzb3
		    delete for mc=dwmc
		    if !used("hzb1app")
		       use hzb1app in 0
		    endif
		    select hzb1app
		    delete for mc=dwmc
		    if !used("hzb2app")
		       use hzb2app in 0
		    endif
		    select hzb2app
		    delete for mc=dwmc
		    if !used("hzb3app")
		       use hzb3app in 0
		    endif
		    select hzb3app
		    delete for mc=dwmc
		    select dwk
		    thisform.refresh
		endif
	ENDPROC


	PROCEDURE commandgroup2.Command3.Click
		if recno()>0 and recc()>0 and !deleted()
		  public txt1,txt2,txt3,txt4,txt5
		  txt1=bh
		  txt2=mc
		  txt3=jcdw
		  txt4=xfr3
		  txt5=rq3
		  do form dwinput3 with 0
		else
		  messagebox("没有选择任何记录,不能修改",48,"信息提示")
		endif
	ENDPROC


	PROCEDURE command1.Click
		thisform.release
		close all
		set exclu on
		use dwk
		pack
		use hzb1
		pack
		use hzb2
		pack
		use hzb3
		pack
		use hzb1app
		pack
		use hzb2app
		pack
		use hzb3app
		pack
		use
		return
	ENDPROC