易语言数据库源码
判断条件不对，应该是判断数据库和读写，这样哪里出错就会很清晰。按照你的图我做了一个简单的注册（带数据库），你可以参考一下。
B. 易语言给数据库某个字段累加数字源码
先读出字段的源数值，然后累加再写入
记录集注册帐号.读文本 (“point”, 原始数值变量)
记录集注册帐号.写文本 (“point”,到文本（到数值（透明标签12.标题）+到数值（原始数值变量）） )
C. 我在易语言官网下载了个源码里面有几种格式的文件，比如edb,edt,fnr,fne等，这些是怎么生
“e”是易源码格式
打开易语言，“保存”就有了
“edb”是易语言数据库文件，一个小巧的数据库
使用“创建()”函数可以生成
.版本 2
.子程序 __启动窗口_创建完毕
.局部变量 字段信息, 字段信息, , "3"字段信息 [1].名称 ＝ “名字”
字段信息 [1].类型 ＝ #文本型
字段信息 [1].最大文本长度 ＝ 20
字段信息 [2].名称 ＝ “数量”
字段信息 [2].类型 ＝ #整数型
字段信息 [3].名称 ＝ “编号”
字段信息 [3].类型 ＝ #整数型
创建 (取运行目录 () ＋ “e数据库.edb”, 字段信息)“edt”是edb的数据扩展，用于储存字节集字段数据
使用“创建()”函数创建包含“字节集型”的字段可以生成
.版本 2
.局部变量 字段信息, 字段信息, , "3"
字段信息 [1].名称 ＝ “名字”
字段信息 [1].类型 ＝ #文本型
字段信息 [1].最大文本长度 ＝ 20
字段信息 [2].名称 ＝ “数量”
字段信息 [2].类型 ＝ #整数型
字段信息 [3].名称 ＝ “图片”
字段信息 [3].类型 ＝ #字节集型
创建 (取运行目录 () ＋ “e数据库2.edb”, 字段信息)“fnr、fne”是易语言支持库，相当于DLL吧，用于支持易语言IDE调用，如图中的函数都要依赖支持库！
使用其它编程语言或易语言新建“Windows动态链接库”工程可以创建，由于这个对于我来说不太容易，就不示范了，具体可到易官方论坛找例程！
D. 追加60+，求易语言的数据库结构编辑器的源码
易语言自带的一点都不好用，楼主自己写个吧，看你的问题相比对易数据库已经很了解了，而且易数据库直接支持用代码创建删除的，楼主加油吧
E. 求易语言edb数据库的源码例程
-
F. 在易语言中 带有数据库 的源码怎么编译
选择一 动态创建数据库 选择二 把数据库添加到资源里面 用 写到文件() 生成 选择三编译是添加数据库文件
G. 求关于易语言ACCESS数据库与高级表格的详细教程源码（用的是数据库连接与记录集）高分悬赏！！
.版本2
.子程序建立mdb数据库,整数型,公开,成功返回0，失败返回-1和-2。注意：已经存在的库和表，就不能再建立了。
.参数路径,文本型,,要存放文件的路径
.参数接收文件名,文本型,,要存放的库文件名
.参数密码,文本型,可空,库文件密码
.参数数据表名,文本型,,表名
.参数字段名,文本型,,个字段的名字、类型、长度的字符串
.参数删除表,逻辑型,可空,是否删除表，默认为假
.参数删除字段,逻辑型,可空,是否删除字段，默认为假
.局部变量connad,对象
.局部变量conn,对象
.局部变量Connstr,文本型
Connstr＝“Provider=Microsoft.Jet.OLEDB.4.0;DataSource=”＋路径＋“”＋接收文件名＋选择(是否为空(密码),“”,“;JetOLEDB:DatabasePassword=”＋密码)
connad.清除()
conn.清除()
.如果(connad.创建(“ADOX.Catalog”,)＝假)
输出调试文本(“ADOX.Catalog对象创建失败”)
返回(-1)
.否则
connad.通用方法(“Create”,Connstr)
.如果结束
'connad.查看()
.如果(conn.创建(“Adodb.Connection”,)＝假)
输出调试文本(“Adodb.Connection对象创建失败”)
返回(-2)
.否则
conn.方法(“Open”,Connstr)
.如果(删除表＝真)
conn.对象型方法(“Execute”,“DROPTABLE”＋数据表名)'删除表
输出调试文本(“删除成功”)
.否则
.如果(删除字段＝真)
conn.对象型方法(“Execute”,“ALTERTABLE[”＋数据表名＋“]DROPCOLUMN[”＋字段名＋“]”)'删除字段
输出调试文本(“zdm:”＋字段名)
.否则
conn.对象型方法(“Execute”,“createtable”＋数据表名＋“(”＋字段名＋“)”)'建立新表
.如果结束
.如果结束
.如果结束
conn.方法(“Close”,)
删除表＝假
删除字段＝假
返回(0)
.子程序取字段类型名,文本型,公开,取字段类型名返回中文
.参数类型,整数型,可空
.局部变量结果,文本型
.判断开始(类型＝17)
结果＝“数字[字节型](Byte)”
.判断(类型＝3)
结果＝“数字[长整型](Long)”
.判断(类型＝2)
结果＝“数字[整型](Short)”
.判断(类型＝4)
结果＝“数字[单精度](Single)”
.判断(类型＝5)
结果＝“数字[双精度](Double)”
.判断(类型＝6)
结果＝“货币型(Currency)”
.判断(类型＝130)
结果＝“文本型(Char)”
.判断(类型＝11)
结果＝“逻辑型(BIT)”
.判断(类型＝204)
结果＝“二进制型(Binary)”
.判断(类型＝3)
结果＝“自动编号(Counter)”
.判断(类型＝203)
结果＝“备注型(Memo)”
.判断(类型＝7)
结果＝“日期/时间(Time)”
.判断(类型＝131)
结果＝“小数型(Decimal)”
.判断(类型＝0)
结果＝“#空白型字段(Empty)”
.默认
结果＝“未知数据，可能会导致数据出错。”
.判断结束
返回(结果)
.子程序取表名,逻辑型,公开
.参数路径文件名,文本型
.参数密码,文本型,可空
.参数文件名,文本型,,文件名，无需写路径
.参数表名数组,文本型,参考数组
.局部变量Mycat对象,对象
.局部变量Tables对象,对象
.局部变量连接文本,文本型
.局部变量i,整数型
.局部变量表数量,整数型
.局部变量表名,文本型
.如果真(Mycat对象.创建(“ADOX.Catalog”,)＝假)
信息框(“你的机器上没有安装ADO。文件位置是C:.dll”,0,)
结束()
.如果真结束
连接文本＝“Provider=MicroSoft.Jet.OLEDB.4.0;DataSource=”＋文件名＋选择(是否为空(密码),“”,“;JetOLEDB:DatabasePassword=”＋密码)
Mycat对象.写属性(“ActiveConnection”,连接文本)
Tables对象＝Mycat对象.读对象型属性(“Tables”,)
表数量＝Tables对象.读数值属性(“Count”,)
.计次循环首(表数量,i)
表名＝Tables对象.读对象型属性(“Item”,i－1).读文本属性(“Name”,)'序号从0开始
.如果真(取文本左边(表名,4)≠“MSys”)'过虑掉系统表名
加入成员(表名数组,表名)
'输出调试文本(“表名：”＋表名)
.如果真结束
.计次循环尾()
Tables对象.清除()
Mycat对象.清除()
返回(真)
.子程序显示字段信息,整数型,公开
.参数路径,文本型,,要存放文件的路径
.参数接收文件名,文本型,,要存放的库文件名
.参数密码,文本型,可空,库文件密码
.参数数据表名,文本型,,表名
.局部变量连接对象,对象
.局部变量表对象,对象
.局部变量连接文本,文本型
.局部变量表数计次,整数型
.局部变量表数量,整数型
.局部变量表名,文本型
.局部变量字段数量,整数型
.局部变量字段名,文本型
.局部变量字段计次,整数型
.局部变量字段类型,整数型
.局部变量字段长度,整数型
.如果真(连接对象.创建(“ADOX.Catalog”,)＝假)
信息框(“你的机器上没有安装ADO。文件位置是C:.dll”,0,)
结束()
.如果真结束
连接文本＝“Provider=Microsoft.Jet.OLEDB.4.0;DataSource=”＋路径＋“”＋接收文件名＋选择(是否为空(密码),“”,“;JetOLEDB:DatabasePassword=”＋密码)
输出调试文本(密码)
输出调试文本(密码)
连接对象.写属性(“ActiveConnection”,连接文本)
表对象＝连接对象.读对象型属性(“Tables”,)
'表数量＝Tables对象.读数值属性(“Count”,)
表名＝数据表名
字段数量＝表对象.读对象型属性(“Item”,表名).读对象型属性(“Columns”,).读数值属性(“Count”,)
.计次循环首(字段数量,字段计次)
字段名＝表对象.读对象型属性(“Item”,表名).读对象型属性(“Columns”,).读对象型属性(“Item”,字段计次－1).读文本属性(“Name”,)
字段类型＝表对象.读对象型属性(“Item”,表名).读对象型属性(“Columns”,).读对象型属性(“Item”,字段计次－1).读数值属性(“Type”,)
字段长度＝表对象.读对象型属性(“Item”,表名).读对象型属性(“Columns”,).读对象型属性(“Item”,字段计次－1).读数值属性(“DefinedSize”,)
'输出调试文本(到文本(字段长度))
'输出调试文本(取类型名(字段类型))
'输出调试文本(到文本(字段类型))
.计次循环尾()
表对象.清除()
连接对象.清除()
返回(0)
.子程序取字段类型1,文本型,公开,取字段类型名返回英文
.参数类型,文本型,可空
.局部变量结果,文本型
.判断开始(类型＝“数字[字节型]”)
结果＝“Byte”
.判断(类型＝“数字[长整型]”)
结果＝“Long”
.判断(类型＝“数字[整型]”)
结果＝“Short”
.判断(类型＝“数字[单精度]”)
结果＝“Single”
.判断(类型＝“数字[双精度]”)
结果＝“Double”
.判断(类型＝“货币型”)
结果＝“Currency”
.判断(类型＝“文本型”)
结果＝“Char”
.判断(类型＝“文本1”)
结果＝“Text(n)”
.判断(类型＝“逻辑型”)
结果＝“BIT”
.判断(类型＝“二进制型”)
结果＝“Binary”
.判断(类型＝“自动编号”)
结果＝“Counter”
.判断(类型＝“备注型”)
结果＝“Memo”
.判断(类型＝“日期/时间”)
结果＝“Time”
.判断(类型＝“小数型”)
结果＝“Decimal”
.判断(类型＝“”)
结果＝“”
.默认
结果＝“未知数据，可能会导致数据出错。”
.判断结束
返回(结果)
.子程序取Access密码,逻辑型,公开,取Access密码，成功返回真，失败返回假
.参数路径文件名,文本型
.参数密码,文本型
.参数版本,文本型
.局部变量文件号
.局部变量加密标志,整数型
.局部变量PassSource97,字节型,,"13"
.局部变量PassSource2k,字节型,,"13"
.局部变量i
.局部变量temp,字节型
.局部变量a
.局部变量标志,逻辑型
.局部变量结果文本,文本型
PassSource97＝{134,251,236,55,93,68,156,250,198,94,40,230,19}
PassSource2k＝{161,236,122,156,225,40,52,138,115,123,210,223,80}'加密标志是0x13(19)
文件号＝打开文件(路径文件名,1,)
移动读写位置(文件号,#文件首,20)'/0x42处
读入数据(文件号,temp)
.判断开始(到数值(temp)＝0)
版本＝“ACCESS_97”
.变量循环首(1,13,1,i)
移动读写位置(文件号,#文件首,65＋i)'0x42处
读入数据(文件号,temp)
a＝位异或(到数值(temp),PassSource97[i])
.如果真(a＝0)
密码＝“密码为空”
.如果真结束
结果文本＝结果文本＋字符(a)
.变量循环尾()
.默认
版本＝“ACCESS_2K”
移动读写位置(文件号,#文件首,98)'0x62处
读入数据(文件号,temp)
标志＝假
加密标志＝位异或(到数值(temp),19)
.变量循环首(1,26,2,i)
移动读写位置(文件号,#文件首,65＋i)'0x42处
读入数据(文件号,temp)
.如果真(到数值(temp)＝0)
跳出循环()
.如果真结束
标志＝取反(标志)
.判断开始(标志)
a＝位异或(位异或(到数值(temp),PassSource2k[(i＋1)÷2]),加密标志)
.如果真(a＜32或a＞126)
密码＝“密码为空”
.如果真结束
.默认
a＝位异或(到数值(temp),PassSource2k[(i＋1)÷2])
.判断结束
结果文本＝结果文本＋字符(a)
.变量循环尾()
.判断结束
密码＝结果文本
关闭文件(文件号)
返回(真)H. 带有 易语言数据库的源码 怎么编译 用静态编译 编译完完数据库怎么弄
选择一 动态创建数据库
选择二 把数据库添加到资源里面 用 写到文件（） 生成
选择三 编译是添加数据库文件I. 易语言源码是什么
就是 文件名.e的文件 用这个文件 可以修改程序的功能 界面等 把它改写成你自己的程序 如果你想学习易语言推荐去赤血学院 学习一下 哪里成套的视频教程 可以让你快速入门。
J. 带有 易语言数据库的源码 怎么编译 用静态编译 编译完完数据库怎么弄
如果实在找不到，哪就用先前的易语言版本如：4.13以前的，使用独立编译，因为5.11版本的有的不存在这种静态支持库，就好像易皮肤，如果采用5.11版本的话，是无法静态编译的！