📄 form3.vb
字号:
'
Me.Label17.Location = New System.Drawing.Point(64, 64)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(560, 224)
Me.Label17.TabIndex = 18
'
'TabPage1
'
Me.TabPage1.BackColor = System.Drawing.SystemColors.Control
Me.TabPage1.Controls.Add(Me.Label13)
Me.TabPage1.Controls.Add(Me.ListView1)
Me.TabPage1.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TabPage1.Location = New System.Drawing.Point(4, 23)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Size = New System.Drawing.Size(688, 341)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Employee List (Details)"
'
'Label13
'
Me.Label13.Location = New System.Drawing.Point(8, 8)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(672, 32)
Me.Label13.TabIndex = 8
Me.Label13.Text = "This provides the ability to view all the Employee Information in the database an" & _
"d filter the query by ID, Lastname, Firstname and Position."
'
'ListView1
'
Me.ListView1.Activation = System.Windows.Forms.ItemActivation.OneClick
Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2, Me.ColumnHeader3, Me.ColumnHeader4, Me.ColumnHeader5, Me.ColumnHeader6, Me.ColumnHeader7, Me.ColumnHeader8, Me.ColumnHeader9})
Me.ListView1.FullRowSelect = True
Me.ListView1.GridLines = True
Me.ListView1.Location = New System.Drawing.Point(8, 40)
Me.ListView1.MultiSelect = False
Me.ListView1.Name = "ListView1"
Me.ListView1.Size = New System.Drawing.Size(672, 296)
Me.ListView1.TabIndex = 2
Me.ListView1.View = System.Windows.Forms.View.Details
'
'ColumnHeader1
'
Me.ColumnHeader1.Text = "ID"
Me.ColumnHeader1.Width = 50
'
'ColumnHeader2
'
Me.ColumnHeader2.Text = "First Name"
Me.ColumnHeader2.Width = 90
'
'ColumnHeader3
'
Me.ColumnHeader3.Text = "Middle Name"
Me.ColumnHeader3.Width = 90
'
'ColumnHeader4
'
Me.ColumnHeader4.Text = "Last Name"
Me.ColumnHeader4.Width = 90
'
'ColumnHeader5
'
Me.ColumnHeader5.Text = "Address"
Me.ColumnHeader5.Width = 180
'
'ColumnHeader6
'
Me.ColumnHeader6.Text = "Birthdate"
'
'ColumnHeader7
'
Me.ColumnHeader7.Text = "Age"
Me.ColumnHeader7.Width = 35
'
'ColumnHeader8
'
Me.ColumnHeader8.Text = "Position"
Me.ColumnHeader8.Width = 120
'
'ColumnHeader9
'
Me.ColumnHeader9.Text = "Status"
Me.ColumnHeader9.Width = 80
'
'TabPage6
'
Me.TabPage6.Controls.Add(Me.GroupBox10)
Me.TabPage6.Controls.Add(Me.Label31)
Me.TabPage6.Controls.Add(Me.GroupBox9)
Me.TabPage6.Controls.Add(Me.ListView3)
Me.TabPage6.Controls.Add(Me.MonthCalendar2)
Me.TabPage6.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TabPage6.Location = New System.Drawing.Point(4, 23)
Me.TabPage6.Name = "TabPage6"
Me.TabPage6.Size = New System.Drawing.Size(688, 341)
Me.TabPage6.TabIndex = 5
Me.TabPage6.Text = "Log-Ins (All)"
'
'GroupBox10
'
Me.GroupBox10.Controls.Add(Me.TextBox14)
Me.GroupBox10.Controls.Add(Me.Label32)
Me.GroupBox10.Controls.Add(Me.TextBox15)
Me.GroupBox10.Controls.Add(Me.Label33)
Me.GroupBox10.Controls.Add(Me.TextBox16)
Me.GroupBox10.Controls.Add(Me.Label34)
Me.GroupBox10.Location = New System.Drawing.Point(8, 40)
Me.GroupBox10.Name = "GroupBox10"
Me.GroupBox10.Size = New System.Drawing.Size(672, 48)
Me.GroupBox10.TabIndex = 19
Me.GroupBox10.TabStop = False
Me.GroupBox10.Text = " Employee Information"
'
'TextBox14
'
Me.TextBox14.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.TextBox14.Location = New System.Drawing.Point(528, 16)
Me.TextBox14.Name = "TextBox14"
Me.TextBox14.ReadOnly = True
Me.TextBox14.Size = New System.Drawing.Size(136, 20)
Me.TextBox14.TabIndex = 23
Me.TextBox14.Text = ""
'
'Label32
'
Me.Label32.Location = New System.Drawing.Point(480, 18)
Me.Label32.Name = "Label32"
Me.Label32.Size = New System.Drawing.Size(48, 16)
Me.Label32.TabIndex = 22
Me.Label32.Text = "Position:"
Me.Label32.TextAlign = System.Drawing.ContentAlignment.BottomRight
'
'TextBox15
'
Me.TextBox15.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.TextBox15.Location = New System.Drawing.Point(216, 16)
Me.TextBox15.Name = "TextBox15"
Me.TextBox15.ReadOnly = True
Me.TextBox15.Size = New System.Drawing.Size(256, 20)
Me.TextBox15.TabIndex = 21
Me.TextBox15.Text = ""
'
'Label33
'
Me.Label33.Location = New System.Drawing.Point(0, 18)
Me.Label33.Name = "Label33"
Me.Label33.Size = New System.Drawing.Size(72, 16)
Me.Label33.TabIndex = 20
Me.Label33.Text = "ID Number:"
Me.Label33.TextAlign = System.Drawing.ContentAlignment.BottomRight
'
'TextBox16
'
Me.TextBox16.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.TextBox16.Location = New System.Drawing.Point(72, 16)
Me.TextBox16.MaxLength = 15
Me.TextBox16.Name = "TextBox16"
Me.TextBox16.ReadOnly = True
Me.TextBox16.Size = New System.Drawing.Size(96, 20)
Me.TextBox16.TabIndex = 19
Me.TextBox16.Text = ""
'
'Label34
'
Me.Label34.Location = New System.Drawing.Point(168, 18)
Me.Label34.Name = "Label34"
Me.Label34.Size = New System.Drawing.Size(48, 16)
Me.Label34.TabIndex = 18
Me.Label34.Text = "Name:"
Me.Label34.TextAlign = System.Drawing.ContentAlignment.BottomRight
'
'Label31
'
Me.Label31.Location = New System.Drawing.Point(8, 8)
Me.Label31.Name = "Label31"
Me.Label31.Size = New System.Drawing.Size(672, 32)
Me.Label31.TabIndex = 15
Me.Label31.Text = "This provides the ability to view All Employee Login Information stored in the da" & _
"tabase based on the filtering login dates selected. Information of the employee " & _
"is shown based on the selected Login record."
'
'GroupBox9
'
Me.GroupBox9.Controls.Add(Me.RadioButton4)
Me.GroupBox9.Controls.Add(Me.RadioButton3)
Me.GroupBox9.Location = New System.Drawing.Point(8, 88)
Me.GroupBox9.Name = "GroupBox9"
Me.GroupBox9.Size = New System.Drawing.Size(192, 72)
Me.GroupBox9.TabIndex = 14
Me.GroupBox9.TabStop = False
Me.GroupBox9.Text = " Filter Login Dates using"
'
'RadioButton4
'
Me.RadioButton4.Location = New System.Drawing.Point(16, 48)
Me.RadioButton4.Name = "RadioButton4"
Me.RadioButton4.Size = New System.Drawing.Size(168, 16)
Me.RadioButton4.TabIndex = 13
Me.RadioButton4.Text = "Date(s) selected below"
'
'RadioButton3
'
Me.RadioButton3.Checked = True
Me.RadioButton3.Location = New System.Drawing.Point(16, 24)
Me.RadioButton3.Name = "RadioButton3"
Me.RadioButton3.Size = New System.Drawing.Size(168, 16)
Me.RadioButton3.TabIndex = 12
Me.RadioButton3.TabStop = True
Me.RadioButton3.Text = "All Dates"
'
'ListView3
'
Me.ListView3.Activation = System.Windows.Forms.ItemActivation.OneClick
Me.ListView3.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader16, Me.ColumnHeader13, Me.ColumnHeader14, Me.ColumnHeader15})
Me.ListView3.FullRowSelect = True
Me.ListView3.GridLines = True
Me.ListView3.Location = New System.Drawing.Point(208, 96)
Me.ListView3.MultiSelect = False
Me.ListView3.Name = "ListView3"
Me.ListView3.Size = New System.Drawing.Size(472, 240)
Me.ListView3.TabIndex = 13
Me.ListView3.View = System.Windows.Forms.View.Details
'
'ColumnHeader16
'
Me.ColumnHeader16.Text = "ID Number"
Me.ColumnHeader16.Width = 67
'
'ColumnHeader13
'
Me.ColumnHeader13.Text = "Date"
Me.ColumnHeader13.Width = 117
'
'ColumnHeader14
'
Me.ColumnHeader14.Text = "Time In"
Me.ColumnHeader14.Width = 135
'
'ColumnHeader15
'
Me.ColumnHeader15.Text = "Time Out"
Me.ColumnHeader15.Width = 130
'
'MonthCalendar2
'
Me.MonthCalendar2.BackColor = System.Drawing.SystemColors.Control
Me.MonthCalendar2.ForeColor = System.Drawing.Color.SteelBlue
Me.MonthCalendar2.Location = New System.Drawing.Point(19, 168)
Me.MonthCalendar2.MaxSelectionCount = 14
Me.MonthCalendar2.MinDate = New Date(1980, 1, 1, 0, 0, 0, 0)
Me.MonthCalendar2.Name = "MonthCalendar2"
Me.MonthCalendar2.TabIndex = 12
Me.MonthCalendar2.TitleBackColor = System.Drawing.Color.DarkSlateGray
Me.MonthCalendar2.TitleForeColor = System.Drawing.Color.Salmon
Me.MonthCalendar2.TrailingForeColor = System.Drawing.Color.Green
'
'TabPage2
'
Me.TabPage2.BackColor = System.Drawing.SystemColors.Control
Me.TabPage2.Controls.Add(Me.Label20)
Me.TabPage2.Controls.Add(Me.Label19)
Me.TabPage2.Controls.Add(Me.Label14)
Me.TabPage2.Controls.Add(Me.GroupBox4)
Me.TabPage2.Controls.Add(Me.GroupBox3)
Me.TabPage2.Controls.Add(Me.GroupBox2)
Me.TabPage2.Controls.Add(Me.GroupBox1)
Me.TabPage2.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TabPage2.Location = New System.Drawing.Point(4, 23)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Size = New System.Drawing.Size(688, 341)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Employee List (Individual)"
'
'Label20
'
Me.Label20.ForeColor = System.Drawing.Color.Brown
Me.Label20.Location = New System.Drawing.Point(304, 64)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(336, 16)
Me.Label20.TabIndex = 38
Me.Label20.Text = ">> Need to change password! Your password is still set to default."
'
'Label19
'
Me.Label19.Location = New System.Drawing.Point(584, 40)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(88, 16)
Me.Label19.TabIndex = 10
Me.Label19.Text = "0/0"
Me.Label19.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'Label14
'
Me.Label14.Location = New System.Drawing.Point(8, 8)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(672, 32)
Me.Label14.TabIndex = 9
Me.Label14.Text = "This provides the ability to view individual Employee Information in the database" & _
" and add new employee, edit existing information or delete an employee from the " & _
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -