数据库创建表的问题

易小超

因想写个软件辅助自己的工作内容，顺便学习数据库，但现在刚开始就犯难了，求各位前辈大佬指点下

数据库.e (968.66 KB, 下载次数: 2)

2025-8-17 23:46 上传

点击文件名下载附件

ekO

本地数据库学习sqlite,关系型数据库学习mysql,数据库操作类推荐E2EE的ODBC

鸿运当头旺呀

.版本 2
.支持库 sqlite3

.程序集 窗口程序集_启动窗口
.程序集变量 数据库, Sqlite数据库

.子程序 __启动窗口_创建完毕

.如果真 (数据库.打开 (“test.db”, 假) ＝ 假)
    信息框 (“数据库打开失败！”, 0, , )
    返回 ()
.如果真结束

创建用户表()
创建订单表()
创建产品表()

信息框 (“数据库表创建成功！”, 0, , )
数据库.关闭 ()

.子程序 创建用户表
.局部变量 SQL语句, 文本型

SQL语句 ＝ “CREATE TABLE IF NOT EXISTS 用户表 (”
SQL语句 ＝ SQL语句 ＋ “用户ID INTEGER PRIMARY KEY AUTOINCREMENT,”  ' 自增主键
SQL语句 ＝ SQL语句 ＋ “姓名 TEXT NOT NULL,”
SQL语句 ＝ SQL语句 ＋ “年龄 INTEGER CHECK(年龄 > 0),”
SQL语句 ＝ SQL语句 ＋ “注册时间 DATETIME DEFAULT CURRENT_TIMESTAMP”
SQL语句 ＝ SQL语句 ＋ “);”

.如果真 (数据库.执行SQL语句 (SQL语句) ＝ 假)
    信息框 (“创建用户表失败：” ＋ 数据库.取错误文本 (), 0, , )
.如果真结束

.子程序 创建订单表
.局部变量 SQL语句, 文本型

SQL语句 ＝ “CREATE TABLE IF NOT EXISTS 订单表 (”
SQL语句 ＝ SQL语句 ＋ “订单号 TEXT PRIMARY KEY,”  ' 文本主键
SQL语句 ＝ SQL语句 ＋ “用户ID INTEGER REFERENCES 用户表(用户ID),”  ' 外键关联
SQL语句 ＝ SQL语句 ＋ “产品ID INTEGER,”
SQL语句 ＝ SQL语句 ＋ “数量 INTEGER DEFAULT 1,”
SQL语句 ＝ SQL语句 ＋ “总价 REAL CHECK(总价 >= 0)”
SQL语句 ＝ SQL语句 ＋ “);”

.如果真 (数据库.执行SQL语句 (SQL语句) ＝ 假)
    信息框 (“创建订单表失败：” ＋ 数据库.取错误文本 (), 0, , )
.如果真结束

.子程序 创建产品表
.局部变量 SQL语句, 文本型

SQL语句 ＝ “CREATE TABLE IF NOT EXISTS 产品表 (”
SQL语句 ＝ SQL语句 ＋ “产品ID INTEGER PRIMARY KEY,”
SQL语句 ＝ SQL语句 ＋ “产品名称 TEXT UNIQUE NOT NULL,”  ' 唯一约束
SQL语句 ＝ SQL语句 ＋ “价格 REAL NOT NULL,”
SQL语句 ＝ SQL语句 ＋ “库存数量 INTEGER DEFAULT 0,”
SQL语句 ＝ SQL语句 ＋ “上架状态 INTEGER DEFAULT 0”  ' 0表示下架，1表示上架
SQL语句 ＝ SQL语句 ＋ “);”

.如果真 (数据库.执行SQL语句 (SQL语句) ＝ 假)
    信息框 (“创建产品表失败：” ＋ 数据库.取错误文本 (), 0, , )
.如果真结束

深蓝的海

编辑框7.内容