jc1.prg

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

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


	Top = 0
	Left = 0
	Height = 574
	Width = 793
	DoCreate = .T.
	Caption = "本系统版权所有,不得非法拷贝！  ＪＣＸＴ Ｖｅｒ ２.０  ２０００年０６月"
	Closable = .F.
	WindowState = 2
	Name = "Form1"


	ADD OBJECT label1 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 18, ;
		Caption = "财 政 检 查 处 理 决 定 书", ;
		Height = 29, ;
		Left = 88, ;
		Top = 12, ;
		Width = 332, ;
		ForeColor = RGB(255,0,0), ;
		Name = "Label1"


	ADD OBJECT label2 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 12, ;
		Caption = "检查编号", ;
		Height = 20, ;
		Left = 24, ;
		Top = 75, ;
		Width = 71, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label2"


	ADD OBJECT label3 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 12, ;
		Caption = "被查单位", ;
		Height = 20, ;
		Left = 211, ;
		Top = 74, ;
		Width = 71, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label3"


	ADD OBJECT text1 AS textbox WITH ;
		FontSize = 11, ;
		ControlSource = "dwk.bh", ;
		Height = 25, ;
		Left = 96, ;
		Top = 71, ;
		Width = 85, ;
		Name = "Text1"


	ADD OBJECT text2 AS textbox WITH ;
		FontSize = 11, ;
		ControlSource = "dwk.mc", ;
		Height = 25, ;
		Left = 283, ;
		Top = 69, ;
		Width = 289, ;
		Name = "Text2"


	ADD OBJECT label4 AS label WITH ;
		FontBold = .T., ;
		FontSize = 16, ;
		WordWrap = .T., ;
		Caption = "录入被查单位处理决定书", ;
		Height = 240, ;
		Left = 19, ;
		Top = 121, ;
		Width = 24, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label4"


	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 413, ;
		Left = 128, ;
		Height = 39, ;
		Width = 145, ;
		FontBold = .T., ;
		FontSize = 12, ;
		Caption = "打印处理决定书", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command1"


	ADD OBJECT command2 AS commandbutton WITH ;
		Top = 413, ;
		Left = 296, ;
		Height = 39, ;
		Width = 145, ;
		FontBold = .T., ;
		FontSize = 12, ;
		Caption = "清除处理决定书", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command2"


	ADD OBJECT command3 AS commandbutton WITH ;
		Top = 422, ;
		Left = 577, ;
		Height = 39, ;
		Width = 73, ;
		FontBold = .T., ;
		FontSize = 14, ;
		Caption = "返 回", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command3"


	ADD OBJECT shape1 AS shape WITH ;
		Top = 133, ;
		Left = 588, ;
		Height = 245, ;
		Width = 193, ;
		BackStyle = 0, ;
		SpecialEffect = 0, ;
		Name = "Shape1"


	ADD OBJECT label5 AS label WITH ;
		FontBold = .T., ;
		FontSize = 11, ;
		WordWrap = .T., ;
		Caption = "在输入处理决定书时可使用以下功能键:", ;
		Height = 30, ;
		Left = 609, ;
		Top = 157, ;
		Width = 145, ;
		ForeColor = RGB(0,0,255), ;
		BackColor = RGB(192,192,192), ;
		Name = "Label5"


	ADD OBJECT label6 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 11, ;
		Caption = "Enter:换一行", ;
		Height = 19, ;
		Left = 615, ;
		Top = 201, ;
		Width = 105, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label6"


	ADD OBJECT label7 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 11, ;
		Caption = "Ctrl+C:复制", ;
		Height = 19, ;
		Left = 616, ;
		Top = 228, ;
		Width = 98, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label7"


	ADD OBJECT label8 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 11, ;
		Caption = "Ctrl+V:粘贴", ;
		Height = 19, ;
		Left = 616, ;
		Top = 264, ;
		Width = 98, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label8"


	ADD OBJECT label9 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 11, ;
		Caption = "空格键输入空白字符", ;
		Height = 19, ;
		Left = 604, ;
		Top = 300, ;
		Width = 147, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label9"


	ADD OBJECT label10 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 14, ;
		Caption = "  操作说明  ", ;
		Height = 24, ;
		Left = 624, ;
		Top = 124, ;
		Width = 127, ;
		ForeColor = RGB(255,0,0), ;
		Name = "Label10"


	ADD OBJECT edit1 AS editbox WITH ;
		FontSize = 12, ;
		Format = "", ;
		Height = 276, ;
		Left = 48, ;
		MaxLength = 0, ;
		Top = 120, ;
		Width = 516, ;
		ControlSource = "dwk.jc", ;
		Name = "Edit1"


	ADD OBJECT label11 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 11, ;
		Caption = "每行输入完后要按Enter", ;
		Height = 19, ;
		Left = 600, ;
		Top = 336, ;
		Width = 176, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label11"


	PROCEDURE Init
		select dwk
		locate for bh=dwbh
		if empty(jc)
		   replace jc with '被查单位名称：'+alltrim(mc)+chr(13)+ ;
		   '检查处理决定：根据'+ chr(13)+;
		   '进行了检查，现就作出如下处理决定：'+chr(13)+;
		   '    以上处理决定，请遵照执行。若有异议，请在收到本决定15日内'+chr(13)+;
		   '依法向本决定签发的财政机关申请复议。复议和诉讼期间，除法律另'+chr(13)+;
		   '有规定外，不得停止执行本决定。'+chr(13)+;
		   '    被查单位财务依照本决定进行帐务处理，并在本决定送达5日内'+chr(13)+;
		   '将缴款汇交指定帐户（