a2.frm

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

      EndProperty
      Height          =   255
      Left            =   1493
      TabIndex        =   15
      Top             =   2400
      Width           =   975
   End
   Begin VB.Label Label5 
      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
      Left            =   5333
      TabIndex        =   14
      Top             =   1440
      Width           =   495
   End
   Begin VB.Label Label4 
      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
      Left            =   4133
      TabIndex        =   13
      Top             =   1440
      Width           =   495
   End
   Begin VB.Label Label3 
      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
      Left            =   2693
      TabIndex        =   12
      Top             =   1440
      Width           =   495
   End
   Begin VB.Label Label2 
      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
      Left            =   1493
      TabIndex        =   11
      Top             =   1440
      Width           =   495
   End
   Begin VB.Label l8 
      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            =   120
      TabIndex        =   10
      Top             =   8820
      Visible         =   0   'False
      Width           =   735
   End
End
Attribute VB_Name = "a2"
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.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
Combo1.Enabled = True
Combo2.Enabled = True
Combo3.Enabled = True
Picture1.Enabled = True

Data1.Recordset.AddNew
Data1.Recordset.Update
Text1.SetFocus

ElseIf Text1.Text = "" Then
MsgBox "学号不能为空！", 48
Text1.SetFocus
Command2.Enabled = Not Command2.Enabled
Command3.Enabled = Not Command3.Enabled
Command4.Enabled = Not Command4.Enabled

ElseIf Text2.Text = "" Then
MsgBox "姓名不能为空！", 48
Text2.SetFocus
Command2.Enabled = Not Command2.Enabled
Command3.Enabled = Not Command3.Enabled
Command4.Enabled = Not Command4.Enabled

ElseIf Combo1.Text = "" Then
MsgBox "性别不能为空！", 48
Combo1.SetFocus
Command2.Enabled = Not Command2.Enabled
Command3.Enabled = Not Command3.Enabled
Command4.Enabled = Not Command4.Enabled

ElseIf Combo2.Text = "" Then
MsgBox "班级不能为空！", 48
Combo2.SetFocus
Command2.Enabled = Not Command2.Enabled
Command3.Enabled = Not Command3.Enabled
Command4.Enabled = Not Command4.Enabled

ElseIf Text3.Text = "" Then
MsgBox "身份证号不能为空！", 48
Text3.SetFocus
Command2.Enabled = Not Command2.Enabled
Command3.Enabled = Not Command3.Enabled
Command4.Enabled = Not Command4.Enabled

ElseIf Combo3.Text = "" Then
MsgBox "政治面貌不能为空！", 48
Combo3.SetFocus
Command2.Enabled = Not Command2.Enabled
Command3.Enabled = Not Command3.Enabled
Command4.Enabled = Not Command4.Enabled


ElseIf Text1.Text < 10000 Or Text1.Text > 140000 Then
MsgBox "学号输入错误，请重新输入！"
Text1.Text = ""
Text1.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.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Combo1.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = False
Picture1.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.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
Combo1.Enabled = True
Combo2.Enabled = True
Combo3.Enabled = True
Picture1.Enabled = True


Text1.SetFocus

ElseIf Text1.Text = "" Then
MsgBox "学号不能为空！", 48
Text1.SetFocus
Command1.Enabled = Not Command1.Enabled
Command2.Enabled = Not Command2.Enabled
Command4.Enabled = Not Command4.Enabled


ElseIf Text2.Text = "" Then
MsgBox "姓名不能为空！", 48
Text2.SetFocus
Command1.Enabled = Not Command1.Enabled
Command2.Enabled = Not Command2.Enabled
Command4.Enabled = Not Command4.Enabled

ElseIf Combo1.Text = "" Then
MsgBox "性别不能为空！", 48
Combo1.SetFocus
Command1.Enabled = Not Command1.Enabled
Command2.Enabled = Not Command2.Enabled
Command4.Enabled = Not Command4.Enabled

ElseIf Combo2.Text = "" Then
MsgBox "班级不能为空！", 48
Combo2.SetFocus
Command1.Enabled = Not Command1.Enabled
Command2.Enabled = Not Command2.Enabled
Command4.Enabled = Not Command4.Enabled


ElseIf Text3.Text = "" Then
MsgBox "身份证号不能为空！", 48
Text3.SetFocus
Command1.Enabled = Not Command1.Enabled
Command2.Enabled = Not Command2.Enabled
Command4.Enabled = Not Command4.Enabled

ElseIf Combo3.Text = "" Then
MsgBox "政治面貌不能为空！", 48
Combo3.SetFocus
Command1.Enabled = Not Command1.Enabled
Command2.Enabled = Not Command2.Enabled
Command4.Enabled = Not Command4.Enabled


ElseIf Text1.Text < 10000 Or Text1.Text > 140000 Then
MsgBox "学号输入错误，请重新输入！"
Text1.Text = ""
Text1.SetFocus
Command1.Enabled = Not Command1.Enabled
Command2.Enabled = Not Command2.Enabled
Command4.Enabled = Not Command4.Enabled

Else
Command3.Caption = "修改"
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Combo1.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = False
Picture1.Enabled = False


Command5.Enabled = True
Command6.Enabled = True
Data1.Recordset.Update
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.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Combo1.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = False
Picture1.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.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Combo1.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = False
Picture1.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.DataField = "学号"
Text2.DataField = "姓名"
Text3.DataField = "身份证号"
Text4.DataField = "移动电话"
Text5.DataField = "宿舍电话"
Text6.DataField = "通讯地址"
Text7.DataField = "备注"
Combo1.DataField = "性别"
Combo2.DataField = "班级"
Combo3.DataField = "政治面貌"
Picture1.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


Private Sub Picture1_DblClick()
Picture1.Picture = Clipboard.GetData
End Sub