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

📄 frmmodpay.frm

📁 人事管理的发撒发的撒发大是发 立刻机；立刻机；可怜见；了可就
💻 FRM
📖 第 1 页 / 共 2 页
字号:
🔍
12 
            Left            =   2835
            TabIndex        =   18
            Top             =   990
            Width           =   90
         End
         Begin VB.Label LblLable 
            AutoSize        =   -1  'True
            Caption         =   "*"
            Height          =   180
            Index           =   17
            Left            =   5715
            TabIndex        =   17
            Top             =   630
            Width           =   90
         End
         Begin VB.Label LblLable 
            AutoSize        =   -1  'True
            Caption         =   "*"
            Height          =   180
            Index           =   18
            Left            =   5715
            TabIndex        =   16
            Top             =   270
            Width           =   90
         End
         Begin VB.Label LblLable 
            AutoSize        =   -1  'True
            Caption         =   "*"
            Height          =   180
            Index           =   19
            Left            =   2835
            TabIndex        =   15
            Top             =   630
            Width           =   90
         End
      End
      Begin VB.PictureBox PicFrame 
         Height          =   495
         Index           =   4
         Left            =   240
         ScaleHeight     =   435
         ScaleWidth      =   5835
         TabIndex        =   3
         Top             =   3600
         Width           =   5895
         Begin VB.TextBox TxtVPay 
            Enabled         =   0   'False
            Height          =   300
            Left            =   1200
            TabIndex        =   4
            Top             =   60
            Width           =   1575
         End
         Begin MSComCtl2.DTPicker DTPicker1 
            Height          =   300
            Left            =   4080
            TabIndex        =   5
            Top             =   60
            Width           =   1575
            _ExtentX        =   2778
            _ExtentY        =   529
            _Version        =   393216
            Enabled         =   0   'False
            Format          =   73072641
            CurrentDate     =   38327
         End
         Begin VB.Label LblLable 
            AutoSize        =   -1  'True
            Caption         =   "计发时间："
            Height          =   180
            Index           =   12
            Left            =   3120
            TabIndex        =   7
            Top             =   120
            Width           =   900
         End
         Begin VB.Label LblLable 
            AutoSize        =   -1  'True
            Caption         =   "实发工资："
            Height          =   180
            Index           =   6
            Left            =   240
            TabIndex        =   6
            Top             =   120
            Width           =   900
         End
      End
   End
   Begin VB.CommandButton CmdRetrun 
      Caption         =   "返回(&C)"
      Height          =   375
      Left            =   5280
      TabIndex        =   1
      Top             =   4680
      Width           =   1215
   End
   Begin VB.CommandButton CmdSave 
      Caption         =   "保存(&S)"
      Height          =   375
      Left            =   3960
      TabIndex        =   0
      Top             =   4680
      Width           =   1215
   End
   Begin WinXPC_Engine.WindowsXPC WinXPPayManage 
      Left            =   1440
      Top             =   360
      _ExtentX        =   6588
      _ExtentY        =   1085
      ColorScheme     =   2
      Common_Dialog   =   0   'False
   End
   Begin WinXPC_Engine.WindowsXPC WinXPModPay 
      Left            =   1440
      Top             =   2400
      _ExtentX        =   6588
      _ExtentY        =   1085
      ColorScheme     =   2
      Common_Dialog   =   0   'False
   End
End
Attribute VB_Name = "FrmModPay"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmdDel_Click()
If MsgBox("确定要删除吗？", vbInformation + vbYesNo, "删除信息") = vbYes Then
    If RsModPay.RecordCount <> 0 Then
        RsModPay.Delete         '//删除记录
        Call CmdMove_Click
    Else
        MsgBox "当前没有任何记录", , "删除记录"
        Call FormTxtValue2      '//调用给文本框赋空值的过程
    End If
End If
End Sub
Private Sub CmdEdit_Click()
Call CmdState1                  '//调用命令按钮Visible属性为隐藏的过程
Call TxtState                   '//调用启用文本框的Enabled属性过程
End Sub

Private Sub CmdMove_Click()
If RsModPay.RecordCount <> 0 Then
    RsModPay.MoveNext           '//记录向下移一条
    If RsModPay.EOF Then
        RsModPay.MoveFirst      '//将记录移到第一行
    End If
    Call FormTxtValue1          '//调用将记录数据赋给文本框的过程
Else
MsgBox "当前没有任何记录", , "移动记录"
End If
End Sub


Private Sub CmdRetrun_Click()
Unload Me
End Sub

Private Sub CmdSave_Click()
On Error GoTo ErrSave
    Call UpRsValue
    RsModPay.Update         '//更新记录
    Call CmdMove_Click
    MsgBox "数据已被保存", , "保存成功"
    Call CmdState2
    Call TxtState1
    
Exit Sub
ErrSave:
    Select Case Err.Number
        Case -2147217887
        MsgBox "编号不能为空", vbInformation + vbOKOnly, "输入错误"
        Case -2147352571
        MsgBox "没选择编号或带 * 内容没填,若没有请输入 0 ", vbInformation + vbOKOnly, "输入错误"
        Case Else
        MsgBox "错误描述：" & Err.Description & vbCrLf & "错误代码：" & Err.Number, vbCritical + vbOKOnly, "非法操作"
    End Select
End Sub

Private Sub Form_Load()
Me.Left = Frmmdimain.Width / 5
Me.Top = Frmmdimain.Height / 20
WinXPModPay.InitSubClassing
If RsModPay.State = adStateOpen Then
    RsModPay.Close
End If
RsModPay.Open "员工工资", DBCON, adOpenKeyset, adLockPessimistic, adcmdtalbe

Call FormTxtValue1

End Sub

Private Sub UpRsValue()

RsModPay.Fields(0).Value = CmbCode.Text
RsModPay.Fields(1).Value = TxtName.Text
RsModPay.Fields(2).Value = TxtBrach.Text
RsModPay.Fields(3).Value = TxtPay.Text
RsModPay.Fields(4).Value = TxtTimeOver.Text
RsModPay.Fields(5).Value = TxtAllowance.Text
RsModPay.Fields(6).Value = TxtRent.Text
RsModPay.Fields(7).Value = TxtBonus.Text
RsModPay.Fields(8).Value = TxtOther.Text
RsModPay.Fields(9).Value = TxtAnnuities.Text
RsModPay.Fields(10).Value = TxtSafety.Text
RsModPay.Fields(11).Value = TxtVPay.Text
RsModPay.Fields(12).Value = DTPicker1.Value

End Sub
Private Sub FormTxtValue1()

CmbCode.Text = RsModPay.Fields(0).Value
TxtName.Text = RsModPay.Fields(1).Value
TxtBrach.Text = RsModPay.Fields(2).Value
TxtPay.Text = RsModPay.Fields(3).Value
TxtTimeOver.Text = RsModPay.Fields(4).Value
TxtAllowance.Text = RsModPay.Fields(5).Value
TxtRent.Text = RsModPay.Fields(6).Value
TxtBonus.Text = RsModPay.Fields(7).Value
TxtOther.Text = RsModPay.Fields(8).Value
TxtAnnuities.Text = RsModPay.Fields(9).Value
TxtSafety.Text = RsModPay.Fields(10).Value
TxtVPay.Text = RsModPay.Fields(11).Value
DTPicker1.Value = RsModPay.Fields(12).Value

End Sub
Private Sub FormTxtValue2()

CmbCode.Text = Empty
TxtName.Text = Empty
TxtBrach.Text = Empty
TxtPay.Text = Empty
TxtTimeOver.Text = Empty
TxtAllowance.Text = Empty
TxtRent.Text = Empty
TxtBonus.Text = Empty
TxtOther.Text = Empty
TxtAnnuities.Text = Empty
TxtSafety.Text = Empty
TxtVPay.Text = Empty
DTPicker1.Value = Date

End Sub
Private Sub CmdState1()
CmdEdit.Visible = False
CmdDel.Visible = False
CmdMove.Visible = False
CmdSave.Visible = True
CmdRetrun.Enabled = False
End Sub
Private Sub CmdState2()
CmdEdit.Visible = True
CmdDel.Visible = True
CmdMove.Visible = True
CmdSave.Visible = False
CmdRetrun.Enabled = True
End Sub
Private Sub TxtState()
CmbCode.Enabled = True
'TxtName.Enabled = True
'TxtBrach.Enabled = True
TxtPay.Enabled = True
TxtTimeOver.Enabled = True
TxtAllowance.Enabled = True
TxtRent.Enabled = True
TxtBonus.Enabled = True
TxtOther.Enabled = True
TxtAnnuities.Enabled = True
TxtSafety.Enabled = True
'TxtVPay.Enabled = True
DTPicker1.Enabled = True
End Sub
Private Sub TxtState1()
CmbCode.Enabled = False
'TxtName.Enabled = False
'TxtBrach.Enabled = False
TxtPay.Enabled = False
TxtTimeOver.Enabled = False
TxtAllowance.Enabled = False
TxtRent.Enabled = False
TxtBonus.Enabled = False
TxtOther.Enabled = False
TxtAnnuities.Enabled = False
TxtSafety.Enabled = False
'TxtVPay.Enabled = False
DTPicker1.Enabled = False
End Sub
Private Sub Change()        '计算实发工资的过程
TxtVPay.Text = Val(TxtPay.Text) + Val(TxtTimeOver.Text) + Val(TxtAllowance.Text) + Val(TxtRent.Text) + Val(TxtBonus.Text) + Val(TxtOther.Text) - Val(TxtAnnuities.Text) - Val(TxtSafety.Text)
End Sub

Private Sub TxtAllowance_Change()
Call Change
End Sub

Private Sub TxtAnnuities_Change()
Call Change
End Sub

Private Sub TxtBonus_Change()
Call Change
End Sub

Private Sub TxtOther_Change()
Call Change
End Sub

Private Sub TxtPay_Change()
Call Change
End Sub

Private Sub TxtRent_Change()
Call Change
End Sub

Private Sub TxtSafety_Change()
Call Change
End Sub

Private Sub TxtTimeOver_Change()
Call Change
End Sub

Private Sub TxtVPay_Change()
Call Change
End Sub
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -