📄 jiaban.frm
字号:
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4800
TabIndex = 8
Top = 1080
Width = 1935
End
Begin VB.TextBox bumen
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4800
Locked = -1 'True
TabIndex = 4
Top = 480
Width = 1935
End
Begin VB.ComboBox SelInfo
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 1200
Locked = -1 'True
TabIndex = 3
Top = 1080
Width = 1935
End
Begin VB.Label Label5
BackColor = &H00C0C0C0&
Caption = "加班日期："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 120
TabIndex = 9
Top = 480
Width = 1095
End
Begin VB.Label Label2
BackColor = &H00C0C0C0&
Caption = "部门："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 4080
TabIndex = 7
Top = 480
Width = 735
End
Begin VB.Label Label3
BackColor = &H00C0C0C0&
Caption = "姓名："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 6
Top = 1080
Width = 735
End
Begin VB.Label Label4
BackColor = &H00C0C0C0&
Caption = "加班时间："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 3720
TabIndex = 5
Top = 1080
Width = 1095
End
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 1
Top = 6735
Width = 11640
_ExtentX = 20532
_ExtentY = 661
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 15875
MinWidth = 15875
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
TextSave = "02-11-20"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
TextSave = "15:45"
EndProperty
EndProperty
End
Begin VB.Label Label1
BackColor = &H80000007&
BorderStyle = 1 'Fixed Single
Caption = "加 班 登 记"
BeginProperty Font
Name = "黑体"
Size = 42
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 975
Left = 3360
TabIndex = 0
Top = 240
Width = 4815
End
End
Attribute VB_Name = "frmjiaban"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim CnnJiaBan As ADODB.Connection
Dim RstJiaBan As ADODB.Recordset
Dim RstShuju As ADODB.Recordset
Dim JiaRiQi, JiaShiJian
Private Sub BtnExit_Click()
Unload Me
End Sub
Private Sub BtnSame_Click()
'BtnSame.Enabled = False
'BtnSure.Enabled = True
If MsgBox("你是要保存加班的数据吗？", vbYesNo, "提醒！！") = vbNo Then
Exit Sub
End If
If JiaBan.Text = "" Then
MsgBox "加班时间不能为空！！", vbOKOnly, "提醒！！"
Exit Sub
End If
Set RstShuju = New ADODB.Recordset
RstShuju.Open "select * from kaoqishuju where xingming='" + SelInfo.Text + "' and riqi='" + JiaRiQi + "'and shijian='" + DaKaShiJian.Text + "' and iflate<>0", CnnJiaBan, adOpenKeyset, adLockOptimistic, adCmdText
If Not RstShuju.EOF Then
RstShuju.Fields(6) = 0
RstShuju.UpdateBatch
End If
'Set RstJiaBan = New ADODB.Recordset
'RstJiaBan.Open "select * from jiaban", CnnJiaBan, adOpenKeyset, adLockOptimistic, adCmdText
'RstJiaBan.AddNew
' RstJiaBan.Fields(0) = bumen.Text
' RstJiaBan.Fields(1) = SelInfo.Text
' RstJiaBan.Fields(2) = JiaBanRiqi.Value
' RstJiaBan.Fields(3) = JiaBan.Text
' RstJiaBan.Fields(4) = DaKaShiJian.Text
'RstJiaBan.UpdateBatch
Dim DoNotLate
Set RstJiaBan = New ADODB.Recordset
RstJiaBan.Open "select * from dangtiandaka where xingming='" + SelInfo.Text + "'and riqi='" + JiaRiQi + "' ", CnnJiaBan, adOpenKeyset, adLockBatchOptimistic, adCmdText
If Not RstJiaBan.EOF Then
RstJiaBan!JiaBan = DaKaShiJian.Text
RstJiaBan!IFLate = 0
RstJiaBan.UpdateBatch adAffectCurrent
End If
Set RstJiaBan = New ADODB.Recordset
RstJiaBan.Open "select * from qingjiatianshu where xingming='" + SelInfo.Text + "'", CnnJiaBan, adOpenKeyset, adLockBatchOptimistic, adCmdText
If Not RstJiaBan.EOF Then
JiaShiJian = CInt(RstJiaBan.Fields(3))
RstJiaBan.Fields(7) = CInt(JiaShiJian + JiaBan.Text)
DoNotLate = RstJiaBan.Fields(5)
'RstJiaBan.Fields(5) = CInt(DoNotLate - 1)
RstJiaBan.UpdateBatch
End If
MsgBox "数据已保存！！"
End Sub
Private Sub btnSure_Click()
JiaRiQi = CStr(Format(JiaBanRiqi.Value, "yyyymmdd"))
Set RstJiaBan = New ADODB.Recordset
RstJiaBan.Open "select * from kaoqishuju where xingming='" + SelInfo.Text + "'and riqi='" + JiaRiQi + "'and iflate=2", CnnJiaBan, adOpenKeyset, adLockOptimistic, adCmdText
If RstJiaBan.EOF Then
MsgBox "没有适合条件的数据，请确认！！", vbOKCancel, "提醒!!!"
Exit Sub
Frame4.Visible = False
Else
'BtnSame.Enabled = True
'BtnSure.Enabled = False
Set DataGrid1.DataSource = RstJiaBan
DataGrid1.Columns(0).Width = 0
DataGrid1.Columns(1).Width = 800
DataGrid1.Columns(1).Caption = "卡号"
DataGrid1.Columns(2).Width = 800
DataGrid1.Columns(2).Caption = "姓名"
DataGrid1.Columns(3).Width = 800
DataGrid1.Columns(3).Caption = "日期"
DataGrid1.Columns(4).Width = 800
DataGrid1.Columns(4).Caption = "打卡时间"
DataGrid1.Columns(5).Width = 800
DataGrid1.Columns(5).Caption = "卡身号"
DataGrid1.Columns(6).Width = 800
DataGrid1.Columns(6).Caption = "是否迟到"
DataGrid1.Columns(7).Width = 0
DataGrid1.Columns(8).Width = 0
DataGrid1.Columns(9).Width = 0
DataGrid1.Columns(10).Caption = "班名"
DataGrid1.Columns(11).Width = 0
DataGrid1.Columns(12).Width = 0
DataGrid1.Columns(13).Width = 0
DataGrid1.Columns(14).Width = 0
DataGrid1.Columns(15).Width = 0
DataGrid1.Columns(16).Width = 0
End If
Frame4.Visible = True
End Sub
Private Sub bumen_Change()
If bumen.Text = "1" Then
bumen.Text = "筹建处"
End If
If bumen.Text = "2" Then
bumen.Text = "管理处"
End If
If bumen.Text = "3" Then
bumen.Text = "会所"
End If
End Sub
Private Sub bumen_GotFocus()
StatusBar1.Panels(1).Text = "1、筹建处 2、管理处 3、会所"
End Sub
Private Sub bumen_LostFocus()
StatusBar1.Panels(1).Text = ""
End Sub
Private Sub Command1_Click()
'BtnSame.Enabled = False
'BtnSure.Enabled = True
End Sub
Private Sub Command4_Click()
End Sub
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
If Not RstJiaBan.EOF Then
DaKaShiJian.Text = IIf(IsNull(RstJiaBan.Fields(4)), "", RstJiaBan.Fields(4))
End If
End Sub
Private Sub Form_Load()
Set CnnJiaBan = New ADODB.Connection
CnnJiaBan.Open "kaoqin", "andy", "1234"
Set RstJiaBan = New ADODB.Recordset
RstJiaBan.Open "select bumen from bumen ", CnnJiaBan, adOpenStatic, adLockBatchOptimistic, adCmdText
Do While Not RstJiaBan.EOF
SelBumen.AddItem RstJiaBan!bumen
RstJiaBan.MoveNext
Loop
JiaBanRiqi.Value = Now
End Sub
Private Sub SelBumen_Click()
SelJiYuan.Clear
bumen.Text = SelBumen.Text
Set RstShuju = New ADODB.Recordset
RstShuju.Open "select xingming from cardinfo where bumen='" + bumen.Text + "'order by gonghao", CnnJiaBan, adOpenStatic, adLockOptimistic, adCmdText
Do While Not RstShuju.EOF
SelJiYuan.AddItem RstShuju.Fields(0)
RstShuju.MoveNext
Loop
End Sub
Private Sub SelInfo_GotFocus()
Set RstJiaBan = New ADODB.Recordset
RstJiaBan.Open "select xingming from cardinfo where bumen='" + bumen.Text + "'", CnnJiaBan, adOpenKeyset, adLockOptimistic, adCmdText
Do While Not RstJiaBan.EOF
SelInfo.AddItem RstJiaBan!xingming
RstJiaBan.MoveNext
Loop
RstJiaBan.Close
End Sub
Private Sub Seljiyuan_Click()
SelInfo.Text = SelJiYuan.Text
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -