前段时间，放假有那么点时间，闲着了，索性就用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