| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 窗口程序集_启动窗口 | | | |
| 变量名 | 类 型 | 数组 | 备 注 |
| n | 整数型 | |
| 总项数 | 整数型 | |
| id | 文本型 | |
| rq | 文本型 | |
| mc | 文本型 | |
| cd | 文本型 | |
| ph | 文本型 | |
| gg | 文本型 | |
数据库连接1.
连接Access (取运行目录 () ＋
“\123.mdb”,
“”)记录集1.
置连接 (数据库连接1
)记录集1.
打开 (“select * from t1”, 1,
)
判断循环首 (记录集1.尾记录后 ＝
假)
记录集1.
读文本 (“id”, id
)记录集1.
读文本 (“rq”, rq
)记录集1.
读文本 (“mc”, mc
)记录集1.
读文本 (“gg”, gg
)记录集1.
读文本 (“cd”, cd
)记录集1.
读文本 (“ph”, ph
)n ＝ 超级列表框1.
插入表项 (-1,
“”, , , ,
)超级列表框1.
置标题 (n, 0, id
)超级列表框1.
置标题 (n, 1, rq
)超级列表框1.
置标题 (n, 2, mc
)超级列表框1.
置标题 (n, 3, gg
)超级列表框1.
置标题 (n, 4, cd
)超级列表框1.
置标题 (n, 5, ph
)记录集1.
到下一条 ()
判断循环尾 ()数据库连接1.
连接Access (取运行目录 () ＋
“\123.mdb”,
“”)计次循环首 (5, n
)数据库连接1.
执行SQL (“insert into t1 (rq,mc,gg,cd,ph) values('2019-01-15','青霉素” ＋
到文本 (n
) ＋
“','规格” ＋
到文本 (n
) ＋
“','产地” ＋
到文本 (n
) ＋
“','批号” ＋
到文本 (n
) ＋
“')”,
)计次循环尾 ()数据库连接1.
连接Access (取运行目录 () ＋
“\123.mdb”,
“”)n ＝ 0
总项数 ＝ 超级列表框1.
取表项数 ()计次循环首 (总项数, x
)id ＝ 超级列表框1.
取标题 (n, 0
)
如果 (数据库连接1.
执行SQL (“delete from t1 where id=” ＋ id,
) ＝
真)
超级列表框1.
删除表项 (n
)
信息框 (“删除失败！”, 0, ,
)
返回 ()
计次循环尾 ()
