jc.prg

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

**************************************************
*-- 类:           jc (e:\jcxt\user.vcx)
*-- 父类:  form
*-- 基类:    form
*
DEFINE CLASS jc 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 = 5, ;
		FontBold = .T., ;
		FontSize = 10, ;
		DeleteMark = .F., ;
		GridLines = 3, ;
		Height = 308, ;
		Left = 40, ;
		Panel = 1, ;
		RecordSource = "dwk", ;
		RecordSourceType = 1, ;
		RowHeight = 18, ;
		ScrollBars = 2, ;
		Top = 84, ;
		Width = 564, ;
		Name = "Grid1", ;
		Column1.FontBold = .T., ;
		Column1.FontSize = 10, ;
		Column1.ControlSource = "dwk.bh", ;
		Column1.Width = 63, ;
		Column1.Name = "Column1", ;
		Column2.FontBold = .T., ;
		Column2.FontSize = 10, ;
		Column2.ControlSource = "dwk.mc", ;
		Column2.Width = 171, ;
		Column2.Name = "Column2", ;
		Column3.FontBold = .T., ;
		Column3.FontSize = 10, ;
		Column3.ControlSource = "dwk.jcdw", ;
		Column3.Width = 164, ;
		Column3.Name = "Column3", ;
		Column4.FontBold = .T., ;
		Column4.FontSize = 10, ;
		Column4.ControlSource = "dwk.xfr2", ;
		Column4.Width = 58, ;
		Column4.Name = "Column4", ;
		Column5.FontBold = .T., ;
		Column5.FontSize = 10, ;
		Column5.ControlSource = "dwk.rq2", ;
		Column5.Width = 71, ;
		Column5.Name = "Column5"


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


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


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


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


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


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


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


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


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


	ADD OBJECT jc.grid1.column5.text1 AS textbox WITH ;
		FontBold = .T., ;
		FontSize = 10, ;
		BorderStyle = 0, ;
		Margin = 0, ;
		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 = 183, ;
		Top = 27, ;
		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 = 13, ;
		Command1.Left = 12, ;
		Command1.Height = 33, ;
		Command1.Width = 64, ;
		Command1.FontBold = .T., ;
		Command1.FontSize = 14, ;
		Command1.Caption = "输入", ;
		Command1.ForeColor = RGB(255,0,0), ;
		Command1.Name = "Command1", ;
		Command2.Top = 13, ;
		Command2.Left = 83, ;
		Command2.Height = 33, ;
		Command2.Width = 64, ;
		Command2.FontBold = .T., ;
		Command2.FontSize = 14, ;
		Command2.Caption = "删除", ;
		Command2.ForeColor = RGB(255,0,0), ;
		Command2.Name = "Command2", ;
		Command3.Top = 13, ;
		Command3.Left = 153, ;
		Command3.Height = 33, ;
		Command3.Width = 65, ;
		Command3.FontBold = .T., ;
		Command3.FontSize = 14, ;
		Command3.Caption = "修改", ;
		Command3.ForeColor = RGB(255,0,0), ;
		Command3.Name = "Command3"


	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 453, ;
		Left = 612, ;
		Height = 37, ;
		Width = 71, ;
		FontBold = .T., ;
		FontSize = 14, ;
		Caption = "返 回", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command1"


	ADD OBJECT command2 AS commandbutton WITH ;
		Top = 417, ;
		Left = 359, ;
		Height = 31, ;
		Width = 172, ;
		FontBold = .T., ;
		FontSize = 14, ;
		Caption = "检查处理决定", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command2"


	ADD OBJECT shape1 AS shape WITH ;
		Top = 142, ;
		Left = 613, ;
		Height = 206, ;
		Width = 111, ;
		BackStyle = 0, ;
		SpecialEffect = 0, ;
		Name = "Shape1"


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


	ADD OBJECT label3 AS label WITH ;
		FontBold = .T., ;
		FontSize = 12, ;
		WordWrap = .T., ;
		Caption = "先输入被检查单位的检查编号、被查单位、检查机构、签发人和签发日期，然后单击“检查处理决定”即可。", ;
		Height = 172, ;
		Left = 626, ;
		Top = 170, ;
		Width = 87, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label3"


	ADD OBJECT command3 AS commandbutton WITH ;
		Top = 459, ;
		Left = 359, ;
		Height = 30, ;
		Width = 171, ;
		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 dwbh,premc,postmc
		set memowidth to 60
		thisform.windowstate=2
		thisform.grid1.setfocus
	ENDPROC


	PROCEDURE Load
		set excl on
		set talk off
		set safe off
		set date ansi
	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 text1.When
		wait window "日期格式:年.月.日" nowait
	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 dwinput2 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=xfr2
		  txt5=rq2
		  do form dwinput2 with 0
		else
		  messagebox("没有选择任何记录,不能修改",48,"信息提示")
		endif

		  
	ENDPROC


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


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


	PROCEDURE command3.Click
		report form dwb2 preview
	ENDPROC


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