http://www.2asp.cn/zb_users/upload/2015/5/2015052348477045.jpg

.版本 2
.支持库 eDB
.支持库 eGrid
.程序集 窗口程序集1
.程序集变量 Sql语句, 文本型
.子程序 __启动窗口_创建完毕
.如果 (外部数据库.打开SQL数据库 (“127.0.0.1”, “sa”, “66520”, , 假, ) ＝ 假)
    信息框 (“连接失失败，将无法创建数据库！”, 48, )
.否则
    信息框 (“连接成功，可以开始创建库表！”, 32, )
.如果结束

.子程序 _按钮1_被单击
.如果 (外部数据库.执行 (“create database 测试”, ) ＝ 假)  ' 建立数据库
    信息框 (“建库失败！”, 16, “提示”)
.否则
    外部数据库.执行 (“use 测试”, )  ' 连接数据库
    .如果 (外部数据库.执行 (“create table 商品目录 (id int PRIMARY KEY,编码 varchar(200),品名 varchar(200))”, ) ＝ 假)  ' 创建数据表
        信息框 (“商品目录建表失败！”, 16, “提示”)
    .否则
        信息框 (“商品目录已成功建立！”, 32, “提示”)
    .如果结束
 .如果结束


.子程序 _按钮2_被单击
.如果 (外部数据库.执行 (“backup database 测试 to disk='D:\测试.bak' with init”, ) ＝ 假)
    信息框 (“备份失败”, 48, )
.否则
    信息框 (“已经成功备份到D盘”, 32, )
.如果结束


.子程序 _按钮3_被单击
. 如果 (外部数据库.执行 (“RESTORE DATABASE 测试 FROM DISK = 'd:\测试.bak' WITH REPLACE,  MOVE '测试' TO 'd:\测试.mdf', MOVE '测试_log' TO 'd:\测试.ldf'”, ) ＝ 假)
    信息框 (“还原失败”, 0, )
.否则
    信息框 (“还原成功”, 0, )
.如果结束


.子程序 _按钮4_被单击

.如果 (删全部空 (编辑框1.内容) ＝ “”)
    信息框 (“请填写数据”, 0, )
    编辑框1.获取焦点 ()
.否则
    Sql语句 ＝ “insert into 商品目录(id,编码,品名) values ('” ＋ “1” ＋ “','” ＋ “1001” ＋ “','” ＋ 编辑框1.内容 ＋ “')”
    .如果 (数据库连接1.执行SQL (Sql语句) ＝ 假)
        信息框 (“添加记录失败！”, 48, “提示”)
    .否则
        信息框 (“添加成功！”, 32, “提示”)
    .如果结束
  
.如果结束


.子程序 _按钮5_被单击

.如果 (数据库连接1.连接SQLServer (“127.0.0.1”, “测试”, “sa”, “66520”) ＝ 假)
    信息框 (“SQL数据库连接失败！”, 48, )
.否则
    信息框 (“SQL数据库连接成功！”, 0, )
.如果结束


.子程序 _按钮6_被单击

.如果 (删全部空 (编辑框2.内容) ＝ “”)
    信息框 (“请填写数据”, 0, )
    编辑框2.获取焦点 ()
.否则
    Sql语句 ＝ “update 商品目录 set 品名='” ＋ 编辑框2.内容 ＋ “' where id=1”
    .如果 (_启动窗口.数据库连接1.执行SQL (Sql语句) ＝ 假)
        信息框 (“更改数据失败！”, 48, “提示”)
    .否则
        信息框 (“修改成功！”, 32, “提示”)
    .如果结束
 
.如果结束


.子程序 _按钮7_被单击
.局部变量 数据, 文本型

记录集.置连接 (_启动窗口.数据库连接1)
记录集.打开 (“商品目录”, 2, )
' 记录集.到首记录 ()
记录集.读文本 (“编码”, 数据)
高级表格.置数据 (1, 1, 1, 数据)
记录集.读文本 (“品名”, 数据)
高级表格.置数据 (1, 2, 1, 数据)
' 记录集.到下一条 ()
' 记录集.关闭

.子程序 _按钮8_被单击

Sql语句 ＝ “delete from 商品目录 where id=1”
.如果 (数据库连接1.执行SQL (Sql语句) ＝ 假)
    信息框 (“删除数据失败！”, 48, “提示”)
.否则
    信息框 (“成功删除！”, 32, “提示”)
.如果结束