用嵌入式SQL语言实现数据库的录入、修改和删除等管理功能

最新推荐文章于 2023-04-09 21:27:25 发布
最新推荐文章于 2023-04-09 21:27:25 发布
阅读量8.7k 收藏 19
点赞数 2
分类专栏： 数据库实验 文章标签： 数据库
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qq_41581354/article/details/121652188
版权

目录

开发环境
软件环境：Intel® Core™ i5-7200U CPU @2.50GHz 2.70 GHz
硬件环境：Win10
开发工具：PB,SQL server
语言：PB

基于实验一的三个表采用嵌入式SQL语言实现数据库的录入、修改和删除等管理功能。或者也可以采用PB实用教程中的第4部分，完成综合应用实习的编程实现。

数据库:
数据库表中定义与实验一要求一样
在这里插入图片描述

功能分析设计

功能图：
在这里插入图片描述
E-R图
在这里插入图片描述

源程序清单和结果

open()事件：

// Profile student
SQLCA.DBMS = "ODBC"
SQLCA.DBParm = "ConnectString='DSN=student;UID=sa;PWD=123'"
Connect;

在这里插入图片描述

sc_management:

cb_5:

string s_no,s_class,c_no,s_grade
s_no=trim(sle_3.text)
s_class=trim(sle_2.text)

DECLARE sc_cursor  CURSOR FOR
SELECT sclass,sno,cno,grade
FROM SC
WHERE sclass=:s_class and sno=:s_no;

lb_1.reset()

Open sc_cursor;
FETCH sc_cursor INTO :s_class,:s_no,:c_no,:s_grade;
DO WHILE sqlca.sqlcode=0
	lb_1.additem("班级："+s_class+"学号："+s_no+"课号："+c_no+"成绩："+s_grade)
	FETCH sc_cursor INTO :s_class,:s_no,:c_no,:s_grade;
LOOP
Close sc_cursor;

cb_4:

string s_no,s_class,c_no,s_grade
s_no=trim(sle_3.text)
s_class=trim(sle_2.text)
c_no=trim(sle_4.text)
s_grade=trim(sle_5.text)

update SC set sclass=:s_class,sno=:s_no,cno=:c_no,grade=:s_grade 
where sno=:s_no and sclass=:s_class;

DECLARE sc_cursor  CURSOR FOR
SELECT sclass,sno,cno,grade
FROM SC
WHERE sclass=:s_class and sno=:s_no;

lb_1.reset()

Open sc_cursor;
FETCH sc_cursor INTO :s_class,:s_no,:c_no,:s_grade;
DO WHILE sqlca.sqlcode=0
	lb_1.additem("班级："+s_class+"学号："+s_no+"课号："+c_no+"成绩："+s_grade)
	FETCH sc_cursor INTO :s_class,:s_no,:c_no,:s_grade;
LOOP
Close sc_cursor;

在这里插入图片描述
在这里插入图片描述
在这里插入图片描述

course_management:

string c_no,c_name,c_pno,c_credit
c_no=trim(sle_1.text)
c_name=trim(sle_2.text)
c_pno=trim(sle_3.text)
c_credit=trim(sle_4.text)

insert into Course(cno,cname,cpno,ccredit)
values( :c_no,:c_name,:c_pno,:c_credit);


if SQLCA.sqlcode=0 then 
	MessageBox("提示信息","录入成功") 
else 
	MessageBox("提示信息","录入失败") 
end if

String c_no
c_no=trim(sle_1.text)
delete from Course where cno=:c_no;


if SQLCA.sqlcode=0 then 
	MessageBox("提示信息","删除成功") 
else 
	MessageBox("提示信息","删除失败") 
end if


string c_no,c_name,c_pno,c_credit
c_no=trim(sle_1.text)
c_name=trim(sle_2.text)
c_pno=trim(sle_3.text)
c_credit=trim(sle_4.text)

update Course set cno=:c_no, cname=:c_name,cpno=:c_pno, ccredit=:c_credit
where cno=:c_no ;


string c_no,c_name,c_pno,c_credit
c_no=trim(sle_1.text)
c_name=trim(sle_2.text)
c_pno=trim(sle_3.text)
c_credit=trim(sle_4.text)

DECLARE sc_cursor  CURSOR FOR
SELECT cno,cname,cpno,ccredit
FROM Course
WHERE cno=:c_no;

lb_1.reset()

Open sc_cursor;
FETCH sc_cursor INTO :c_no,:c_name,:c_pno,:c_credit;
DO WHILE sqlca.sqlcode=0
	lb_1.additem("课程号："+c_no+"  课程名："+c_name+"  前驱课："+c_pno+"  学分："+c_credit)
	FETCH sc_cursor INTO :c_no,:c_name,:c_pno,:c_credit;
LOOP
Close sc_cursor;

open(main)

student_management:

string s_class,s_no,s_name,s_sex,s_age,s_dept
s_class=trim(sle_1.text)
s_no=trim(sle_2.text)
s_name=trim(sle_3.text)
s_sex=trim(sle_4.text)
s_age=trim(sle_5.text)
s_dept=trim(sle_6.text)

insert into Student(sclass,sno,sname,ssex,sage,sdept)
values(:s_class,:s_no,:s_name,:s_sex,:s_age,:s_dept);

if SQLCA.sqlcode=0 then 
	MessageBox("提示信息","录入成功") 
else 
	MessageBox("提示信息","录入失败") 
end if

String s_class,s_no
s_class=trim(sle_1.text)
s_no=trim(sle_2.text)

delete from Student where sclass=:s_class and sno=:s_no;


if SQLCA.sqlcode=0 then 
	MessageBox("提示信息","删除成功") 
else 
	MessageBox("提示信息","删除失败") 
end if

string s_class,s_no,s_name,s_sex,s_age,s_dept
s_class=trim(sle_1.text)
s_no=trim(sle_2.text)
s_name=trim(sle_3.text)
s_sex=trim(sle_4.text)
s_age=trim(sle_5.text)
s_dept=trim(sle_6.text)

update Student set sclass=:s_class,sno=:s_no,sname=:s_name,ssex=:s_sex,sage=: s_age,sdept=:s_dept
where sno=:s_no and sclass=:s_class;

DECLARE sc_cursor  CURSOR FOR
SELECT sclass,sno,sname,ssex,sage,sdept
FROM Student
WHERE sclass=:s_class and sno=:s_no;

lb_1.reset()

Open sc_cursor;
FETCH sc_cursor INTO :s_class,:s_no,:s_name,:s_sex,:s_age,:s_dept;
DO WHILE sqlca.sqlcode=0
	lb_1.additem("班级："+s_class+"学号："+s_no+"姓名："+s_name+"性别："+s_sex+"年龄"+s_age+"系"+"s_dept")
	FETCH sc_cursor INTO :s_class,:s_no,:s_name,:s_sex,:s_age,:s_dept;
LOOP
Close sc_cursor;

string s_class,s_no,s_name,s_sex,s_age,s_dept
s_class=trim(sle_1.text)
s_no=trim(sle_2.text)

DECLARE sc_cursor  CURSOR FOR
SELECT sclass,sno,sname,ssex,sage,sdept
FROM Student
WHERE sclass=:s_class and sno=:s_no;

lb_1.reset()

Open sc_cursor;
FETCH sc_cursor INTO :s_class,:s_no,:s_name,:s_sex,:s_age,:s_dept;
DO WHILE sqlca.sqlcode=0
	lb_1.additem("班级："+s_class+"   学号："+s_no+"   姓名："+s_name+"   性别："+s_sex+"    年龄"+s_age+"   系"+"s_dept")
	FETCH sc_cursor INTO :s_class,:s_no,:s_name,:s_sex,:s_age,:s_dept;
LOOP
Close sc_cursor;

open(main)

运行结果

在这里插入图片描述
在这里插入图片描述
在这里插入图片描述
在这里插入图片描述

录入：

在这里插入图片描述

查询：

在这里插入图片描述

修改：

在这里插入图片描述

删除：

在这里插入图片描述
在这里插入图片描述

20230921
关注
  • 2
    点赞
  • 踩
  • 19
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 2
    评论
专栏目录
mysql 嵌入式sql_数据库系统概论 实验五 通过嵌入式SQL访问数据库
weixin_32581787的博客
02-01 1703
一、实验目的熟悉通过嵌入式SQL(主语言为C语言)编程访问数据库。二、实验平台和实验工具在KingbaseES数据库管理系统上，通过C语言编写访问数据库的应用程序来对数据库进行各种数据操作。编程工具VC++6.0另需要32位KingbaseES的lib库，后会详细说明。三、实验内容和要求熟悉RDBMS的预编译程序。通过嵌入式SQL编程访问数据库的基本步骤，对学生课程数据库中的表，完成下面功能(你也...
数据库原理及应用实验一（创建数据库和表）
07-03
数据库原理及应用实验一（创建数据库和表），一、 实验目的 熟悉SQL Server Management Studio；掌握通过SQL Server Management Studio管理数据库的方法；掌握数据库及其物理文件的结构关系；掌握通过SQL Server Management Studio管理数据表的方法。 掌握查询分析器的使用；掌握通过SQL语句创建表的方法；掌握通过SQL语句创建表的方法；掌握通过SQL语句修改表结构的方法；掌握通过SQL语句添加、修改、删除表数据的方法。
用C语言操作MySQL数据库，进行连接、插入、修改、删除等操作
热门推荐
路
03-24 1万+
　　很多人用到MySQL来开发一些项目，有时为了性能，我们会直接用C语言来开发相关的模块，尤其在我们的web应用中，虽然PHP、JSP等脚本均提供了MySQL的接口，但是显然直接使用C语言具有更好的安全性和性能，Michael以前用PHP开发的多个项目中就使用了C语言编写的这类接口，然后再编译到php里面，供php脚本直接使用,这方面的话题就不多说了，下面主要说一下在Linux下如何用C语言连接M
实验六 嵌入式SQL应用
最新发布
qq_56101688的博客
04-09 1256
insert into teacher values("t5001", "李斌", "男",16, "CS")insert into teacher values("t5002", "赵霞", "女",18, "IS")insert into teacher values("t5003", "周淘", "男",17, "CS")insert into teacher values("t5005", "孙力", "男",16, "MA")7. 输入SQL server服务器名称、ID和密码进行登录操作。
嵌入式数据库SQLite | 增删改查
Zy_1213的博客
08-25 528
嵌入式数据库SQLite | 增删改查 一、SQLite简介 二、SQLite数据库安装 三、SQLite的命令用法 1、创建一个数据库 2、创建一张表格 3、插入一条记录 4、查看数据库的记录 5、删除一条记录 6、更改一条记录 7、删除一张表 8、增加一列 三、SQLite的编程操作 1、打开/创建数据库的C接口 2、创建表的C接口 C代码执行SQL语句 * C代码建表和插入数据 * 3、插入数据的C接口 四、选择SELECT 操作 五、更新UPDATE 操作............
嵌入式sql语言实验报告.docx
01-09
实验内容主要是围绕学生选课数据库，设计数据录入和查询窗口，通过嵌入式SQL实现数据的CRUD（Create, Read, Update, Delete）操作。 实验结果展示了不同类型的DML语句在嵌入式SQL中的应用，包括不使用游标和使用...
基于linux和Qt的嵌入式超市数据库管理程序
06-22
在本项目中，我们探讨的是一个基于Linux操作系统和Qt框架的嵌入式超市数据库管理系统。这个系统设计的主要目标是提供一种高效、可靠的解决方案，用于跟踪超市的商品进货、出货和库存情况。以下将详细阐述该项目涉及...
如何做自动录入数据功能
weixin_33828101的博客
09-23 863
有个这样的需求：需要开发一个程序，可以实现往别人的软件界面上写入数据，以达到用户不需要在界面上输入数据，而是通过开发的程序直接往软件界面上录入，用户只需要在别人的软件上进行保存操作即可。由于数据录入量非常大，所以才想到这个方法，想法源于测试人员在使用的QTP录制功能。但却不知道要如何实现，请各位高手帮帮忙 在这里，先谢谢大家！ 转载于:https://www.cnblogs.com/single...
手把手教你北邮操作系统小学期实验六——Linux环境下嵌入式数据库mSQL的集成1
对方正在输入中...
02-02 1719
接上一章 手把手教你北邮操作系统小学期实验五——Linux环境下的Ramdisk技术及其实验2 此实验是我做的。 1．实验环境： 硬件：Intel i5 操作系统：Windows 8.1 虚拟机：VMware Workstation 12.5.0 软件：Red Hat Enterprise Linux 9 (Linux 内核 2.4.20-8) 2．实验目的： 实时嵌入式应用常常需要数据库的支持。虽然很多情况下可以用文件方式实现部分数据库功能，但是当应用程序需要执行一些比较复杂的数据操作时，文件方式就无能
Powerbuilder 嵌入式SQL常规用法
12-26
一般书籍中关于powerbuilder调用SQL语句有介绍，但一般会存在出错的问题，主要需要有其他语句配套使用，或记录操作前的预处理。
PB中嵌入式SQL语句技巧1
ding lan programming
09-11 3289
PB嵌入式SQL中select语法在PB的语法中，每一个嵌入式select语句都必须带上from关键字和子句。
嵌入式SQL语言
qq_49090973的博客
01-17 3798
嵌入式SQL语言一、概述二、变量声明与数据库连接1、变量的声明与使用(1) 数据库与DBMS连接(2) 与数据库断开连接(3) SQL执行的提交与撤消(4) 事务的概念与特性三、数据集与游标1、**检索单行结果**2、检索多行结果3、游标(Cursor)的使用四、可滚动游标及数据库的增删改1、可滚动游标的概念、定义和使用2、数据的删除与更新3、数据库记录的更新4、数据库记录的插入5、示例：宿主语言与SQL结合的过程性控制五、状态捕获及错误处理机制 一、概述 高级语言+SQL语言 既继承高级语言的过程控制性又
数据库系统实验五通过嵌入式SQL访问数据库 mysql版
weixin_44629859的博客
05-21 921
《数据库系统概论》实验报告 题目： 通过嵌入式SQL访问数据库 姓名 陈子龙 日期 2021.4.24 实验环境： ubuntu20.04 + mysql8.0.23 实验内容与完成情况： 先尝试db的prep预处理，但对于mysql好像不行,直接调用C-API了。 #include <iostream> #include<mysql/mysql.h> using namespace std; int main() { MYSQL *con...
使用SQL语句管理数据库
m0_51195865的博客
01-24 1152
使用SQL管理数据库 SQL是结构化查询语言，专门用来访问和处理数据库的编程语言。能够让我们以编程的形式，操作数据库里面的数据 三个关键点： ①SQL是一门数据库编程语言 ②使用SQL语言编写出来的代码，叫做SQL语句 ③SQL语言只能在关系型数据库中使用（例如MySQL,Oracle,SQL Server）。非关系型数据库（例如Mongodb）不支持SQL语言 SQL能做什么 ①从数据库中查询数据 ②向数据库插入新的数据 ③更新数据库中的数据 ④从数据库删除数据 四种SQL语法： where条件、and和
数据库编程之嵌入式SQL
学习日常分享
01-02 4384
SQL语言提供了两种不同的使用方式 交互式 嵌入式 为什么要引入嵌入式SQL SQL语言是非过程性语言 事务处理应用需要高级语言 这两种方式细节上有差别，在程序设计的环境下，SQL语句要做某些必要的扩充 嵌入式SQL的处理过程 主语言 嵌入式SQL是将SQL语句嵌入程序设计语言中，被嵌入的程序设计语言，如C、C++、Java，称为宿主语言，简称主语言。 处理过程 预编译方法 为了区分SQL语句与主语言语句，所有SQL语句必须加前缀EXEC SQL，主语言为C语言时，语句格式： EXEC SQL <S
Powerbuilder 嵌入式SQL语句使用
weixin_44122008的博客
12-28 1756
1.数据查询 //mytans是连接数据库的事物对象 //数据库连接 mytrans=create transaction mytrans.DBMS = "ODBC" mytrans.AutoCommit = False //关闭自动提交数据库更新，另外mytrans.autocommit=true//开启自动提交数据库更新 mytrans.DBParm = "ConnectStrin...
MySQL学习笔记 | 06 - C语言嵌入SQL语句访问数据库
Mculover666的博客（嵌入式）
04-22 2124
MySQL学习笔记 | 01-为什么要使用数据库 MySQL学习笔记 | 02 - MySQL在Windows下的安装、配置、服务启动/停止、用户登录、查看版本号 MySQL学习笔记 | 03 - MySQL在 Ubuntu 下的安装、配置、服务启动/停止、用户登录退出 MySQL学习笔记 | 04 - MySQL数据库基本操作（增加、修改、删除、查看） MySQL学习笔记 | 05 - 普通用...
通过VB向SQL Server数据库中录入数据
weixin_33966365的博客
09-03 1603
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)一、数据录入通过VB向SQL Server数据库中录入数据，可以使用数据绑定控件录入数据与使用SQL语句录入1.利用数据绑定控件录入数据使用数据绑定控件录入数据可以运行较少的代码，实现向数据库中录入数据，数据绑定后，由于数据绑定控件已...
嵌入式SQL语言：数据库系统的核心工具
"嵌入式SQL语言是一种将SQL（Structured Query Language）语句嵌入到高级编程语言（如C、C++、Java等）中的技术，这样可以结合SQL的数据库操作能力和高级语言的流程控制及逻辑处理能力，实现更复杂的应用系统。...
评论 2
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

20230921

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值