?? frmsaledit.frm
字號(hào):
VERSION 5.00
Begin VB.Form FrmSalEdit
BorderStyle = 1 'Fixed Single
Caption = "編輯員工工資"
ClientHeight = 2715
ClientLeft = 45
ClientTop = 330
ClientWidth = 7110
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2715
ScaleWidth = 7110
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Cmd_OK
Caption = "確 定"
Default = -1 'True
Height = 400
Left = 1510
MousePointer = 99 'Custom
Style = 1 'Graphical
TabIndex = 2
Top = 2040
Width = 1300
End
Begin VB.CommandButton Cmd_Cancel
Cancel = -1 'True
Caption = "取 消"
Height = 400
Left = 4200
MousePointer = 99 'Custom
Style = 1 'Graphical
TabIndex = 3
Top = 2040
Width = 1300
End
Begin VB.Frame Frame1
Height = 1815
Left = 240
TabIndex = 4
Top = 120
Width = 6255
Begin VB.ComboBox ComboName
Height = 315
Left = 1080
TabIndex = 12
Text = "Combo1"
Top = 360
Width = 2175
End
Begin VB.TextBox Staff_Id
Height = 330
Left = 4560
TabIndex = 11
Top = 360
Width = 1335
End
Begin VB.TextBox Base_Sal
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 1440
MaxLength = 50
TabIndex = 0
Top = 840
Width = 1335
End
Begin VB.TextBox Bonus
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 4560
MaxLength = 20
TabIndex = 1
Top = 840
Width = 1335
End
Begin VB.Label Total_Sal
Caption = "Total_Sal"
DataMember = "Str(Val(Base_Sal)+Val(Bonus))"
Height = 255
Left = 1440
TabIndex = 10
Top = 1320
Width = 735
End
Begin VB.Label Label2
Caption = "總工資"
Height = 255
Left = 240
TabIndex = 9
Top = 1320
Width = 735
End
Begin VB.Label Label8
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "姓名"
Height = 195
Left = 240
TabIndex = 8
Top = 360
Width = 360
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "基本工資"
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 180
Left = 240
TabIndex = 7
Top = 840
Width = 720
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "獎(jiǎng)金"
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 180
Left = 3720
TabIndex = 6
Top = 840
Width = 360
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "員工ID"
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 180
Left = 3720
TabIndex = 5
Top = 480
Width = 540
End
End
End
Attribute VB_Name = "FrmSalEdit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Modify As Boolean '插入=false,修改=true
Private Sub Base_Sal_KeyUp(KeyCode As Integer, Shift As Integer)
Total_Sal = Str(Val(Base_Sal) + Val(Bonus))
Total_Sal.Refresh
End Sub
Private Sub Bonus_KeyUp(KeyCode As Integer, Shift As Integer)
Total_Sal = Str(Val(Base_Sal) + Val(Bonus))
Total_Sal.Refresh
End Sub
Private Sub Cmd_Cancel_Click()
Unload Me
End Sub
Private Sub Cmd_OK_Click()
'檢查用戶錄入數(shù)據(jù)的有效性
If Modify = False Then
If Staff_Id <> "" And CurStaff.GetInfo(Val(Staff_Id)) = False Then
MsgBox "請(qǐng)輸入正確的員工ID"
Staff_Id.SetFocus
Exit Sub
End If
End If
If Base_Sal = "" Or Val(Base_Sal) < 0 Then
MsgBox "請(qǐng)輸入基本工資"
Base_Sal.SetFocus
Exit Sub
End If
If Bonus = "" Or Val(Bonus) < 0 Then
MsgBox "請(qǐng)輸入獎(jiǎng)金"
Bonus.SetFocus
Exit Sub
End If
'把用戶錄入的數(shù)據(jù)賦值到數(shù)據(jù)庫(kù)對(duì)象變量中
With MySalary
.Staff_Id = Val(Staff_Id)
.Base_Sal = Val(Base_Sal)
.Bonus = Val(Bonus)
'根據(jù)變量Modify的值，決定是插入新數(shù)據(jù)，還是修改已有的數(shù)據(jù)
If Modify = False Then
.Insert
Else
Call .Update(Staff_Id)
End If
End With
'關(guān)閉窗口
Unload Me
End Sub
Private Sub ComboName_GotFocus()
Staff_Id.SetFocus
'設(shè)置FrmStuSel窗體的位置
FrmStaffSel.Left = Me.Left + ComboName.Left + 350
FrmStaffSel.Top = Me.Top + ComboName.Top + ComboName.Height + 450
FrmStaffSel.Show 1
'將選擇的員工姓名顯示到ComboName控件中
ComboName.Text = MyDepart.GetName(SelStaff.Depart_Id) + " " + SelStaff.Staff_Name
End Sub
Private Sub Staff_Id_GotFocus()
Staff_Id.Text = SelStaff.Staff_Id
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -