【正文】 ExitEnd FunctionPublic Sub TabToEnter(Key As Integer) If Key = 13 Then 39。判斷是否為回車鍵 SendKeys {TAB} 39。轉換為Tab鍵 End IfEnd SubSub main() Dim fLogin As New frmLogin vbModual 39。顯示窗體End Sub二、登錄窗體： 圖4－1有關本窗體的代碼如下:Option ExplicitDim pwdCount As IntegerPrivate Sub cmdCancel_Click() Unload Me Exit SubEnd SubPrivate Sub cmdOK_Click() Dim SQL As String Dim rs As If Trim( = ) ThenMsgBox 沒有輸入用戶名稱，請重新輸入！, vbOKOnly + vbExclamation, 警告 Else 39。查詢用戶 Set rs = TransactSQL(SQL) If iflag = 1 Then If = True ThenmsgBox 沒有這個用戶，請重新輸入！,vbOKOnly + vbExclamation,警告 Else If Trim((1)) = Trim() Then gUserName = Trim()39。保存用戶名稱 Unload Me Else MsgBox 密碼不正確，請重新輸入！, vbOKOnly + vbExclamation, 警告 End If End If Else Unload Me End If End If pwdCount=pwdCount+1 39。判斷輸入次數(shù) If pwdCount = 3 Then Unload Me Exit Sub End IfEnd SubPrivate Sub Form_Load() pwdCount = 0 gUserName = End SubPrivate Sub PassWord_KeyDown(KeyCode As Integer, Shift As Integer) TabToEnter KeyCodeEnd SubPrivate Sub UserName_KeyDown(KeyCode As Integer, Shift As Integer) TabToEnter KeyCodeEnd Sub系統(tǒng)主界面的設計效果圖4－2修改密碼窗體：圖4－3Private Sub cmdCancel_Click() Unload MeEnd SubPrivate Sub cmdOK_Click() Dim SQL As String Dim rs As IfTrim()=Then 39。判斷是否輸入舊密碼 MsgBox 請輸入舊密碼, vbOKOnly + vbExclamation, 警告 Exit Sub Else If Trim() = Then 39。判斷是否輸入新密碼 MsgBox 請輸入新密碼, vbOKOnly + vbExclamation, 警告 Exit Sub ElseIf Trim() Trim() Then 39。判斷兩次密碼是否相同 MsgBox 兩次密碼不同, vbOKOnly + vbExclamation, 警告 = = Else 39。修改密碼 SQL = update UserInfo set UserPWD = 39。 amp。 NewPWD amp。 39。where UserID=39。 MsgBox 密碼已經(jīng)修改, vbOKOnly + vbExclamation, 修改結果 Unload Me End If End IfEnd SubPrivate Sub Form_Load() = = = End Sub查詢員工信息圖4－4相關代碼如下：Option ExplicitPrivate query As String 39。保存SQL語句Private fromdate As String 39。起始時間Private todate As String 39。結束時間Private Sub cmdCancel_Click() Unload Me Exit SubEnd SubPrivate Sub CombineDate() 39。獲得起始和結束時間 fromdate = amp。 amp。 amp。 1 fromdate = Format( amp。 amp。 amp。 1, yyyymmdd) todate = amp。 amp。 amp。 1 todate = Format(todate, yyyymmdd)End SubPrivate Sub setSQL() 39。設置SQL語句 If = vbChecked Then query = select * from StuffInfo where SID=39。 amp。 Trim() amp。 39。 End If If = vbChecked Then query = select * from StuffInfo where SName=39。 amp。 Trim() amp。 39。 End If If = vbChecked Then query = select * from StuffInfo where SInTime between query = query amp。 fromdate amp。 and amp。 todate amp。 End If If = vbChecked And = vbChecked Then query = select * from StuffInfo where SID=39。 amp。 Trim() query = query amp。 39。 and SName=39。 amp。 Trim() amp。 39。 End If If = vbChecked And = vbChecked Then query = query amp。 and amp。 todate amp。 End IfEnd SubPrivate Sub cmdOK_Click() If Trim() = And Trim() = And vbChecked Then MsgBox 請選擇查詢的條件！, vbOKOnly + vbExclamation, 警告！ Else Call CombineDate Call setSQL (query) Unload Me End IfEnd SubPrivate Sub Form_Load() Dim i As Integer Dim SQL As String Dim rs As New SQL = select distinct SInTime from StuffInfo Set rs = TransactSQL(SQL) If Not Then While Not If Not IsNull((0)) Then 39。設置年 Left(rs(0), 4) Left(rs(0), 4) End If Wend = 0 = 0 End If For i = 1 To 12 39。設置月 i i Next i = 0 = 0End Sub6．添加員工調動信息圖4－5相關代碼如下：Private Sub cmdOK_Click() Dim SQL As String Dim rs As New baddflag = False Call checkinput If baddflag = True Then If flag = 1 Then 39。添加記錄 39。Call checkinput SQL = select * from AlterationInfo Set rs = TransactSQL(SQL) (1) = (2) = (3) = (4) = (5) = (6) = (7) = (8) = (9) = SQL = update StuffInfo set SDept=39。 amp。 amp。 39。, SPosition=39。 SQL = SQL amp。 amp。 39。 where SID=39。 amp。 amp。 39。 TransactSQL (SQL) MsgBox 已經(jīng)添加調動信息！, vbOKOnly + vbExclamation, 添加結果！ SQL = select * from AlterationInfo order by ID = Provider=。Data Source= + + \ = SQL If SQL Then End If Set = 0 Call init 0 Else 39。修改記錄 39。Call checkinput SQL = update StuffInfo set SDept=39。 amp。 amp。 39。, SPosition=39。 SQL = SQL amp。 amp。 39。 where SID=39。 amp。 amp。 39。 TransactSQL (SQL) SQL = update AlterationInfo set AOldDept=39。 amp。 amp。 39。,ANewDept=39。 SQL = SQL amp。 39。,ANewPosition=39。 amp。 amp。 39。,AOutTime= amp。 SQL = SQL amp。 ,AInTime= amp。 amp。 where ID= amp。 ID TransactSQL (SQL) MsgBox 已經(jīng)修改信息