Delphi打造日常生活支出记账本『罗斌原创』

2016-08-22 10:20:46来源:http://luobin.blog.51cto.com/882147/406589作者:luobin44人点击


前段时间,放假有那么点时间,闲着了,索性就用Delphi写了个记账本小程序,为了方便跟我蜗居在一起的哥们生活日常开支记录,彻底丢弃原始的记账方式,现在流行无纸化办公嘛。呵呵,到现在已经也用了好长一段时间了,还不错,感觉挺好的,而今,这么好的东西我不能写给自己独自享用嘛,好东西应该分给大家都去用,呵呵,不过,不是每个人都能派上用场哦,俺这个东西只适用于跟我一样再外面拼搏,跟几个铁哥们蜗居一起的,且再铁的哥们,钱还是得算的清清楚楚的情况下,你就可以下载我这个东西去用啦。不过想自己一个人用也可以,每天只记录自己的花钱金额就可以了。好了,不啰嗦了。点击这里下载吧。


程序界面预览:






<第二张图,是后来增加了审核功能的界面裁图>


先说下,我这个delphi是基于access数据库开发的,所以要在ODBC里面添加链结层,让程序和我的数据库关联起来。 如果不会设置的话,我特意写了个VBS脚本在里面,你只需要点击 压缩包里面的 安装.vbs 脚本就可以自动为你做好ODBC的操作步骤了。呵呵,我想得周到吧。我吧这个脚本贴在文章里,给需要类似这种功能更的朋友们拿去修改下达到自己想要的目的。


strComputer="."
Dim Wsh,fso,temp
set os = CreateObject("wscript.shell")
Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2")
Set colProcessList=objWMIService.ExecQuery ("select * from Win32_Process where Name='wscript.exe' ")
Set Wsh = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")


temp = msgbox ("提示:现在开始请您不要再操作鼠标和键盘、除了您点击完确定之外、然后,耐心等待10秒钟,我将亲自一步一步为您安装好程序!谢谢您的配合。" ,32+4)



If temp=vbYES Then
If fso.FileExists("C:/tally book/记账本.exe") Then
Wsh.Run "C:/WINDOWS/system32/odbcad32.exe"
Else
MsgBox "C:/tally book/记账本.exe 文件不存在,请您手动将 《tally book》 文件夹拷贝到您的C盘。",vbCritical + vbOKOnly,"错误!"
For Each objProcess in colProcessList
objProcess.Terminate()
next
End If


Set fso = Nothing
Set Wsh = Nothing


wscript.sleep 1000
os.sendkeys "{TAB}"
wscript.sleep 1000
os.sendkeys "{ENTER}"
wscript.sleep 1000
os.sendkeys "{DOWN}"
os.sendkeys "{DOWN}"
os.sendkeys "{DOWN}"
os.sendkeys "{DOWN}"
os.sendkeys "{DOWN}"
os.sendkeys "{DOWN}"
os.sendkeys "{DOWN}"
wscript.sleep 1000
os.sendkeys "{ENTER}"
wscript.sleep 1000
os.sendkeys "dateinfo"
os.SendKeys "{TAB 2}"
wscript.sleep 1000
os.sendkeys "{ENTER}"
wscript.sleep 1000
os.sendkeys "C:/tally book/db1.mdb"
wscript.sleep 1000
os.sendkeys "{ENTER}"
wscript.sleep 1000
os.SendKeys "{TAB 4}"
wscript.sleep 1000
os.sendkeys "{ENTER}"
wscript.sleep 1000
os.sendkeys "{ENTER}"


Dim WSHShell, fs
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set fs = WScript.CreateObject("Scripting.FileSystemObject")
Function MakeDesktopShortcut( name, target )
Dim Shortcut,DesktopPath,StartupPath
DesktopPath = WSHShell.SpecialFolders("Desktop")
Set Shortcut = WSHShell.CreateShortcut(DesktopPath & "/" & name & ".lnk")
Shortcut.TargetPath = target
StartupPath = fs.GetParentFolderName( target )
If fs.FolderExists( StartupPath ) then
Shortcut.WorkingDirectory = StartupPath
End If
Shortcut.Save
End Function


MakeDesktopShortcut "记账本", "C:/tally book/记账本.exe"


msgbox("恭喜、恭喜、配置成功!!!谢谢您的耐心等候.点击确定按钮后点击桌面《记账本》快捷方式来启动程序吧......")


end if



程序下载地址:http://luobin.blog.51cto.com/downattach.php?id=23615&k=2513602770680e3f3516c53a4492d7bf&t=1287224602


记帐本v1.2 <新增审核功能> http://img1.51cto.com/attachment/201010/882147_1287903037.rar




记账本v1.3


1、新增平均值每人应付多少钱。


2、新增自动结算功能。


记帐本v1.3 程序下载地址:


http://img1.51cto.com/attachment/201106/882147_1308837863.rar



软件界面预览:




记账本V1.4 增加密码验证功能,防止陌生人未经授权查看您的消费记录。


默认登陆密码为 123123


界面预览:





记账本V.1.4下载地址:http://img1.51cto.com/attachment/201106/882147_1309088031.rar





记账本V1.5版本更新


1.增加软件风格


2.增加授权密码修改


3.优化软件架构


4.其他小问题



记账本V.1.5下载地址:http://luobin.blog.51cto.com/ext/down_att.php?aid=37509&code=9809


软件在不断更新和完善中,有大家在使用的过程中看见什么问题希望加我的QQ告知我,我号改进,给大家提供更好的服务 QQ:287727615 。


<本软件非盈利性,纯属个人爱好,编写给大家使用。>


最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台