hz2.prg

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

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


	Top = 0
	Left = 0
	Height = 581
	Width = 784
	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 = 512, ;
		Left = -12, ;
		Panel = 1, ;
		RowHeight = 15, ;
		ScrollBars = 0, ;
		Top = -1, ;
		Width = 798, ;
		Name = "Grid1", ;
		Column1.FontBold = .T., ;
		Column1.ControlSource = "hzb2.bj", ;
		Column1.Width = 15, ;
		Column1.Visible = .T., ;
		Column1.Name = "Column1", ;
		Column2.FontBold = .T., ;
		Column2.ControlSource = "hzb2.xm", ;
		Column2.Width = 149, ;
		Column2.ReadOnly = .T., ;
		Column2.Visible = .T., ;
		Column2.Name = "Column2", ;
		Column3.FontBold = .T., ;
		Column3.ControlSource = "hzb2.sz1", ;
		Column3.Width = 72, ;
		Column3.Visible = .T., ;
		Column3.Name = "Column3", ;
		Column4.FontBold = .T., ;
		Column4.ControlSource = "hzb2.sz2", ;
		Column4.Width = 70, ;
		Column4.Visible = .T., ;
		Column4.Name = "Column4", ;
		Column5.FontBold = .T., ;
		Column5.ControlSource = "hzb2.sz3", ;
		Column5.Width = 80, ;
		Column5.Visible = .T., ;
		Column5.Name = "Column5", ;
		Column6.FontBold = .T., ;
		Column6.ControlSource = "hzb2.sz4", ;
		Column6.Width = 75, ;
		Column6.Visible = .T., ;
		Column6.Name = "Column6", ;
		Column7.FontBold = .T., ;
		Column7.ControlSource = "hzb2.sz5", ;
		Column7.Width = 75, ;
		Column7.Visible = .T., ;
		Column7.Name = "Column7", ;
		Column8.FontBold = .T., ;
		Column8.ControlSource = "hzb2.sz6", ;
		Column8.Width = 70, ;
		Column8.Visible = .T., ;
		Column8.Name = "Column8", ;
		Column9.FontBold = .T., ;
		Column9.ControlSource = "hzb2.sz7", ;
		Column9.Width = 75, ;
		Column9.Visible = .T., ;
		Column9.Name = "Column9", ;
		Column10.FontBold = .T., ;
		Column10.ControlSource = "hzb2.bz", ;
		Column10.Width = 96, ;
		Column10.Visible = .T., ;
		Column10.Name = "Column10"


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


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


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


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


	ADD OBJECT hz2.grid1.column3.header1 AS header WITH ;
		FontBold = .T., ;
		Alignment = 2, ;
		Caption = "审前末余额", ;
		Name = "Header1"


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


	ADD OBJECT hz2.grid1.column4.header1 AS header WITH ;
		FontBold = .T., ;
		Alignment = 2, ;
		Caption = "CPA末余额", ;
		Name = "Header1"


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


	ADD OBJECT hz2.grid1.column5.header1 AS header WITH ;
		FontBold = .T., ;
		Alignment = 2, ;
		Caption = "审后末余额", ;
		Name = "Header1"


	ADD OBJECT hz2.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 hz2.grid1.column6.header1 AS header WITH ;
		FontBold = .T., ;
		Alignment = 2, ;
		Caption = "核查末余额", ;
		Name = "Header1"


	ADD OBJECT hz2.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 hz2.grid1.column7.header1 AS header WITH ;
		FontBold = .T., ;
		Alignment = 2, ;
		Caption = "CPA样本内", ;
		Name = "Header1"


	ADD OBJECT hz2.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 hz2.grid1.column8.header1 AS header WITH ;
		FontBold = .T., ;
		Alignment = 2, ;
		Caption = "CPA样本外", ;
		Name = "Header1"


	ADD OBJECT hz2.grid1.column8.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 hz2.grid1.column9.header1 AS header WITH ;
		FontBold = .T., ;
		Alignment = 2, ;
		Caption = "小  计", ;
		Name = "Header1"


	ADD OBJECT hz2.grid1.column9.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 hz2.grid1.column10.header1 AS header WITH ;
		FontBold = .T., ;
		Alignment = 2, ;
		Caption = "备  注", ;
		Name = "Header1"


	ADD OBJECT hz2.grid1.column10.text1 AS textbox WITH ;
		FontBold = .T., ;
		BorderStyle = 0, ;
		ControlSource = "hzb2.bz", ;
		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 = 526, ;
		Width = 55, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label1"


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


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


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


	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 521, ;