📄 frmsysteminitialize.frm
字号:
TabIndex = 25
Top = 300
Width = 975
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "担保人工号:"
ForeColor = &H00FF0000&
Height = 255
Index = 2
Left = 360
TabIndex = 24
Top = 285
Width = 975
End
End
Begin VB.CommandButton cmdModify
BackColor = &H00C0C0C0&
Caption = "修改"
Height = 375
Left = 3600
MaskColor = &H00FF0000&
Style = 1 'Graphical
TabIndex = 20
Top = 4305
Visible = 0 'False
Width = 735
End
Begin VB.CommandButton cmdSave
BackColor = &H00C0C0C0&
Caption = "保存"
Height = 375
Left = 4320
MaskColor = &H00FF0000&
Style = 1 'Graphical
TabIndex = 19
Top = 4275
Visible = 0 'False
Width = 735
End
Begin VB.CommandButton cmdClose
BackColor = &H00C0C0C0&
Caption = "退出"
Height = 375
Left = 5400
MaskColor = &H00FF0000&
Style = 1 'Graphical
TabIndex = 18
Top = 4305
Visible = 0 'False
Width = 855
End
Begin VB.CommandButton cmdFirst
BackColor = &H00C0C0C0&
Caption = "首条"
Height = 375
Left = 240
MaskColor = &H00FF0000&
Style = 1 'Graphical
TabIndex = 17
Top = 4305
Visible = 0 'False
WhatsThisHelpID = 1
Width = 735
End
Begin VB.CommandButton cmdNext
BackColor = &H00C0C0C0&
Caption = "次条"
Height = 375
Left = 960
MaskColor = &H00FF0000&
Style = 1 'Graphical
TabIndex = 16
Top = 4305
Visible = 0 'False
Width = 735
End
Begin VB.CommandButton cmdPrevious
BackColor = &H00C0C0C0&
Caption = "上条"
Height = 375
Left = 1680
MaskColor = &H00FF0000&
Style = 1 'Graphical
TabIndex = 15
Top = 4305
Visible = 0 'False
Width = 735
End
Begin VB.CommandButton cmdLast
BackColor = &H00C0C0C0&
Caption = "末条"
Height = 375
Left = 2400
MaskColor = &H00FF0000&
Style = 1 'Graphical
TabIndex = 14
Top = 4305
Visible = 0 'False
Width = 735
End
Begin MSAdodcLib.Adodc Adodc1
Height = 330
Left = 840
Top = 4440
Visible = 0 'False
Width = 2055
_ExtentX = 3625
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 1
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 0
BackColor = 12632256
ForeColor = 16711680
Orientation = 0
Enabled = -1
Connect = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\SYSTEM\DATABASE\SYSTEM.MDB"
OLEDBString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\SYSTEM\DATABASE\SYSTEM.MDB"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = "select * from 员工资料 where 是否初始化=false"
Caption = "员工资料"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "应聘日期:"
ForeColor = &H00FF0000&
Height = 255
Index = 8
Left = 4200
TabIndex = 29
Top = 1020
Width = 855
End
Begin ComctlLib.ImageList ImageList1
Left = 120
Top = 4545
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 327682
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 7
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmSystemInitialize.frx":0000
Key = ""
EndProperty
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmSystemInitialize.frx":031A
Key = ""
EndProperty
BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmSystemInitialize.frx":0634
Key = ""
EndProperty
BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmSystemInitialize.frx":094E
Key = ""
EndProperty
BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmSystemInitialize.frx":0C68
Key = ""
EndProperty
BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmSystemInitialize.frx":0F82
Key = ""
EndProperty
BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmSystemInitialize.frx":129C
Key = ""
EndProperty
EndProperty
End
End
Attribute VB_Name = "frmSystemInitialize"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim InputVar As Boolean
Dim Conn As New ADODB.Connection
Dim Cmd As New ADODB.Command
Sub LockedOrNo(InputVar)
txt等级.Locked = InputVar
txt当月积分.Locked = InputVar
txt累计积分.Locked = InputVar
txt历史积分.Locked = InputVar
cmdFirst.Enabled = InputVar
cmdNext.Enabled = InputVar
cmdPrevious.Enabled = InputVar
cmdLast.Enabled = InputVar
cmdModify.Enabled = InputVar
cmdSave.Enabled = Not InputVar
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub cmdFirst_Click()
On Error GoTo ErrorHandle
With Adodc1.Recordset
.MoveFirst
End With
ErrorHandle:
Exit Sub
End Sub
Private Sub cmdLast_Click()
On Error GoTo ErrorHandle
With Adodc1.Recordset
.MoveLast
End With
ErrorHandle:
Exit Sub
End Sub
Private Sub cmdModify_Click()
InputVar = False
LockedOrNo (InputVar)
End Sub
Private Sub cmdNext_Click()
On Error GoTo ErrorHandle
With Adodc1.Recordset
.MoveNext
If .EOF Then
.MovePrevious
End If
End With
ErrorHandle:
Exit Sub
End Sub
Private Sub cmdPrevious_Click()
On Error GoTo ErrorHandle
With Adodc1.Recordset
.MovePrevious
If .BOF Then
.MoveNext
End If
End With
ErrorHandle:
Exit Sub
End Sub
Private Sub cmdSave_Click()
On Error GoTo ErrorHandle
With Adodc1.Recordset
!提成 = 0
!个人绩效奖 = 0
!网络绩效奖 = 0
!伙食津贴 = 0
!差旅津贴 = 0
!晋升日期 = CDate(txt应聘日期.Text)
!A层次 = 0
If !等级 = "A" Then
!A层次 = 0
End If
!几线A = 0
If txt等级.Text = "A" Then
!绩效奖系数 = 3
Cmd.CommandText = "update 员工资料 set 担保人等级= 'A' where 担保人工号= '" & Trim(txt工号.Text) & "'"
Cmd.Execute
End If
If txt等级.Text = "B" Then
!绩效奖系数 = 2
Cmd.CommandText = "update 员工资料 set 担保人等级= 'B' where 担保人工号= '" & Trim(txt工号.Text) & "'"
Cmd.Execute
End If
If txt等级.Text = "C" Then
!绩效奖系数 = 1
Cmd.CommandText = "update 员工资料 set 担保人等级= 'C' where 担保人工号= '" & Trim(txt工号.Text) & "'"
Cmd.Execute
End If
If txt等级.Text = "D" Then
!绩效奖系数 = 0
Cmd.CommandText = "update 员工资料 set 担保人等级= 'D' where 担保人工号= '" & Trim(txt工号.Text) & "'"
Cmd.Execute
End If
!是否初始化 = True
.Update
'Adodc1.Refresh
End With
InputVar = True
LockedOrNo (InputVar)
ErrorHandle:
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "没有记录可保存"
Exit Sub
End If
Exit Sub
End Sub
Private Sub Form_Load()
Dim ConnStr As String
ConnStr = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=c:\system\database\system.mdb"
Conn.Open ConnStr
Set Cmd.ActiveConnection = Conn
InputVar = True
LockedOrNo (InputVar)
If Adodc1.Recordset.RecordCount = 0 Then
cmdFirst.Enabled = False
cmdNext.Enabled = False
cmdPrevious.Enabled = False
cmdLast.Enabled = False
cmdModify.Enabled = False
cmdSave.Enabled = False
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Conn.Close
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
Select Case Button.Key
Case "Modify"
cmdModify_Click
Case "Save"
cmdSave_Click
Case "First"
cmdFirst_Click
Case "Next"
cmdNext_Click
Case "Previous"
cmdPrevious_Click
Case "Last"
cmdLast_Click
Case "Close"
cmdClose_Click
End Select
End Sub
Private Sub txt当月积分_LostFocus()
If txt当月积分.Text = "" Then txt当月积分.Text = "0"
If IsNumeric(txt当月积分.Text) = False Then
MsgBox "输入数据不是数值，请重输！"
txt当月积分.Text = ""
txt当月积分.SetFocus
End If
End Sub
Private Sub txt等级_Change()
txt等级.Text = UCase(Trim(txt等级.Text))
End Sub
Private Sub txt等级_LostFocus()
If txt等级.Text <> "A" And txt等级.Text <> "B" And txt等级.Text <> "C" And txt等级.Text <> "D" Then
MsgBox "等级只能填入A、B、C、D中一个！"
txt等级.Text = ""
txt等级.SetFocus
End If
End Sub
Private Sub txt累计积分_LostFocus()
If txt累计积分.Text = "" Then txt累计积分.Text = "0"
If IsNumeric(txt累计积分.Text) = False Then
MsgBox "输入数据不是数值，请重输！"
txt累计积分.Text = ""
txt累计积分.SetFocus
End If
End Sub
Private Sub txt历史积分_LostFocus()
If txt历史积分.Text = "" Then txt历史积分.Text = "0"
If IsNumeric(txt历史积分.Text) = False Then
MsgBox "输入数据不是数值，请重输！"
txt历史积分.Text = ""
txt历史积分.SetFocus
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -