【正文】 ExitEnd FunctionPublic Sub TabToEnter(Key As Integer) If Key = 13 Then 39。判斷是否為回車(chē)鍵 SendKeys {TAB} 39。轉(zhuǎn)換為T(mén)ab鍵 End IfEnd SubSub main() Dim fLogin As New frmLogin vbModual 39。顯示窗體End Sub二、登錄窗體： 圖4－1有關(guān)本窗體的代碼如下: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 沒(méi)有輸入用戶名稱(chēng)，請(qǐng)重新輸入！, vbOKOnly + vbExclamation, 警告 Else 39。查詢(xún)用戶 Set rs = TransactSQL(SQL) If iflag = 1 Then If = True ThenmsgBox 沒(méi)有這個(gè)用戶，請(qǐng)重新輸入！,vbOKOnly + vbExclamation,警告 Else If Trim((1)) = Trim() Then gUserName = Trim()39。保存用戶名稱(chēng) Unload Me Else MsgBox 密碼不正確，請(qǐng)重新輸入！, 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)主界面的設(shè)計(jì)效果圖4－2修改密碼窗體：圖4－3Private Sub cmdCancel_Click() Unload MeEnd SubPrivate Sub cmdOK_Click() Dim SQL As String Dim rs As IfTrim()=Then 39。判斷是否輸入舊密碼 MsgBox 請(qǐng)輸入舊密碼, vbOKOnly + vbExclamation, 警告 Exit Sub Else If Trim() = Then 39。判斷是否輸入新密碼 MsgBox 請(qǐng)輸入新密碼, 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, 修改結(jié)果 Unload Me End If End IfEnd SubPrivate Sub Form_Load() = = = End Sub查詢(xún)員工信息圖4－4相關(guān)代碼如下：Option ExplicitPrivate query As String 39。保存SQL語(yǔ)句Private fromdate As String 39。起始時(shí)間Private todate As String 39。結(jié)束時(shí)間Private Sub cmdCancel_Click() Unload Me Exit SubEnd SubPrivate Sub CombineDate() 39。獲得起始和結(jié)束時(shí)間 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。設(shè)置SQL語(yǔ)句 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 請(qǐng)選擇查詢(xún)的條件！, 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。設(shè)置年 Left(rs(0), 4) Left(rs(0), 4) End If Wend = 0 = 0 End If For i = 1 To 12 39。設(shè)置月 i i Next i = 0 = 0End Sub6．添加員工調(diào)動(dòng)信息圖4－5相關(guān)代碼如下：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)添加調(diào)動(dòng)信息！, vbOKOnly + vbExclamation, 添加結(jié)果！ 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)修改信息