【正文】 (i) Next i FindStr = LTrim(FindStr) 39。SELECT 子句 Dim i As Integer FindStr = 39。 39。單擊“統(tǒng)計”按鈕，獲取查找條件字符串； 39。設計的界面如下： 完成統(tǒng)計的源代碼如下： Private Sub Command4_Click() 39。顯示統(tǒng)計結果 = Sex_M = Sex_F = Age_25 = Age_35 = Age_45 = Age_55 = AGE_65 = Total_age / Total_Num End Sub 2：自定義條件統(tǒng)計設計： 在自定義統(tǒng)計界面中添加和查詢窗體中類似的控件和源代碼。按性別統(tǒng)計人數(shù) If (職工性別 ) = 男 Then Sex_M = Sex_M + 1 Else Sex_F = Sex_F + 1 End If 39。 為了完成簡單信息統(tǒng)計，系統(tǒng)設計一個統(tǒng)計函數(shù) SimpleTJ，在該窗體載入時執(zhí)行該函數(shù)從而完成信息的統(tǒng)計。 FindStr Set ADORst = New Recordset FindStr, DB, adOpenStatic, adLockOptimistic Set = ADORst If = 0 Then = False Else = True Exit Sub err1: MsgBox 輸入錯誤的查詢條件 , , 輸入錯誤 End Sub 員工基本信息統(tǒng)計界面設計 員工基本信息統(tǒng)計分為簡單統(tǒng)計和自定義統(tǒng)計，界面如下： 1：控件設計：添加一個 sstab 控件， tabs 屬性設置為 2，當 tab 為 1 是該控件的caption 屬性設定 為簡單項目統(tǒng)計， tab 為 2 時， caption 屬性設置為自定義條件統(tǒng)計。設置查詢條件，返回查詢記錄集，并將此記錄集設置為網(wǎng)格控件的DataSource。 (i) Next i FindStr = LTrim(FindStr) 39。SELECT 子句 Dim i As Integer On Error GoTo err1 FindStr = 39。 39。單擊“查找”按鈕，獲取查找條件字符串； 39。 Private Sub Command4_Click() 39。 SQLS = True = True = True End Sub 4：查詢按鈕的 click 事件源代碼設計： 當單擊查找按鈕，觸發(fā) click 事件的發(fā)生。 End If 39。 Trim() amp。 39。 amp。 Trim() Else 39。 amp。 ElseIf = 職工年齡 Or = 基本工資 Then 39。 amp。 amp。源代碼設計如下： 開始 組合框 1=工作時間 設定查詢字符變量 設定查詢字符變量 組合框 2=and 設定查詢字符變量 設定查詢字符變量 Private Sub Command1_Click() Dim SQLS As String Dim And_Or As String And_Or = If = 工作時間 Then 39。 單擊“添加”按鈕，將設置的條件寫入列表框中。設置單選紐不可見 = False = False End Sub 3：添加按鈕的源代碼設計： 窗體上的添加查詢條件的按鈕的 click 事件完成將當前設定的查詢條件添加到列表框中。向組合框 Combl2 中添加比較運算符 = = = Like 39。 完成以上功能的代碼如下： 程序設計流程如下： Private Sub Form_Load() Dim i As Integer Set = ADORst = True 39。 2：窗體的 load 事件代碼設計： 窗體的 load 設計完成當窗體載入時完成的事件，這里設計完成的事件包括： 設置網(wǎng)格控件的 DataSource，使之顯示記錄集中的信息。一個 datagrid 控件，用于顯示查詢的結果。一個文本框控件，用于輸入查詢條件字段值。字段組合的方式可以是 and 或者 or。查詢添加設計成用戶任意添加和刪除查詢條件。 員工基本信息查詢界面設計 點擊主界面的數(shù)據(jù)查詢，可以打開員工基本信息查詢窗體。系統(tǒng)利用 update 語句實現(xiàn)記錄集的更新。如果不滿足系統(tǒng)給出警告。 窗體啟動 查詢部門表 設置部門組合框值 查詢員工表 顯示第一條記錄 結束 3：添加按鈕 click 事件程序設計流程如下： 代碼設計： Private Sub Command1_Click() Mode = add If = 添加 Then Call CanEdit = 保存 For i = 0 To 7 Text(i).Text = Next i = Else Call NoEdit For i = 0 To 7 If Text(i).Text = Then MsgBox 輸入信息不能為空！ , vbOKOnly + vbExclamation, 警告 Text(i).SetFocus Exit Sub End If Next i If = Then MsgBox 輸入信息不能為空！ , vbOKOnly + vbExclamation, 警告 開始 Caption=添加 Caption=保存 文本框可用值空 Caption=添加 文本框非空 警告結束 添加記錄集 更新記錄集 結束 Exit Sub End If If Not IsDate(Text(5).Text) Then MsgBox 工作時間應輸 入日期（ yyyymmdd）！ , vbOKOnly + vbExclamation, 警告 Text(5).SetFocus Exit Sub Else Text(5).Text = Format(Text(5).Text, yyyymmdd) End If = 添加 For i = 0 To 7 (i) = Text(i).Text Next i (i) = End If End Sub 代碼設計說明：首先將 mand1 的 caption 屬性值修改為保存，當員工信息添加后再點擊保存，將 caption 屬性值修改為添加，這樣增強了系統(tǒng)的交互性。然后定義記錄集 ADORst，利用該記錄集打開員工表 emp，并將記錄集的指針指向第一條記錄。從而完成相應的功能。文本框控件和組合框控件用于輸 入基本信息和瀏覽顯示基本信息。該窗體完成對員工的基本信息的添加，修改，刪除，瀏覽等。此時添加用戶的菜單項為灰色，即不可用狀態(tài)。如果 qx 不等于 1，那么該菜單項為不可用狀態(tài)，從而實現(xiàn)一般操作員不能添加用戶的目的。 2：主界面菜單代碼設計如下： Private Sub MDIForm_Load() If qx 1 Then = False End If End Sub Private Sub MNUDATA_Click() 39。相反等于 1，則表明是系統(tǒng)的管理員，權限子菜單可用。 2：程序流程如下： 程序流程設計如下：當主窗體啟動時，首先判斷全局變量 qx 是否等于 1。菜單分為 5個菜單，分別是數(shù)據(jù)處理，數(shù)據(jù)查詢，數(shù)據(jù)統(tǒng)計，系統(tǒng)管理。取消用戶用戶登錄。管理員權限的用戶可以獲得全局變量 qx=1。如果記錄集為空，表明沒有這個用戶，如果記錄集中用戶密碼和輸入的文本框中的用戶密碼一致，表明是合法用戶，并對合法用戶賦予全局變量 username，便于在進入系統(tǒng)后追蹤用戶名。, DB, adOpenStatic, adLockOptimistic If = True Then MsgBox 沒有這個用戶，請重新輸入用戶名 !, vbOKOnly + vbExclamation, 警告 Else If Trim((密碼 )) = Trim() Then If (權限 ) = 管理員 Then qx = 1 End If UserName = Trim() Else 開始 輸入密碼 Pass=text 進入系統(tǒng) X=x+1 x=3 結束 MsgBox 輸入密碼不正確，請重新輸入！ , vbOKOnly + vbExclamation, 警告 = End If End If End If miCount = miCount + 1 If miCount = 3 Then End If Exit Sub End Sub 4：代碼說明：首先新建一個記錄集 ADORst1，利用該記錄集打開用戶表。 amp。 程序流程圖 3：代碼設計：按鈕 mand1 的 caption 屬性為 ok， click 代碼如下： Private Sub cmdOK_Click() If Trim( = ) Then MsgBox 用戶名不能為空！ , vbOKOnly + vbExclamation, 警告 Else Set ADORst1 = New select * from user_info where 用戶名 = 39。當存 在該用戶時，比較用戶表中的該用戶登錄的密碼和輸入的密碼是否一致，不一致則系統(tǒng)給出警告，并重新輸入，三次輸入密碼錯誤，則程序結束登錄。按鈕控件用來觸發(fā)相應事件的發(fā)生。 1：控件設計與說明：新建一個窗體，在窗體上添加標簽控件，文本框控件，按鈕控件。系統(tǒng)根據(jù)輸入的用戶名和密碼和數(shù)據(jù)庫中合法用戶的信息進行校驗后才能進入系統(tǒng)。 登錄界面設計 本系統(tǒng)的使用必須是系統(tǒng)的合法用戶，非法用戶不能隨意進入，所 以系統(tǒng)對用戶的進入進行校驗。 歡迎界面自動關閉是利用在窗體上添加一個時鐘控件 Timer1，并設置它的屬性 interval 值為 2020。 啟動界面設計 程序啟動后，出現(xiàn)如圖所示的歡迎界面。 在本系統(tǒng)中采用的可靠性技術