📄 frmtask.frm
字号:
EndProperty
Caption = "处理..."
ForeColor = -2147483630
ForeHover = 0
End
Begin MSComctlLib.ListView lvwProperty
Height = 3615
Index = 2
Left = 60
TabIndex = 14
Top = 720
Width = 3135
_ExtentX = 5530
_ExtentY = 6376
View = 3
Arrange = 2
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
AllowReorder = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 3
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "宾客编号"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "姓名"
Object.Width = 1588
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "来访日期"
Object.Width = 2294
EndProperty
End
Begin Manage.xpcmdButton cmdSee
Height = 345
Index = 1
Left = -71280
TabIndex = 16
Top = 3960
Width = 1095
_ExtentX = 1931
_ExtentY = 609
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "浏览..."
ForeColor = -2147483630
ForeHover = 0
End
Begin Manage.xpcmdButton cmdSee
Height = 345
Index = 0
Left = -71280
TabIndex = 17
Top = 3960
Width = 1095
_ExtentX = 1931
_ExtentY = 609
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "浏览..."
ForeColor = -2147483630
ForeHover = 0
End
Begin VB.Label lblInfo
AutoSize = -1 'True
Caption = "宾客来访"
Height = 180
Index = 0
Left = 120
TabIndex = 15
Top = 480
Width = 720
End
Begin VB.Label lblInfo
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "日程安排"
Height = 180
Index = 2
Left = 3240
TabIndex = 9
Top = 2280
Width = 720
End
Begin VB.Label lblInfo
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "节假日信息"
Height = 180
Index = 1
Left = 3240
TabIndex = 8
Top = 480
Width = 900
End
End
Begin VB.Image imgBasic
BorderStyle = 1 'Fixed Single
Height = 1455
Left = 120
Stretch = -1 'True
Top = 120
Width = 1455
End
Begin VB.Label lblFont
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "标"
BeginProperty Font
Name = "宋体"
Size = 27.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Index = 1
Left = 840
TabIndex = 7
Top = 840
Width = 570
End
Begin VB.Label lblFont
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "商"
BeginProperty Font
Name = "宋体"
Size = 27.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Index = 0
Left = 240
TabIndex = 6
Top = 240
Width = 570
End
End
Attribute VB_Name = "frmTask"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdEnd_Click()
Unload Me
End Sub
Private Sub cmdParticular_Click(Index As Integer)
If Index = 0 Then
Else
End If
frmContract.Show vbModal, Me
End Sub
Private Sub cmdSee_Click(Index As Integer)
frmInfo.Show vbModal, Me
End Sub
Private Sub Form_Load()
On Error Resume Next
Dim datTemp As Date
Dim intY As Integer
Dim intM As Integer
Dim intD As Integer
Dim strWeek As String
stbMain.TabPicture(0) = MDIMain.iltPic.ListImages(9).Picture
stbMain.TabPicture(1) = MDIMain.iltPic.ListImages(11).Picture
stbMain.TabPicture(2) = MDIMain.iltPic.ListImages(8).Picture
lvwProperty(0).SmallIcons = MDIMain.iltPic
lvwProperty(1).SmallIcons = MDIMain.iltPic
datTemp = Now
intY = Year(datTemp)
intM = Month(datTemp)
intD = Day(datTemp)
imgBasic.Picture = LoadPicture(gstrCroLogo)
Select Case Weekday(datTemp)
Case 1:
strWeek = "日"
Case 2:
strWeek = "一"
Case 3:
strWeek = "二"
Case 4:
strWeek = "三"
Case 5:
strWeek = "四"
Case 6:
strWeek = "五"
Case 7:
strWeek = "六"
End Select
With adoMainLink
If .State = adStateOpen Then .Close
.Open "select * from 日程安排 where 日期=#" & CDate(intY & "-" & intM & "- " & intD) & "#", adoConn, adOpenDynamic, adLockPessimistic, adCmdText
If .EOF = False Then
txtDay(0).Text = .Fields("节假日信息") & ""
txtDay(1).Text = .Fields("日程安排") & ""
Else
lvwProperty(2).Width = 6015
txtDay(0).Visible = False
txtDay(1).Visible = False
lblinfo(1).Visible = False
lblinfo(2).Visible = False
End If
.Close
.Open "select 员工编号,隶属部门,姓名,合同号,合同签订日期,合同终止日期 from v员工详细资料 where 离职日期 IS NULL and 合同终止日期<=#" & CDate(intY & "-" & intM & "- " & intD) & "# order by 合同终止日期", adoConn, adOpenDynamic, adLockPessimistic, adCmdText
intCount = 0
Do Until .EOF
intCount = intCount + 1
lvwProperty(0).ListItems.Add intCount, , Trim(.Fields("员工编号")), , 6
lvwProperty(0).ListItems(intCount).ListSubItems.Add , , .Fields("姓名") & ""
lvwProperty(0).ListItems(intCount).ListSubItems.Add , , .Fields("隶属部门") & ""
lvwProperty(0).ListItems(intCount).ListSubItems.Add , , .Fields("合同号") & ""
lvwProperty(0).ListItems(intCount).ListSubItems.Add , , .Fields("合同签订日期") & ""
lvwProperty(0).ListItems(intCount).ListSubItems.Add , , .Fields("合同终止日期") & ""
.MoveNext
Loop
gintPactTest = intCount
.Close
'.Open "select 员工编号,隶属部门,姓名,入本单位日期,合同签订日期 from v员工详细资料 where 合同签订日期 IS NULL and DATEADD('m', 1, 入本单位日期)<=#" & CDate(intY & "-" & intM & "- " & intD) & "# order by 入本单位日期", adoConn, adOpenDynamic, adLockPessimistic, adCmdText
'intCount = 0
'Do Until .EOF
' intCount = intCount + 1
' lvwProperty(1).ListItems.Add intCount, , Trim(.Fields("员工编号")), , 6
' lvwProperty(1).ListItems(intCount).ListSubItems.Add , , .Fields("姓名") & ""
' lvwProperty(1).ListItems(intCount).ListSubItems.Add , , .Fields("隶属部门") & ""
' lvwProperty(1).ListItems(intCount).ListSubItems.Add , , .Fields("入本单位日期") & ""
' .MoveNext
'Loop
'gintPactStop = intCount
'.Close
.Open "select 员工编号,隶属部门,姓名,入本单位日期,合同签订日期,离职日期,试用期终止日 from v员工详细资料 where 合同签订日期 IS NULL and 离职日期 IS NULL and 试用期终止日<=#" & CDate(intY & "-" & intM & "- " & intD) & "# order by 入本单位日期", adoConn, adOpenDynamic, adLockPessimistic, adCmdText
intCount = 0
Do Until .EOF
intCount = intCount + 1
lvwProperty(1).ListItems.Add intCount, , Trim(.Fields("员工编号")), , 6
lvwProperty(1).ListItems(intCount).ListSubItems.Add , , .Fields("姓名") & ""
lvwProperty(1).ListItems(intCount).ListSubItems.Add , , .Fields("入本单位日期") & ""
lvwProperty(1).ListItems(intCount).ListSubItems.Add , , .Fields("试用期终止日") & ""
lvwProperty(1).ListItems(intCount).ListSubItems.Add , , .Fields("隶属部门") & ""
.MoveNext
Loop
gintPactStop = intCount
.Close
lblDay.Caption = "欢迎管理员 " & gstrName & vbCrLf & "今天是" & Year(datTemp) & "年" & Month(datTemp) & "月" & Day(datTemp) & "日," & "星期" & strWeek & _
vbCrLf & "[" & gstrCro & "]" & vbCrLf & "部门数量:" & gintManageCount & "个" & vbCrLf & "员工数量:" & gintManCount & "人" & vbCrLf & "试用到期:" & _
gintPactStop & "人" & vbCrLf & "合同到期:" & gintPactTest & "人"
End With
End Sub
Private Sub tmrEnd_Timer()
On Error Resume Next
tmrEnd.Enabled = False
cmdEnd.SetFocus
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -