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