vb課程設(shè)計(jì)---人力資源管理系統(tǒng)-閱讀頁(yè)
2024-12-06 16:10本頁(yè)面
【正文】 Private Sub Command4_Click() End Sub Private Sub Command5_Click() End Sub Private Sub Label12_Click() End Sub (6)調(diào)轉(zhuǎn)部門(mén)窗體源代 碼： Private Sub mand1_Click() Dim no As String no = Val() 工作證號(hào) =39。 no amp。, , , 1 If Then MsgBox 數(shù)據(jù)不存在！ , , 提示 End Sub Private Sub DataGrid1_Click() End Sub Private Sub Command2_Click() End Sub Private Sub Command3_Click() (所屬部門(mén) ) = 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 已有這個(gè)用戶 , vbOKOnly + vbExclamation, = = = Exit Sub Else End If 課程設(shè)計(jì)說(shuō)明書(shū) 沈 陽(yáng) 大 學(xué) 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。 userID amp。 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 課程設(shè)計(jì)說(shuō)明書(shū) 沈 陽(yáng) 大 學(xué) (9)員工信息統(tǒng)計(jì)窗體源代碼： 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ù) :。 b(i)。 Next i End Sub Private Sub bl_Click() Dim s$(0 To 4), m%(0 To 4), zuida%, sum% s(0) = 本科 s(1) = 大專(zhuān) s(2) = 高中 s(3) = 初中 s(4) = 小學(xué) Do While Not 文化程度 = 39。 s(0) amp。 39。 amp。 39。, adSearchForward If Not Then m(1) = m(1) + 1 If = Then GoTo line2 Else End If 課程設(shè)計(jì)說(shuō)明書(shū) 沈 陽(yáng) 大 學(xué) (10)員工考勤窗體源代碼： Private Sub baocun_Click() = False = False = False MsgBox 保存成功！ End Sub Private Sub chaxun_Click() Dim s As String If = True Then = select * from 員工考勤表 where 姓名 =39。 amp。 Set = Adodc1 End If If = True Then = select * from 員工考勤表 where 部門(mén)名稱(chēng) =39。 amp。 Set = Adodc1 End If End Sub Private Sub fanhui_Click() Unload Me End Sub Private Sub Form_Load() = False = False = False Do While Not (姓名 ) (部門(mén)名稱(chēng) ) Loop End Sub Private Sub shanchu_Click() If MsgBox(真的要?jiǎng)h除嗎？ , vbQuestion + vbYesNo, 提示 ) Then = False = True = True End If End Sub Private Sub tianjia_Click() = True = False = True 課程設(shè)計(jì)說(shuō)明書(shū) 沈 陽(yáng) 大 學(xué)
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號(hào)-1