a1.frm

制作好的请假系统的小软件

         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   0
      Left            =   2340
      TabIndex        =   6
      Top             =   2609
      Width           =   855
   End
   Begin VB.Label Label2 
      BackColor       =   &H00FF8080&
      Caption         =   "班  级"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   1
      Left            =   -1080
      TabIndex        =   5
      Top             =   -1680
      Width           =   855
   End
   Begin VB.Label l2 
      BackColor       =   &H00FF8080&
      BackStyle       =   0  'Transparent
      Caption         =   "班  级"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   0
      Left            =   2340
      TabIndex        =   4
      Top             =   1920
      Width           =   855
   End
   Begin VB.Label Label1 
      BackColor       =   &H00FF8080&
      BackStyle       =   0  'Transparent
      Caption         =   "班级基本信息"
      BeginProperty Font 
         Name            =   "华文行楷"
         Size            =   26.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   480
      Left            =   2175
      TabIndex        =   0
      Top             =   720
      Width           =   3255
   End
End
Attribute VB_Name = "a1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
On Error Resume Next

Command2.Enabled = Not Command2.Enabled
Command3.Enabled = Not Command3.Enabled
Command4.Enabled = Not Command4.Enabled
Command5.Enabled = False
Command6.Enabled = False
If Command1.Caption = "新增" Then
Command1.Caption = "确认"
Text1(0).Enabled = True
Text2(0).Enabled = True
Text2(1).Enabled = True

Data1.Recordset.AddNew
Data1.Recordset.Update
Text1(0).SetFocus

ElseIf Text1(0).Text = "" Then
MsgBox "班级不能为空！", 48
Text1(0).SetFocus
Command2.Enabled = Not Command2.Enabled
Command3.Enabled = Not Command3.Enabled
Command4.Enabled = Not Command4.Enabled
ElseIf Text2(0).Text = "" Then
MsgBox "班长不能为空！", 48
Text2(0).SetFocus
Command2.Enabled = Not Command2.Enabled
Command3.Enabled = Not Command3.Enabled
Command4.Enabled = Not Command4.Enabled

Else
Command1.Caption = "新增"
Data1.Recordset.Update
Data1.Recordset.MoveFirst
Text1(0).Enabled = False
Text2(0).Enabled = False
Text2(1).Enabled = False
Command5.Enabled = True
Command6.Enabled = True
Data1.Refresh
Data1.Recordset.MoveLast
n = Data1.Recordset.RecordCount
Label12.Caption = n
End If

End Sub

Private Sub Command2_Click()
On Error Resume Next
Dim n As Integer
n = MsgBox("你确定删除该记录吗？", vbYesNo, "记录删除")
If n = 6 Then Data1.Recordset.Delete
If n = 7 Then
End If

If Data1.Recordset.AbsolutePosition = 0 Then
Data1.Recordset.MoveNext

End If

If Data1.Recordset.EOF Then

Data1.Recordset.MoveFirst
End If
Data1.Recordset.MoveNext
Data1.Refresh
Data1.Recordset.MoveLast
n = Data1.Recordset.RecordCount
Label12.Caption = n
End Sub

Private Sub Command3_Click()
On Error Resume Next
Command1.Enabled = Not Command1.Enabled
Command2.Enabled = Not Command2.Enabled
Command4.Enabled = Not Command4.Enabled
Command5.Enabled = False
Command6.Enabled = False
If Command3.Caption = "修改" Then
Command3.Caption = "确认"

Data1.Recordset.Edit

Text1(0).Enabled = True
Text2(0).Enabled = True
Text2(1).Enabled = True
Text1(0).SetFocus


ElseIf Text1(0).Text = "" Then
MsgBox "班级不能为空！", 48
Text1(0).SetFocus
Command1.Enabled = Not Command1.Enabled
Command2.Enabled = Not Command2.Enabled
Command4.Enabled = Not Command4.Enabled
ElseIf Text2(0).Text = "" Then
MsgBox "班长不能为空！", 48
Text2(0).SetFocus
Command1.Enabled = Not Command1.Enabled
Command2.Enabled = Not Command2.Enabled
Command4.Enabled = Not Command4.Enabled

Else
Command3.Caption = "修改"
Text1(0).Enabled = False
Text2(0).Enabled = False
Text2(1).Enabled = False
Data1.Recordset.Update
Command5.Enabled = True
Command6.Enabled = True
End If

End Sub

Private Sub Command4_Click()
On Error Resume Next
Command1.Caption = "新增"
Command3.Caption = "修改"
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = False
Command5.Enabled = True
Command6.Enabled = True
 Data1.Recordset.CancelUpdate
Text1(0).Enabled = False
Text2(0).Enabled = False
Text2(1).Enabled = False
Data1.Recordset.MoveLast

End Sub

Private Sub Command5_Click()
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst
'if和then在一行别写end if！！
End Sub

Private Sub Command6_Click()
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then Data1.Recordset.MoveLast
End Sub

Private Sub Command7_Click()
Unload Me
main.Show
End Sub

Private Sub Form_Load()
Dim n As Variant
Data1.Refresh
Data1.Recordset.MoveLast
n = Data1.Recordset.RecordCount
Label12.Caption = n
Text1(0).Enabled = False
Text2(0).Enabled = False
Text2(1).Enabled = False
Dim Mpath As String
Dim t As Integer
Mpath = App.Path
If Right(Mpath, 1) <> "\" Then Mpath = Mpath + "\"
Data1.DatabaseName = Mpath + "管理系统数据库"
Data1.RecordSource = "班级基本情况"
Data1.Refresh
Text1(0).DataField = "班级"
Text2(0).DataField = "班长"
Text2(1).DataField = "联系电话"
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X > s1.Left And X < s1.Left + s1.Width And Y > s1.Top And Y < s1.Top + s1.Height Then
s1.Visible = True
Command1.BackColor = &HE0E0E0
Else:
s1.Visible = False
Command1.BackColor = &HFFC0C0
End If

If X > s2.Left And X < s2.Left + s2.Width And Y > s2.Top And Y < s2.Top + s2.Height Then
s2.Visible = True
Command2.BackColor = &HE0E0E0
Else:
s2.Visible = False
Command2.BackColor = &HFFC0C0
End If

If X > s3.Left And X < s3.Left + s3.Width And Y > s3.Top And Y < s3.Top + s3.Height Then
s3.Visible = True
Command3.BackColor = &HE0E0E0
Else:
s3.Visible = False
Command3.BackColor = &HFFC0C0
End If

If X > s4.Left And X < s4.Left + s4.Width And Y > s4.Top And Y < s4.Top + s4.Height Then
s4.Visible = True
Command4.BackColor = &HE0E0E0
Else:
s4.Visible = False
Command4.BackColor = &HFFC0C0
End If

If X > s5.Left And X < s5.Left + s5.Width And Y > s5.Top And Y < s5.Top + s5.Height Then
s5.Visible = True
Command5.BackColor = &HE0E0E0
Else:
s5.Visible = False
Command5.BackColor = &HFFC0C0
End If

If X > s6.Left And X < s6.Left + s6.Width And Y > s6.Top And Y < s6.Top + s6.Height Then
s6.Visible = True
Command6.BackColor = &HE0E0E0
Else:
s6.Visible = False
Command6.BackColor = &HFFC0C0
End If

If X > s7.Left And X < s7.Left + s7.Width And Y > s7.Top And Y < s7.Top + s7.Height Then
s7.Visible = True
Command7.BackColor = &HE0E0E0
Else:
s7.Visible = False
Command7.BackColor = &HFFC0C0
End If
End Sub