員工信息管理系統(tǒng)設(shè)計(jì)說明書(文件)
【正文】 b 沈 陽 大 學(xué)課程設(shè)計(jì)說明書 Private Sub setSQL() If = vbChecked Then query = select * from StuffInfo where SID=39。End IfIf = vbChecked Then query = select * from StuffInfo where SName=39。End IfEnd SubPrivate Sub cmdOK_Click() Call CombineDate Call setSQL (query) Unload MeEnd SubPrivate Sub Form_Load() Dim i As Integer Dim SQL As String Dim rs As New SQL = select distinct datepart(yy,SInTime) from StuffInfo Set rs = TransactSQL(SQL) If Not Then While Not If Not IsNull((0)) Then 沈 陽 大 學(xué)課程設(shè)計(jì)說明書 rs(0) rs(0) End If Wend = 0 = 0 End If For i = 1 To 12 i i Next i = 0 = 0End Sub至此,整個(gè)程序系統(tǒng)的實(shí)現(xiàn)就完成了。 Trim() amp。 Trim() amp。 amp。 1 fromdate = Format( amp。 ID TransactSQL (SQL) MsgBox 已經(jīng)修改信息！, vbOKOnly + vbExclamation, 修改結(jié)果！ Unload Me SQL = select * from AlterationInfo order by ID = Provider=。 SQL = SQL amp。 amp。 amp。 SQL = SQL amp。 amp。 amp。 SQL = SQL amp。 amp。 TransactSQL (SQL) MsgBox 已經(jīng)添加調(diào)動(dòng)信息！, vbOKOnly + vbExclamation, 添加結(jié)果！ SQL = select * from AlterationInfo order by ID 沈 陽 大 學(xué)課程設(shè)計(jì)說明書 = Provider=。 where SID=39。, SPosition=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。判斷輸入次數(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 沈 陽 大 學(xué)課程設(shè)計(jì)說明書 （２）添加用戶窗體Option ExplicitPublic str
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1