📄 frm_kao_holiday.frm
字号:
VERSION 5.00
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{6DC2A865-8B7F-11D7-A8D9-000110551BFC}#1.0#0"; "SetTime.ocx"
Begin VB.Form Frm_Kao_holiday
Caption = "请假单确认录入："
ClientHeight = 4365
ClientLeft = 60
ClientTop = 345
ClientWidth = 6195
Icon = "Frm_Kao_holiday.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4365
ScaleWidth = 6195
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command1
Caption = "退出"
Height = 500
Index = 1
Left = 5280
Picture = "Frm_Kao_holiday.frx":030A
Style = 1 'Graphical
TabIndex = 11
TabStop = 0 'False
Top = 2760
Width = 735
End
Begin VB.CommandButton Command1
Caption = "确定"
Height = 500
Index = 0
Left = 5280
Picture = "Frm_Kao_holiday.frx":039E
Style = 1 'Graphical
TabIndex = 10
Top = 2040
Width = 735
End
Begin VB.Frame Frame1
Height = 4095
Left = 120
TabIndex = 12
Top = 120
Width = 4935
Begin VB.TextBox txtFields
BackColor = &H00C0DCC0&
Height = 300
Index = 4
Left = 1500
TabIndex = 21
Top = 3600
Width = 3000
End
Begin VB.TextBox txtFields
BackColor = &H00C0DCC0&
Enabled = 0 'False
Height = 300
Index = 3
Left = 1500
TabIndex = 9
Top = 3166
Width = 3000
End
Begin VB.CheckBox Check1
Height = 255
Left = 1500
TabIndex = 2
Top = 1106
Width = 1215
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 255
Index = 0
Left = 1500
TabIndex = 3
Top = 1494
Width = 1335
_ExtentX = 2355
_ExtentY = 450
_Version = 393216
Format = 65667073
UpDown = -1 'True
CurrentDate = 38323.9415740741
End
Begin VB.TextBox txtFields
BackColor = &H00C0DCC0&
Height = 300
Index = 2
Left = 1500
TabIndex = 8
Top = 2733
Width = 3000
End
Begin VB.TextBox txtFields
BackColor = &H00C0DCC0&
Height = 300
Index = 1
Left = 1500
TabIndex = 1
Top = 673
Width = 3000
End
Begin VB.TextBox txtFields
BackColor = &H00C0DCC0&
Height = 300
Index = 0
Left = 1500
TabIndex = 0
Top = 240
Width = 3000
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 255
Index = 1
Left = 1500
TabIndex = 5
Top = 1882
Width = 1335
_ExtentX = 2355
_ExtentY = 450
_Version = 393216
Format = 65667073
UpDown = -1 'True
CurrentDate = 38323.9415740741
End
Begin SetTime.SETIMER SETIMER1
Height = 255
Index = 0
Left = 2880
TabIndex = 4
Top = 1494
Width = 1605
_ExtentX = 2831
_ExtentY = 450
End
Begin SetTime.SETIMER SETIMER1
Height = 255
Index = 1
Left = 2880
TabIndex = 6
Top = 1882
Width = 1605
_ExtentX = 2831
_ExtentY = 450
End
Begin MSDataListLib.DataCombo DataCombo1
Height = 330
Index = 0
Left = 1500
TabIndex = 7
Top = 2270
Width = 3015
_ExtentX = 5318
_ExtentY = 582
_Version = 393216
BackColor = 12639424
Text = ""
End
Begin VB.Label Label1
Caption = "备注"
Height = 180
Index = 6
Left = 240
TabIndex = 22
Top = 3600
Width = 915
End
Begin VB.Label Label1
Caption = "批准确认"
Height = 180
Index = 7
Left = 240
TabIndex = 20
Top = 3215
Width = 915
End
Begin VB.Label Label1
Caption = "请假工时"
Height = 180
Index = 15
Left = 240
TabIndex = 19
Top = 2790
Width = 915
End
Begin VB.Label Label1
Caption = "员工姓名"
Height = 180
Index = 1
Left = 240
TabIndex = 18
Top = 665
Width = 800
End
Begin VB.Label Label1
Caption = "员工工号"
Height = 180
Index = 0
Left = 240
TabIndex = 17
Top = 240
Width = 800
End
Begin VB.Label Label1
Caption = "是否整天"
Height = 180
Index = 2
Left = 240
TabIndex = 16
Top = 1090
Width = 800
End
Begin VB.Label Label1
Caption = "开始时间"
Height = 180
Index = 4
Left = 240
TabIndex = 15
Top = 1515
Width = 795
End
Begin VB.Label Label1
Caption = "请假类型"
Height = 180
Index = 5
Left = 240
TabIndex = 14
Top = 2365
Width = 800
End
Begin VB.Label Label1
Caption = "结束时间"
Height = 180
Index = 3
Left = 240
TabIndex = 13
Top = 1940
Width = 800
End
End
End
Attribute VB_Name = "Frm_Kao_holiday"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public endtm1 As Date
Public bgtm2 As Date
Public endtm2 As Date
Public bgtm1 As Date
Dim strSQL As String
Dim adoprimaryRS As ADODB.Recordset
Dim strSQL5 As String
Dim adoPrimaryRS5 As ADODB.Recordset
Dim txtline As String
'Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -