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

开发环境
软件环境：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=</