📄 salarysurvey.ebf
字号:
BorderStyle = 1
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Text = ""
Alignment = 0
HideSelection = -1 'True
Locked = 0 'False
MaxLength = 3
MultiLine = 0 'False
PasswordChar = ""
ScrollBars = 0
End
Begin VBCE.TextBox txtServiceinOrg
Height = 255
Left = 1680
TabIndex = 11
Top = 2160
Width = 495
_cx = 873
_cy = 450
BackColor = -2147483643
BorderStyle = 1
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Text = ""
Alignment = 0
HideSelection = -1 'True
Locked = 0 'False
MaxLength = 3
MultiLine = 0 'False
PasswordChar = ""
ScrollBars = 0
End
Begin VBCE.TextBox txtAnualSalary
Height = 255
Left = 1680
TabIndex = 10
Top = 1800
Width = 1695
_cx = 2990
_cy = 450
BackColor = -2147483643
BorderStyle = 1
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Text = ""
Alignment = 0
HideSelection = -1 'True
Locked = 0 'False
MaxLength = 10
MultiLine = 0 'False
PasswordChar = ""
ScrollBars = 0
End
Begin VBCE.CommandButton cmdModify
Height = 375
Left = 720
TabIndex = 5
Top = 3480
Width = 615
_cx = 1085
_cy = 661
BackColor = 12632256
Caption = "&Modify"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Style = 0
End
Begin VBCE.CommandButton cmdSave
Height = 375
Left = 1440
TabIndex = 13
Top = 3480
Width = 615
_cx = 1085
_cy = 661
BackColor = 12632256
Caption = "&Save"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Style = 0
End
Begin VBCE.CommandButton cmdDelete
Height = 375
Left = 2160
TabIndex = 6
Top = 3480
Width = 615
_cx = 1085
_cy = 661
BackColor = 12632256
Caption = "&Delete"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Style = 0
End
Begin VBCE.CommandButton cmdClose
Height = 375
Left = 2880
TabIndex = 14
Top = 3480
Width = 615
_cx = 1085
_cy = 661
BackColor = 12632256
Caption = "E&xit"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Style = 0
End
Begin VBCE.CommandButton cmdNext
Height = 375
Left = 2640
TabIndex = 2
Top = 3000
Width = 255
_cx = 450
_cy = 661
BackColor = 12632256
Caption = ">"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Style = 0
End
Begin VBCE.CommandButton cmdPrevious
Height = 375
Left = 2160
TabIndex = 3
Top = 3000
Width = 255
_cx = 450
_cy = 661
BackColor = 12632256
Caption = "<"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Style = 0
End
Begin VBCE.CommandButton cmdLast
Height = 375
Left = 3120
TabIndex = 1
Top = 3000
Width = 255
_cx = 450
_cy = 661
BackColor = 12632256
Caption = ">|"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Style = 0
End
Begin VBCE.CommandButton cmdADD
Height = 375
Left = 0
TabIndex = 4
Top = 3480
Width = 615
_cx = 1085
_cy = 661
BackColor = 12632256
Caption = "&New"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Style = 0
End
Begin VBCE.CommandButton cmdFirst
Height = 375
Left = 1680
TabIndex = 0
Top = 3000
Width = 255
_cx = 450
_cy = 661
BackColor = 12632256
Caption = "|<"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Style = 0
End
Begin VBCE.Label lblTitle
Height = 375
Left = 960
TabIndex = 15
Top = 120
Width = 1695
_cx = 2990
_cy = 661
AutoSize = 0 'False
BackColor = -2147483643
BackStyle = 1
BorderStyle = 0
Caption = "Salary Survey"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Alignment = 0
UseMnemonic = -1 'True
WordWrap = 0 'False
End
End
Attribute VB_Name = "frmSalarySurvey"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
' Form Global Declarations
Dim RSSalary As ADOCE.Recordset
Dim RSSalaryModify As ADOCE.Recordset
Dim RSSalarySave As ADOCE.Recordset
Dim CNSalary As ADOCE.Connection
Dim MyQuery As String
Dim MyQueryModify As String
Dim MyButtonAction As String
Dim ModifyID As Integer
Dim MyFirstBookMark As Variant
Dim MyLastBookMark As Variant
Dim MyCurrentBookMark As Variant
' this control event is to enter data for new record.
Private Sub cmdADD_Click()
EnableFields
txtID.SetFocus
MyButtonAction = "New"
ClearAllFields
cmdClose.Caption = "Cancel"
DisablecmdButtons
End Sub
'this control event is to cancel the operation or close the application.
Private Sub cmdClose_Click()
If cmdClose.Caption = "Exit" Then
Form_OKClick
Else
EnablecmdButtons
cmdClose.Caption = "Exit"
MyButtonAction = ""
ClearAllFields
Display
DisableFields
End If
End Sub
'this control event is to delete a record.
Private Sub cmdDelete_Click()
MyQuery = "Select * FROM SalarySurvey where ID='" & txtID.Text & "'"
Set RSSalaryModify = CreateObject("ADOCE.Recordset.3.0")
RSSalaryModify.Open MyQuery, CNSalary, adOpenKeyset, adLockOptimistic
If RSSalaryModify.RecordCount > 0 Then
Dim MyVar
MyVar = MsgBox("Do You Want to Delete ?", 65, "SalarySurvey")
If MyVar = 1 Then
RSSalaryModify.Delete
RSSalaryModify.Close
Set RSSalaryModify = Nothing
RefreshDB
RSSalary.MoveFirst
EnableFields
ClearAllFields
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -