畢業(yè)設(shè)計(jì)財(cái)務(wù)管理系統(tǒng)論文-預(yù)覽頁(yè)
【正文】 創(chuàng)建的程序來(lái)完成，下面的章節(jié)將詳細(xì)描述實(shí)現(xiàn)的具體方法。這種連接是指一個(gè)表被連接到它自己的一個(gè)字段，或在不同的紀(jì)錄中由重復(fù)數(shù)據(jù)的組合字段。Microsoft如果要從查詢(xún)、窗體或報(bào)表中的多個(gè)表中將數(shù)據(jù)合并在一起，就要定義各個(gè)表之間的關(guān)系。在打開(kāi)一個(gè)窗體時(shí)，Microsoft例如，可以打印一份將數(shù)據(jù)分組并計(jì)算數(shù)據(jù)總和的報(bào)表，也可以打印另一份帶有各種數(shù)據(jù)格式的打印郵件標(biāo)簽的報(bào)表。 amp。 amp。不存在管理員記錄提示錯(cuò)誤信息并且退出系統(tǒng) MsgBox 用戶(hù)名或密碼錯(cuò)誤！, vbExclamation Set rs = Nothing End End If 39。顯示增加管理員窗體End SubPrivate Sub Command10_Click() 1 39。顯示增加固定資產(chǎn)窗體End SubPrivate Sub Command14_Click() 1 39。顯示增加報(bào)銷(xiāo)記錄窗體End SubPrivate Sub Command18_Click() 1 39。登錄窗體信息清空 = 39。顯示修改考勤記錄窗體End SubPrivate Sub Command7_Click() 1 39。鼠標(biāo)在流動(dòng)資產(chǎn)管理菜單使?fàn)顟B(tài)條的提示文字顯示End SubPrivate Sub FixedAsset_Click() (1).Text = 固定資產(chǎn)管理 39。顯示增加管理員窗體End SubPrivate Sub menu_AddCur_Click() 1 39。顯示增加月工資窗體End SubPrivate Sub menu_AdminPass_Click() 1 39。顯示修改固定資產(chǎn)窗體End SubPrivate Sub menu_ChangePay_Click() 1 39。退出管理系統(tǒng)End SubPrivate Sub menu_ExportCur_Click() 1 39。顯示月底結(jié)算窗體End SubPrivate Sub menu_QueryCur_Click() 1 39。顯示查詢(xún)?cè)鹿べY窗體End SubPrivate Sub PayMan_Click() (1).Text = 工資管理 39。顯示保存對(duì)話(huà)框 If Then 39。 Tab。 Tab。 USER_NAME。 USER_ROLE。返回主窗體End SubPrivate Sub Form_Load() Dim sql As String Dim rs As New Dim work As New 39。返回記錄數(shù) = ( ) / 2 39。平均分配每個(gè)列的寬 Next i For i = 1 To resultcount 39。 userid amp。通過(guò)考勤類(lèi)別計(jì)算考勤時(shí)間和工資關(guān)系 Case 1 temp = work(WORK_TIME) * 1 Case 2 temp = work(WORK_TIME) * 2 Case 3 temp = work(WORK_TIME) * 10 Case 4 temp = work(WORK_TIME) * 20 End Select If work(TYPE_MARK) Then 39。打開(kāi)數(shù)據(jù)庫(kù)失敗錯(cuò)誤退出 MsgBox 數(shù)據(jù)庫(kù)錯(cuò)誤！, vbExclamation End End IfEnd Sub 固定資產(chǎn)管理的設(shè)計(jì)與實(shí)現(xiàn)添加固定資產(chǎn)代碼:Private Sub Command1_Click() Dim sql As String Dim rs As New If = Then 39。判斷資產(chǎn)單價(jià)輸入框不為空 MsgBox 資產(chǎn)單價(jià)不能為空！, vbCritical Exit Sub End If If = Then 39。判斷資產(chǎn)數(shù)目輸入框必須是數(shù)字 MsgBox 資產(chǎn)數(shù)目必須是數(shù)字！, vbCritical Exit Sub End If If Not IsNumeric() Then 39。在固定資產(chǎn)表中搜索,判斷是否已經(jīng)存在和欲添加固定 = adOpenDynamic 39。 39。 amp。不存在輸入的職工ID就提示錯(cuò)誤信息退出 MsgBox 錯(cuò)誤，不存在的ID號(hào)！, vbExclamation Set rs = Nothing Exit Sub Else 39。固定資產(chǎn)數(shù)目 rs(FIXED_MONEY) = Val() 39。經(jīng)手人電話(huà) rs(FIXED_DATE) = 39。取消并回主窗體End SubPrivate Sub Form_Load() Dim sql As String Dim rs As New = ( ) / 2 39。打開(kāi)數(shù)據(jù)庫(kù)連接失敗提示出錯(cuò) MsgBox 數(shù)據(jù)庫(kù)錯(cuò)誤！, vbExclamation End End If = 39。判斷報(bào)銷(xiāo)人ID輸入框不為空 MsgBox 報(bào)銷(xiāo)人ID不能為空! , vbCritical Exit Sub End If If = Then 39。判斷部門(mén)下拉列表必須選擇 MsgBox 部門(mén)必須選擇！, vbCritical Exit Sub End If If Then 39。 amp。如果記錄已經(jīng)存在則提示對(duì)話(huà)框并且關(guān)閉數(shù)據(jù)庫(kù) MsgBox 報(bào)銷(xiāo)單編號(hào)已經(jīng)存在！, vbExclamation Exit Sub End If sql = TBL_USER 39。 39。如果職工和報(bào)銷(xiāo)單號(hào)都沒(méi)有問(wèn)題就打開(kāi)流動(dòng)資產(chǎn)表添加新記錄 = sql, DbFinance rs(CUR_ID) = 39。報(bào)銷(xiāo)職工的ID rs(CUR_DATE) = 39。數(shù)據(jù)庫(kù)打開(kāi)失敗則提示并關(guān)閉數(shù)據(jù)庫(kù) MsgBox 數(shù)據(jù)庫(kù)錯(cuò)誤！, vbExclamation End End IfEnd SubPrivate Sub Command2_Click() Unload Me 39。將報(bào)銷(xiāo)類(lèi)別從數(shù)據(jù)庫(kù)中取出來(lái)并且顯示在下拉列表中 = adOpenDynamic = adLockOptimistic = sql, DbFinance Do While = False 39。再次打開(kāi)數(shù)據(jù)庫(kù)提取部門(mén)信息 sql = TBL_PART 39。打開(kāi)數(shù)據(jù)庫(kù)失敗彈出錯(cuò)誤窗體 MsgBox 數(shù)據(jù)庫(kù)錯(cuò)誤！, vbExclamation End End If = 39。打開(kāi)數(shù)據(jù)庫(kù)連接 sql = TBL_ADMIN 39。 39。否則新建一條管理員記錄完成添加 = sql, DbFinance rs(ADMIN_ID) = rs(ADMIN_PASSWORD) = End If MsgBox 管理員成功添加！ Unload Me Else 39。然而，由于實(shí)在是經(jīng)驗(yàn)有限，雖然書(shū)本上介紹了許多這方面的知識(shí)和操作方法，但是畢竟還是限于理論方面的，所以理解起來(lái)比較困難?；蛘咭恍┳侄卧谝粡埍砝锩鏇](méi)有必要設(shè)定。這些都有待進(jìn)一步改善
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號(hào)-1