人事管理系統(tǒng)畢業(yè)設(shè)計-畢業(yè)設(shè)計-資料下載頁
2025-01-19 06:58本頁面
【導(dǎo)讀】莄蒂薅蝿芀蒁蚇羄膆蒀蝿螇肂葿葿羈薈薁螅芇薈蚃羈膃薇螆螃聿薆薅罿肅薅蚈袂莄薄螀肇芀薃袂袀膆薃薂肆肂腿蚄袈羈羋螇肄芆芇蒆袇膂芆蠆肂膈芆螁羅肄芅袃螈莃芄薃羃艿芃蚅螆膅節(jié)螇羈肁莁蕆螄羇莀蕿羀蒞莀螂螃芁荿襖肈膇莈薄袁肅莇蚆肆罿莆螈衿羋蒅蒈肅膄蒄薀袇肀蒄蚃肅羆蒃裊袆莄蒂薅蝿芀蒁蚇羄膆蒀蝿螇肂葿葿羈薈薁螅芇薈蚃羈膃薇螆螃聿薆薅罿肅薅蚈袂莄薄螀肇芀薃袂袀膆薃薂肆肂腿蚄袈羈羋螇肄芆芇蒆袇膂芆蠆肂膈芆螁羅肄芅袃螈莃芄薃羃艿芃蚅螆膅節(jié)螇羈肁莁蕆螄羇莀蕿羀蒞莀螂螃芁荿襖肈膇莈薄袁肅莇蚆肆罿莆螈衿羋蒅蒈肅膄蒄薀袇肀蒄蚃肅羆蒃裊袆莄蒂薅蝿芀蒁蚇羄膆蒀蝿螇肂葿葿羈薈薁螅芇薈蚃羈膃薇螆螃聿薆薅罿肅薅蚈袂莄薄螀肇芀薃袂袀膆薃薂肆肂腿蚄袈羈羋螇肄芆芇蒆袇膂芆蠆肂膈芆螁羅肄芅袃螈莃芄薃羃艿芃蚅螆膅節(jié)螇羈肁莁蕆螄羇莀蕿羀蒞莀螂螃芁荿襖肈膇莈薄袁肅莇蚆肆罿莆螈衿羋蒅蒈肅膄蒄薀袇肀蒄蚃肅羆蒃裊袆莄蒂薅蝿芀蒁蚇羄膆蒀蝿螇肂葿葿羈薈薁螅
【正文】 (8) = ElseIf = leave Then (8) = (9) = Now Else (13) = (14) = Now End If Txt(0).SetFocus Else 39。OK If Txt(0).Text = Then MsgBox 不可以為空 Txt(0).SetFocus 31 Exit Sub End If For i = 1 To 12 If Txt(i).Text = Then Txt(i).Text = 0 39。(i) = 0 Next i If = employee Then 職工編號 = + Txt(0).Text If Not Then MsgBox 職員編號重復(fù) Txt(0).Text = Txt(0).SetFocus Exit Sub End If ElseIf = leave Then 假條編號 = + Txt(0).Text If Not Then MsgBox 假條編號重復(fù) Txt(0).Text = Txt(0).SetFocus Exit Sub End If Else For i = 4 To 10 If Not IsNumeric(Txt(i).Text) Then MsgBox not a number Txt(i).SetFocus Exit Sub End If Next i 工資編號 = + Txt(0).Text 32 If Not Then MsgBox 工資編號重復(fù) Txt(0).Text = Txt(0).SetFocus Exit Sub End If End If = 添加 = True = True End If End Sub Private Sub CmdCacel_Click() If = 確認 Then End If = True Unload Me If = employee Then (性別 ).Button = True 33 (學(xué)歷 ).Button = True (部門 ).Button = True End If End Sub Private Sub CmdDel_Click() = False If Then End If End Sub Private Sub cmdOK_Click() If Txt(0).Text = Then MsgBox 不可以為空 Txt(0).SetFocus Exit Sub End If Bupdata = False If = leave Then (8) = (9) = Now ElseIf = employee Then (13) = (14) = Now If Opsex(0) Then 34 (4) = 男 Else (4) = 女 End If (7) = (8) = (13) = (14) = Now Else For i = 4 To 10 If Not IsNumeric(Txt(i).Text) Then MsgBox not a number Txt(i).SetFocus Exit Sub End If Next i (13) = (14) = Now End If For i = 1 To 12 If Txt(i).Text = Then Txt(i).Text = 0 39。(i) = 0 Next i
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1