End Function

Function InsertUserInfo(ByVal Userdbs As UserInfoClass) As UserInfoClass Throw New NotImplementedException End Function End Class

Public Class UserInfoClass

Private UserName As String Public Property Name As String Get

Return UserName End Get

Set(ByVal value As String) UserName = value End Set End Property

Private UserPwd As String

Public Property Password As String Get

Return UserPwd End Get

Set(ByVal value As String) UserPwd = value End Set End Property End Class

执行增删改查函数模块（部分）：

Imports

Public Class kehuchaxunForm1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim did As String = Me.TextBox1.Text

Dim connectionString As String = \ Dim commandText As String = \ Using connection As New SqlConnection(connectionString)

Dim Command As SqlCommand = New SqlCommand(commandText, connection) connection.Open()

Dim reader As SqlDataReader = Command.ExecuteReader() While (reader.Read() = True)

Me.TextBox1.Text &= reader(0) & \ & reader(1) & \ & reader(2) & vbCrLf End While

connection.Close() End Using End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End Sub

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged End Sub End Class

Imports //删除

Public Class kehushanchu

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim did As String = Me.TextBox1.Text

Dim connectionString As String = \ Dim commandTextDelete As String = \ Using connection As New SqlConnection(connectionString) connection.Open()

Dim cmdDelete As SqlCommand = New SqlCommand(commandTextDelete, connection) \, TextBox1.Text) Try

Dim result As Integer = cmdDelete.ExecuteNonQuery() If result = 1 Then MsgBox(\成功\) Else

MsgBox(\删除记录失败\) End If

Catch ex As Exception MsgBox(ex.ToString()) End Try

connection.Close() End Using End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End Sub End Class

Imports //插入

Public Class kehutianjiaForm1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim connectionString As String = \

Dim commandTextInsert As String = \VALUES(@a,@b,@c)\

Using connection As New SqlConnection(connectionString) connection.Open()

Dim cmdInsert As SqlCommand = New SqlCommand(commandTextInsert, connection) \, TextBox1.Text) \, TextBox2.Text) \, TextBox3.Text) Try

Dim result As Integer = cmdInsert.ExecuteNonQuery() If result = 1 Then

MsgBox(\插入成功\) End If

Catch ex As Exception MsgBox(ex.ToString()) End Try

connection.Close() End Using End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End Sub End Class

Imports //修改

Public Class kehuxiugai

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim connectionString As String = \

Dim commandTextUpdate As String = \kehuxingming=@aaa\

Using connection As New SqlConnection(connectionString) connection.Open()

Dim cmdUpdate As SqlCommand = New SqlCommand(commandTextUpdate, connection) \, TextBox1.Text)

\, TextBox2.Text) \, TextBox3.Text) Try

Dim result As Integer = cmdUpdate.ExecuteNonQuery() If result = 1 Then

MsgBox(\修改成功\) Else

MsgBox(\修改失败\) End If

Catch ex As Exception MsgBox(ex.ToString()) End Try

connection.Close() End Using End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End Sub

Private Sub kehuxiugai_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub End Class

8. 实验总结：

过这次课程设计，从设计需求分析，到各模块功能的设计及数据库设计，我对电话计费管理系统有了较深入的了解， 基本掌握了数据库设计的思想。 通过本次设计，对数据库系统概论这门课有了全新的认识,经过本次课程设计， 我受益匪浅， 从一个整体上把握了一个数据库的设计方法，同时对于如何利用vb.net语言去连接数据库， 并且操纵数据库有了一定的了解和掌握。希望以后自己能够继续学习数据库，对它有更深层次的了解。 项目的开发过程：系统分析->建模->概要设计->详细设计->编码->测试->维护。

软件开发时期的具体设计和实现在前一个时期定义的软件，4个阶段组成：概要设计、详细设计、编码和单元测试、综合测试，其中前两个阶段又称为系统设计，后两个阶段又称为系统实现。运行维护时期的主要任务是使软件持久地满足用户的需要。

数据流图（data flow diagram,DFD）是一种图形化技术，它描绘信息流和数据从输入移动到输出的过程中所经受的变换。