【正文】 vbCritical Exit Sub End If If = Then 39。判斷報(bào)銷類別下拉列表必須選擇 MsgBox 報(bào)銷類別必須選擇！, vbCritical Exit Sub End If If = 1 Then 39。 amp。選擇指定ID的記錄 sql, DbFinance If (rs) = 1 Then 39。 amp。釋放結(jié)果記錄集 Exit Sub Else sql = TBL_CUR 39。報(bào)銷金額 rs(CUR_USER) = 39。報(bào)銷說明 End If MsgBox 報(bào)銷記錄成功添加！ Unload Me Else 39。打開數(shù)據(jù)庫連接 sql = TBL_CURTYPE 39。打開數(shù)據(jù)庫失敗彈出錯(cuò)誤窗體 MsgBox 數(shù)據(jù)庫錯(cuò)誤！, vbExclamation End End If If Then 39。完成下拉列表的動(dòng)態(tài)添加,釋放結(jié)果集資源,關(guān)閉數(shù)據(jù)庫連接 Set rs = Nothing Else 39。判斷管理員密碼輸入框不為空 MsgBox 管理員密碼不能為空！, vbCritical Exit Sub End If If Then 39。 amp。如果找到一條存在的管理員記錄就報(bào)錯(cuò) MsgBox 管理員ID已經(jīng)存在！, vbExclamation Exit Sub Else 39。所以只有匆匆忙忙地從圖書館借來大量關(guān)于VB和ACCESS方面的書籍，希望通過參閱各種關(guān)于運(yùn)用VB和ACCESS開發(fā)系統(tǒng)的書籍充分了解系統(tǒng)建設(shè)的基本流程、總體布局設(shè)計(jì)以及系統(tǒng)開發(fā)前所需的一些準(zhǔn)備工作，做到心中有數(shù)。所以，接下來我就按先前了解的那樣，將自己以前做的系統(tǒng)的資料找出來，結(jié)合目前的情。 結(jié)束語經(jīng)過這段時(shí)間的畢業(yè)設(shè)計(jì)，我覺得開發(fā)一個(gè)系統(tǒng)并不容易，從一開始的調(diào)查到設(shè)計(jì)花了很多時(shí)間和精力，同時(shí)在系統(tǒng)界面的友好性方面等多方面存在不足。參考文獻(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。致 謝 在整個(gè)設(shè)計(jì)開發(fā)過程中，我得到了很多老師和同學(xué)的熱情幫助，尤其是我的指導(dǎo)老師，他在我的整個(gè)設(shè)計(jì)過程中給指導(dǎo)。在問詢了同學(xué)的意見以后，他們。幸好有同學(xué)在這方面比較擅長，所以就向他請教了一些關(guān)于這方面的實(shí)際操作流程。當(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)硬件平臺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ù)庫。 39。對TBL_ADMIN進(jìn)行操作 = adOpenDynamic = adLockOptimistic = ADMIN_ID=39。初始化窗體元素屬性 = = = = 100 = = End Sub 用戶管理的設(shè)計(jì)與實(shí)現(xiàn)用戶管理源代碼:Private Sub Command1_Click() Dim sql As String Dim rs As New If = Then 39。對部門表進(jìn)行全部選擇 = 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。取消添加并且返回主窗體End SubPrivate Sub Form_Load() Dim sql As String Dim rs As New = ( ) / 2 39。報(bào)銷時(shí)間 rs(CUR_PART) = () 39。報(bào)銷單編號 rs(CUR_TYPE) = () 39。 sql, DbFinance If (rs) 1 Then 39。如果記錄不存在打開職工表進(jìn)一步驗(yàn)證職工ID號是否存在 = adOpenDynamic = adLockOptimistic = USER_ID=39。 39。打開DSN數(shù)據(jù)庫源連接 sql = TBL_CUR 39。判斷報(bào)銷說明輸入框不為空 MsgBox 報(bào)銷說明不能為空！, vbCritical Exit Sub End If If Not IsNumeric() Then 39。初始化窗體元素屬性 = = = = = = = 100 = End Sub 添加報(bào)銷記錄代碼:Private Sub Command1_Click() Dim sql As String Dim rs As New If = Then 39。窗體居中顯示 = ( ) / 2 If Then 39。購買時(shí)間 rs(FIXED_REMARK) = 39。固定資產(chǎn)單價(jià) rs(FIXED_PART) = () 39。職工ID是有效的,可以進(jìn)行添加固定資產(chǎn) sql = TBL_FIXED = sql, DbFinance rs(FIXED_ID) = 39。 amp。 sql, DbFinance If (rs) = 1 Then 39。資產(chǎn)具有相同編號的記錄 = adLockOptimistic = FIXED_ID=39。判斷資產(chǎn)單價(jià)輸入框是數(shù)字 MsgBox 資產(chǎn)單價(jià)必須是數(shù)字！, vbCritical Exit Sub End If If = 1 Then 39。判斷經(jīng)手人ID輸入框不為空 MsgBox 經(jīng)手人ID不能為空！, vbCritical Exit Sub End If If = Then 39。判斷資產(chǎn)編號輸入框不為空 MsgBox 資產(chǎn)編號不能為空！, vbCritical Exit Sub End If If = Then 39。當(dāng)考勤類別是加班出差等要向基本工資中加工資 MONEY = MONEY + temp Else