数据库系统原理及应用
第9章 数据库应用程序设计
（第一讲）
引入
教学管理数据库应用系统
Visual Studio 2005 平台 对象
SQL Server 2005 数据库
第9章 数据库应用程序设计
9.1 系统功能与数据表格式
一、系统功能模块
数据管理
用户
C-S模数式据的库单登录机版教学 管理数据库应用系统
备注 用户名 密码
二、数据库表格式
学生表S：
字段名
类型
宽度
备注
S# SNAME
SSEX SBIRTHIN PLACEOFB SCODE#
CLASS
char char Char Smalldatatime Char Char char
9 10 2 短日期时间 6 5 6
学号 姓名 性别 出生日期 籍贯 专业代码 班级
二、数据库表格式
课程表C：
字段名 C#
CNAME CLASSH
类型
char char smallint
宽度
7 20 短整型
备注
课程号 课程名 学时
二、数据库表格式
学习表SC：
字段名
类型
S# C# GRADE
char char smallint
宽度
9 7 短整型
备注
学号 课程号 成绩
第9章 数据库应用程序设计
Else main.Show() End If
三、 “用户登录”程序代码编写
程序代码 Imports System.Data.SqlClient ‘引用语句
Public Class Form1 ‘定义连接字符串
Dim connstr As String = "Data Source=PC-201101101023;Initial Catalog=JXGL;Integrated Security=True" ‘定义sqlconnection对象 Dim conn As New SqlClient.SqlConnection(connstr) ‘此处写确定按钮代码 ‘此处写取消按钮代码
将DataSet或dataTable中数据绑定到 界面的控件中或对数据进行判断操作
Imports System.Data.SqlClient ‘引用语句
SqlConnection连接数据库
Dim connstr As String = "Data Source=PC-201101101023;Initial Catalog=JXGL;Integrated Security=True" Dim conn As New SqlClient.SqlConnection(connstr)
三、 “用户登录”程序代码编写
数据访问操作过程：
SqlCer执行查询或更新数据库命令
Adapter.SelectCommand. ExcuteNonQuery( )
更新数据库
adapter.Fill( 数据集或数据表 )
查询结果送入DataSet或DataTable
学生管理
课程管理
成绩管理
用用用 户户户 添删修 加除改
学学学 生生生 信信信 息息息 添修查 加改询
课课课 程程程 信信信 息息息 添查维 加询护
成成成 绩绩绩 信信信 息息息 添查维 加询护
二、数据库表格式
用户表users：
字段名
类型
user# password#
char char
宽度 10 10
Button1 Text
Button2 Text
Login 用户登录
CenterScreen
教学管理数据库系统 用户名 密码 楷体－12号 * 登录 取消
备注
控件名称 标题栏显示文字 指定窗体在屏幕中 心出现 标签显示文字 标签显示文字 标签显示文字 设置字体格式 输入密码显示为* 按钮显示文字 按钮显示文字
Me.TextBox1.Text & "' and password#='" & Me.TextBox2.Text &
"'“
‘用于装sql语句的字符串变量
Dim myadapter As New SqlDataAdapter(mysql, conn)
查询结果送入DataSet或DataTable
Dim usertable As New DataTable
myadapter.Fill(usertable)
对dataTable中数据进行判断操作
If usertable.Rows.Count = 0 Then MessageBox.Show("用户名或密码错误！", "信息提示")
End Class
三、 “用户登录”程序代码编写
Private Sub Button1_Click(……) Handles Button1.Click ‘确定按钮
If TextBox1.Text <> "" And TextBox2.Text <> ""
Then
Dim mysql As String = "select * from users where user#='" &
9.2 登录数据库窗体 及程序代码设计
二、设置“用户登录”界面
登录界面设置方法： （1）在JXGL数据库中新建用户表users，并输入 数据； （2）打开Visual Studio，新建一个项目，选择 Visual Basic 语言，建立“Windows应用程序”， 命名为Login.vb，在打开的窗体上设置控件； （3）写入代码，通过组件读取数据库中 用户表的数据，判断用户输入的值是否匹配。
SqldataAdapter执行查询命令
Dim mysql As String = "select * from users where user#='" & Me.TextBox1.Text & "' and password#='" & Me.TextBox2.Text & "‘
Dim myadapter As New SqlDataAdapter(mysql, conn)
二、设置“用户登录”界面
控件：
3个Label 2个Textbox 2个Button
二、设置“用户登录”界面
控件
属性
属性值
Name
Form1
Text
StartUpPositio n
Label1 Text
Label2 Text
Label3 Text
TextBox1 Font
TextBox2 PasswordChar