📄 gz2.prg
字号:
Width = 57, ;
Name = "txtF13"
ADD OBJECT lblf13 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 10, ;
WordWrap = .F., ;
BackStyle = 0, ;
Caption = "公积金", ;
Left = 265, ;
Top = 381, ;
Width = 45, ;
TabIndex = 32, ;
ForeColor = RGB(0,0,255), ;
Name = "lblF13"
ADD OBJECT txtf14 AS textbox WITH ;
Comment = "", ;
FontBold = .T., ;
FontSize = 10, ;
ControlSource = "", ;
Height = 23, ;
Left = 432, ;
TabIndex = 35, ;
Top = 378, ;
Width = 57, ;
Name = "txtF14"
ADD OBJECT lblf14 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 10, ;
WordWrap = .F., ;
BackStyle = 0, ;
Caption = "托儿费", ;
Left = 386, ;
Top = 384, ;
Width = 45, ;
TabIndex = 34, ;
ForeColor = RGB(0,0,255), ;
Name = "lblF14"
ADD OBJECT txtf15 AS textbox WITH ;
Comment = "", ;
FontBold = .T., ;
FontSize = 10, ;
ControlSource = "", ;
Height = 23, ;
Left = 552, ;
TabIndex = 37, ;
Top = 378, ;
Width = 57, ;
Name = "txtF15"
ADD OBJECT lblf15 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 10, ;
WordWrap = .F., ;
BackStyle = 0, ;
Caption = "个调税", ;
Left = 507, ;
Top = 383, ;
Width = 45, ;
TabIndex = 36, ;
ForeColor = RGB(0,0,255), ;
Name = "lblF15"
ADD OBJECT txtf16 AS textbox WITH ;
Comment = "", ;
FontBold = .T., ;
FontSize = 10, ;
ControlSource = "", ;
Height = 23, ;
Left = 672, ;
TabIndex = 39, ;
Top = 378, ;
Width = 57, ;
Name = "txtF16"
ADD OBJECT lblf16 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 10, ;
WordWrap = .F., ;
BackStyle = 0, ;
Caption = "储蓄", ;
Left = 640, ;
Top = 384, ;
Width = 31, ;
TabIndex = 38, ;
ForeColor = RGB(0,0,255), ;
Name = "lblF16"
ADD OBJECT txtf17 AS textbox WITH ;
Comment = "", ;
FontBold = .T., ;
FontSize = 10, ;
ControlSource = "", ;
Height = 23, ;
Left = 70, ;
TabIndex = 41, ;
Top = 403, ;
Width = 57, ;
Name = "txtF17"
ADD OBJECT lblf17 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 10, ;
WordWrap = .F., ;
BackStyle = 0, ;
Caption = "会费", ;
Left = 36, ;
Top = 406, ;
Width = 31, ;
TabIndex = 40, ;
ForeColor = RGB(0,0,255), ;
Name = "lblF17"
ADD OBJECT txtf18 AS textbox WITH ;
Comment = "", ;
FontBold = .T., ;
FontSize = 10, ;
ControlSource = "", ;
Height = 23, ;
Left = 192, ;
TabIndex = 43, ;
Top = 403, ;
Width = 57, ;
Name = "txtF18"
ADD OBJECT lblf18 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 10, ;
WordWrap = .F., ;
BackStyle = 0, ;
Caption = "有线电视", ;
Left = 132, ;
Top = 407, ;
Width = 59, ;
TabIndex = 42, ;
ForeColor = RGB(0,0,255), ;
Name = "lblF18"
ADD OBJECT txtf19 AS textbox WITH ;
Comment = "", ;
FontBold = .T., ;
FontSize = 10, ;
ControlSource = "", ;
Height = 23, ;
Left = 312, ;
TabIndex = 45, ;
Top = 403, ;
Width = 57, ;
Name = "txtF19"
ADD OBJECT lblf19 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 10, ;
WordWrap = .F., ;
BackStyle = 0, ;
Caption = "电话费", ;
Left = 266, ;
Top = 406, ;
Width = 45, ;
TabIndex = 44, ;
ForeColor = RGB(0,0,255), ;
Name = "lblF19"
ADD OBJECT txtf20 AS textbox WITH ;
Comment = "", ;
FontBold = .T., ;
FontSize = 10, ;
ControlSource = "", ;
Height = 23, ;
Left = 432, ;
TabIndex = 47, ;
Top = 403, ;
Width = 57, ;
Name = "txtF20"
ADD OBJECT lblf20 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 10, ;
WordWrap = .F., ;
BackStyle = 0, ;
Caption = "总扣数", ;
Left = 386, ;
Top = 407, ;
Width = 45, ;
TabIndex = 46, ;
ForeColor = RGB(0,0,255), ;
Name = "lblF20"
ADD OBJECT txtf21 AS textbox WITH ;
Comment = "", ;
FontBold = .T., ;
FontSize = 10, ;
ControlSource = "", ;
Height = 23, ;
Left = 552, ;
TabIndex = 49, ;
Top = 403, ;
Width = 57, ;
Name = "txtF21"
ADD OBJECT lblf21 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 10, ;
WordWrap = .F., ;
BackStyle = 0, ;
Caption = "实发数", ;
Left = 506, ;
Top = 408, ;
Width = 45, ;
TabIndex = 48, ;
ForeColor = RGB(0,0,255), ;
Name = "lblF21"
ADD OBJECT txtrq AS textbox WITH ;
Comment = "", ;
FontBold = .T., ;
FontSize = 10, ;
ControlSource = "", ;
Height = 23, ;
Left = 672, ;
TabIndex = 49, ;
Top = 403, ;
Width = 88, ;
Name = "txtrq"
ADD OBJECT lblrq AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 10, ;
WordWrap = .F., ;
BackStyle = 0, ;
Caption = "输入日期", ;
Left = 612, ;
Top = 408, ;
Width = 59, ;
TabIndex = 48, ;
ForeColor = RGB(0,0,255), ;
Name = "lblrq"
ADD OBJECT command3 AS commandbutton WITH ;
Top = 444, ;
Left = 21, ;
Height = 37, ;
Width = 97, ;
FontBold = .T., ;
FontName = "楷体_GB2312", ;
FontSize = 14, ;
Caption = "条件查询", ;
ForeColor = RGB(255,0,0), ;
Name = "Command3"
ADD OBJECT txtf1 AS textbox WITH ;
Comment = "", ;
FontBold = .T., ;
FontSize = 10, ;
Value = "", ;
ControlSource = "", ;
Enabled = .T., ;
Format = "", ;
Height = 23, ;
HideSelection = .T., ;
InputMask = "", ;
Left = 313, ;
TabIndex = 9, ;
Top = 326, ;
Width = 57, ;
Name = "txtF1"
ADD OBJECT commandgroup1 AS commandgroup WITH ;
ButtonCount = 2, ;
Value = 1, ;
Height = 64, ;
Left = 480, ;
Top = 439, ;
Width = 131, ;
Name = "Commandgroup1", ;
Command1.Top = 5, ;
Command1.Left = 4, ;
Command1.Height = 28, ;
Command1.Width = 124, ;
Command1.FontBold = .T., ;
Command1.FontSize = 12, ;
Command1.Caption = "打印工资条", ;
Command1.ForeColor = RGB(255,0,0), ;
Command1.Name = "Command1", ;
Command2.Top = 33, ;
Command2.Left = 4, ;
Command2.Height = 28, ;
Command2.Width = 124, ;
Command2.FontBold = .T., ;
Command2.FontSize = 12, ;
Command2.Caption = "打印汇总表", ;
Command2.ForeColor = RGB(255,0,0), ;
Command2.Name = "Command2"
PROCEDURE disp
thisform.txtxm.value=姓名
thisform.txtpm.value=部门
thisform.txtf1.value=职务工资
thisform.txtf2.value=结余补贴
thisform.txtf3.value=奖金津贴
thisform.txtf4.value=校内津贴
thisform.txtf5.value=教护津贴
thisform.txtf6.value=特种津贴
thisform.txtf7.value=房贴
thisform.txtf8.value=降温费
thisform.txtf9.value=应发数
thisform.txtf10.value=房租
thisform.txtf11.value=水电
thisform.txtf12.value=假旷
thisform.txtf13.value=公积金
thisform.txtf14.value=托儿费
thisform.txtf15.value=个调税
thisform.txtf16.value=储蓄
thisform.txtf17.value=会费
thisform.txtf18.value=有线电视
thisform.txtf19.value=电话费
thisform.txtf20.value=总扣数
thisform.txtf21.value=实发数
thisform.txtrq.value=输入日期
ENDPROC
PROCEDURE Load
set talk off
set safe off
ENDPROC
PROCEDURE text1.GotFocus
thisform.disp
ENDPROC
PROCEDURE text1.GotFocus
thisform.disp
ENDPROC
PROCEDURE text1.GotFocus
thisform.disp
ENDPROC
PROCEDURE text1.GotFocus
thisform.disp
ENDPROC
PROCEDURE text1.GotFocus
thisform.disp
ENDPROC
PROCEDURE text1.GotFocus
thisform.disp
ENDPROC
PROCEDURE text1.GotFocus
thisform.disp
ENDPROC
PROCEDURE text1.GotFocus
thisform.disp
ENDPROC
PROCEDURE text1.GotFocus
thisform.disp
ENDPROC
PROCEDURE text1.GotFocus
thisform.disp
ENDPROC
PROCEDURE text1.GotFocus
thisform.disp
ENDPROC
PROCEDURE text1.GotFocus
thisform.disp
ENDPROC
PROCEDURE text1.GotFocus
thisform.disp
ENDPROC
PROCEDURE text1.GotFocus
thisform.disp
ENDPROC
PROCEDURE text1.GotFocus
thisform.disp
ENDPROC
PROCEDURE text1.GotFocus
thisform.disp
ENDPROC
PROCEDURE text1.GotFocus
thisform.disp
ENDPROC
PROCEDURE text1.GotFocus
thisform.disp
ENDPROC
PROCEDURE text1.GotFocus
thisform.disp
ENDPROC
PROCEDURE text1.GotFocus
thisform.disp
ENDPROC
PROCEDURE text1.GotFocus
thisform.disp
ENDPROC
PROCEDURE text1.GotFocus
thisform.disp
ENDPROC
PROCEDURE text1.GotFocus
thisform.disp
ENDPROC
PROCEDURE text1.GotFocus
thisform.disp
ENDPROC
PROCEDURE text1.GotFocus
thisform.disp
ENDPROC
PROCEDURE text1.GotFocus
thisform.disp
ENDPROC
PROCEDURE command1.Click
select gzb
findex=alltrim(thisform.combo1.value)
index on &findex. to tempid
thisform.refresh
ENDPROC
PROCEDURE command2.Click
thisform.release
ENDPROC
PROCEDURE command3.Click
do form gz21
thisform.refresh
ENDPROC
PROCEDURE commandgroup1.Command1.Click
repo form pr1 preview
ENDPROC
PROCEDURE commandgroup1.Command2.Click
repo form pr2 preview
ENDPROC
ENDDEFINE
*
*-- 结束定义: gz2
**************************************************
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -