易数据库的应用

seed如影

照着教材写的数据库应用 有些命令还不是很懂 并且有些功能还没完善 因为有些命令还是没有弄懂 这个对我来说还是有些难啊

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

子程序名	返回值类型	公开	备 注
_子程序_建数据库

变量名	类 型	静态	数组	备 注
字段表	字段信息		6

如果真 (文件是否存在 (取运行目录 () ＋ “/” ＋ #员工表 ) ＝ 假)
如果真 (信息框 (“员工表不存在,是否创建数据库！”, #询问图标 ＋ #是否钮, ) ＝ #否钮 )
信息框 (“系统将会退出！”, #错误图标, )
结束 ()
字段表 [1].名称 ＝ #姓名
字段表 [1].类型 ＝ #文本型
字段表 [1].最大文本长度 ＝ 8
字段表 [2].名称 ＝ #性别
字段表 [2].类型 ＝ #逻辑型
字段表 [3].名称 ＝ #年龄
字段表 [3].类型 ＝ #整数型
字段表 [4].名称 ＝ #出生日期
字段表 [4].类型 ＝ #日期时间型
字段表 [5].名称 ＝ #工资
字段表 [5].类型 ＝ #小数型
字段表 [6].名称 ＝ #奖金
字段表 [6].类型 ＝ #小数型
如果真 (创建 (取运行目录 () ＋ “\” ＋ #员工表, 字段表) ＝ 假)
信息框 (“创建员工表数据库失败！”, #错误图标, “错误”)
结束 ()
信息框 ( #左引号 ＋ #员工表 ＋ #右引号 ＋ “数据库创建成功！”, #信息图标, )

子程序名	返回值类型	公开	备 注
_按钮1_被单击

_子程序_建数据库 ()

子程序名	返回值类型	公开	备 注
_按钮2_被单击

如果 (打开 ( #员工表, “员工表”, , , , , ) ＝ 假)
信息框 (“员工数据库打开失败！”, #错误图标, “错误”)
结束 ()
信息框 (“员工数据库打开成功！”, #信息图标, “成功”)

子程序名	返回值类型	公开	备 注
_按钮3_被单击

变量名	类 型	静态	数组	备 注
计次	整数型

子程序_添加表头 ()
到首记录 ()
计次循环首 (取记录数 (), 计次)
子程序_读取当前记录 ()
跳过 ()
计次循环尾 ()

子程序名	返回值类型	公开	备 注
子程序_读取当前记录

数据源1.添加行 (1)
数据源1.置文本 (数据源1.取行数 (), 1, 读 ( #姓名 ))
数据源1.置文本 (数据源1.取行数 (), 2, 选择 (读 ( #性别 ), “男”, “女”))
数据源1.置文本 (数据源1.取行数 (), 3, 到文本 (读 ( #年龄 )))
数据源1.置文本 (数据源1.取行数 (), 4, 到文本 (读 ( #出生日期 )))
数据源1.置文本 (数据源1.取行数 (), 5, 到文本 (读 ( #工资 )))
数据源1.置文本 (数据源1.取行数 (), 6, 到文本 (读 ( #奖金 )))
数据源1.置对齐方式 (1, 1, 数据源1.取行数 (), 数据源1.取列数 (), #中中 )
数据源1.加线条 (1, 1, 数据源1.取行数 (), 数据源1.取列数 (), 1 ＋ 2 ＋ 4 ＋ 8 ＋ 16 ＋ 32)

子程序名	返回值类型	公开	备 注
子程序_添加表头

数据源1.删除行 (1, 数据源1.取行数 ())
如果真 (数据源1.插入行 (1, 1) ＝ 假)
返回 ()
数据源1.置文本 (1, 1, “姓名”)
数据源1.置文本 (1, 2, “性别”)
数据源1.置文本 (1, 3, “年龄”)
数据源1.置文本 (1, 4, “出生日期”)
数据源1.置文本 (1, 5, “工资”)
数据源1.置文本 (1, 6, “奖金”)
数据源1.置对齐方式 (1, 1, 数据源1.取行数 (), 数据源1.取列数 (), #中中 )
数据源1.加线条 (1, 1, 数据源1.取行数 (), 数据源1.取列数 (), 1 ＋ 2 ＋ 4 ＋ 8 ＋ 16 ＋ 32)

子程序名	返回值类型	公开	备 注
_按钮8_被单击

到首记录 ()
子程序_添加表头 ()
子程序_读取当前记录 ()

子程序名	返回值类型	公开	备 注
_按钮11_被单击

到尾记录 ()
子程序_添加表头 ()
子程序_读取当前记录 ()

子程序名	返回值类型	公开	备 注
_按钮4_被单击

载入 (窗口_添加, , 真)

子程序名	返回值类型	公开	备 注
_按钮5_被单击

如果真 (表格1.取光标行号 () ≤ 1)
信息框 (“请选择要修改的记录。”, 0 ＋ #警告图标, “警告”)
返回 ()
跳到 (表格1.取光标行号 () － 1)
载入 (窗口_修改, , 真)

.版本 2<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _子程序_建数据库<br /> .局部变量 字段表, 字段信息, , "6"<br /> <br /> .如果真 (文件是否存在 (取运行目录 () ＋ “/” ＋ #员工表) ＝ 假)<br />     .如果真 (信息框 (“员工表不存在,是否创建数据库！”, #询问图标 ＋ #是否钮, ) ＝ #否钮)<br />         信息框 (“系统将会退出！”, #错误图标, )<br />         结束 ()<br />     .如果真结束<br />     字段表 [1].名称 ＝ #姓名<br />     字段表 [1].类型 ＝ #文本型<br />     字段表 [1].最大文本长度 ＝ 8<br />     字段表 [2].名称 ＝ #性别<br />     字段表 [2].类型 ＝ #逻辑型<br />     字段表 [3].名称 ＝ #年龄<br />     字段表 [3].类型 ＝ #整数型<br />     字段表 [4].名称 ＝ #出生日期<br />     字段表 [4].类型 ＝ #日期时间型<br />     字段表 [5].名称 ＝ #工资<br />     字段表 [5].类型 ＝ #小数型<br />     字段表 [6].名称 ＝ #奖金<br />     字段表 [6].类型 ＝ #小数型<br />     .如果真 (创建 (取运行目录 () ＋ “\” ＋ #员工表, 字段表) ＝ 假)<br />         信息框 (“创建员工表数据库失败！”, #错误图标, “错误”)<br />         结束 ()<br />     .如果真结束<br />     信息框 (#左引号 ＋ #员工表 ＋ #右引号 ＋ “数据库创建成功！”, #信息图标, )<br /> <br /> <br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> _子程序_建数据库 ()<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> .如果 (打开 (#员工表, “员工表”, , , , , ) ＝ 假)<br />     信息框 (“员工数据库打开失败！”, #错误图标, “错误”)<br />     结束 ()<br /> .否则<br />     信息框 (“员工数据库打开成功！”, #信息图标, “成功”)<br /> .如果结束<br /> <br /> <br /> .子程序 _按钮3_被单击<br /> .局部变量 计次, 整数型<br /> <br /> 子程序_添加表头 ()<br /> 到首记录 ()<br /> .计次循环首 (取记录数 (), 计次)<br />     子程序_读取当前记录 ()<br />     跳过 ()<br /> .计次循环尾 ()<br /> <br /> <br /> <br /> .子程序 子程序_读取当前记录<br /> <br /> 数据源1.添加行 (1)<br /> 数据源1.置文本 (数据源1.取行数 (), 1, 读 (#姓名))<br /> 数据源1.置文本 (数据源1.取行数 (), 2, 选择 (读 (#性别), “男”, “女”))<br /> 数据源1.置文本 (数据源1.取行数 (), 3, 到文本 (读 (#年龄)))<br /> 数据源1.置文本 (数据源1.取行数 (), 4, 到文本 (读 (#出生日期)))<br /> 数据源1.置文本 (数据源1.取行数 (), 5, 到文本 (读 (#工资)))<br /> 数据源1.置文本 (数据源1.取行数 (), 6, 到文本 (读 (#奖金)))<br /> 数据源1.置对齐方式 (1, 1, 数据源1.取行数 (), 数据源1.取列数 (), #中中)<br /> 数据源1.加线条 (1, 1, 数据源1.取行数 (), 数据源1.取列数 (), 1 ＋ 2 ＋ 4 ＋ 8 ＋ 16 ＋ 32)<br /> <br /> .子程序 子程序_添加表头<br /> <br /> 数据源1.删除行 (1, 数据源1.取行数 ())<br /> .如果真 (数据源1.插入行 (1, 1) ＝ 假)<br />     返回 ()<br /> .如果真结束<br /> 数据源1.置文本 (1, 1, “姓名”)<br /> 数据源1.置文本 (1, 2, “性别”)<br /> 数据源1.置文本 (1, 3, “年龄”)<br /> 数据源1.置文本 (1, 4, “出生日期”)<br /> 数据源1.置文本 (1, 5, “工资”)<br /> 数据源1.置文本 (1, 6, “奖金”)<br /> 数据源1.置对齐方式 (1, 1, 数据源1.取行数 (), 数据源1.取列数 (), #中中)<br /> 数据源1.加线条 (1, 1, 数据源1.取行数 (), 数据源1.取列数 (), 1 ＋ 2 ＋ 4 ＋ 8 ＋ 16 ＋ 32)<br /> <br /> <br /> .子程序 _按钮8_被单击<br /> <br /> 到首记录 ()<br /> 子程序_添加表头 ()<br /> 子程序_读取当前记录 ()<br /> <br /> <br /> .子程序 _按钮11_被单击<br /> <br /> 到尾记录 ()<br /> 子程序_添加表头 ()<br /> 子程序_读取当前记录 ()<br /> <br /> <br /> .子程序 _按钮4_被单击<br /> <br /> 载入 (窗口_添加, , 真)<br /> <br /> <br /> .子程序 _按钮5_被单击<br /> <br /> .如果真 (表格1.取光标行号 () ≤ 1)<br />     信息框 (“请选择要修改的记录。”, 0 ＋ #警告图标, “警告”)<br />     返回 ()<br /> .如果真结束<br /> 跳到 (表格1.取光标行号 () － 1)<br /> 载入 (窗口_修改, , 真)

aini1wna2

用mysql数据库习惯了，看看易数据库咋样

seed如影

w227 发表于 2020-2-15 13:36
下载起来不方便

我这代码完全粘贴了 不下载的话你直接复制就好了

w227

下载起来不方便

w227

加油。。。。。。。。。。

1347379245

谢谢分享,下载学习

xiaowukeji

这个应该还不错

seed如影

kyo9766 发表于 2020-1-13 08:25
多写，多调试，练习多了就熟练了

嗯 我感觉也是 像我这样就是多练习 慢慢熟练

wjswzj0

此处应该有鼓励~

菜菜瓜

一般用sqlite了，很少用易数据库