A带我去吹泡泡
.版本 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数据库 » 易语言记账软件源码 易语言做记账软件
