畢業(yè)設(shè)計(jì)財(cái)務(wù)管理系統(tǒng)論文-資料下載頁

　　

【正文】 Set rs = Nothing 39。釋放結(jié)果記錄集 Exit Sub Else sql = TBL_CUR 39。如果職工和報(bào)銷單號都沒有問題就打開流動(dòng)資產(chǎn)表添加新記錄 = sql, DbFinance rs(CUR_ID) = 39。報(bào)銷單編號 rs(CUR_TYPE) = () 39。報(bào)銷類別 rs(CUR_MONEY) = Val() 39。報(bào)銷金額 rs(CUR_USER) = 39。報(bào)銷職工的ID rs(CUR_DATE) = 39。報(bào)銷時(shí)間 rs(CUR_PART) = () 39。報(bào)銷部門 rs(CUR_REMARK) = 39。報(bào)銷說明 End If MsgBox 報(bào)銷記錄成功添加！ Unload Me Else 39。數(shù)據(jù)庫打開失敗則提示并關(guān)閉數(shù)據(jù)庫 MsgBox 數(shù)據(jù)庫錯(cuò)誤！, vbExclamation End End IfEnd SubPrivate Sub Command2_Click() Unload Me 39。取消添加并且返回主窗體End SubPrivate Sub Form_Load() Dim sql As String Dim rs As New = ( ) / 2 39。居中顯示當(dāng)前窗體 = ( ) / 2 If Then 39。打開數(shù)據(jù)庫連接 sql = TBL_CURTYPE 39。將報(bào)銷類別從數(shù)據(jù)庫中取出來并且顯示在下拉列表中 = adOpenDynamic = adLockOptimistic = sql, DbFinance Do While = False 39。從查找出來的結(jié)果集中循環(huán)加入下拉列表中,并且記錄每個(gè)報(bào)銷類別編號 (rs(CURTYPE_NAME)) () = rs(CURTYPE_ID) Loop Set rs = Nothing 39。添加完成釋放結(jié)果集 Else 39。打開數(shù)據(jù)庫失敗彈出錯(cuò)誤窗體 MsgBox 數(shù)據(jù)庫錯(cuò)誤！, vbExclamation End End If If Then 39。再次打開數(shù)據(jù)庫提取部門信息 sql = TBL_PART 39。對部門表進(jìn)行全部選擇 = adOpenDynamic = adLockOptimistic = sql, DbFinance Do While = False 39。對選擇出來的部門結(jié)果集遍歷,加入下拉列表中 (rs(PART_NAME)) () = rs(PART_ID) Loop 39。完成下拉列表的動(dòng)態(tài)添加,釋放結(jié)果集資源,關(guān)閉數(shù)據(jù)庫連接 Set rs = Nothing Else 39。打開數(shù)據(jù)庫失敗彈出錯(cuò)誤窗體 MsgBox 數(shù)據(jù)庫錯(cuò)誤！, vbExclamation End End If = 39。初始化窗體元素屬性 = = = = 100 = = End Sub 用戶管理的設(shè)計(jì)與實(shí)現(xiàn)用戶管理源代碼:Private Sub Command1_Click() Dim sql As String Dim rs As New If = Then 39。判斷管理員ID輸入框不為空 MsgBox 管理員ID不能為空！, vbCritical Exit Sub End If If = Then 39。判斷管理員密碼輸入框不為空 MsgBox 管理員密碼不能為空！, vbCritical Exit Sub End If If Then 39。打開數(shù)據(jù)庫連接 sql = TBL_ADMIN 39。對TBL_ADMIN進(jìn)行操作 = adOpenDynamic = adLockOptimistic = ADMIN_ID=39。 amp。 amp。 39。 39。 sql, DbFinance If (rs) = 1 Then 39。如果找到一條存在的管理員記錄就報(bào)錯(cuò) MsgBox 管理員ID已經(jīng)存在！, vbExclamation Exit Sub Else 39。否則新建一條管理員記錄完成添加 = sql, DbFinance rs(ADMIN_ID) = rs(ADMIN_PASSWORD) = End If MsgBox 管理員成功添加！ Unload Me Else 39。當(dāng)數(shù)據(jù)庫連接打不開時(shí)候報(bào)錯(cuò) MsgBox 數(shù)據(jù)庫錯(cuò)誤！, vbExclamation End End IfEnd Sub第六章 系統(tǒng)使用說明本系統(tǒng)服務(wù)于企事業(yè)單位的財(cái)務(wù)管理人員,具有工資管理,固定資產(chǎn)管理,.硬件系統(tǒng)硬件平臺(tái)CPUIntel P4 主板Intel 850芯片組的GA8TXC內(nèi)存2128M的三星Rambus內(nèi)存硬盤Seagate Barracuda 80G顯卡Unika 小妖G9800顯示器美格770PF，17寸純平顯示器軟件環(huán)境操作系統(tǒng)Microsoft WindowsXP簡體中文專業(yè)版＋SP1辦公軟件Microsoft Office 2003顯卡驅(qū)動(dòng)nVIDIA Win2000/XP軟件系統(tǒng)：Visual basic 、Access數(shù)據(jù)庫。最初，就像上面所說的自己對開發(fā)工具的學(xué)藝不精，所以一開始感覺摸不著頭緒，根本不知道從何下手。所以只有匆匆忙忙地從圖書館借來大量關(guān)于VB和ACCESS方面的書籍，希望通過參閱各種關(guān)于運(yùn)用VB和ACCESS開發(fā)系統(tǒng)的書籍充分了解系統(tǒng)建設(shè)的基本流程、總體布局設(shè)計(jì)以及系統(tǒng)開發(fā)前所需的一些準(zhǔn)備工作，做到心中有數(shù)。然而，由于實(shí)在是經(jīng)驗(yàn)有限，雖然書本上介紹了許多這方面的知識(shí)和操作方法，但是畢竟還是限于理論方面的，所以理解起來比較困難。幸好有同學(xué)在這方面比較擅長，所以就向他請教了一些關(guān)于這方面的實(shí)際操作流程。經(jīng)過幾次交談，我在以前基礎(chǔ)上加深了概念，至少知道整個(gè)設(shè)計(jì)流程和具體實(shí)際操作。所以，接下來我就按先前了解的那樣，將自己以前做的系統(tǒng)的資料找出來，結(jié)合目前的情。。?；蛘咭恍┳侄卧谝粡埍砝锩鏇]有必要設(shè)定。在問詢了同學(xué)的意見以后，他們。。非常重要的。 結(jié)束語經(jīng)過這段時(shí)間的畢業(yè)設(shè)計(jì)，我覺得開發(fā)一個(gè)系統(tǒng)并不容易，從一開始的調(diào)查到設(shè)計(jì)花了很多時(shí)間和精力，同時(shí)在系統(tǒng)界面的友好性方面等多方面存在不足。這些都有待進(jìn)一步改善。致 謝 在整個(gè)設(shè)計(jì)開發(fā)過程中，我得到了很多老師和同學(xué)的熱情幫助，尤其是我的指導(dǎo)老師，他在我的整個(gè)設(shè)計(jì)過程中給指導(dǎo)。在大家的共同努力下，我的系統(tǒng)設(shè)計(jì)才能夠順利地完成。參考文獻(xiàn)1.《數(shù)據(jù)庫系統(tǒng)原理與應(yīng)用》 閃四清 清華大學(xué)出版社 1999年2.《Visual Basic 》 劉世峰 中央廣播電大出版社 2003年3.《Visual Basic程序設(shè)計(jì)》 陳 明 中央廣播電大出版社 2001年4.《軟件工程》 楊文龍 電子工業(yè)出版社 2001年5.《管理信息系統(tǒng)》 薛華成 清華大學(xué)出版社 1996