📄 frmmodifyduty.frm
字号:
End
Begin VB.CommandButton nextCommand
Caption = "下一条记录"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 4080
TabIndex = 8
Top = 360
Width = 1452
End
Begin VB.CommandButton previousCommand
Caption = "上一条记录"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 2160
TabIndex = 7
Top = 360
Width = 1452
End
Begin VB.CommandButton firstCommand
Caption = "第一条记录"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 240
TabIndex = 6
Top = 360
Width = 1452
End
End
Begin VB.Frame Frame3
Caption = "修改考勤信息"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1092
Left = 240
TabIndex = 0
Top = 6480
Width = 7935
Begin VB.CommandButton deleteCommand
Caption = "删除记录"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 4200
TabIndex = 4
Top = 390
Width = 1470
End
Begin VB.CommandButton cancelCommand
Caption = "关闭退出"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 6000
TabIndex = 3
Top = 360
Width = 1695
End
Begin VB.CommandButton updateCommand
Caption = "保存记录"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 2160
TabIndex = 2
Top = 360
Width = 1470
End
Begin VB.CommandButton editCommand
Caption = "修改记录"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 270
TabIndex = 1
Top = 390
Width = 1470
End
End
End
Attribute VB_Name = "编辑考勤信息"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim mrc As ADODB.Recordset
Dim myBookmark As Variant
Dim mcclean As Boolean
Private Sub cancelCommand_Click()
Unload Me
End Sub
Private Sub deleteCommand_Click()
'myBookmark = mrc.Bookmark
If UserName <> "Admin" Then
'判断用户的权限
MsgBox "只有超级管理员才有此权限！", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
If MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录") = vbOK Then
'mrc.MoveNext
' If mrc.EOF Then
' mrc.MoveFirst
' myBookmark = mrc.Bookmark
' mrc.Delete
' mrc.MoveLast
'mrc.Bookmark = myBookmark
' Call viewData
' Else
' myBookmark = mrc.Bookmark
mrc.Delete
mrc.MoveFirst
' mrc.Bookmark = myBookmark
Call viewData
' End If
Else
' mrc.Bookmark = myBookmark
Call viewData
End If
End Sub
Private Sub editCommand_Click()
Frame2.Enabled = False
firstCommand.Enabled = False
previousCommand.Enabled = False
nextCommand.Enabled = False
lastCommand.Enabled = False
Dim i As Integer
For i = 2 To 15
txtFields(i).Enabled = True
Next
txtFields(3).Enabled = False
txtFields(4).Enabled = False
' myBookmark = mrc.Bookmark
End Sub
Private Sub firstCommand_Click()
'第一条记录
mrc.MoveFirst
Call viewData
End Sub
Private Sub Form_Load()
Dim txtSQL As String
Dim MsgText As String
txtSQL = "select * from 考勤信息"
Set mrc = ExecuteSQL(txtSQL, MsgText)
mrc.MoveFirst
Call viewData
' myBookmark = mrc.Bookmark
mcclean = True
Dim i As Integer
For i = 0 To 15
txtFields(i).Enabled = False
Next
End Sub
Public Sub viewData()
txtFields(0).Text = mrc.Fields(1)
txtFields(1).Text = mrc.Fields(2)
txtFields(2).Text = mrc.Fields(3)
txtFields(3).Text = mrc.Fields(4)
txtFields(4).Text = mrc.Fields(5)
txtFields(15).Text = mrc.Fields(6)
txtFields(5).Text = mrc.Fields(7)
txtFields(6).Text = mrc.Fields(8)
txtFields(7).Text = mrc.Fields(9)
txtFields(14).Text = mrc.Fields(10)
txtFields(9).Text = mrc.Fields(12)
txtFields(10).Text = mrc.Fields(13)
End Sub
Private Sub lastCommand_Click()
'最后一条记录
mrc.MoveLast
Call viewData
End Sub
Private Sub nextCommand_Click()
'下一条记录
mrc.MoveNext
If mrc.EOF Then
mrc.MoveFirst
End If
Call viewData
End Sub
Private Sub previousCommand_Click()
'前一条记录
mrc.MovePrevious
If mrc.BOF Then
mrc.MoveLast
End If
Call viewData
End Sub
Private Sub updateCommand_Click()
If UserName <> "Admin" Then
'判断用户的权限
MsgBox "只有超级管理员才有此权限！", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
mrc.Fields(1) = Val(txtFields(0).Text)
mrc.Fields(2) = Val(txtFields(1).Text)
mrc.Fields(3) = Trim(txtFields(2).Text)
mrc.Fields(4) = Trim(txtFields(3).Text)
mrc.Fields(5) = Trim(txtFields(4).Text)
mrc.Fields(6) = Val(txtFields(15).Text)
mrc.Fields(7) = Val(txtFields(5).Text)
mrc.Fields(8) = Val(txtFields(6).Text)
mrc.Fields(9) = Val(txtFields(7).Text)
mrc.Fields(10) = Val(txtFields(14).Text)
mrc.Fields(11) = Val(txtFields(8).Text)
mrc.Fields(12) = Val(txtFields(9).Text)
mrc.Fields(13) = Val(txtFields(10).Text)
mrc.Fields(14) = Val(txtFields(11).Text)
mrc.Fields(15) = Val(txtFields(12).Text)
mrc.Fields(16) = Val(txtFields(13).Text)
mrc.Update
MsgBox "考勤信息更新成功！", vbOKOnly + vbExclamation, "更新考勤信息"
Call viewData
Frame2.Enabled = True
'导航按钮有效
firstCommand.Enabled = True
previousCommand.Enabled = True
nextCommand.Enabled = True
lastCommand.Enabled = True
'记录只读
txtFields(0).Enabled = False
txtFields(1).Enabled = False
txtFields(2).Enabled = False
txtFields(3).Enabled = False
txtFields(4).Enabled = False
txtFields(5).Enabled = False
txtFields(6).Enabled = False
txtFields(7).Enabled = False
txtFields(8).Enabled = False
txtFields(9).Enabled = False
txtFields(10).Enabled = False
txtFields(11).Enabled = False
txtFields(12).Enabled = False
txtFields(13).Enabled = False
txtFields(14).Enabled = False
txtFields(15).Enabled = False
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -