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

Delphi打造日常生活支出记账本『罗斌原创』
2010-10-16 18:23:15
 标签: Delphi 记账 罗斌原创 luobin44 日常生活    [ 推送到技术圈]

版权声明:原创作品,允许转载,转载时请务必以超链接形式标明文章 原始出处 、作者信息和本声明。否则将追究法律责任。 http://luobin.blog.51cto.com/882147/406589
        前段时间,放假有那么点时间,闲着了,索性就用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
本文出自 “ 罗斌个人原创天地” 博客,请务必保留此出处 http://luobin.blog.51cto.com/882147/406589

你可能感兴趣的:(原创,Delphi,记账,日常生活,罗斌)