📄 gz1.prg
字号:
**************************************************
*-- 类: gz1 (e:\gz\user.vcx)
*-- 父类: form
*-- 基类: form
*
DEFINE CLASS gz1 AS form
Top = 17
Left = 47
Height = 423
Width = 676
ShowWindow = 0
DoCreate = .T.
Caption = "工资数据输入"
Closable = .F.
MaxButton = .F.
MinButton = .F.
Movable = .T.
WindowType = 1
Name = "Form1"
currno = .F.
jls = .F.
opmode = .F.
ADD OBJECT commandgroup1 AS commandgroup WITH ;
ButtonCount = 9, ;
Value = 1, ;
Height = 39, ;
Left = 54, ;
Top = 372, ;
Width = 433, ;
TabIndex = 27, ;
Name = "Commandgroup1", ;
Command1.Top = 8, ;
Command1.Left = 7, ;
Command1.Height = 25, ;
Command1.Width = 47, ;
Command1.FontBold = .T., ;
Command1.FontSize = 12, ;
Command1.Caption = "|<", ;
Command1.ForeColor = RGB(255,0,0), ;
Command1.Name = "Command1", ;
Command2.Top = 8, ;
Command2.Left = 53, ;
Command2.Height = 25, ;
Command2.Width = 45, ;
Command2.FontBold = .T., ;
Command2.FontSize = 12, ;
Command2.Caption = "<", ;
Command2.ForeColor = RGB(255,0,0), ;
Command2.Name = "Command2", ;
Command3.Top = 8, ;
Command3.Left = 97, ;
Command3.Height = 25, ;
Command3.Width = 47, ;
Command3.FontBold = .T., ;
Command3.FontSize = 12, ;
Command3.Caption = ">", ;
Command3.ForeColor = RGB(255,0,0), ;
Command3.Name = "Command3", ;
Command4.Top = 8, ;
Command4.Left = 143, ;
Command4.Height = 25, ;
Command4.Width = 47, ;
Command4.FontBold = .T., ;
Command4.FontSize = 12, ;
Command4.Caption = ">|", ;
Command4.ForeColor = RGB(255,0,0), ;
Command4.Name = "Command4", ;
Command5.Top = 8, ;
Command5.Left = 190, ;
Command5.Height = 25, ;
Command5.Width = 47, ;
Command5.FontBold = .T., ;
Command5.FontSize = 12, ;
Command5.Caption = "添加", ;
Command5.ForeColor = RGB(255,0,0), ;
Command5.Name = "Command5", ;
Command6.Top = 8, ;
Command6.Left = 237, ;
Command6.Height = 25, ;
Command6.Width = 47, ;
Command6.FontBold = .T., ;
Command6.FontSize = 12, ;
Command6.Caption = "删除", ;
Command6.ForeColor = RGB(255,0,0), ;
Command6.Name = "Command6", ;
Command7.Top = 8, ;
Command7.Left = 284, ;
Command7.Height = 25, ;
Command7.Width = 47, ;
Command7.FontBold = .T., ;
Command7.FontSize = 12, ;
Command7.Caption = "修改", ;
Command7.ForeColor = RGB(255,0,0), ;
Command7.Name = "Command7", ;
Command8.Top = 8, ;
Command8.Left = 331, ;
Command8.Height = 25, ;
Command8.Width = 47, ;
Command8.FontBold = .T., ;
Command8.FontSize = 12, ;
Command8.Caption = "取消", ;
Command8.ForeColor = RGB(255,0,0), ;
Command8.Name = "Command8", ;
Command9.Top = 8, ;
Command9.Left = 379, ;
Command9.Height = 25, ;
Command9.Width = 44, ;
Command9.FontBold = .T., ;
Command9.FontSize = 12, ;
Command9.Caption = "存储", ;
Command9.ForeColor = RGB(255,0,0), ;
Command9.Name = "Command9"
ADD OBJECT command1 AS commandbutton WITH ;
Top = 379, ;
Left = 552, ;
Height = 33, ;
Width = 65, ;
FontBold = .T., ;
FontName = "楷体_GB2312", ;
FontSize = 14, ;
Caption = "返回", ;
TabIndex = 52, ;
ForeColor = RGB(255,0,0), ;
Name = "Command1"
ADD OBJECT shape1 AS shape WITH ;
Top = 7, ;
Left = 65, ;
Height = 38, ;
Width = 410, ;
SpecialEffect = 0, ;
Name = "Shape1"
ADD OBJECT txtrq AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "gzb.输入日期", ;
Height = 24, ;
Left = 351, ;
TabIndex = 3, ;
Top = 14, ;
Width = 93, ;
DisabledBackColor = RGB(213,217,204), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "txtRq"
ADD OBJECT lblrq AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .F., ;
BackStyle = 0, ;
Caption = "输入日期", ;
Height = 19, ;
Left = 281, ;
Top = 17, ;
Width = 67, ;
TabIndex = 28, ;
ForeColor = RGB(0,0,255), ;
Name = "lblRq"
ADD OBJECT label10 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
Caption = "年份", ;
Height = 19, ;
Left = 79, ;
Top = 17, ;
Width = 35, ;
TabIndex = 53, ;
ForeColor = RGB(0,0,255), ;
Name = "Label10"
ADD OBJECT label11 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
Alignment = 0, ;
Caption = "月份", ;
Height = 19, ;
Left = 187, ;
Top = 18, ;
Width = 35, ;
TabIndex = 54, ;
ForeColor = RGB(0,0,255), ;
Name = "Label11"
ADD OBJECT txtyh AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "gzb.年份", ;
Height = 24, ;
Left = 120, ;
TabIndex = 1, ;
Top = 14, ;
Width = 54, ;
DisabledBackColor = RGB(213,217,204), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "txtYh"
ADD OBJECT txtmh AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "gzb.月份", ;
Height = 24, ;
Left = 229, ;
TabIndex = 2, ;
Top = 15, ;
Width = 30, ;
DisabledBackColor = RGB(213,217,204), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "txtMh"
ADD OBJECT shape2 AS shape WITH ;
Top = 51, ;
Left = 12, ;
Height = 313, ;
Width = 541, ;
SpecialEffect = 0, ;
Name = "Shape2"
ADD OBJECT txtxm AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "gzb.姓名", ;
Height = 24, ;
Left = 107, ;
TabIndex = 4, ;
Top = 59, ;
Width = 81, ;
DisabledBackColor = RGB(213,217,204), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "txtXm"
ADD OBJECT lblxm AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .F., ;
BackStyle = 0, ;
Caption = "姓名", ;
Height = 19, ;
Left = 58, ;
Top = 62, ;
Width = 35, ;
TabIndex = 29, ;
ForeColor = RGB(0,0,255), ;
Name = "lblXm"
ADD OBJECT lblpm AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .F., ;
BackStyle = 0, ;
Caption = "部门", ;
Height = 19, ;
Left = 226, ;
Top = 64, ;
Width = 35, ;
TabIndex = 30, ;
ForeColor = RGB(0,0,255), ;
Name = "lblPm"
ADD OBJECT txtf1 AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "gzb.职务工资", ;
Height = 25, ;
Left = 106, ;
TabIndex = 6, ;
Top = 95, ;
Width = 81, ;
DisabledBackColor = RGB(213,217,204), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "txtF1"
ADD OBJECT lblf1 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .F., ;
Alignment = 0, ;
BackStyle = 0, ;
Caption = "职务工资", ;
Height = 19, ;
Left = 39, ;
Top = 101, ;
Width = 67, ;
TabIndex = 31, ;
ForeColor = RGB(0,0,255), ;
Name = "lblF1"
ADD OBJECT txtf2 AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "gzb.结余补贴", ;
Height = 25, ;
Left = 271, ;
TabIndex = 7, ;
Top = 95, ;
Width = 81, ;
DisabledBackColor = RGB(213,217,204), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "txtF2"
ADD OBJECT lblf2 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .F., ;
BackStyle = 0, ;
Caption = "结余补贴", ;
Height = 19, ;
Left = 201, ;
Top = 101, ;
Width = 67, ;
TabIndex = 32, ;
ForeColor = RGB(0,0,255), ;
Name = "lblF2"
ADD OBJECT txtf3 AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "gzb.奖金津贴", ;
Height = 25, ;
Left = 434, ;
TabIndex = 8, ;
Top = 95, ;
Width = 81, ;
DisabledBackColor = RGB(213,217,204), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "txtF3"
ADD OBJECT lblf3 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .F., ;
BackStyle = 0, ;
Caption = "奖金津贴", ;
Height = 19, ;
Left = 365, ;
Top = 101, ;
Width = 67, ;
TabIndex = 33, ;
ForeColor = RGB(0,0,255), ;
Name = "lblF3"
ADD OBJECT txtf4 AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "gzb.校内津贴", ;
Height = 25, ;
Left = 106, ;
TabIndex = 9, ;
Top = 133, ;
Width = 81, ;
DisabledBackColor = RGB(213,217,204), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "txtF4"
ADD OBJECT lblf4 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .F., ;
Alignment = 0, ;
BackStyle = 0, ;
Caption = "校内津贴", ;
Height = 19, ;
Left = 39, ;
Top = 138, ;
Width = 67, ;
TabIndex = 34, ;
ForeColor = RGB(0,0,255), ;
Name = "lblF4"
ADD OBJECT txtf5 AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "gzb.教护津贴", ;
Height = 25, ;
Left = 271, ;
TabIndex = 10, ;
Top = 133, ;
Width = 81, ;
DisabledBackColor = RGB(213,217,204), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "txtF5"
ADD OBJECT lblf5 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .F., ;
BackStyle = 0, ;
Caption = "教护津贴", ;
Height = 19, ;
Left = 203, ;
Top = 139, ;
Width = 67, ;
TabIndex = 35, ;
ForeColor = RGB(0,0,255), ;
Name = "lblF5"
ADD OBJECT txtf6 AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "gzb.特种津贴", ;
Height = 25, ;
Left = 435, ;
TabIndex = 11, ;
Top = 133, ;
Width = 81, ;
DisabledBackColor = RGB(213,217,204), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "txtF6"
ADD OBJECT lblf6 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .F., ;
BackStyle = 0, ;
Caption = "特种津贴", ;
Height = 19, ;
Left = 364, ;
Top = 139, ;
Width = 67, ;
TabIndex = 36, ;
ForeColor = RGB(0,0,255), ;
Name = "lblF6"
ADD OBJECT txtf7 AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "gzb.房贴", ;
Height = 25, ;
Left = 106, ;
TabIndex = 12, ;
Top = 172, ;
Width = 81, ;
DisabledBackColor = RGB(213,217,204), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "txtF7"
ADD OBJECT lblf7 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .F., ;
Alignment = 0, ;
BackStyle = 0, ;
Caption = "房 贴", ;
Height = 19, ;
Left = 41, ;
Top = 178, ;
Width = 53, ;
TabIndex = 37, ;
ForeColor = RGB(0,0,255), ;
Name = "lblF7"
ADD OBJECT txtf8 AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "gzb.降温费", ;
Height = 25, ;
Left = 271, ;
TabIndex = 13, ;
Top = 172, ;
Width = 81, ;
DisabledBackColor = RGB(213,217,204), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "txtF8"
ADD OBJECT lblf8 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .F., ;
BackStyle = 0, ;
Caption = "降温费", ;
Height = 19, ;
Left = 206, ;
Top = 178, ;
Width = 51, ;
TabIndex = 38, ;
ForeColor = RGB(0,0,255), ;
Name = "lblF8"
ADD OBJECT txtf9 AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "gzb.应发数", ;
Enabled = .F., ;
Height = 25, ;
Left = 435, ;
TabIndex = 14, ;
Top = 172, ;
Width = 81, ;
DisabledBackColor = RGB(213,217,204), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "txtF9"
ADD OBJECT lblf9 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .F., ;
BackStyle = 0, ;
Caption = "应发数", ;
Height = 19, ;
Left = 373, ;
Top = 178, ;
Width = 51, ;
TabIndex = 39, ;
ForeColor = RGB(0,0,255), ;
Name = "lblF9"
ADD OBJECT txtf10 AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "gzb.房租", ;
Height = 25, ;
Left = 106, ;
TabIndex = 15, ;
Top = 210, ;
Width = 81, ;
DisabledBackColor = RGB(213,217,204), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "txtF10"
ADD OBJECT lblf10 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .F., ;
Alignment = 0, ;
BackStyle = 0, ;
Caption = "房 租", ;
Height = 19, ;
Left = 41, ;
Top = 216, ;
Width = 53, ;
TabIndex = 40, ;
ForeColor = RGB(0,0,255), ;
Name = "lblF10"
ADD OBJECT txtf11 AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "gzb.水电", ;
Height = 25, ;
Left = 271, ;
TabIndex = 16, ;
Top = 210, ;
Width = 81, ;
DisabledBackColor = RGB(213,217,204), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "txtF11"
ADD OBJECT lblf11 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .F., ;
BackStyle = 0, ;
Caption = "水 电", ;
Height = 19, ;
Left = 206, ;
Top = 216, ;
Width = 44, ;
TabIndex = 41, ;
ForeColor = RGB(0,0,255), ;
Name = "lblF11"
ADD OBJECT txtf12 AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "gzb.假旷", ;
Height = 25, ;
Left = 435, ;
TabIndex = 17, ;
Top = 210, ;
Width = 81, ;
DisabledBackColor = RGB(213,217,204), ;
DisabledForeColor = RGB(255,0,0), ;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -