📄 form3.frm
字号:
VERSION 5.00
Begin VB.Form Form3
Caption = "教师工资管理系统"
ClientHeight = 6000
ClientLeft = 2610
ClientTop = 1635
ClientWidth = 7290
LinkTopic = "Form3"
Picture = "Form3.frx":0000
ScaleHeight = 6000
ScaleWidth = 7290
Begin VB.TextBox Text8
Height = 375
Left = 2640
TabIndex = 22
Text = "Text8"
Top = 360
Width = 1575
End
Begin VB.TextBox Text7
Height = 375
Left = 2640
TabIndex = 21
Text = "Text7"
Top = 5040
Width = 2175
End
Begin VB.TextBox Text6
Height = 375
Left = 2640
TabIndex = 20
Text = "Text6"
Top = 4320
Width = 2175
End
Begin VB.TextBox Text5
Height = 375
Left = 2640
TabIndex = 19
Text = "Text5"
Top = 3600
Width = 2175
End
Begin VB.TextBox Text4
Height = 375
Left = 2640
TabIndex = 18
Text = "Text4"
Top = 3000
Width = 2175
End
Begin VB.TextBox Text3
Height = 375
Left = 2640
TabIndex = 17
Text = "Text3"
Top = 2280
Width = 2175
End
Begin VB.TextBox Text2
Height = 375
Left = 2640
TabIndex = 16
Text = "Text2"
Top = 1560
Width = 2175
End
Begin VB.TextBox Text1
Height = 375
Left = 2640
TabIndex = 15
Text = "Text1"
Top = 960
Width = 2175
End
Begin VB.CommandButton Command7
Caption = "《"
Height = 495
Left = 5760
TabIndex = 14
Top = 720
Width = 975
End
Begin VB.CommandButton Command6
Caption = "》"
Height = 495
Left = 5760
TabIndex = 13
Top = 4920
Width = 975
End
Begin VB.CommandButton Command5
Caption = "添加"
Height = 495
Left = 5760
TabIndex = 12
Top = 1560
Width = 975
End
Begin VB.CommandButton Command4
Caption = "删除"
Height = 495
Left = 5760
TabIndex = 11
Top = 2400
Width = 975
End
Begin VB.CommandButton Command3
Caption = "更新"
Height = 495
Left = 5760
TabIndex = 10
Top = 3240
Width = 975
End
Begin VB.CommandButton Command1
Caption = "查找"
Height = 495
Left = 5760
TabIndex = 0
Top = 4080
Width = 975
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "姓名"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0FFFF&
Height = 495
Index = 7
Left = 1080
TabIndex = 9
Top = 360
Width = 1455
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "教师员工收入情况"
BeginProperty Font
Name = "楷体_GB2312"
Size = 24
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0FFFF&
Height = 3975
Left = 120
TabIndex = 8
Top = 600
Width = 615
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "基本工资"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0FFFF&
Height = 495
Index = 0
Left = 1050
TabIndex = 7
Top = 930
Width = 1455
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "效益工资"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0FFFF&
Height = 495
Index = 1
Left = 1050
TabIndex = 6
Top = 1605
Width = 1455
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "岗位工资"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0FFFF&
Height = 495
Index = 2
Left = 1050
TabIndex = 5
Top = 2295
Width = 1455
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "书报费"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0FFFF&
Height = 495
Index = 3
Left = 1050
TabIndex = 4
Top = 2985
Width = 1455
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "交通费"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0FFFF&
Height = 495
Index = 4
Left = 1050
TabIndex = 3
Top = 3660
Width = 1455
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "误餐费"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0FFFF&
Height = 495
Index = 5
Left = 1050
TabIndex = 2
Top = 4350
Width = 1455
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "工资总和"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0FFFF&
Height = 495
Index = 6
Left = 1050
TabIndex = 1
Top = 5040
Width = 1455
End
Begin VB.Menu jszl
Caption = "教师资料管理"
Begin VB.Menu zl
Caption = "教师资料管理系统"
End
End
Begin VB.Menu dagl
Caption = "学生档案管理"
Begin VB.Menu da
Caption = "学生档案管理系统"
End
End
Begin VB.Menu cjgl
Caption = "学生成绩管理"
Begin VB.Menu cj
Caption = "学生成绩管理系统"
End
End
Begin VB.Menu end
Caption = "返回"
Begin VB.Menu exit
Caption = "返回"
End
End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim db As Database
Dim gz As Recordset
Dim temp As String
Dim payroll(7) As String
Private Sub cj_Click()
Form4.Show
End Sub
Private Sub Command1_Click()
Set gz = db.OpenRecordset("select * from gz")
工资总和query = InputBox("请输入您所查找的人的工资总和：", "查询")
If MsgBox("请您确定的确要查询此人吗！", 6) <> 1 Then
Exit Sub
End If
Do Until gz.EOF
If gz.Fields("工资总和") Like "*" & LCase(工资总和query) & "*" Then
Text1 = gz.Fields("基本工资")
Text2 = gz.Fields("效益工资")
Text3 = gz.Fields("岗位工资")
Text4 = gz.Fields("快报费")
Text5 = gz.Fields("交通费")
Text6 = gz.Fields("误餐费")
Text7 = gz.Fields("工资总和")
Text8 = gz.Fields("name")
Exit Sub
Else
gz.MoveNext
End If
Loop
End Sub
Private Sub Command2_Click()
Me.Hide
frmSplash.Show
End Sub
Private Sub Command3_Click()
gz.MoveFirst
Text1 = gz.Fields("基本工资")
Text2 = gz.Fields("效益工资")
Text3 = gz.Fields("岗位工资")
Text4 = gz.Fields("快报费")
Text5 = gz.Fields("交通费")
Text6 = gz.Fields("误餐费")
Text7 = gz.Fields("工资总和")
Text8 = gz.Fields("name")
End Sub
Private Sub Command4_Click()
Set gz = db.OpenRecordset("select * from gz where gz.name")
gz.Delete
gz.MoveNext
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
End Sub
Private Sub Command5_Click()
newjz = Text1
newxz = Text2
newgwz = Text3
newkz = Text4
newtz = Text5
newwz = Text6
newsum = Text7
newname = Text8
With gz
.AddNew
!基本工资 = LCase(newjz)
!效益工资 = LCase(newxz)
!岗位工资 = LCase(newgwz)
!快报费 = LCase(newkz)
!交通费 = LCase(newtz)
!误餐费 = LCase(newwz)
!工资总和 = LCase(newsum)
!Name = LCase(newname)
.Update
End With
'MsgBox (newName & "was added to the address book")
If MsgBox("是否添加下一条记录!", vbOKCancel) = vbOK Then
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Else
GoTo ine
End If
ine:
End Sub
Private Sub Command6_Click()
On Error Resume Next
gz.MoveNext
Text1 = gz.Fields("基本工资")
Text2 = gz.Fields("效益工资")
Text3 = gz.Fields("岗位工资")
Text4 = gz.Fields("快报费")
Text5 = gz.Fields("交通费")
Text6 = gz.Fields("误餐费")
Text7 = gz.Fields("工资总和")
Text8 = gz.Fields("name")
End Sub
Private Sub Command7_Click()
On Error Resume Next
gz.MovePrevious
Text1 = gz.Fields("基本工资")
Text2 = gz.Fields("效益工资")
Text3 = gz.Fields("岗位工资")
Text4 = gz.Fields("快报费")
Text5 = gz.Fields("交通费")
Text6 = gz.Fields("误餐费")
Text7 = gz.Fields("工资总和")
Text8 = gz.Fields("name")
End Sub
Private Sub da_Click()
Form1.Show
End Sub
Private Sub exit_Click()
Me.Hide
frmSplash.Show
End Sub
Private Sub Form_Load()
Set db = OpenDatabase(App.Path & "\教师工资管理")
Set gz = db.OpenRecordset("gz")
If gz.EOF Then
MsgBox "please add someone to the databse"
Else
gz.MoveFirst
Text8 = gz.Fields("name")
Text1 = gz.Fields("基本工资")
Text2 = gz.Fields("效益工资")
Text3 = gz.Fields("岗位工资")
Text4 = gz.Fields("快报费")
Text5 = gz.Fields("交通费")
Text6 = gz.Fields("误餐费")
Text7 = gz.Fields("工资总和")
End If
End Sub
Private Sub zl_Click()
Form2.Show
End Sub
Private Sub Form_Resize()
Form3.Height = 6450
Form3.Width = 7665
Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -