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