📄 delpay.vb
字号:
Me.editnetPay.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objdelPayDS, "ePayroll.netPay"))
Me.editnetPay.Location = New System.Drawing.Point(320, 88)
Me.editnetPay.Name = "editnetPay"
Me.editnetPay.ReadOnly = True
Me.editnetPay.TabIndex = 19
Me.editnetPay.Text = ""
Me.editnetPay.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'editpayDate
'
Me.editpayDate.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.editpayDate.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objdelPayDS, "ePayroll.payDate"))
Me.editpayDate.Location = New System.Drawing.Point(320, 112)
Me.editpayDate.Name = "editpayDate"
Me.editpayDate.ReadOnly = True
Me.editpayDate.TabIndex = 20
Me.editpayDate.Text = ""
Me.editpayDate.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'editpayID
'
Me.editpayID.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.editpayID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objdelPayDS, "ePayroll.payID"))
Me.editpayID.Location = New System.Drawing.Point(232, 72)
Me.editpayID.Name = "editpayID"
Me.editpayID.ReadOnly = True
Me.editpayID.Size = New System.Drawing.Size(64, 20)
Me.editpayID.TabIndex = 21
Me.editpayID.Text = ""
'
'editwHours
'
Me.editwHours.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.editwHours.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objdelPayDS, "ePayroll.wHours"))
Me.editwHours.Location = New System.Drawing.Point(320, 40)
Me.editwHours.Name = "editwHours"
Me.editwHours.ReadOnly = True
Me.editwHours.TabIndex = 22
Me.editwHours.Text = ""
Me.editwHours.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'lblNavLocation
'
Me.lblNavLocation.BackColor = System.Drawing.Color.White
Me.lblNavLocation.Location = New System.Drawing.Point(216, 144)
Me.lblNavLocation.Name = "lblNavLocation"
Me.lblNavLocation.Size = New System.Drawing.Size(95, 23)
Me.lblNavLocation.TabIndex = 25
Me.lblNavLocation.Text = "No Records"
Me.lblNavLocation.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'btnDelete
'
Me.btnDelete.Location = New System.Drawing.Point(272, 8)
Me.btnDelete.Name = "btnDelete"
Me.btnDelete.TabIndex = 29
Me.btnDelete.Text = "&Delete"
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(120, 8)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(272, 24)
Me.Label1.TabIndex = 89
Me.Label1.Text = "Authorised user can delete payroll (only one-by-one). Thereafter, no record can b" & _
"e retreived after deletion!"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Button1
'
Me.Button1.BackColor = System.Drawing.Color.Chocolate
Me.Button1.Cursor = System.Windows.Forms.Cursors.Default
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button1.ForeColor = System.Drawing.SystemColors.ControlText
Me.Button1.Location = New System.Drawing.Point(224, 352)
Me.Button1.Name = "Button1"
Me.Button1.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.Button1.Size = New System.Drawing.Size(72, 23)
Me.Button1.TabIndex = 90
Me.Button1.Text = "&Close"
'
'Button2
'
Me.Button2.BackColor = System.Drawing.Color.Chocolate
Me.Button2.Cursor = System.Windows.Forms.Cursors.Default
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button2.ForeColor = System.Drawing.SystemColors.ControlText
Me.Button2.Location = New System.Drawing.Point(80, 144)
Me.Button2.Name = "Button2"
Me.Button2.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.Button2.Size = New System.Drawing.Size(72, 23)
Me.Button2.TabIndex = 90
Me.Button2.Text = "<< &First"
'
'Button3
'
Me.Button3.BackColor = System.Drawing.Color.Chocolate
Me.Button3.Cursor = System.Windows.Forms.Cursors.Default
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button3.ForeColor = System.Drawing.SystemColors.ControlText
Me.Button3.Location = New System.Drawing.Point(376, 144)
Me.Button3.Name = "Button3"
Me.Button3.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.Button3.Size = New System.Drawing.Size(72, 23)
Me.Button3.TabIndex = 90
Me.Button3.Text = "&Last >>"
'
'Button4
'
Me.Button4.BackColor = System.Drawing.Color.Chocolate
Me.Button4.Cursor = System.Windows.Forms.Cursors.Default
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button4.ForeColor = System.Drawing.SystemColors.ControlText
Me.Button4.Location = New System.Drawing.Point(320, 144)
Me.Button4.Name = "Button4"
Me.Button4.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.Button4.Size = New System.Drawing.Size(48, 23)
Me.Button4.TabIndex = 90
Me.Button4.Text = "&Nxt >"
'
'Button5
'
Me.Button5.BackColor = System.Drawing.Color.Chocolate
Me.Button5.Cursor = System.Windows.Forms.Cursors.Default
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button5.ForeColor = System.Drawing.SystemColors.ControlText
Me.Button5.Location = New System.Drawing.Point(160, 144)
Me.Button5.Name = "Button5"
Me.Button5.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.Button5.Size = New System.Drawing.Size(48, 23)
Me.Button5.TabIndex = 90
Me.Button5.Text = "< &Pre"
'
'DataGrid1
'
Me.DataGrid1.DataMember = "ePayroll"
Me.DataGrid1.DataSource = Me.objdelPayDS
Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText
Me.DataGrid1.Location = New System.Drawing.Point(8, 176)
Me.DataGrid1.Name = "DataGrid1"
Me.DataGrid1.ReadOnly = True
Me.DataGrid1.Size = New System.Drawing.Size(496, 168)
Me.DataGrid1.TabIndex = 91
'
'Button6
'
Me.Button6.BackColor = System.Drawing.Color.Chocolate
Me.Button6.Cursor = System.Windows.Forms.Cursors.Default
Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button6.ForeColor = System.Drawing.SystemColors.ControlText
Me.Button6.Location = New System.Drawing.Point(227, 104)
Me.Button6.Name = "Button6"
Me.Button6.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.Button6.TabIndex = 90
Me.Button6.Text = "&Delete"
'
'delPay
'
Me.AcceptButton = Me.Button4
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(512, 384)
Me.ControlBox = False
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.DataGrid1)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.edit_Amount)
Me.Controls.Add(Me.editemp_fname)
Me.Controls.Add(Me.editemp_idno)
Me.Controls.Add(Me.editemp_pos)
Me.Controls.Add(Me.editemp_stat)
Me.Controls.Add(Me.editnetPay)
Me.Controls.Add(Me.editpayDate)
Me.Controls.Add(Me.editpayID)
Me.Controls.Add(Me.editwHours)
Me.Controls.Add(Me.lbl_Amount)
Me.Controls.Add(Me.lblemp_fname)
Me.Controls.Add(Me.lblemp_idno)
Me.Controls.Add(Me.lblemp_pos)
Me.Controls.Add(Me.lblemp_stat)
Me.Controls.Add(Me.lblnetPay)
Me.Controls.Add(Me.lblpayDate)
Me.Controls.Add(Me.lblpayID)
Me.Controls.Add(Me.lblwHours)
Me.Controls.Add(Me.lblNavLocation)
Me.Controls.Add(Me.btnDelete)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -