📄 frmteacher.frm
字号:
Begin VB.CommandButton cmdfirst
BackColor = &H00FFC0C0&
Caption = "第一个"
BeginProperty Font
Name = "隶书"
Size = 26.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 525
Left = 360
MaskColor = &H00FF8080&
Style = 1 'Graphical
TabIndex = 3
Top = 5160
UseMaskColor = -1 'True
Width = 2055
End
Begin MSAdodcLib.Adodc Adodc1
Height = 330
Left = 1320
Top = 0
Visible = 0 'False
Width = 1200
_ExtentX = 2117
_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 = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\basic.mdb;Persist Security Info=False"
OLEDBString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\basic.mdb;Persist Security Info=False"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = "select * from teacher order by teacherid"
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "教师姓名："
BeginProperty Font
Name = "华文行楷"
Size = 36
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 1095
Left = 480
TabIndex = 15
Top = 2400
Width = 3975
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "职 称:"
BeginProperty Font
Name = "华文行楷"
Size = 36
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 975
Left = 480
TabIndex = 14
Top = 4200
Width = 3375
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "教师编号："
BeginProperty Font
Name = "华文行楷"
Size = 36
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 1095
Left = 480
TabIndex = 13
Top = 600
Width = 3975
End
End
End
Attribute VB_Name = "frmteacher"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim temp As DAO.Recordset
Dim db As DAO.Database
Dim rst As DAO.Recordset
Private Sub Cmddelete_Click()
Set rst = db.OpenRecordset("select * from teacher")
rst.Filter = "teacherid='" & DataGrid1.Text & "'"
Set rst = rst.OpenRecordset
rst.Delete
Set rst = db.OpenRecordset("select * from teacher")
If rst.RecordCount() <> 0 Then
If rst.EOF = True Then
rst.MoveFirst
Else
rst.MoveNext
End If
filltext
Else
clearfield
hidebutton
End If
Txteachid.SetFocus
Adodc1.Refresh
End Sub
Private Sub Cmdexit_Click()
db.Close
frmteacher.Hide
frmmain.Show vbModal
End Sub
Private Sub Cmdfind_Click()
Dim findstr As String
' Dim findsql As String
' findstr = InputBox("请输入您要查找的教师的表达式,例如：teachername='张红'")
' rst.FindFirst findstr
' If rst.NoMatch Then
' MsgBox "没有找到您所要查找的教师"
' End If
'以上的方法可以用
' findstr = InputBox("请输入您要查找的教师的姓名：")
' rst.Filter = "teachername='" & findstr & "'"
' Set rst = rst.OpenRecordset()
' If rst.RecordCount() = 0 Then
' MsgBox "本系统中没有您要查找的教师"
' Set rst = db.OpenRecordset("select * from teacher")
' Exit Sub
' End If
' filltext
' Set rst = db.OpenRecordset("select * from teacher")
findstr = InputBox("请输入您要查找的教师的姓名：")
rst.FindFirst "teachername='" & findstr & "'"
If rst.NoMatch Then
MsgBox "没有找到您所要查找的教师"
Exit Sub
End If
filltext
'以上封存的查找方法也可以使用
End Sub
Private Sub cmdfirst_Click()
rst.MoveFirst
filltext
End Sub
Private Sub Cmdlast_Click()
rst.MoveLast
filltext
End Sub
Private Sub Cmdmodify_Click()
Set temp = db.OpenRecordset("select * from teacher")
temp.Filter = "teacherid='" & Txteachid.Text & "'"
Set temp = temp.OpenRecordset()
If temp.RecordCount = 0 Then
MsgBox ("这个教师编号不存在，编辑操作失败！")
temp.Close
Exit Sub
End If
temp.Close
rst.edit
rst.Fields("teacherid") = Txteachid.Text
rst.Fields("teachername") = Txteachname.Text
rst.Fields("teacherclass") = Combo1.Text
rst.Update
End Sub
Private Sub Cmdnext_Click()
rst.MoveNext
If rst.EOF Then
MsgBox "这是最后一个记录了！"
rst.MoveLast
End If
filltext
End Sub
Private Sub Cmdprevious_Click()
rst.MovePrevious
If rst.BOF Then
MsgBox "这是第一个记录了!"
rst.MoveFirst
End If
filltext
End Sub
Private Sub Cmdadd_Click()
Set temp = db.OpenRecordset("select * from teacher")
temp.Filter = "teacherid='" & Txteachid.Text & "'"
Set temp = temp.OpenRecordset()
If temp.RecordCount <> 0 Then
MsgBox ("这个教师编号已存在，您输入的信息不能被保存！")
Exit Sub
End If
temp.Close
If rst.RecordCount() <> 0 Then
rst.MoveLast
End If
rst.AddNew
rst.Fields("teacherid") = Txteachid.Text
rst.Fields("teachername") = Txteachname.Text
If Combo1.Text = "" Then
rst.Fields("teacherclass") = ""
Else
rst.Fields("teacherclass") = Combo1.Text
End If
rst.Update
Adodc1.Refresh
Txteachid.SetFocus
End Sub
Private Sub Command1_Click()
clearfield
Txteachid.SetFocus
End Sub
Private Sub DataGrid1_Click()
Txteachid.Text = DataGrid1.Text
Txteachname.Text = DataGrid1.Columns(1).Text
Combo1.Text = DataGrid1.Columns(2).Text
End Sub
Private Sub Form_Activate()
Set db = DBEngine.Workspaces(0).OpenDatabase("d:\basic.mdb")
Set rst = db.OpenRecordset("select * from teacher")
If rst.RecordCount() = 0 Then
clearfield
hidebutton
Else
showbutton
rst.MoveFirst
filltext
End If
Txteachid.SetFocus
End Sub
Public Sub filltext()
Txteachid.Text = rst.Fields("teacherid")
Txteachname.Text = rst.Fields("teachername")
If rst.Fields("teacherclass") = "" Then
Combo1.Text = ""
Else
Combo1.Text = rst.Fields("teacherclass")
End If
End Sub
Public Sub clearfield()
Txteachid.Text = ""
Txteachname.Text = ""
Combo1.Text = ""
End Sub
Private Sub Form_Load()
Set db = DBEngine.Workspaces(0).OpenDatabase("d:\basic.mdb")
Set rst = db.OpenRecordset("select * from teacher")
If rst.RecordCount() = 0 Then
clearfield
hidebutton
Else
showbutton
rst.MoveFirst
filltext
End If
Combo1.AddItem "教授"
Combo1.AddItem "副教授"
Combo1.AddItem "讲师"
Combo1.AddItem "其他"
End Sub
Private Sub Txteachid_GotFocus()
Adodc1.Refresh
Set rst = db.OpenRecordset("select * from teacher")
If rst.RecordCount <> 0 Then
showbutton
Else
hidebutton
End If
End Sub
Public Sub hidebutton()
Cmddelete.Enabled = False
Cmdnext.Enabled = False
cmdfind.Enabled = False
cmdfirst.Enabled = False
Cmdlast.Enabled = False
Cmdmodify.Enabled = False
Cmdprevious.Enabled = False
End Sub
Public Sub showbutton()
Cmddelete.Enabled = True
Cmdnext.Enabled = True
cmdfind.Enabled = True
cmdfirst.Enabled = True
Cmdlast.Enabled = True
Cmdmodify.Enabled = True
Cmdprevious.Enabled = True
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -