jcmc.prg

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

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


	Top = 104
	Left = 174
	DoCreate = .T.
	Caption = "输入汇总表表尾数据"
	Closable = .F.
	WindowType = 1
	Name = "Form1"


	ADD OBJECT txtrq AS textbox WITH ;
		Comment = "", ;
		FontSize = 11, ;
		ControlSource = "sumapp.rq", ;
		Height = 23, ;
		Left = 144, ;
		TabIndex = 6, ;
		Top = 17, ;
		Width = 103, ;
		Name = "txtRq"


	ADD OBJECT lblrq AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 11, ;
		WordWrap = .T., ;
		BackStyle = 0, ;
		Caption = "填表日期", ;
		Height = 19, ;
		Left = 72, ;
		Top = 21, ;
		Width = 65, ;
		TabIndex = 5, ;
		ForeColor = RGB(0,0,255), ;
		Name = "lblRq"


	ADD OBJECT txtfzr AS textbox WITH ;
		Comment = "", ;
		FontSize = 11, ;
		ControlSource = "sumapp.fzr", ;
		Height = 24, ;
		Left = 144, ;
		TabIndex = 8, ;
		Top = 60, ;
		Width = 69, ;
		Name = "txtFzr"


	ADD OBJECT lblfzr AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 11, ;
		WordWrap = .T., ;
		BackStyle = 0, ;
		Caption = "负 责 人", ;
		Height = 19, ;
		Left = 72, ;
		Top = 67, ;
		Width = 67, ;
		TabIndex = 7, ;
		ForeColor = RGB(0,0,255), ;
		Name = "lblFzr"


	ADD OBJECT txtbzr AS textbox WITH ;
		Comment = "", ;
		FontSize = 11, ;
		ControlSource = "sumapp.bzr", ;
		Height = 24, ;
		Left = 144, ;
		TabIndex = 10, ;
		Top = 102, ;
		Width = 69, ;
		Name = "txtBzr"


	ADD OBJECT lblbzr AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 11, ;
		WordWrap = .T., ;
		BackStyle = 0, ;
		Caption = "编 制 人", ;
		Height = 19, ;
		Left = 73, ;
		Top = 106, ;
		Width = 67, ;
		TabIndex = 9, ;
		ForeColor = RGB(0,0,255), ;
		Name = "lblBzr"


	ADD OBJECT txtth AS textbox WITH ;
		Comment = "", ;
		FontSize = 11, ;
		ControlSource = "sumapp.th", ;
		Height = 24, ;
		Left = 144, ;
		TabIndex = 12, ;
		Top = 143, ;
		Width = 128, ;
		Name = "txtTh"


	ADD OBJECT lblth AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 11, ;
		WordWrap = .T., ;
		BackStyle = 0, ;
		Caption = "联系电话", ;
		Height = 19, ;
		Left = 72, ;
		Top = 146, ;
		Width = 65, ;
		TabIndex = 11, ;
		ForeColor = RGB(0,0,255), ;
		Name = "lblTh"


	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 180, ;
		Left = 252, ;
		Height = 49, ;
		Width = 96, ;
		FontBold = .T., ;
		FontSize = 16, ;
		Caption = "返 回", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command1"


	PROCEDURE txtrq.GotFocus
		this.value=date()
	ENDPROC


	PROCEDURE command1.Click
		thisform.release
	ENDPROC


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