📄 frm1gzff.frm
字号:
Alignment = 1 'Right Justify
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 300
Index = 6
Left = 3960
TabIndex = 7
Top = 780
Width = 1215
End
Begin VB.TextBox Text1
Alignment = 1 'Right Justify
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 300
Index = 5
Left = 3960
TabIndex = 6
Top = 420
Width = 1215
End
Begin VB.TextBox Text1
Alignment = 1 'Right Justify
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 300
Index = 4
Left = 1320
TabIndex = 5
Top = 1860
Width = 1215
End
Begin VB.TextBox Text1
Alignment = 1 'Right Justify
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 300
Index = 3
Left = 1320
TabIndex = 4
Top = 1500
Width = 1215
End
Begin VB.TextBox Text1
Alignment = 1 'Right Justify
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 300
Index = 2
Left = 1320
TabIndex = 3
Top = 1140
Width = 1215
End
Begin VB.TextBox Text1
Alignment = 1 'Right Justify
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 300
Index = 1
Left = 1320
TabIndex = 2
Top = 780
Width = 1215
End
Begin VB.TextBox Text1
Alignment = 1 'Right Justify
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 300
Index = 0
Left = 1320
TabIndex = 1
Top = 420
Width = 1215
End
Begin VB.Label labSFGZ
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800080&
Height = 255
Left = 1320
TabIndex = 18
Top = 3285
Width = 2085
End
Begin VB.Label labYKHJ
BackStyle = 0 'Transparent
ForeColor = &H000000C0&
Height = 270
Left = 3960
TabIndex = 17
Top = 2940
Width = 1215
End
Begin VB.Label labYFHJ
BackStyle = 0 'Transparent
ForeColor = &H00008000&
Height = 255
Left = 1320
TabIndex = 16
Top = 2940
Width = 1275
End
End
Begin VB.Label Label2
Caption = "记 录 人"
Height = 255
Left = 3120
TabIndex = 37
Top = 700
Width = 735
End
Begin VB.Label Label4
Caption = "月 度"
Height = 255
Left = 360
TabIndex = 15
Top = 720
Width = 735
End
End
Attribute VB_Name = "frm1GZFF"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2007/12/17
'描 述：企事业单位人事管理系统 Ver 2007
'网 站：http://www.Mndsoft.com/ (VB6源码博客)
'网 站：http://www.VbDnet.com/ (VB.NET源码博客,主要基于.NET2005)
'e-mail ：Mndsoft@163.com
'e-mail ：Mndsoft@126.com
'OICQ ：88382850
' 如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Private Sub cmdCZ_Click()
frm1GZFFXZ.Show 1
End Sub
Private Sub Form_Initialize()
Call InitCommonControls 'XP效果
End Sub
Private Sub Form_Load()
Me.Icon = MDIfrm.Icon '图标
If gGzid = 0 Then
Me.txtYD.Text = Format(Date, "yyyymm")
Me.txtJLR.Text = gCzy
Me.txtYD.Enabled = False
Me.Frame1.Enabled = False
Me.picGZXX.Enabled = False
Me.Toolbar1.Buttons(2).Enabled = False
Me.Toolbar1.Buttons(3).Enabled = False
Else
Call OpenConn
SQL = "select * from 工资发放表 where ffid=" & gGzid
rs.Open SQL, cn, 1, 1
Me.txtYD.Text = rs!月度
Me.txtXM.Text = rs!姓名
Me.txtZW.Text = rs!职务
Me.txtDW.Text = rs!单位
Me.txtBM.Text = rs!部门
Me.txtKHYH.Text = rs!开户银行
Me.txtYHZH.Text = rs!银行帐号
Me.txtJLR.Text = rs!记录人
Me.txtBZ.Text = rs!备注
For i = 0 To 11
Me.Text1(i).Text = rs.Fields(i + 9)
Next
Call CloseConn
Me.txtYD.Enabled = False
Me.Frame1.Enabled = False
Me.picGZXX.Enabled = False
Me.Toolbar1.Buttons(1).Enabled = False
Me.Toolbar1.Buttons(2).Enabled = False
Me.Toolbar1.Buttons(3).Enabled = True
End If
End Sub
Private Sub Text1_Change(Index As Integer)
If IsNumeric(Me.Text1(Index).Text) = False Then
Me.Text1(Index).Text = 0
End If
Me.labYFHJ.Caption = Format(Val(Me.Text1(0).Text) + Val(Me.Text1(1).Text) + Val(Me.Text1(2).Text) + Val(Me.Text1(3).Text) + Val(Me.Text1(4).Text), "0.00")
Me.labYKHJ.Caption = Format(Val(Me.Text1(5).Text) + Val(Me.Text1(6).Text) + Val(Me.Text1(7).Text) + Val(Me.Text1(8).Text) + Val(Me.Text1(9).Text) + Val(Me.Text1(10).Text) + Val(Me.Text1(11).Text), "0.00")
Me.labSFGZ.Caption = Format(Val(Me.labYFHJ.Caption) - Val(Me.labYKHJ.Caption), "currency")
End Sub
Private Sub Text1_GotFocus(Index As Integer)
Me.Text1(Index).SelStart = 0 '文本框中的文本全部选中
Me.Text1(Index).SelLength = Len(Me.Text1(Index).Text)
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case Is = 1 '新增按钮
Me.txtYD.Enabled = True
Me.Frame1.Enabled = True
Me.picGZXX.Enabled = True
Me.Toolbar1.Buttons(1).Enabled = False
Me.Toolbar1.Buttons(2).Enabled = True
Me.txtXM.Text = ""
Me.txtZW.Text = ""
Me.txtDW.Text = ""
Me.txtBM.Text = ""
Me.txtKHYH.Text = ""
Me.txtYHZH.Text = ""
Me.txtBZ.Text = ""
For i = 0 To 11
Me.Text1(i).Text = 0
Next
Me.txtXM.SetFocus
Case Is = 2 '保存按钮
If Len(Me.txtYD.Text) <> 6 Then
MsgBox "格式不对，请重新填写月度！"
Exit Sub
End If
If Me.txtDW.Text = "" Or Me.txtBM.Text = "" Then
MsgBox "请选择职工！", 48, "提示"
Exit Sub
End If
SQL = "select * from 工资发放表"
Call OpenConn
rs.Open SQL, cn, 3, 3
rs.AddNew
rs!fzgid = Me.Tag
rs!月度 = Me.txtYD.Text
rs!姓名 = Me.txtXM.Text
rs!职务 = Me.txtZW.Text
rs!单位 = Me.txtDW.Text
rs!部门 = Me.txtBM.Text
rs!开户银行 = Me.txtKHYH.Text
rs!银行帐号 = Me.txtYHZH.Text
rs!记录人 = Me.txtJLR.Text
rs!备注 = Me.txtBZ.Text
For i = 0 To 11
rs.Fields(i + 9) = Me.Text1(i).Text
Next
rs.Update
Call CloseConn
Me.txtYD.Enabled = False
Me.Frame1.Enabled = False
Me.picGZXX.Enabled = False
Me.Toolbar1.Buttons(1).Enabled = True
Me.Toolbar1.Buttons(2).Enabled = False
MsgBox "记录添加成功！", 64, "提示"
frm1GZGL.cmdSSSSSSX = True '刷新frm1GZGL
Case Is = 3 '删除按钮
msg = MsgBox("确定要删除该记录吗？", vbYesNo + 64, "提示")
If msg = vbNo Then Exit Sub
Call OpenConn
cn.Execute ("delete * from 工资发放表 where ffid=" & gGzid)
Call CloseConn
Unload Me
frm1GZGL.cmdSSSSSSX = True '刷新frm1GZGL
Case Is = 5
Unload Me
End Select
End Sub
Private Sub txtXM_Change()
Me.txtZW.Text = ""
Me.txtDW.Text = ""
Me.txtBM.Text = ""
Me.txtKHYH.Text = ""
Me.txtYHZH.Text = ""
Me.txtBZ.Text = ""
For i = 0 To 11
Me.Text1(i).Text = 0
Next
End Sub
Private Sub txtYD_Change()
If IsNumeric(Me.txtYD.Text) = False Then
MsgBox "格式为四位年份加两位月份，如：200701"
Me.txtYD.SetFocus
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -