?? frm_kao_holiday_z.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_Z
Caption = "請假單確認錄入："
ClientHeight = 4365
ClientLeft = 60
ClientTop = 345
ClientWidth = 6195
Icon = "Frm_Kao_holiday_Z.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_Z.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_Z.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&
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 = 23789569
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 = 23789569
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 = 2280
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_Z"
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
'Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -