前段時間，放假有那麼點時間，閒着了，索性就用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://blog.51cto.com/attachment/201010/882147_1287903037.rar
記賬本v1.3
1、新增平均值每人應付多少錢。
2、新增自動結算功能 。
記帳本v1.3 程序下載地址：
http://luobin.blog.51cto.com/attachment/201106/882147_1308837863.rar
軟件界面預覽：
記賬本V1.4 增加密碼驗證功能，防止陌生人未經授權查看您的消費記錄。
默認登陸密碼爲 123123
界面預覽：
記賬本V.1.4下載地址：http://blog.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 。
<本軟件非盈利性，純屬個人愛好，編寫給大家使用。>