📄 setkm.prg
字号:
**************************************************
*-- 类: setkm (e:\jcxt\user.vcx)
*-- 父类: form
*-- 基类: form
*
DEFINE CLASS setkm AS form
Top = 117
Left = 142
Height = 250
Width = 451
DoCreate = .T.
Caption = "设置税金项目"
WindowType = 1
Name = "Form1"
ADD OBJECT shape1 AS shape WITH ;
Top = 12, ;
Left = 22, ;
Height = 181, ;
Width = 186, ;
SpecialEffect = 0, ;
Name = "Shape1"
ADD OBJECT label1 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
FontCondense = .F., ;
Caption = "第一项", ;
Height = 19, ;
Left = 35, ;
Top = 43, ;
Width = 51, ;
ForeColor = RGB(0,0,255), ;
Name = "Label1"
ADD OBJECT text1 AS textbox WITH ;
FontSize = 11, ;
ControlSource = "zb1app.f1", ;
Height = 25, ;
Left = 97, ;
Top = 38, ;
Width = 94, ;
Name = "Text1"
ADD OBJECT label2 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
FontCondense = .F., ;
Caption = "第二项", ;
Height = 19, ;
Left = 35, ;
Top = 80, ;
Width = 51, ;
ForeColor = RGB(0,0,255), ;
Name = "Label2"
ADD OBJECT text2 AS textbox WITH ;
FontSize = 11, ;
ControlSource = "zb1app.f2", ;
Height = 25, ;
Left = 95, ;
Top = 75, ;
Width = 94, ;
Name = "Text2"
ADD OBJECT label3 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
FontCondense = .F., ;
Caption = "第三项", ;
Height = 19, ;
Left = 34, ;
Top = 118, ;
Width = 51, ;
ForeColor = RGB(0,0,255), ;
Name = "Label3"
ADD OBJECT text3 AS textbox WITH ;
FontSize = 11, ;
ControlSource = "zb1app.f3", ;
Height = 25, ;
Left = 96, ;
Top = 113, ;
Width = 94, ;
Name = "Text3"
ADD OBJECT label4 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
FontCondense = .F., ;
Caption = "第四项", ;
Height = 19, ;
Left = 34, ;
Top = 155, ;
Width = 51, ;
ForeColor = RGB(0,0,255), ;
Name = "Label4"
ADD OBJECT text4 AS textbox WITH ;
FontSize = 11, ;
ControlSource = "zb1app.f4", ;
Height = 25, ;
Left = 96, ;
Top = 150, ;
Width = 94, ;
Name = "Text4"
ADD OBJECT label5 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 14, ;
Caption = " 查补税金 ", ;
Height = 24, ;
Left = 70, ;
Top = 7, ;
Width = 105, ;
ForeColor = RGB(255,0,0), ;
Name = "Label5"
ADD OBJECT shape2 AS shape WITH ;
Top = 12, ;
Left = 234, ;
Height = 181, ;
Width = 186, ;
SpecialEffect = 0, ;
Name = "Shape2"
ADD OBJECT label6 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
FontCondense = .F., ;
Caption = "第一项", ;
Height = 19, ;
Left = 247, ;
Top = 43, ;
Width = 51, ;
ForeColor = RGB(0,0,255), ;
Name = "Label6"
ADD OBJECT text5 AS textbox WITH ;
FontSize = 11, ;
ControlSource = "zb1app.f5", ;
Height = 25, ;
Left = 309, ;
Top = 38, ;
Width = 94, ;
Name = "Text5"
ADD OBJECT label7 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
FontCondense = .F., ;
Caption = "第二项", ;
Height = 19, ;
Left = 247, ;
Top = 80, ;
Width = 51, ;
ForeColor = RGB(0,0,255), ;
Name = "Label7"
ADD OBJECT text6 AS textbox WITH ;
FontSize = 11, ;
ControlSource = "zb1app.f6", ;
Height = 25, ;
Left = 307, ;
Top = 75, ;
Width = 94, ;
Name = "Text6"
ADD OBJECT label8 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
FontCondense = .F., ;
Caption = "第三项", ;
Height = 19, ;
Left = 246, ;
Top = 118, ;
Width = 51, ;
ForeColor = RGB(0,0,255), ;
Name = "Label8"
ADD OBJECT text7 AS textbox WITH ;
FontSize = 11, ;
ControlSource = "zb1app.f7", ;
Height = 25, ;
Left = 308, ;
Top = 113, ;
Width = 94, ;
Name = "Text7"
ADD OBJECT label9 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
FontCondense = .F., ;
Caption = "第四项", ;
Height = 19, ;
Left = 246, ;
Top = 155, ;
Width = 51, ;
ForeColor = RGB(0,0,255), ;
Name = "Label9"
ADD OBJECT text8 AS textbox WITH ;
FontSize = 11, ;
ControlSource = "zb1app.f8", ;
Height = 25, ;
Left = 308, ;
Top = 150, ;
Width = 94, ;
Name = "Text8"
ADD OBJECT label10 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 14, ;
Caption = " 已补税金 ", ;
Height = 24, ;
Left = 282, ;
Top = 7, ;
Width = 105, ;
ForeColor = RGB(255,0,0), ;
Name = "Label10"
ADD OBJECT command1 AS commandbutton WITH ;
Top = 204, ;
Left = 204, ;
Height = 37, ;
Width = 96, ;
FontBold = .T., ;
FontSize = 14, ;
Caption = "返回", ;
ForeColor = RGB(255,0,0), ;
Name = "Command1"
PROCEDURE command1.Click
thisform.release
ENDPROC
ENDDEFINE
*
*-- 结束定义: setkm
**************************************************
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -