📄 frmleave_browse.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmLeave_Browse
BorderStyle = 1 'Fixed Single
Caption = "Leaves"
ClientHeight = 5865
ClientLeft = -135
ClientTop = 435
ClientWidth = 8760
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmLeave_Browse.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5865
ScaleWidth = 8760
Begin VB.ComboBox cmbFilter_plus
Height = 315
Left = 3480
Style = 2 'Dropdown List
TabIndex = 24
Top = 840
Width = 2175
End
Begin VB.ComboBox cmbFilter
Height = 315
ItemData = "frmLeave_Browse.frx":058A
Left = 1080
List = "frmLeave_Browse.frx":0594
Style = 2 'Dropdown List
TabIndex = 23
Top = 840
Width = 2295
End
Begin VB.TextBox txtApproved
Height = 285
Left = 1320
MaxLength = 10
TabIndex = 3
Top = 4800
Width = 1095
End
Begin VB.ComboBox cmbEmployeeID
Appearance = 0 'Flat
Height = 315
Left = 1320
Style = 2 'Dropdown List
TabIndex = 1
Top = 4080
Width = 1815
End
Begin VB.ComboBox cmbType
Appearance = 0 'Flat
Height = 315
ItemData = "frmLeave_Browse.frx":05B1
Left = 1320
List = "frmLeave_Browse.frx":05C1
Style = 2 'Dropdown List
TabIndex = 2
Top = 4440
Width = 1695
End
Begin VB.TextBox txtFirst
Height = 285
Left = 1320
MaxLength = 10
TabIndex = 4
Top = 5160
Width = 1095
End
Begin VB.TextBox txtLast
Height = 285
Left = 1320
MaxLength = 10
TabIndex = 5
Top = 5520
Width = 1095
End
Begin VB.TextBox txtNotes
Height = 1095
Left = 4800
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 6
Top = 4080
Width = 3855
End
Begin VB.CommandButton cmdClose
Caption = "&Close"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 7440
TabIndex = 8
Top = 5400
Width = 1215
End
Begin VB.CommandButton cmdEdit
Caption = "&Edit"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 6120
TabIndex = 7
Top = 5400
Width = 1215
End
Begin MSComctlLib.ListView lvLeaves
Height = 2655
Left = 120
TabIndex = 0
Top = 1200
Width = 8535
_ExtentX = 15055
_ExtentY = 4683
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
Appearance = 1
NumItems = 0
End
Begin VB.CommandButton cmdSave
Caption = "&Save"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 6120
TabIndex = 9
Top = 5400
Width = 1215
End
Begin VB.CommandButton cmdCancel
Caption = "&Cancel"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 7440
TabIndex = 10
Top = 5400
Width = 1215
End
Begin VB.Label Label11
Caption = "Filter by:"
Height = 255
Left = 120
TabIndex = 22
Top = 840
Width = 855
End
Begin VB.Image Image1
Height = 480
Left = 120
Picture = "frmLeave_Browse.frx":05E1
Top = 120
Width = 480
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "(dd/mm/yyyy)"
Height = 255
Left = 2640
TabIndex = 21
Top = 4800
Width = 1095
End
Begin VB.Label Label9
Caption = "Date Approved:"
Height = 255
Left = 120
TabIndex = 20
Top = 4800
Width = 1215
End
Begin VB.Label lblNotes
BackStyle = 0 'Transparent
ForeColor = &H00FFFFFF&
Height = 495
Left = 720
TabIndex = 19
Top = 120
Width = 7935
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "(dd/mm/yyyy)"
Height = 255
Left = 2640
TabIndex = 18
Top = 5520
Width = 1095
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "(dd/mm/yyyy)"
Height = 255
Left = 2640
TabIndex = 17
Top = 5160
Width = 1095
End
Begin VB.Shape Shape1
BackColor = &H00FF8080&
BackStyle = 1 'Opaque
BorderStyle = 0 'Transparent
Height = 735
Left = 0
Top = 0
Width = 8775
End
Begin VB.Label lblHidden
Height = 255
Left = 4080
TabIndex = 16
Top = 5160
Visible = 0 'False
Width = 735
End
Begin VB.Label Label5
Caption = "Notes:"
Height = 255
Left = 4080
TabIndex = 15
Top = 4080
Width = 735
End
Begin VB.Label Label4
Caption = "Last Day:"
Height = 255
Left = 120
TabIndex = 14
Top = 5520
Width = 1095
End
Begin VB.Label Label3
Caption = "First Day:"
Height = 255
Left = 120
TabIndex = 13
Top = 5160
Width = 1095
End
Begin VB.Label Label2
Caption = "Type:"
Height = 255
Left = 120
TabIndex = 12
Top = 4440
Width = 1095
End
Begin VB.Label Label1
Caption = "Employee ID:"
Height = 255
Left = 120
TabIndex = 11
Top = 4080
Width = 1095
End
End
Attribute VB_Name = "frmLeave_Browse"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'Private type use to remember values of the current instance
Private Type tempLeave
id As String
employeeID As String
type As String
date As String
beginDate As String
endDate As String
notes As String
End Type
Dim tmpVar As tempLeave, currVar As tempLeave
Private Sub FormMode(ByVal strFormCondition As ModeStatus)
Select Case strFormCondition
Case Editing
cmbEmployeeID.Enabled = True
cmbType.Enabled = True
txtFirst.Enabled = True
txtLast.Enabled = True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -