📄 absenceform.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Begin VB.Form AbsenceForm
Caption = "考勤状态"
ClientHeight = 7050
ClientLeft = 60
ClientTop = 420
ClientWidth = 6825
LinkTopic = "Form1"
LockControls = -1 'True
ScaleHeight = 7050
ScaleWidth = 6825
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command2
Caption = "退出"
Height = 375
Left = 5040
TabIndex = 6
Top = 6480
Width = 1095
End
Begin TabDlg.SSTab SSTab1
Height = 5415
Left = 480
TabIndex = 4
Top = 840
Width = 5775
_ExtentX = 10186
_ExtentY = 9551
_Version = 393216
Style = 1
TabHeight = 520
TabCaption(0) = "考勤状况"
TabPicture(0) = "AbsenceForm.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "MSHFlexGrid1"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Frame1"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).ControlCount= 2
TabCaption(1) = "考核奖惩"
TabPicture(1) = "AbsenceForm.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "MSHFlexGrid2"
Tab(1).ControlCount= 1
TabCaption(2) = "培训内容"
TabPicture(2) = "AbsenceForm.frx":0038
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "MSHFlexGrid3"
Tab(2).ControlCount= 1
Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid3
Height = 4695
Left = -74760
TabIndex = 15
Top = 480
Width = 5295
_ExtentX = 9340
_ExtentY = 8281
_Version = 393216
FixedCols = 0
HighLight = 0
ScrollBars = 2
_NumberOfBands = 1
_Band(0).Cols = 2
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid2
Height = 4575
Left = -74760
TabIndex = 14
Top = 480
Width = 5295
_ExtentX = 9340
_ExtentY = 8070
_Version = 393216
FixedCols = 0
HighLight = 0
BandDisplay = 1
_NumberOfBands = 1
_Band(0).Cols = 2
_Band(0).GridLinesBand= 1
_Band(0).TextStyleBand= 0
_Band(0).TextStyleHeader= 0
End
Begin VB.Frame Frame1
Caption = "表中考勤:"
Height = 2535
Left = 3840
TabIndex = 7
Top = 480
Width = 1695
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "加班:"
Height = 180
Left = 120
TabIndex = 13
Top = 2160
Width = 450
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "出差:"
Height = 180
Left = 120
TabIndex = 12
Top = 1800
Width = 450
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "旷到:"
Height = 180
Left = 120
TabIndex = 11
Top = 1440
Width = 450
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "迟到:"
Height = 180
Left = 120
TabIndex = 10
Top = 1080
Width = 450
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "请假:"
Height = 180
Left = 120
TabIndex = 9
Top = 720
Width = 450
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "正常:"
Height = 180
Left = 120
TabIndex = 8
Top = 360
Width = 450
End
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid1
Height = 4695
Left = 240
TabIndex = 5
Top = 480
Width = 3375
_ExtentX = 5953
_ExtentY = 8281
_Version = 393216
Rows = 28
Cols = 3
FixedCols = 0
AllowBigSelection= 0 'False
HighLight = 0
ScrollBars = 2
_NumberOfBands = 1
_Band(0).Cols = 3
_Band(0).GridLinesBand= 1
_Band(0).TextStyleBand= 0
_Band(0).TextStyleHeader= 0
End
End
Begin VB.CommandButton Command1
Caption = "返回"
Default = -1 'True
Height = 375
Left = 3720
TabIndex = 3
Top = 6480
Width = 1095
End
Begin VB.ComboBox Combo2
Height = 300
Left = 4320
TabIndex = 1
Text = "请选择月份"
Top = 360
Width = 1455
End
Begin VB.ComboBox Combo1
Height = 300
Left = 2640
TabIndex = 0
Text = "请选择年份"
Top = 360
Width = 1455
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "请选择所要查询的日期："
Height = 180
Left = 480
TabIndex = 2
Top = 360
Width = 1980
End
End
Attribute VB_Name = "AbsenceForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Combo1_Click()
Combo2.Enabled = True
'更新表单内容：
'连结数据库
Set Ado_Conn = New ADODB.Connection
Set Ado_RS = New ADODB.Recordset
Select Case SSTab1.Tab
Case 0
str_CS = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=ManageSystem"
str_RS = "select EDate 日期,EState 考勤,EOverwork 加班 from ExtendTable where EID='" & Trim(ID) & "' and year(EDate) = '" & Combo1.List(Combo1.ListIndex) & "'"
SqlConnect Ado_Conn, Ado_RS, str_CS, str_RS
'表中显示数据
Set MSHFlexGrid1.DataSource = Ado_RS
'断开数据库连结
SqlDisConnect Ado_RS
'统计考勤月结
Dim cNormal, cLeave, cLate, cAbsenteeism, cOut, COverwork As Integer
Dim i As Integer
cNormal = 0: cLeave = 0: cLate = 0: cAbsenteeism = 0: cOut = 0: COverwork = 0
For i = 1 To MSHFlexGrid1.Rows - 1
If MSHFlexGrid1.TextMatrix(i, 1) = "正常" Then cNormal = cNormal + 1
If MSHFlexGrid1.TextMatrix(i, 1) = "请假" Then cLeave = cLeave + 1
If MSHFlexGrid1.TextMatrix(i, 1) = "迟到" Then cLate = cLate + 1
If MSHFlexGrid1.TextMatrix(i, 1) = "旷到" Then cAbsenteeism = cAbsenteeism + 1
If MSHFlexGrid1.TextMatrix(i, 1) = "出差" Then cOut = cOut + 1
If MSHFlexGrid1.TextMatrix(i, 2) = "有" Then COverwork = COverwork + 1
Next
Label2.Caption = "正常:" & cNormal & "次"
Label3.Caption = "请假:" & cLeave & "次"
Label4.Caption = "迟到:" & cLate & "次"
Label5.Caption = "旷到:" & cAbsenteeism & "次"
Label6.Caption = "出差:" & cOut & "次"
Label7.Caption = "加班:" & COverwork & "次"
Case 1
'连结数据库
Set Ado_Conn = New ADODB.Connection
Set Ado_RS = New ADODB.Recordset
str_CS = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=ManageSystem"
str_RS = "select EDate 日期,ERAP 奖惩 from ExtendTable where EID='" & Trim(ID) & "' and ERAP is not null and year(EDate) = '" & Combo1.List(Combo1.ListIndex) & "'"
SqlConnect Ado_Conn, Ado_RS, str_CS, str_RS
'表中显示数据
Set MSHFlexGrid2.DataSource = Ado_RS
'断开数据库连结
SqlDisConnect Ado_RS
'设定各列的宽度
MSHFlexGrid2.ColWidth(1) = 3950
Case 2
'连结数据库
Set Ado_Conn = New ADODB.Connection
Set Ado_RS = New ADODB.Recordset
str_CS = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=ManageSystem"
str_RS = "select EDate 日期,ETraining 培训内容 from ExtendTable where EID='" & Trim(ID) & "' and ETraining is not null and year(EDate) = '" & Combo1.List(Combo1.ListIndex) & "'"
SqlConnect Ado_Conn, Ado_RS, str_CS, str_RS
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -