hz1.prg

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

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


	Top = 0
	Left = 0
	Height = 581
	Width = 790
	DoCreate = .T.
	Caption = "财政检查汇总表"
	Closable = .F.
	FontName = "黑体"
	FontSize = 12
	WindowState = 0
	Name = "Form1"


	ADD OBJECT grid1 AS grid WITH ;
		ColumnCount = 10, ;
		FontBold = .T., ;
		DeleteMark = .F., ;
		HeaderHeight = 30, ;
		Height = 488, ;
		Left = 0, ;
		Panel = 1, ;
		RowHeight = 19, ;
		ScrollBars = 0, ;
		Top = 0, ;
		Width = 800, ;
		Name = "Grid1", ;
		Column1.FontBold = .T., ;
		Column1.ControlSource = "hzb1.bj", ;
		Column1.Width = 15, ;
		Column1.Visible = .T., ;
		Column1.Name = "Column1", ;
		Column2.FontBold = .T., ;
		Column2.ControlSource = "hzb1.xm", ;
		Column2.Width = 170, ;
		Column2.ReadOnly = .T., ;
		Column2.Visible = .T., ;
		Column2.Name = "Column2", ;
		Column3.FontBold = .T., ;
		Column3.ControlSource = "hzb1.sz1", ;
		Column3.Width = 72, ;
		Column3.Visible = .T., ;
		Column3.Name = "Column3", ;
		Column4.FontBold = .T., ;
		Column4.ControlSource = "hzb1.sz2", ;
		Column4.Width = 63, ;
		Column4.Visible = .T., ;
		Column4.Name = "Column4", ;
		Column5.FontBold = .T., ;
		Column5.ControlSource = "hzb1.sz3", ;
		Column5.Width = 96, ;
		Column5.Visible = .T., ;
		Column5.Name = "Column5", ;
		Column6.FontBold = .T., ;
		Column6.ControlSource = "hzb1.sz4", ;
		Column6.Width = 68, ;
		Column6.Visible = .T., ;
		Column6.Name = "Column6", ;
		Column7.FontBold = .T., ;
		Column7.ControlSource = "hzb1.sz5", ;
		Column7.Width = 66, ;
		Column7.Visible = .T., ;
		Column7.Name = "Column7", ;
		Column8.FontBold = .T., ;
		Column8.ControlSource = "hzb1.sz6", ;
		Column8.Width = 82, ;
		Column8.Visible = .T., ;
		Column8.Name = "Column8", ;
		Column9.FontBold = .T., ;
		Column9.ControlSource = "hzb1.sz7", ;
		Column9.Width = 68, ;
		Column9.Visible = .T., ;
		Column9.Name = "Column9", ;
		Column10.FontBold = .T., ;
		Column10.ControlSource = "hzb1.bz", ;
		Column10.Width = 75, ;
		Column10.Visible = .T., ;
		Column10.Name = "Column10"


	ADD OBJECT hz1.grid1.column1.header1 AS header WITH ;
		FontBold = .T., ;
		Caption = "科", ;
		Name = "Header1"


	ADD OBJECT hz1.grid1.column1.text1 AS textbox WITH ;
		FontBold = .T., ;
		Alignment = 0, ;
		BorderStyle = 0, ;
		ControlSource = "hzb1.bj", ;
		Margin = 0, ;
		Visible = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT hz1.grid1.column2.header1 AS header WITH ;
		FontBold = .T., ;
		Alignment = 2, ;
		Caption = "项   目", ;
		Name = "Header1"


	ADD OBJECT hz1.grid1.column2.text1 AS textbox WITH ;
		FontBold = .T., ;
		Alignment = 0, ;
		BorderStyle = 0, ;
		ControlSource = "hzb1.xm", ;
		Margin = 0, ;
		ReadOnly = .T., ;
		Visible = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT hz1.grid1.column3.header1 AS header WITH ;
		FontBold = .T., ;
		Alignment = 2, ;
		Caption = "审前报表数", ;
		Name = "Header1"


	ADD OBJECT hz1.grid1.column3.text1 AS textbox WITH ;
		FontBold = .T., ;
		DateMark = "z", ;
		Alignment = 1, ;
		BorderStyle = 0, ;
		ControlSource = "hzb1.sz1", ;
		Format = "", ;
		InputMask = "", ;
		Margin = 0, ;
		Visible = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT hz1.grid1.column4.header1 AS header WITH ;
		FontBold = .T., ;
		Alignment = 2, ;
		Caption = "CPA审定数", ;
		Name = "Header1"


	ADD OBJECT hz1.grid1.column4.text1 AS textbox WITH ;
		FontBold = .T., ;
		Alignment = 1, ;
		BorderStyle = 0, ;
		ControlSource = "hzb1.sz2", ;
		Margin = 0, ;
		Visible = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT hz1.grid1.column5.header1 AS header WITH ;
		FontBold = .T., ;
		Alignment = 2, ;
		Caption = "审后报表数", ;
		Name = "Header1"


	ADD OBJECT hz1.grid1.column5.text1 AS textbox WITH ;
		FontBold = .T., ;
		Alignment = 1, ;
		BorderStyle = 0, ;
		Margin = 0, ;
		Visible = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT hz1.grid1.column6.header1 AS header WITH ;
		FontBold = .T., ;
		Alignment = 2, ;
		Caption = "核查审定数", ;
		Name = "Header1"


	ADD OBJECT hz1.grid1.column6.text1 AS textbox WITH ;
		FontBold = .T., ;
		Alignment = 1, ;
		BorderStyle = 0, ;
		Margin = 0, ;
		Visible = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT hz1.grid1.column7.header1 AS header WITH ;
		FontBold = .T., ;
		Alignment = 2, ;
		Caption = "CPA样本内", ;
		Name = "Header1"


	ADD OBJECT hz1.grid1.column7.text1 AS textbox WITH ;
		FontBold = .T., ;
		Alignment = 1, ;
		BorderStyle = 0, ;
		Margin = 0, ;
		Visible = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT hz1.grid1.column8.header1 AS header WITH ;
		FontBold = .T., ;
		Alignment = 2, ;
		Caption = "CPA样本外", ;
		Name = "Header1"


	ADD OBJECT hz1.grid1.column8.text1 AS textbox WITH ;
		FontBold = .T., ;
		Alignment = 1, ;
		BorderStyle = 0, ;
		Margin = 0, ;
		ReadOnly = .F., ;
		Visible = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT hz1.grid1.column9.header1 AS header WITH ;
		FontBold = .T., ;
		Alignment = 2, ;
		Caption = "小  计", ;
		Name = "Header1"


	ADD OBJECT hz1.grid1.column9.text1 AS textbox WITH ;
		FontBold = .T., ;
		Alignment = 1, ;
		BorderStyle = 0, ;
		Margin = 0, ;
		ReadOnly = .F., ;
		Visible = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT hz1.grid1.column10.header1 AS header WITH ;
		FontBold = .T., ;
		Alignment = 2, ;
		Caption = "备  注", ;
		Name = "Header1"


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


	ADD OBJECT label1 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		Caption = "填报日期", ;
		Height = 16, ;
		Left = 7, ;
		Top = 507, ;
		Width = 55, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label1"


	ADD OBJECT label2 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		Caption = "负责人", ;
		Height = 16, ;
		Left = 143, ;
		Top = 508, ;
		Width = 42, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label2"


	ADD OBJECT label3 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		Caption = "编制人员", ;
		Height = 16, ;
		Left = 270, ;
		Top = 507, ;
		Width = 55, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label3"


	ADD OBJECT label4 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		Caption = "联系电话", ;
		Height = 16, ;
		Left = 413, ;
		Top = 509, ;
		Width = 55, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label4"


	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 503, ;
		Left = 696, ;
		Height = 25, ;
		Width = 73, ;
		FontBold = .T., ;