数。据。库。
课。程。设。计。
姓名：学号：
专业班级：指导老师：丁忠俊。
2024年9月22日。
一、 系统功能图。
二、 数据库概念结构e-r图。
三、 建立学生成绩视图。
create view v-studentcoursegrade
asselect student.*,
from student leet outetr join sc on =
leet outetr join course on =
leet outetr join major on =
vb 6.0连接sql server 2005 数据库。
使用adodc控件连接sql server
使用adodb connection 对象连接数据库，adodb对象数据。
1、 主要实现**。
定义系统中的全局变量。
public sqlconn as new
public sqlrs as new
public sqlcmd as new
连接数据库。
public function dbconn() as boolean
connstr =”provider = sqloledb.1;data source =.sqlexpress ; user id = sa ; password=1345678; initial catalog =studentdb”
if <>adstateopen then
=connstr
connstr
end if
dbconn =ture
end function
执行sql语句的函数execsql，可返回结果集，也可适用于没有返回结果集的sql命令语句。
public function execsql (byval sql as string) as
if <>adstateopen then
dbconn
end if
=sqlset execsql=
end function
四、 数据库基本表的定义（列表给出：表名、字段名、类型、长度和主关键字）
学生student的表结构。
课程表course的表结构。
成绩表sc的表结构。
专业major的表结构。
用户表users的表结构。
五、 系统登录及权限实现。
登陆界面：主要实现**：
1)登陆系统按钮“确定”
private sub cmdok_click()
dim susername as string
dim suserpwd as string
susername = trim(
suserpwd = trim(
if susername = then
call msgbox("请输入用户名",vbokonly,"登录提示")
exit sub
end if
if <>adstateopen then dbconn
set sqlrs = execsql("select count(*)num from users where(username = susername + and (userpwd = suserpwd+"'
if not then
if int(trim(sqlrs("num"))1 then
set sqlrs = execsql("select username,role from users where(username = susername + and(userpwd = suserpwd +
if not then
"role"))else
end if
unload me
elsecall msgbox("用户名或密码错，请重新登陆",vbokonly,"登陆提示")
exit sub
end if
end if
end if
end sub
(2)退出关闭按钮“关闭”
private sub cmdclose_click()
unload me
end sub
主界面：主要实现**：
private sub addstudent_click() 学生信息录入。("i")
end sub
private sub gradesearch_click() 学生成绩查询。
end sub
private sub searchstudent_click() 学生信息查询。("f")
end sub
private sub updatestudent_click() 学生信息更新。("u")
end sub
private sub addgrade_click() 学生成绩录入。
end sub
public sub setrightforrole(role as string)
if role = 2" then
= false
= false
= false
= false
elseif role = 1" then
= false
end if
end sub
private sub exitsys_click() 退出系统。
unload me
end sub
学生信息更新界面：
主要实现**：
dim strmode as string '窗口打开方式。
dim strno as string '学生学号。
private sub form_load()
set sqlrs = execsql("select mname from major order by mno")
while not
(sqlrs("mname"))
wendend sub
private sub cmdnew_click() 新增。
= true
= true
= true
= true
= true
= true
= true
= false
= false
end sub
private sub cmds**e_click() 保存。
dim strsql as string
dim strsex as string
dim strmno as string
if trim( =then
call msgbox("请输入学生学号！",vbokonly, "提示")
exit sub
end if
if trim( =then
call msgbox("请输入学生学号！",vbokonly, "提示")
exit sub
end if
if = true then
数据库库课程设计
目录。引言11 开发环境1 1.1 硬件环境1 1.2 软件环境1 1.2.1 sql server 2005 delphi7简单介绍2 2 需求分析3 2.1 信息需求3 2.2 功能需求3 2.3 安全性与完整性要求3 3 概念结构设计3 4 逻辑结构设计4 5 数据库实现6 5.1 创建数据库...
数据库课程设计总结数据库课程设计个人总结
数据库课程设计个人总结 4班6组赵 王婆卖瓜时间过了，言归正传吧。凡是都要有个总结，以下便是我在这个课程设计中的一点心得。首先我分析一下我们组任务顺利完成的成功之处并总结一些经验，供以后反省参考用。凡事预则备，不预则废。这是我的座右铭，也是我深有感悟的几句古语之一。在这个项目的开始阶段，老师便让我们...
数据库课程设计
简单pos系统。班级 计科二班 姓名 韩田田 学号 201010510237 目录。前言。销售管理作为零售企业现代化管理不可缺少的组成部分，日益受到人们的重视。传统销售模式以及销售管理体系和机制，已经越来越难以适应零售企业现代化管理的需求。pos point of sales，销售终端的英文缩写 是...