📄 jcxt.prg
字号:
**************************************************
*-- 类: jcxt (e:\jcxt\user.vcx)
*-- 父类: form
*-- 基类: form
*
DEFINE CLASS jcxt AS form
Top = 0
Left = 0
Height = 574
Width = 793
DoCreate = .T.
Caption = "本系统版权所有,不得非法拷贝！ ＪＣＸＴ Ｖｅｒ ２.０ ２０００年０６月"
Closable = .F.
FontSize = 9
WindowState = 2
Name = "Form1"
ADD OBJECT pageframe1 AS pageframe WITH ;
ErasePage = .T., ;
PageCount = 2, ;
Top = 38, ;
Left = 48, ;
Width = 684, ;
Height = 418, ;
Tabs = .F., ;
Name = "Pageframe1", ;
Page1.Caption = "Page1", ;
Page1.BackColor = RGB(128,128,255), ;
Page1.Name = "Page1", ;
Page2.Caption = "Page2", ;
Page2.BackColor = RGB(128,128,255), ;
Page2.ForeColor = RGB(192,192,192), ;
Page2.Name = "Page2"
ADD OBJECT jcxt.pageframe1.page1.label2 AS label WITH ;
AutoSize = .T., ;
FontSize = 14, ;
BackStyle = 0, ;
Caption = "label2", ;
Height = 24, ;
Left = 233, ;
Top = 223, ;
Width = 62, ;
TabIndex = 4, ;
ForeColor = RGB(255,0,0), ;
Name = "Label2"
ADD OBJECT jcxt.pageframe1.page1.label3 AS label WITH ;
AutoSize = .T., ;
FontSize = 14, ;
BackStyle = 0, ;
Caption = "label3", ;
Height = 24, ;
Left = 231, ;
Top = 262, ;
Width = 62, ;
TabIndex = 5, ;
ForeColor = RGB(255,0,0), ;
Name = "Label3"
ADD OBJECT jcxt.pageframe1.page1.label4 AS label WITH ;
AutoSize = .T., ;
FontSize = 14, ;
BackStyle = 0, ;
Caption = "操作人员：", ;
Height = 24, ;
Left = 230, ;
Top = 301, ;
Width = 97, ;
TabIndex = 6, ;
ForeColor = RGB(255,0,0), ;
Name = "Label4"
ADD OBJECT jcxt.pageframe1.page1.text2 AS textbox WITH ;
FontSize = 11, ;
Height = 25, ;
InputMask = "", ;
Left = 326, ;
TabIndex = 2, ;
Top = 299, ;
Width = 108, ;
PasswordChar = "*", ;
Name = "Text2"
ADD OBJECT jcxt.pageframe1.page1.command2 AS commandbutton WITH ;
Top = 356, ;
Left = 217, ;
Height = 37, ;
Width = 73, ;
FontBold = .T., ;
FontSize = 14, ;
Caption = "确定", ;
ForeColor = RGB(255,0,0), ;
Name = "Command2"
ADD OBJECT jcxt.pageframe1.page1.command1 AS commandbutton WITH ;
Top = 356, ;
Left = 365, ;
Height = 37, ;
Width = 73, ;
FontBold = .T., ;
FontSize = 14, ;
Caption = "取消", ;
ForeColor = RGB(255,0,0), ;
Name = "Command1"
ADD OBJECT jcxt.pageframe1.page1.olecontrol1 AS olecontrol WITH ;
Top = 44, ;
Left = 138, ;
Height = 121, ;
Width = 407, ;
Name = "Olecontrol1"
ADD OBJECT jcxt.pageframe1.page2.command1 AS commandbutton WITH ;
Top = 177, ;
Left = 130, ;
Height = 50, ;
Width = 229, ;
FontBold = .T., ;
FontSize = 16, ;
Caption = "国有企业核查表", ;
TabIndex = 3, ;
ForeColor = RGB(255,0,0), ;
Name = "Command1"
ADD OBJECT jcxt.pageframe1.page2.command2 AS commandbutton WITH ;
Top = 49, ;
Left = 130, ;
Height = 50, ;
Width = 229, ;
FontBold = .T., ;
FontSize = 16, ;
Caption = "财政检查通知书", ;
TabIndex = 1, ;
ForeColor = RGB(255,0,0), ;
Name = "Command2"
ADD OBJECT jcxt.pageframe1.page2.command3 AS commandbutton WITH ;
Top = 114, ;
Left = 130, ;
Height = 50, ;
Width = 229, ;
FontBold = .T., ;
FontSize = 16, ;
Caption = "检查处理决定书", ;
TabIndex = 2, ;
ForeColor = RGB(255,0,0), ;
Name = "Command3"
ADD OBJECT jcxt.pageframe1.page2.command4 AS commandbutton WITH ;
Top = 238, ;
Left = 130, ;
Height = 50, ;
Width = 229, ;
FontBold = .T., ;
FontSize = 16, ;
Caption = "财政部门汇总表", ;
TabIndex = 4, ;
ForeColor = RGB(255,0,0), ;
Name = "Command4"
ADD OBJECT jcxt.pageframe1.page2.command5 AS commandbutton WITH ;
Top = 294, ;
Left = 417, ;
Height = 72, ;
Width = 229, ;
FontName = "楷体_GB2312", ;
FontSize = 24, ;
Caption = "退 出", ;
TabIndex = 6, ;
ForeColor = RGB(255,0,0), ;
Name = "Command5"
ADD OBJECT jcxt.pageframe1.page2.label1 AS label WITH ;
AutoSize = .T., ;
FontItalic = .T., ;
FontName = "楷体_GB2312", ;
FontSize = 24, ;
BackStyle = 0, ;
Caption = "<=请选择", ;
Height = 40, ;
Left = 430, ;
Top = 142, ;
Width = 130, ;
TabIndex = 7, ;
ForeColor = RGB(255,0,0), ;
Name = "Label1"
ADD OBJECT jcxt.pageframe1.page2.command6 AS commandbutton WITH ;
Top = 301, ;
Left = 130, ;
Height = 50, ;
Width = 229, ;
FontBold = .T., ;
FontSize = 16, ;
Caption = "系 统 初 始 化", ;
TabIndex = 5, ;
ForeColor = RGB(255,0,0), ;
Name = "Command6"
ADD OBJECT label1 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontItalic = .T., ;
FontName = "楷体_GB2312", ;
FontSize = 16, ;
WordWrap = .F., ;
Alignment = 2, ;
Caption = "系统开发:李春葆软件开发工作室", ;
Height = 26, ;
Left = 204, ;
Top = 474, ;
Width = 337, ;
ForeColor = RGB(255,0,128), ;
Name = "Label1"
ADD OBJECT label2 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontItalic = .T., ;
FontName = "楷体_GB2312", ;
FontSize = 16, ;
Caption = "监 制: 湖北省财政厅监督处", ;
Height = 26, ;
Left = 210, ;
Top = 506, ;
Width = 316, ;
ForeColor = RGB(255,0,128), ;
Name = "Label2"
PROCEDURE Destroy
clear event
set sysmenu to default
set sysmenu on
set talk on
set confirm on
set safety on
set status bar on
ENDPROC
PROCEDURE Init
public n,data1,data2,data3,data4
rest from area additi
n=1
thisform.pageframe1.page1.label2.caption="地 区: "+data4
thisform.pageframe1.page1.label3.caption="使用单位:"+data1
ENDPROC
PROCEDURE command2.Click
if alltrim(this.parent.text2.value)==alltrim(data2)
thisform.pageframe1.activepage=2
else
n=n+1
if n>3
=messagebox("你不能运行本系统,按任一键返回...",48,"信息提示")
thisform.release
else
=messagebox("输入的口令不正确,重新输入",48,"信息提示")
this.parent.text2.value=space(10)
this.parent.text2.setfocus()
endif
endif
ENDPROC
PROCEDURE command1.Click
thisform.release
ENDPROC
PROCEDURE command1.Click
do form hz
ENDPROC
PROCEDURE command2.Click
do form th
ENDPROC
PROCEDURE command3.Click
do form jc
ENDPROC
PROCEDURE command4.Click
do form zb
ENDPROC
PROCEDURE command5.Click
thisform.release
ENDPROC
PROCEDURE command6.Click
if (messagebox("真的要删除所有数据吗？",48+4,"信息提示")=6)
close data
set excl on
use hzb1
zap
use hzb1app
zap
use hzb2
zap
use hzb2app
zap
use hzb3
zap
use hzb3app
zap
use sumhzb1
zap
use sumhzb2
zap
use sumhzb3
zap
use sumapp
zap
appe blank
use zb1
zap
use zb1app
zap
append blank
use zb2
zap
append from mzb2
use dwk
zap
=messagebox("本系统初始化完毕,您可以输入新的数据!",48,"信息提示")
endif
ENDPROC
ENDDEFINE
*
*-- 结束定义: jcxt
**************************************************
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -