【正文】 參考文獻 馬力 Visual Basic 簡明教程 機械工業(yè)出版社 2001年8月 劉韜 駱娟 何旭洪 Visual 數據庫系統(tǒng)開發(fā)實例導航 人民郵電出版社 程序員雜志2002年合訂本 電子工業(yè)出版社 王小平，－理論、：西安交通大學出版社， 。同時感謝三年來與我朝夕相伴的同學們，感謝你們長久以來對我的幫助和支持，是你們讓我快樂地度過了這難忘的三年，讓我有了更為豐富的人生經歷。 致 謝首先要感謝袁小維老師在設計期間對我的悉心指導。表單制作完成后就是對控件編程，其中要注意程序編寫時的細節(jié)，格式，命令的拼寫，運用的合理性等等都要進行分析。在對表單的制作過程中，對窗體的尺寸的把握，對各個控件尺寸的把握是比較困難的，各個控件在表單中的布局也非常重要。通過老師的幫助才慢慢的有了一點體會。 結 論在剛剛開始學習數據庫的時候，對很多細節(jié)很沒有概念。在設計應用程序時，應仔細考慮每個組件提供的功能以及與其他組件之間的關系。 Call (rctEmployees, ) 39。 = False 39。下面是寫入數據庫 39。 End Select 39。 amp。 39。 Operater amp。 End If End If Case 1 Operater = () strFilter = FieldName amp。 FieldValue amp。 39。 FieldValue Else strFilter = FieldName amp。end if Trim() = Empty Else FieldValue = If = 7 Then strFilter = FieldName amp。 39。 amp。 = amp。 39。 FieldValue amp。 amp。 like amp。 = amp。 _ 錯誤描述: amp。不顯示窗口 Exit Sub Error_on_print: MsgBox 錯誤代碼: amp。 , vbCritical + vbOKOnly, 刪除錯誤 Else RecordDelete = True End If End Function 員工管理模塊的設計 其員工管理窗體的運行界面如下:增加記錄源碼分析如下: Private Sub tblEmployees_ButtonClick(ByVal Button As ) Select Case Case add 39。 vbCrLf amp。 , vbCritical + vbOKOnly, 保存記錄失敗 Else SavetoRecords = True End If End Function 刪除按鈕的代碼描述: Public Function RecordDelete(ByVal rstDelete As , ByVal strOption As Long) As Boolean If ( = True) Or ( = True) Then RecordDelete = False Exit Function End If On Error GoTo Delete_error strOption RecordDelete = True Delete_error: If 0 Then RecordDelete = False MsgBox 錯誤代碼: amp。 vbCrLf amp。.Row = 1 End With End If End Sub Private Sub IniGridstyle() End Sub Private Sub GetRecordIdName(ByVal flex As MSHFlexGrid, lngRecordId As Variant, strRecordName As String) If 0 Then If (, 1) Empty Then lngRecordId = (, 1) strRecordName = (, 2) Else lngRecordId = 1 strRecordName = Empty End If End If End Sub Private Sub Picture1_Click() End Sub Private Function SavetoRecords(ByVal rctSave As , ByVal firstField_value As Variant, ByVal secondField_value As String) As Boolean On Error GoTo Save_Error (0).Value = firstField_value (1).Value = secondField_value SavetoRecords = True Exit Function Save_Error: If 0 Then SavetoRecords = False MsgBox 錯誤代碼: amp。HF4D3A6 Else .CellBackColor = vbWhite End If .Text = (i 1) Next i .Row = .Row + 1 Wend 39。選定所有列 If 7 Then = 7 End If (delete).Enabled = False (add).Enabled = False = False 保存按鈕的源碼如下: Private Sub IniGrid(ByVal flexGrid As MSHFlexGrid) With flexGrid .Cols = 3 .Rows = 2 .FixedCols = 0 .FixedRows = 1 .SelectionMode = flexSelectionByRow .TextMatrix(0, 1) = 編號 Select Case .Name Case flexDepart .TextMatrix(0, 2) = 部門名稱 Case flexEdu .TextMatrix(0, 2) = 學歷名稱 Case flexJob .TextMatrix(0, 2) = 職務名稱 Case flexTitel .TextMatrix(0, 2) = 職稱名稱 Case flexPli .TextMatrix(0, 2) = 政治面貌 Case flexLt .TextMatrix(0, 2) = 請假類型 Case flexLs .TextMatrix(0, 2) = 銷假標志 Case flexMs .TextMatrix(0, 2) = 婚姻狀況 End Select .ScrollBars = flexScrollBarVertical .GridLines = flexGridNone .GridLinesFixed = flexGridNone 39。稱到最后一行的第一列 = 1 39。顯示主窗體 Unload Me Exit Sub Else logintestCount = logintestCount + 1 If logintestCount = 3 Then MsgBox 您已經登錄三次都失敗，系統(tǒng)關閉, vbInformation + vbOKOnly, 非法用戶 Unload Me Exit Sub Else End If End If Else logintestCount = logintestCount + 1 If logintestCount = 3 Then MsgBox 您已經登錄三次都失敗，系統(tǒng)關閉, vbInformation + vbOKOnly, 非法用戶 Unload Me Exit Sub Else End If End If Else MsgBox 數據庫中沒有操作用戶數據, vbCritical + vbOKOnly, 系統(tǒng)錯誤 Unload Me Exit Sub End If End Sub 基礎設置模塊的設計 其窗體的命令按鈕源碼實現(xiàn)如下: 增加按鈕的源碼: Private Sub tblTitel_ButtonClick(ByVal Button As ) Select Case Case add = 1 39。 If Not ( And ) Then (strSql) If Not ( Or ) Then If Trim((Oper_Pass)) = Trim() Then OperaterName = Trim() 39。 amp。 39。數據