vb課程設計---人力資源管理系統(tǒng)-文庫吧在線文庫
【正文】 Private Sub Command2_Click() End Sub Private Sub Command3_Click() (所屬部門 ) = End Sub Private Sub Form_Load() Text1 = Text2 = Text3 = End Sub (7)用戶管理窗體源代碼： Private Sub mand1_Click() If Trim() = Then MsgBox 用戶名不能為空 , vbOKOnly + vbExclamation, Exit Sub Else Do While Not If Trim((用戶名 )) = Trim(Text1) Then MsgBox 已有這個用戶 , vbOKOnly + vbExclamation, = = = Exit Sub Else End If 課程設計說明書 沈 陽 大 學 Loop If Trim() Trim() Then MsgBox 兩次密碼不一致 , vbOKOnly + vbExclamation, = = Exit Sub Else (用戶名 ) = Text1 (密碼 ) = Text2 MsgBox 添加用戶成功 , vbOKOnly + vbExclamation, Unload Me End If End If End Sub Private Sub Command2_Click() End Sub Private Sub Form_Load() = * = * End Sub (8)密碼修改窗體源代碼： Private Sub mand1_Click() = select * from 密碼 where 用戶名 =39。 Next i End Sub Private Sub bl_Click() Dim s$(0 To 4), m%(0 To 4), zuida%, sum% s(0) = 本科 s(1) = 大專 s(2) = 高中 s(3) = 初中 s(4) = 小學 Do While Not 文化程度 = 39。 39。 amp。 amp。 39。 If Trim() Trim() Then MsgBox 密碼不一致！ , vbOKOnly + vbExclamation, = = Else (密碼 ) = Text1 MsgBox 密碼修改成功 , vbOKOnly + vbExclamation, Unload Me End If End Sub Private Sub Command2_Click() End Sub Private Sub Form_Load() = 系統(tǒng)管理 = * = * End Sub 課程設計說明書 沈 陽 大 學 (9)員工信息統(tǒng)計窗體源代碼： Dim a$(), b%(), n, max Public Sub zbx() Cls n = 0: max = 0 Do While Not n = n + 1 ReDim Preserve a(n) ReDim Preserve b(n) a(n) = (員工姓名 ) b(n) = (工資 ) If b(n) max Then max = b(n) Loop Scale (3, max * )(max * , max * ) Line (0, 0)(max * , 0): Line (0, max * )(0, 0) CurrentX = 3: CurrentY = 1 Print 數(shù)據(jù) :。 Open For Binary As 1 fl = LOF(1) ReDim strb(fl) Get 1, , strb (照片 ).AppendChunk strb Close 1 = LoadPicture() End Sub Private Sub Command2_Click() End Sub Private Sub Command3_Click() End Sub 課程設計說明書 沈 陽 大 學 Private Sub Command4_Click() End Sub Private Sub Command5_Click() End Sub Private Sub Label12_Click() End Sub (6)調轉部門窗體源代 碼： Private Sub mand1_Click() Dim no As String no = Val() 工作證號 =39。 End Sub Private Sub DataList1_Click() = Select * from 員工信息 Where 所屬部門 =39。, , , 1 If Then MsgBox 無次部門！ , , 提示 End Sub Private Sub Command3_Click() ask = MsgBox(是否刪除？ , vbYesNo) If ask = 6 Then If Then End If End Sub Private Sub Command4_Click() End Sub (4)員工管理窗體源代碼： Private Sub mand1_Click() End Sub Private Sub Command2_Click() Dim m As String m = InputBox(請輸入員工號 , 查找窗 ) 工作證號 = 39。 amp。系統(tǒng)開發(fā)的過程是一個鞏固以前所學的計算機軟件開發(fā)知識，掌握新技能的過程。 課程設計說明書 沈 陽 大 學 圖 30 修改密碼界面 經(jīng)歷一個星期的努力，我的人力資源管理系統(tǒng)終于如期完成了。 圖 21 員工管理 界面 課程設計說明書 沈 陽 大 學 點擊詳細個人信息，可以顯示員工的詳細信息，如圖 22 所示。 圖 15 修改密碼窗體 課程設計說明書
黨政相關相關推薦
鄂ICP備17016276號-1