th.prg

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

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


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


	ADD OBJECT grid1 AS grid WITH ;
		ColumnCount = 5, ;
		FontBold = .T., ;
		FontSize = 10, ;
		DeleteMark = .F., ;
		GridLines = 3, ;
		Height = 308, ;
		Left = 41, ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordSource = "dwk", ;
		RecordSourceType = 1, ;
		RowHeight = 18, ;
		ScrollBars = 2, ;
		Top = 84, ;
		Width = 600, ;
		Name = "Grid1", ;
		Column1.FontBold = .T., ;
		Column1.FontSize = 10, ;
		Column1.ControlSource = "dwk.bh", ;
		Column1.Width = 71, ;
		Column1.ReadOnly = .T., ;
		Column1.Name = "Column1", ;
		Column2.FontBold = .T., ;
		Column2.FontSize = 10, ;
		Column2.ControlSource = "dwk.mc", ;
		Column2.Width = 181, ;
		Column2.ReadOnly = .T., ;
		Column2.Name = "Column2", ;
		Column3.FontBold = .T., ;
		Column3.FontSize = 10, ;
		Column3.ControlSource = "dwk.jcdw", ;
		Column3.Width = 189, ;
		Column3.ReadOnly = .T., ;
		Column3.Name = "Column3", ;
		Column4.FontBold = .T., ;
		Column4.FontSize = 10, ;
		Column4.ControlSource = "dwk.xfr1", ;
		Column4.Width = 52, ;
		Column4.ReadOnly = .T., ;
		Column4.Name = "Column4", ;
		Column5.FontBold = .T., ;
		Column5.FontSize = 10, ;
		Column5.ControlSource = "dwk.rq1", ;
		Column5.Width = 71, ;
		Column5.ReadOnly = .T., ;
		Column5.Name = "Column5"


	ADD OBJECT th.grid1.column1.header1 AS header WITH ;
		FontBold = .T., ;
		FontSize = 10, ;
		Alignment = 2, ;
		Caption = "检查编号", ;
		Name = "Header1"


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


	ADD OBJECT th.grid1.column2.header1 AS header WITH ;
		FontBold = .T., ;
		FontSize = 10, ;
		Alignment = 2, ;
		Caption = "被 查 单 位", ;
		Name = "Header1"


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


	ADD OBJECT th.grid1.column3.header1 AS header WITH ;
		FontBold = .T., ;
		FontSize = 10, ;
		Alignment = 2, ;
		Caption = "检 查 机 构", ;
		Name = "Header1"


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


	ADD OBJECT th.grid1.column4.header1 AS header WITH ;
		FontBold = .T., ;
		FontSize = 10, ;
		Alignment = 2, ;
		Caption = "签发人", ;
		Name = "Header1"


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


	ADD OBJECT th.grid1.column5.header1 AS header WITH ;
		FontBold = .T., ;
		FontSize = 10, ;
		Alignment = 2, ;
		Caption = "签发日期", ;
		Name = "Header1"


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


	ADD OBJECT label1 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontItalic = .T., ;
		FontSize = 20, ;
		Caption = "被 查 单 位 名 录", ;
		Height = 33, ;
		Left = 197, ;
		Top = 26, ;
		Width = 246, ;
		ForeColor = RGB(255,0,0), ;
		Name = "Label1"


	ADD OBJECT commandgroup2 AS commandgroup WITH ;
		ButtonCount = 3, ;
		Value = 1, ;
		Height = 60, ;
		Left = 96, ;
		Top = 414, ;
		Width = 228, ;
		Name = "Commandgroup2", ;
		Command1.Top = 15, ;
		Command1.Left = 12, ;
		Command1.Height = 32, ;
		Command1.Width = 63, ;
		Command1.FontBold = .T., ;
		Command1.FontSize = 12, ;
		Command1.Caption = "输入", ;
		Command1.ForeColor = RGB(255,0,0), ;
		Command1.Name = "Command1", ;
		Command2.Top = 15, ;
		Command2.Left = 82, ;
		Command2.Height = 32, ;
		Command2.Width = 63, ;
		Command2.FontBold = .T., ;
		Command2.FontSize = 12, ;
		Command2.Caption = "删除", ;
		Command2.ForeColor = RGB(255,0,0), ;
		Command2.Name = "Command2", ;
		Command3.Top = 15, ;
		Command3.Left = 151, ;
		Command3.Height = 32, ;
		Command3.Width = 63, ;
		Command3.FontBold = .T., ;
		Command3.FontSize = 12, ;
		Command3.Caption = "修改", ;
		Command3.ForeColor = RGB(255,0,0), ;
		Command3.Name = "Command3"


	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 432, ;
		Left = 636, ;
		Height = 42, ;
		Width = 82, ;
		FontBold = .T., ;
		FontSize = 14, ;
		Caption = "返 回", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command1"


	ADD OBJECT command2 AS commandbutton WITH ;
		Top = 408, ;
		Left = 360, ;
		Height = 33, ;
		Width = 178, ;
		FontBold = .T., ;
		FontSize = 14, ;
		Caption = "财政检查通知书", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command2"


	ADD OBJECT shape1 AS shape WITH ;
		Top = 144, ;
		Left = 655, ;
		Height = 194, ;
		Width = 109, ;
		BackStyle = 0, ;
		SpecialEffect = 0, ;
		Name = "Shape1"


	ADD OBJECT label2 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 12, ;
		Caption = " 操作说明 ", ;
		Height = 20, ;
		Left = 665, ;
		Top = 136, ;
		Width = 89, ;
		ForeColor = RGB(255,0,0), ;
		Name = "Label2"


	ADD OBJECT label3 AS label WITH ;
		FontBold = .T., ;
		FontSize = 12, ;
		WordWrap = .T., ;
		Caption = "先输入被检查单位的检查编号、被查单位、检查机构、签发人和签发日期，然后单击“财政检查通知书”即可。", ;
		Height = 169, ;
		Left = 667, ;
		Top = 164, ;
		Width = 86, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label3"


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


	PROCEDURE Activate
		select dwk
		currec=recno()
		if recc()=0
		   currec=0
		endif
		set filter to not "转入"$mc
		if (currec<>0)
		   go currec
		endif
		thisform.grid1.setfocus
	ENDPROC


	PROCEDURE Init
		public premc,postmc
		set memowidth to 54
		thisform.windowstate=2
		thisform.grid1.setfocus
	ENDPROC


	PROCEDURE Load
		set talk off
		set safe off
		set date ansi
	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 text1.When
		premc=this.value
	ENDPROC


	PROCEDURE text1.When
		wait window "日期格式:年.月.日" nowait
	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 dwinput1 with 1
	ENDPROC


	PROCEDURE commandgroup2.Command2.Click
		if  messagebox("单位一旦删除,不能再恢复,真的删除吗?",48+4,"信息提示")=6
		    delete
		    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=xfr1
		  txt5=rq1
		  do form dwinput1 with 0
		else
		  messagebox("没有选择任何记录,不能修改",48,"信息提示")
		endif

		  
	ENDPROC


	PROCEDURE command1.Click
		thisform.release
		use in dwk
		set excl on
		use dwk in 0
		select dwk
		pack
		use in dwk
	ENDPROC


	PROCEDURE command2.Click
		if empty(mc)
		    =messagebox( "被查单位不能为空,必须要输入!",40+0,"提示信息") 
		else
		   do form th1 with bh
		endif
	ENDPROC


	PROCEDURE command3.Click
		report form dwb1 preview
	ENDPROC


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