dwinput1.prg

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

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


	Top = 183
	Left = 100
	Height = 312
	Width = 554
	DoCreate = .T.
	Caption = "财政检查通知书-单位数据编辑"
	Closable = .F.
	MaxButton = .F.
	MinButton = .F.
	Movable = .F.
	WindowType = 1
	Name = "Form1"


	ADD OBJECT label1 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 11, ;
		Caption = "检查编号", ;
		Height = 19, ;
		Left = 43, ;
		Top = 44, ;
		Width = 67, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label1"


	ADD OBJECT label2 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 11, ;
		Caption = "被查单位", ;
		Height = 19, ;
		Left = 42, ;
		Top = 82, ;
		Width = 67, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label2"


	ADD OBJECT label3 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 11, ;
		Caption = "检查机构", ;
		Height = 19, ;
		Left = 42, ;
		Top = 119, ;
		Width = 67, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label3"


	ADD OBJECT label4 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 11, ;
		Caption = "签发人", ;
		Height = 19, ;
		Left = 56, ;
		Top = 160, ;
		Width = 51, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label4"


	ADD OBJECT label5 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 11, ;
		Caption = "签发日期", ;
		Height = 19, ;
		Left = 42, ;
		Top = 198, ;
		Width = 67, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label5"


	ADD OBJECT text1 AS textbox WITH ;
		FontBold = .T., ;
		FontSize = 11, ;
		ControlSource = "txt1", ;
		Height = 25, ;
		Left = 114, ;
		Top = 37, ;
		Width = 80, ;
		DisabledBackColor = RGB(255,128,128), ;
		Name = "Text1"


	ADD OBJECT text2 AS textbox WITH ;
		FontBold = .T., ;
		FontSize = 11, ;
		ControlSource = "txt2", ;
		Height = 25, ;
		Left = 114, ;
		Top = 76, ;
		Width = 407, ;
		DisabledBackColor = RGB(255,128,128), ;
		Name = "Text2"


	ADD OBJECT text3 AS textbox WITH ;
		FontBold = .T., ;
		FontSize = 11, ;
		ControlSource = "txt3", ;
		Height = 25, ;
		Left = 113, ;
		Top = 115, ;
		Width = 313, ;
		Name = "Text3"


	ADD OBJECT text4 AS textbox WITH ;
		FontBold = .T., ;
		FontSize = 11, ;
		ControlSource = "txt4", ;
		Height = 25, ;
		Left = 114, ;
		Top = 155, ;
		Width = 97, ;
		Name = "Text4"


	ADD OBJECT text5 AS textbox WITH ;
		FontBold = .T., ;
		FontSize = 11, ;
		ControlSource = "txt5", ;
		Height = 25, ;
		Left = 114, ;
		Top = 194, ;
		Width = 97, ;
		Name = "Text5"


	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 248, ;
		Left = 166, ;
		Height = 37, ;
		Width = 73, ;
		FontBold = .T., ;
		FontSize = 16, ;
		Caption = "确定", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command1"


	ADD OBJECT command2 AS commandbutton WITH ;
		Top = 249, ;
		Left = 295, ;
		Height = 37, ;
		Width = 73, ;
		FontBold = .T., ;
		FontSize = 16, ;
		Caption = "取消", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command2"


	PROCEDURE Init
		parameter optype
		public no
		no=optype
		if no=0  &&修改操作:一旦输入汇总数据,不能再改动编号和单位名称
		   hashz=.F.
		   use hzb1 in 0
		   select hzb1
		   locate for mc=txt2
		   if found()
		      hashz=.T.
		   endif
		   use in hzb1
		   use hzb2 in 0
		   select hzb2
		   locate for mc=txt2
		   if found()
		      hashz=.T.
		   endif
		   use in hzb2
		   use hzb3 in 0
		   select hzb3
		   locate for mc=txt2
		   if found()
		      hashz=.T.
		   endif
		   use in hzb3
		   select dwk
		   if hashz=.T.
		      thisform.text1.enabled=.F.
		      thisform.text2.enabled=.F.
		   endif   
		endif
	ENDPROC


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


	PROCEDURE command1.Click
		select dwk
		if no=1 &&输入
		   append blank
		endif
		repl bh with txt1,mc with txt2,jcdw with txt3
		repl xfr1 with txt4,rq1 with txt5
		thisform.release
		 
	ENDPROC


	PROCEDURE command2.Click
		thisform.release
	ENDPROC


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