⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 setkm.prg

📁 财政监督管理系统的所有文件(数据表、表单、报表以及.exe文件等)。
💻 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 + -