Delphi打造平常生活支出記帳本『羅斌原創』

        前段時間，放假有那麼點時間，閒着了，索性就用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     <新增審覈功能>    https://blog.51cto.com/p_w_upload/201010/882147_1287903037.rar

 

 

記帳本v1.3 

一、新增平均值每人應付多少錢。

二、新增自動結算功能 。

記賬本v1.3 程序下載地址：

http://luobin.blog.51cto.com/p_w_upload/201106/882147_1308837863.rar

 

軟件界面預覽：

 

記帳本V1.4 增長密碼驗證功能，防止陌生人未經受權查看您的消費記錄。

默認登錄密碼爲 123123

界面預覽：

 

 

記帳本V.1.4下載地址：https://blog.51cto.com/p_w_upload/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 。

<本軟件非盈利性，純屬我的愛好，編寫給你們使用。>