📄 th1.prg
字号:
**************************************************
*-- 类: th1 (e:\jcxt\user.vcx)
*-- 父类: form
*-- 基类: form
*
DEFINE CLASS th1 AS form
Top = 0
Left = 0
Height = 574
Width = 793
DoCreate = .T.
Caption = "本系统版权所有,不得非法拷贝！ ＪＣＸＴ Ｖｅｒ ２.０ ２０００年０６月"
Closable = .F.
WindowState = 2
Name = "Form1"
ADD OBJECT edit1 AS editbox WITH ;
FontSize = 12, ;
Height = 276, ;
Left = 60, ;
Top = 108, ;
Width = 464, ;
ControlSource = "dwk.tz", ;
Name = "Edit1"
ADD OBJECT label1 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 18, ;
Caption = "财 政 检 查 通 知 书", ;
Height = 29, ;
Left = 88, ;
Top = 12, ;
Width = 256, ;
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 = 62, ;
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 = 61, ;
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 = 58, ;
Width = 85, ;
Name = "Text1"
ADD OBJECT text2 AS textbox WITH ;
FontSize = 11, ;
ControlSource = "dwk.mc", ;
Height = 25, ;
Left = 283, ;
Top = 56, ;
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 command2 AS commandbutton WITH ;
Top = 408, ;
Left = 290, ;
Height = 36, ;
Width = 145, ;
FontBold = .T., ;
FontSize = 12, ;
Caption = "清除检查通知书", ;
ForeColor = RGB(255,0,0), ;
Name = "Command2"
ADD OBJECT command3 AS commandbutton WITH ;
Top = 420, ;
Left = 588, ;
Height = 38, ;
Width = 76, ;
FontBold = .T., ;
FontSize = 14, ;
Caption = "返 回", ;
ForeColor = RGB(255,0,0), ;
Name = "Command3"
ADD OBJECT shape1 AS shape WITH ;
Top = 120, ;
Left = 558, ;
Height = 243, ;
Width = 174, ;
BackStyle = 0, ;
SpecialEffect = 0, ;
Name = "Shape1"
ADD OBJECT label5 AS label WITH ;
FontBold = .T., ;
FontSize = 12, ;
WordWrap = .T., ;
Caption = "在输入通知书时可使用以下功能键:", ;
Height = 37, ;
Left = 576, ;
Top = 157, ;
Width = 150, ;
ForeColor = RGB(0,0,255), ;
Name = "Label5"
ADD OBJECT label6 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 12, ;
Caption = "Enter:换一行", ;
Height = 20, ;
Left = 576, ;
Top = 207, ;
Width = 108, ;
ForeColor = RGB(0,0,255), ;
Name = "Label6"
ADD OBJECT label7 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 12, ;
Caption = "Ctrl+C:复制", ;
Height = 20, ;
Left = 576, ;
Top = 243, ;
Width = 100, ;
ForeColor = RGB(0,0,255), ;
Name = "Label7"
ADD OBJECT label8 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 12, ;
Caption = "Ctrl+V:粘贴", ;
Height = 20, ;
Left = 576, ;
Top = 279, ;
Width = 100, ;
ForeColor = RGB(0,0,255), ;
Name = "Label8"
ADD OBJECT label9 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 12, ;
Caption = "空格键输入空白字符", ;
Height = 20, ;
Left = 574, ;
Top = 320, ;
Width = 156, ;
ForeColor = RGB(0,0,255), ;
Name = "Label9"
ADD OBJECT label10 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 14, ;
Caption = " 操作说明 ", ;
Height = 24, ;
Left = 589, ;
Top = 114, ;
Width = 105, ;
ForeColor = RGB(255,0,0), ;
Name = "Label10"
ADD OBJECT commandgroup1 AS commandgroup WITH ;
ButtonCount = 4, ;
Value = 1, ;
Height = 105, ;
Left = 84, ;
Top = 396, ;
Width = 166, ;
Name = "Commandgroup1", ;
Command1.Top = 4, ;
Command1.Left = 5, ;
Command1.Height = 25, ;
Command1.Width = 157, ;
Command1.FontBold = .T., ;
Command1.FontSize = 10, ;
Command1.Caption = "预览或打印第一联", ;
Command1.ForeColor = RGB(255,0,0), ;
Command1.Name = "Command1", ;
Command2.Top = 28, ;
Command2.Left = 5, ;
Command2.Height = 25, ;
Command2.Width = 157, ;
Command2.FontBold = .T., ;
Command2.FontSize = 10, ;
Command2.Caption = "预览或打印第二联", ;
Command2.ForeColor = RGB(255,0,0), ;
Command2.Name = "Command2", ;
Command3.Top = 52, ;
Command3.Left = 5, ;
Command3.Height = 25, ;
Command3.Width = 157, ;
Command3.FontBold = .T., ;
Command3.FontSize = 10, ;
Command3.Caption = "预览或打印第三联", ;
Command3.ForeColor = RGB(255,0,0), ;
Command3.Name = "Command3", ;
Command4.Top = 76, ;
Command4.Left = 5, ;
Command4.Height = 25, ;
Command4.Width = 157, ;
Command4.FontBold = .T., ;
Command4.FontSize = 10, ;
Command4.Caption = "直接打印所有三联", ;
Command4.ForeColor = RGB(255,0,0), ;
Command4.Name = "Command4"
PROCEDURE Init
parameter dwbh
select dwk
locate for bh=dwbh
if empty(tz)
replace tz with ' 根据 等有'+chr(13)+;
'关法律法规的规定，我局（办）决定派检查组自 年 月 日'+chr(13)+;
'开始，对你单位 情况'+chr(13)+;
'进行检查，必要时将追溯以前年度或延伸检查有关单位。请予'+chr(13)+;
'以积极配合，并提供有关资料和必要的工作条件。'+chr(13)+;
' 检查组组长： 联系电话：（ ）'+chr(13)+;
' 成 员： （ ）'+chr(13)
endif
ENDPROC
PROCEDURE command2.Click
if messagebox("真的要清除该单位的检查通知吗?",48+1,"提示信息")=1
replace jc with '被查单位名称：'+alltrim(mc)+chr(13)+'检查处理决定：根据'+chr(13)+;
'进行了检查，现就作出如下检查结论处理决定：'+chr(13)+chr(13)+;
' 以上处理决定，请遵照执行。若有异议，请在收到本决定十五日内依'+;
'法向本决定签发的财政机关申请复议。复议和诉讼期间，除法律另有'+;
'规定外，不得停止执行本决定。'+chr(13)+;
' 被查单位财务依照本决定进行帐务处理，并在本决定送达五日内将缴'+;
'款汇交指定帐户（ ）'+;
'30日内将本单位财务整改情况报本决定签发机关和同级主管财政部门。'
endif
thisform.edit1.setfocus
ENDPROC
PROCEDURE command3.Click
thisform.release
ENDPROC
PROCEDURE commandgroup1.Command1.Click
select dwk
currec=recno()
set filter to recno()=currec
set excl on
use jctemp1 in 0
select jctemp1
zap
select jctemp1
go top
select dwk
n=memline(tz)
for i=1 to n
select dwk
row=mline(tz,i)
select jctemp1
append blank
repl jc with row
endfor
select jctemp1
select dwk
report form jcrep1 preview
use in jctemp1
select dwk
set filter to
go currec
ENDPROC
PROCEDURE commandgroup1.Command2.Click
select dwk
currec=recno()
set filter to recno()=currec
set excl on
use jctemp1 in 0
select jctemp1
zap
select jctemp1
go top
select dwk
n=memline(tz)
for i=1 to n
select dwk
row=mline(tz,i)
select jctemp1
append blank
repl jc with row
endfor
select jctemp1
select dwk
report form jcrep2 preview
use in jctemp1
select dwk
set filter to
go currec
ENDPROC
PROCEDURE commandgroup1.Command3.Click
select dwk
currec=recno()
set filter to recno()=currec
set excl on
use jctemp1 in 0
select jctemp1
zap
select jctemp1
go top
select dwk
n=memline(tz)
for i=1 to n
select dwk
row=mline(tz,i)
select jctemp1
append blank
repl jc with row
endfor
select jctemp1
select dwk
report form jcrep3 preview
use in jctemp1
select dwk
set filter to
go currec
ENDPROC
PROCEDURE commandgroup1.Command4.Click
select dwk
currec=recno()
set filter to recno()=currec
set excl on
use jctemp1 in 0
select jctemp1
zap
select jctemp1
go top
select dwk
n=memline(tz)
for i=1 to n
select dwk
row=mline(tz,i)
select jctemp1
append blank
repl jc with row
endfor
select jctemp1
select dwk
report form jcrep1 to printer nocon
report form jcrep2 to printer nocon
report form jcrep3 to printer nocon
use in jctemp1
select dwk
set filter to
go currec
ENDPROC
ENDDEFINE
*
*-- 结束定义: th1
**************************************************
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -