vb做一个考勤管理程序

看核手森情况喽

如果你要支持注册，而且密码要定期改动的话，就应该挂上数据库

但如果不是的话（只用一个密码，不改动）

就可以在Command的Click事件里这么写

If Text1.text="（密码）" Then

Unload Me

Form2.Show

Else

MsgBox"密码错误"

End If

如果不想让别人薯昌看到密码，就在Text属性中将PassWordChar属性中打上“*”就行了改亩

设计4个表单毕早与功能

1）设置 - 上班时猛判间，下班时间

2) 同步RFID考勤资料功能

3） 考勤处理功能 （ 将考勤资料与上班，下班时间做处理， 计算出迟到，早退，矿工。枝数改。）

4）考勤编辑 （ 允许HR手动修改与补天考勤资料）

5） 考勤报表 （ 根据你自己的需求）

Dim Late As Integer, Aarly As Integer, Absenteeism As Integer, AskLeave As Integer, Total  As Integer

Private Sub Command1_Click()

  Dim AttendanceCase As String

  If Option1.Value Then Late = Late + 1: AttendanceCase = Option1.Caption

  If Option2.Value Then Aarly = Aarly + 1: AttendanceCase = Option2.Caption

  If Option3.Value Then Absenteeism = Absenteeism + 陆返1: AttendanceCase = Option3.Caption

  If Option4.Value Then AskLeave = AskLeave + 1: AttendanceCase = Option4.Caption

  List1.AddItem Text1.Text + Space(2) + AttendanceCase

End Sub

Private Sub Command2_Click()

  Label2.Caption = ""

  Total = Late + Aarly + Absenteeism + AskLeave

  Label2.Caption = Label2.Caption + "迟到人数：" + CStr(Late) + vbCrLf + "早退人数：" + CStr(Aarly) + vbCrLf + "旷课人数：" + CStr(Absenteeism) + vbCrLf + "睁脊请假人数：" + CStr(AskLeave) + vbCrLf + "总 人 数：" + CStr(Total)

End Sub

Private Sub Command3_Click()

  List1.Clear

  早早饥Late = 0

  Aarly = 0

  Absenteeism = 0

  AskLeave = 0

  Total = 0

  Label2.Caption = ""

End Sub

Private Sub Command4_Click()

  End

End Sub

---