易语言记账软件源码 易语言做记账软件

.版本 2

.支持库 iext

.程序集 窗口程序集1

.程序集变量 记录, 整数型

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

标签1.标题 ＝ “地点”

标签2.标题 ＝ “消费”

标签3.标题 ＝ “金额”

按钮1.标题 ＝ “写入”

按钮2.标题 ＝ “删除”

.如果真 (打开 (取运行目录 () ＋ “\sjk.edb”, “sjk”, , , , , ) ＝ 假)

创建数据库 ()

.如果真结束

打开 (取运行目录 () ＋ “\sjk.edb”, “sjk”, , , , , )

列表刷新 ()

.子程序 创建数据库, 逻辑型

.局部变量 字段, 字段信息, , "5"

字段 [1].名称 ＝ “序号”

字段 [1].类型 ＝ #文本型

字段 [1].最大文本长度 ＝ 3

字段 [2].名称 ＝ “日期”

字段 [2].类型 ＝ #文本型

字段 [2].最大文本长度 ＝ 20

字段 [3].名称 ＝ “地点”

字段 [3].类型 ＝ #文本型

字段 [3].最大文本长度 ＝ 20

字段 [4].名称 ＝ “消费”

字段 [4].类型 ＝ #文本型

字段 [4].最大文本长度 ＝ 20

字段 [5].名称 ＝ “金额”

字段 [5].类型 ＝ #文本型

字段 [5].最大文本长度 ＝ 20

创建 (取运行目录 () ＋ “\sjk.edb”, 字段)

返回 (真)

.子程序 列表刷新

列表.全部删除 ()

到首记录 ()

.循环判断首 ()

记录 ＝ 列表.插入表项 (, , , , , )

列表.置标题 (记录, 0, 读 (“序号”))

列表.置标题 (记录, 1, 读 (“日期”))

列表.置标题 (记录, 2, 读 (“地点”))

列表.置标题 (记录, 3, 读 (“消费”))

列表.置标题 (记录, 4, 读 (“金额”))

跳过 ()

.循环判断尾 (尾记录后 () ＝ 假)

按钮1.可视 ＝ 真

按钮2.可视 ＝ 假

连续赋值 (“”, 编辑框1.内容, 编辑框2.内容, 编辑框3.内容)

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

.如果真 (编辑框1.内容 ＝ “”)

信息框 (“请输入地点”, #错误图标, )

编辑框1.获取焦点 ()

返回 ()

.如果真结束

.如果真 (编辑框2.内容 ＝ “”)

信息框 (“请输入消费内容”, #错误图标, )

编辑框1.获取焦点 ()

返回 ()

.如果真结束

.如果真 (到数值 (编辑框3.内容) ＝ 0)

信息框 (“请输入金额”, #错误图标, )

编辑框1.获取焦点 ()

返回 ()

.如果真结束

加记录 (到文本 (取记录数 () ＋ 1), 到文本 (取日期 (日期框1.今天)), 编辑框1.内容, 编辑框2.内容, 编辑框3.内容)

列表刷新 ()

.子程序 _列表_左键单击表项

记录 ＝ 到整数 (列表.取标题 (列表.现行选中项, 0))

日期框1.今天 ＝ 到时间 (列表.取标题 (列表.现行选中项, 1))

编辑框1.内容 ＝ 列表.取标题 (列表.现行选中项, 2)

编辑框2.内容 ＝ 列表.取标题 (列表.现行选中项, 3)

编辑框3.内容 ＝ 列表.取标题 (列表.现行选中项, 4)

按钮1.可视 ＝ 假

按钮2.可视 ＝ 真

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

.如果真 (信息框 (“真要删除这组数据吗？”, #询问图标 ＋ #确认取消钮, “提示!”) ＝ #确认钮)

跳到 (记录)

删除 (真)

彻底删除 ()

到首记录 ()

记录 ＝ 1

.判断循环首 (尾记录后 () ＝ 假)

修改 (到文本 (记录), , , , )

记录 ＝ 记录 ＋ 1

跳过 ()

.判断循环尾 ()

.如果真结束

列表刷新 ()

.如果真 (打开 (取运行目录 () ＋ “\sjk.edb”, “sjk”, , , , , ) ＝ 假)

创建数据库 ()

.如果真结束

打开 (取运行目录 () ＋ “\sjk.edb”, “sjk”, , , , , )

列表刷新 ()

看不懂啊

如果真 (打开 (取运行目录 () ＋ “\sjk.edb”, “sjk”, , , , , ) ＝ 假)

创建数据库 ()

.如果真结束

如果第一次运行程序就会创建一个名为sjk.ebd的数据库。

下一句是打开这个数据库。

列表刷新 ()就是跳到这个子程序，把数据填到表格中。

求易语言家庭日常收入开支记账器开源码

占个位置。稍后补上代码和程序。更多

好的，发整个的源码哦。别就复制代码上来

比较简单，定价1财富值

剩下的你再慢慢完善吧

我完善不来。。。。。好几年没用过了，都忘记光了。现在有这么个问题。就是新建账本这按钮其实没作用了。比如建立了10月份的，再建立11月的之后。怎么选择回去编辑10月份的。还有能不能在启动窗口加个能看到几月份的余额~甚至到当年的余额呢

谁能帮我实现下面易语言记账源代码

用TXT做为保存数据的文本，只进行简单的添加和查询

下载不了啊- -

你直接发我921051866

看下，完了给分。

谢谢

易语言记账储存查询 用易语言写一个记账的软件，由于刚学不久所以读写配置项来储存，查询账目！储存的i

其实，你这个，用数据库写是最好的，建议你看一看 易自带的那个知识库，里面有教程，

初学者，建议只需要用到ACC数据库就可以了，

我也用这个在学一个淘宝的客户管理系统

可以一起研究

用易语言写一个记账的软件，由于刚学不久所以读写配置项来储存，查询账目！储存的ini文件以名字命名.

如果你不想使用数据库,你可以使用XML来写,写记录方面的没有使用INI来记录!更多

那用什么来储存和查询呢

等我帮你写一个让你看看,你按我的这个方面写一下就可以了.

好的！谢谢！

使用这个就方便多了

谁给个记账软件的源代码或者是记账软件的思路好吗？qq412045137发邮箱好吗？能用的话加分最好是asp的

你用什么语言开发

我用的是易语言 你可以百度一下（淘账单2.7） 进销存 的 你可以去看看

要源码就找我 HI 我Q的话这里不准发布的

易语言怎么制作一个计算器，能从1加到100或更多的。

上面两位读死书的人啊 结果是没错 效率就差点了 怎么就忘了 可以直接按（1+100）*100/2 这个公式算呢 如果是加到1万 程序循环死去

.版本 2

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

.局部变量 最大数, 整数型

.局部变量 结果, 整数型

最大数 ＝ 到整数 (编辑框1.内容) ' 编辑框1装的是最大累加值

.判断开始 (最大数 ％ 2 ＝ 1) ' 判断最大累加数是不是奇数

结果 ＝ 最大数 × (最大数 － 1) ÷ 2 ＋ 最大数

.默认

结果 ＝ (最大数 ＋ 1) × 最大数 ÷ 2

.判断结束

编辑框2.内容 ＝ 到文本 (结果) ' 编辑框2输出累加后结果

那假如是2加到100呢？或3、4、5等等！我又不只是让他计算出从1加到多少，还要算出其他的数加到100,1000,10000什么的。

根据公式 是一样的嘛 什么都让别人教 你几时能学会额

.版本 2

.局部变量 最小数, 整数型

.局部变量 最大数, 整数型

.局部变量 结果, 整数型

最大数 ＝ 到整数 (编辑框1.内容) ' 编辑框1装的是最大累加值

最小数 ＝ 到整数 (编辑框3.内容) ' 编辑框3装的是最小值

.判断开始 ((最大数 － 最小数 ＋ 1) ％ 2 ＝ 1)

结果 ＝ (最大数 ＋ 最小数 － 1) × (最大数 － 最小数) ÷ 2 ＋ 最大数

.默认

结果 ＝ (最大数 ＋ 最小数) × (最大数 － 最小数 ＋ 1) ÷ 2

.判断结束

编辑框2.内容 ＝ 到文本 (结果) ' 编辑框2输出累加后结果

转载请注明出处51数据库 » 易语言记账软件源码 易语言做记账软件