数据库实例-学生名册管理系统(DAO的使用实验)

 

代码:

 

  1 Public Class Form1
  2 
  3     Dim mydb As dao.Database '数据库对象
  4     Dim myws As dao.Workspace '工作空间,也就是 会话
  5     Dim mysql As String '保存sql查询的变量
  6     Dim myrs As dao.Recordset '记录集对象
  7     Dim myengine As dao.DBEngine = New dao.DBEngine() '引擎,直接初始化
  8 
  9     Public Function OpenDB() As Short '用于连接数据库
 10         'Dim DBPath As String = "G:\liz\DBs\学生名册.mdb"
 11         Dim DBPath As String = Application.StartupPath & "\学生名册.mdb"
 12         myws = myengine.Workspaces(0) '取当前会话
 13         mydb = myws.OpenDatabase(DBPath, False, False)
 14         mysql = "select * from 学生名册"
 15         myrs = mydb.OpenRecordset(mysql, dao.RecordsetTypeEnum.dbOpenDynaset) '用SQL,并使用表类型记录集
 16         'displayStats(myrs.RecordCount) 
 17     End Function
 18     Public Sub FillControl() '填充显示界面
 19         TextBox1.Text = myrs.Fields(0).Value.ToString
 20         TextBox2.Text = myrs.Fields(1).Value.ToString
 21         TextBox3.Text = myrs.Fields(3).Value.ToString.Substring(0, 9)
 22         TextBox4.Text = myrs.Fields(2).Value.ToString
 23     End Sub
 24     Public Sub New()
 25         ' 此调用是 Windows 窗体设计器所必需的。
 26         InitializeComponent()
 27         ' 在 InitializeComponent() 调用之后添加任何初始化。
 28         Dim myresult As Short '在New里打开数据库
 29         myresult = OpenDB()
 30     End Sub
 31 
 32     Private Sub Form1_Activated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Activated
 33         FillControl() '激活窗体时填充显示控件
 34     End Sub
 35 
 36     Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
 37         '向前浏览记录
 38         If myrs.BOF Then
 39             Beep()
 40             myrs.MoveFirst() '这个是因为,BOF在第一条记录的前面,不用这个,读记录集会出错
 41         Else
 42             myrs.MovePrevious()
 43             If myrs.BOF Then
 44                 myrs.MoveFirst()
 45                 Exit Sub
 46             End If
 47             FillControl()
 48         End If
 49     End Sub
 50 
 51     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 52         '先后浏览
 53         If myrs.EOF Then
 54             Beep()
 55             myrs.MoveLast()
 56         Else
 57             myrs.MoveNext()
 58             If myrs.EOF = True Then
 59                 myrs.MoveLast()
 60                 Exit Sub
 61             End If
 62             FillControl()
 63         End If
 64     End Sub
 65 
 66     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
 67         myrs.MoveFirst()
 68         FillControl()
 69     End Sub
 70 
 71     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
 72         myrs.MoveLast()
 73         FillControl()
 74     End Sub
 75 
 76     Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
 77         Dim sql1 As String = "select * from 学生名册 where 学号='" & TextBox1.Text & "'"
 78         Dim rs1 As dao.Recordset
 79         rs1 = mydb.OpenRecordset(sql1, dao.RecordsetTypeEnum.dbOpenDynaset)
 80         If rs1.EOF Then
 81             myrs.AddNew()
 82             myrs.Fields(0).Value = TextBox1.Text
 83             myrs.Fields(1).Value = TextBox2.Text
 84             myrs.Fields(3).Value = TextBox3.Text
 85             myrs.Fields(2).Value = TextBox4.Text
 86             myrs.Update()
 87         Else
 88             MsgBox("这个学号已经存在")
 89             Exit Sub
 90         End If
 91         ClearTextBoxs()
 92         TextBox1.Focus()
 93     End Sub
 94     Public Sub ClearTextBoxs()
 95         Dim i As Integer
 96         Dim count As Integer = Me.Controls.Count
 97         Dim tb As TextBox
 98         For i = 0 To count - 1
 99             If TypeOf Me.Controls(i) Is TextBox Then
                 tb = CType(Me.Controls(i), TextBox)
                 tb.Text = ""
             End If
         Next
     End Sub
 
     Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
         End
         '另外一种写法是:Application.Exit
     End Sub
 
     Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
         Dim sql1 As String = "select * from 学生名册 where 学号='" & TextBox1.Text & "'"
         Dim rs1 As dao.Recordset = mydb.OpenRecordset(sql1, dao.RecordsetTypeEnum.dbOpenDynaset)
         If rs1.EOF Then
             MsgBox("查无此人", MsgBoxStyle.OkOnly)
             Exit Sub
         Else
             rs1.Delete()
             reConnect()
             FillControl()
         End If
     End Sub
     Public Sub reConnect()
         mysql = "select * from 学生名册"
         myrs = mydb.OpenRecordset(mysql, dao.RecordsetTypeEnum.dbOpenDynaset)
         myrs.MoveFirst()
     End Sub
 
     Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
         Dim sql As String = "select * from 学生名册 where 学号='" & TextBox1.Text & "'"
         Dim rs As dao.Recordset = mydb.OpenRecordset(sql, dao.RecordsetTypeEnum.dbOpenDynaset) 'dao.RecordsetTypeEnum.dbOpenDynaset是recordset表类型
         If rs.EOF Then
             MsgBox("这个学号不存在,如果要增加此人,请使用[新增]按钮", MsgBoxStyle.OkOnly, "信息框")
             Exit Sub
         Else
             rs.Edit()
             rs.Fields(0).Value = TextBox1.Text
             rs.Fields(1).Value = TextBox2.Text
             rs.Fields(2).Value = TextBox4.Text
             rs.Fields(3).Value = TextBox3.Text
             rs.Update()
 
         End If
     End Sub
 
     Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
         Dim tmpStr As String
         tmpStr = TextBox6.Text
         Dim sql As String = "select * from 学生名册 where " & ComboBox1.Text & "='" & tmpStr & "'"
         myrs = mydb.OpenRecordset(sql, dao.RecordsetTypeEnum.dbOpenDynaset)
         If myrs.EOF Then
             MsgBox("查无此人", MsgBoxStyle.OkOnly, "查询结果")
             Exit Sub
         Else
             FillControl()
             'reConnect()
         End If
     End Sub
 
     Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
         OpenDB()
         FillControl()
     End Sub
 
 
     Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出ToolStripMenuItem.Click
         Button9.PerformClick()
     End Sub
     Public Sub displayStats(ByVal RecCount As Integer)
         Dim ss As String = "总记录数: "
         StatusStrip1.Items(0).Text = ss & CStr(RecCount)
     End Sub
 
     Private Sub myontop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles myontop.Click
         If myontop.Checked = False Then
             myontop.Checked = True
             Me.TopMost = True '设置窗口在最顶层
         Else
             myontop.Checked = False
             Me.TopMost = False
         End If
     End Sub
 
     Private Sub mySearchNumber_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mySearchNumber.Click
         ComboBox1.Text = "学号"
         MsgBox("请先输入学号,再点击查询按钮", MsgBoxStyle.OkOnly, "信息框")
         TextBox6.Focus()
     End Sub
 
     Private Sub mySearchTel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mySearchTel.Click
         ComboBox1.Text = "电话号码"
         MsgBox("请先输入电话号码,再点查询按钮", MsgBoxStyle.OkOnly, "提示")
         TextBox6.Focus()
     End Sub
 
     Private Sub mySearchName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mySearchName.Click
         ComboBox1.Text = "姓名"
         MsgBox("请先输入查询的名字", MsgBoxStyle.OkOnly, "提示")
         TextBox6.Focus()
     End Sub
 
     Private Sub cmExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmExit.Click
         'Button9.PerformClick()
         Application.Exit()
     End Sub
 
     Private Sub cmAbout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmAbout.Click
         MsgBox("学生管理系统" & vbCrLf & "设计人: 王华杰" & vbCrLf & "制作: 李志", MsgBoxStyle.OkCancel, "关于")
     End Sub
 
     Private Sub btnCal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCal.Click
         MonthCalendar1.Visible = True
         MonthCalendar1.Left = btnCal.Left - MonthCalendar1.Width
         MonthCalendar1.Top = btnCal.Top
         MonthCalendar1.BringToFront()
         If Len(TextBox3.Text) > 0 Then
             MonthCalendar1.SetDate(TextBox3.Text.ToString)
         End If
     End Sub
 
     Private Sub MonthCalendar1_DateSelected(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateSelected
         TextBox3.Text = MonthCalendar1.SelectionRange.Start
         MonthCalendar1.Visible = False
     End Sub
 End Class
 

 

 

程序运行截图: