?? 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 + -