📄 frmmajor.frm
字号:
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 630
Left = 360
Style = 1 'Graphical
TabIndex = 4
Top = 4732
Width = 2535
End
Begin VB.CommandButton Cmdprevious
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 = 4520
Style = 1 'Graphical
TabIndex = 5
Top = 4800
Width = 2055
End
Begin VB.CommandButton Cmdnext
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 = 8200
Style = 1 'Graphical
TabIndex = 6
Top = 4800
Width = 2055
End
Begin VB.CommandButton Cmdlast
BackColor = &H00FFC0C0&
Caption = "最后一个"
BeginProperty Font
Name = "隶书"
Size = 26.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 11880
Style = 1 'Graphical
TabIndex = 7
Top = 4800
Width = 2415
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "专业编号："
BeginProperty Font
Name = "楷体_GB2312"
Size = 26.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 735
Left = 540
TabIndex = 14
Top = 720
Width = 2895
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "年 级："
BeginProperty Font
Name = "楷体_GB2312"
Size = 26.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 735
Left = 480
TabIndex = 13
Top = 2100
Width = 3015
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "专业名称："
BeginProperty Font
Name = "楷体_GB2312"
Size = 26.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 735
Left = 480
TabIndex = 12
Top = 3480
Width = 3015
End
End
End
Attribute VB_Name = "frmmajor"
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
Dim qry As DAO.QueryDef
Private Sub Cmddelete_Click()
Set rst = db.OpenRecordset("select * from major")
rst.Filter = "majorid='" & Txtmajorid.Text & "'"
Set rst = rst.OpenRecordset()
rst.Delete
Set rst = db.OpenRecordset("select * from major")
If rst.RecordCount() <> 0 Then
If rst.EOF = True Then
rst.MoveFirst
Else
rst.MoveNext
End If
filltext
Else
hidebutton
clearfield
MsgBox "数据库中已经没有记录了！"
Txtmajorid.SetFocus
End If
Adodcmajor.Refresh
End Sub
Private Sub Cmdexit_Click()
db.Close
Unload Me
frmmain.Show vbModal
End Sub
Private Sub Cmdfind_Click()
Dim findstr As String
findstr = InputBox("请输入您要查找的专业的名称：")
rst.FindFirst "majorname='" & 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 rst = db.OpenRecordset("select * from major")
rst.Filter = "majorid='" & Txtmajorid.Text & "'"
Set rst = rst.OpenRecordset()
If rst.RecordCount = 0 Then
MsgBox ("这个专业编号不存在，编辑操作失败！")
Exit Sub
End If
rst.edit
fillrecord
rst.Update
Set rst = db.OpenRecordset("select * from major")
Adodcmajor.Refresh
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 major")
temp.Filter = "majorid='" & Txtmajorid.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
fillrecord
rst.Update
Adodcmajor.Refresh
Txtmajorid.SetFocus
End Sub
Private Sub Command1_Click()
clearfield
Txtmajorid.SetFocus
Adodcmajor.Refresh
End Sub
Private Sub DataGrid2_Click()
Txtmajorid.Text = DataGrid2.Columns(1).Text
Cmbgrade.Text = DataGrid2.Columns(0).Text
Txtmajorname.Text = DataGrid2.Columns(2).Text
End Sub
Private Sub Form_Activate()
Set db = DBEngine.Workspaces(0).OpenDatabase("d:\basic.mdb")
Set rst = db.OpenRecordset("select * from major")
If rst.RecordCount() = 0 Then
clearfield
hidebutton
Else
showbutton
rst.MoveFirst
filltext
End If
End Sub
Public Sub filltext()
Cmbgrade.Text = rst.Fields("gradeid")
Txtmajorid.Text = rst.Fields("majorid")
Txtmajorname.Text = rst.Fields("majorname")
End Sub
Public Sub clearfield()
Cmbgrade.Text = ""
Txtmajorid.Text = ""
Txtmajorname.Text = ""
End Sub
Private Sub Form_Load()
Set db = DBEngine.Workspaces(0).OpenDatabase("d:\basic.mdb")
Set rst = db.OpenRecordset("select * from major")
If rst.RecordCount() = 0 Then
clearfield
hidebutton
Else
showbutton
rst.MoveFirst
filltext
End If
Cmbgrade.AddItem Year(Date)
Cmbgrade.AddItem Year(Date) - 1
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
Public Sub fillrecord()
rst.Fields("gradeid") = Cmbgrade.Text
rst.Fields("majorid") = Txtmajorid.Text
rst.Fields("majorname") = Txtmajorname.Text
End Sub
Private Sub Txtmajorid_Click()
Adodcmajor.Refresh
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -