14项目十四 SQL Server开发与编程 （课件）- 《网站数据库应用技术SQL Server 2008（项目教程）》同步教学（水利水电版）

网站数据库应用技术SQL Server 2008 （项目教程） 14 项目十四 SQL Server开发与编程 14.1相关知识 SQL Server开发与编程 SQL Server开发与编程当前应用最多是Java开发和微软的vs.net开发，主要对数据库进行添加、删除、修改和查询，下面以微软的vs.net开发学生信息管理系统为例进行简单阐述。 6.1.2任务实施 SQL Server开发与编程 1.数据库连接的开发 在vs.net平台激活sql相关控件，其代码如下： Imports System Imports System.Data Imports System.Data.SqlClient 6.1.2任务实施 SQL Server开发与编程 以登录界面为例对数据库连接进行代码设计 数据库连接开发 6.1.2任务实施 SQL Server开发与编程 对应程序设计代码如下: 登录按钮： Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click checkFormat() End Sub 权限验证代码如下： Sub checkFormat() If TextBox1.Text = "" Or TextBox2.Text = "" Then MsgBox("用户名和密码不能为空") ElseIf ComboBox1.Text = "" Then MsgBox("请选择登陆用户权限") Else checkLoginName() End If End Sub 数据库连接开发 Sub checkLoginName() Dim str As String str = "Data Source=localhost;Initial Catalog = Student;integrated Security=true" 数据库连接字符串 Dim con As New SqlConnection(str) 连接数据库 con.Open() 打开数据库 6.1.2任务实施 SQL Server开发与编程 先判断数据库里有没有day这个表，有就什么都不干，没有就创建day表，day表里有id和temp两列，id是主键，则源代码如右： 2.创建新表的开发 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click str = "Data Source=localhost;Initial Catalog = Student;integrated Security=true" 连接字符串 Dim con As New SqlConnection(str) 连接数据库 con.Open() If not exists(select * from sysobjects where name = 'day') then create table [day]（id int primary key，temp varchar(20)） End if End Sub 6.1.2任务实施 SQL Server开发与编程 以添加学生学籍信息为例，设计界面 3.数据库信息添加的开发 6.1.2任务实施 SQL Server开发与编程 对应需要开发的参考代码如下： 以下为关闭按钮代码： Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.Close() End Sub 3.数据库信息添加的开发 以下为重填代码： Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click clear() End Sub Sub clear() TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" TextBox6.Text = "" TextBox7.Text = "" TextBox8.