modifystudinfo.frm

这是一个我帮师妹做的软件的大作业

         Caption         =   "下一条记录"
         Height          =   255
         Index           =   2
         Left            =   4200
         TabIndex        =   4
         Top             =   240
         Width           =   1095
      End
      Begin VB.CommandButton lastCommand 
         Caption         =   "最末条记录"
         Height          =   255
         Index           =   1
         Left            =   5280
         TabIndex        =   3
         Top             =   240
         Width           =   1095
      End
      Begin VB.CommandButton firstCommand 
         Caption         =   "第一条记录"
         Height          =   255
         Index           =   0
         Left            =   2040
         TabIndex        =   2
         Top             =   240
         Width           =   1095
      End
   End
   Begin VB.Frame Frame2 
      Height          =   615
      Index           =   0
      Left            =   120
      TabIndex        =   0
      Top             =   5880
      Width           =   8775
      Begin VB.CommandButton deletCommand 
         Caption         =   "删除记录"
         Height          =   255
         Index           =   7
         Left            =   5280
         TabIndex        =   9
         Top             =   240
         Width           =   1095
      End
      Begin VB.CommandButton cancelCommand 
         Caption         =   "取消修改"
         Height          =   255
         Index           =   6
         Left            =   4200
         TabIndex        =   8
         Top             =   240
         Width           =   1095
      End
      Begin VB.CommandButton updateCommand 
         Caption         =   "更新数据"
         Height          =   255
         Index           =   5
         Left            =   3120
         TabIndex        =   7
         Top             =   240
         Width           =   1095
      End
      Begin VB.CommandButton editCommand 
         Caption         =   "修改记录"
         Height          =   255
         Index           =   4
         Left            =   2040
         TabIndex        =   6
         Top             =   240
         Width           =   1095
      End
   End
   Begin VB.Label Label2 
      Caption         =   "学生信息"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3600
      TabIndex        =   39
      Top             =   120
      Width           =   1215
   End
End
Attribute VB_Name = "modifyStudinfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim mrc As ADODB.Recordset
'记录当前记录的位置
Dim mybookmark As Variant
'判断是否修改记录
Dim mcclean As Boolean

Private Sub cancelCommand_Click(Index As Integer)
Command3.Visible = False
If Not mcclean Then
Frame2(1).Enabled = True
firstCommand(0).Enabled = True
previousCommand(3).Enabled = True
nextCommand(2).Enabled = True
lastCommand(1).Enabled = True
Text1(0).Enabled = False
Text1(1).Enabled = False
Text1(2).Enabled = False
Text1(3).Enabled = False
Text1(4).Enabled = False
Text1(5).Enabled = False
Text1(6).Enabled = False
Text1(7).Enabled = False
Text1(8).Enabled = False
Image1.Enabled = False
Combo1.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = False
Combo4.Enabled = False
Combo5.Enabled = False
Combo6.Enabled = False
mrc.Bookmark = mybookmark
Call viewData
Else
MsgBox "没有监测到修改的信息，您必须对记录修改以后才可以取消！", vbOKOnly + vbExclamation, "警告"
End If
End Sub
Private Sub Command3_Click()
Form2.Show
End Sub

Private Sub deletCommand_Click(Index As Integer)
mybookmark = mrc.Bookmark
    str2$ = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")
    If str2$ = vbOK Then
            mrc.MoveNext
            If mrc.EOF Then
                mrc.MoveFirst
                mybookmark = mrc.Bookmark
                mrc.MoveLast
                mrc.Delete
                mrc.Bookmark = mybookmark
                Call viewData
            Else
                mybookmark = mrc.Bookmark
                mrc.MovePrevious
                mrc.Delete
                mrc.Bookmark = mybookmark
                Call viewData
            End If
    Else
        mrc.Bookmark = mybookmark
        Call viewData
    End If
End Sub

Private Sub firstCommand_Click(Index As Integer)
mrc.MoveFirst
Call viewData
End Sub


Private Sub editCommand_Click(Index As Integer)
  mcclean = False
   
firstCommand(0).Enabled = False
previousCommand(3).Enabled = False
nextCommand(2).Enabled = False
lastCommand(1).Enabled = False
Frame2(1).Enabled = False
Frame2(0).Enabled = True
Command3.Visible = True
Text1(0).Enabled = True
Text1(1).Enabled = True
Text1(2).Enabled = True
Text1(3).Enabled = True
Text1(4).Enabled = True
Text1(5).Enabled = True
Text1(6).Enabled = True
Text1(7).Enabled = True
Text1(8).Enabled = True
Image1.Enabled = True
Combo1.Enabled = True
Combo2.Enabled = True
Combo3.Enabled = True
Combo4.Enabled = True
Combo5.Enabled = True
Combo6.Enabled = True
mybookmark = mrc.Bookmark
End Sub
Public Sub viewData()
Text1(0).Text = mrc.Fields(0)
Text1(1).Text = mrc.Fields(1)
Combo1.Text = mrc.Fields(2)
Combo5.Text = mrc.Fields(3)
Combo6.Text = mrc.Fields(4)
Combo2.Text = Left(mrc.Fields(5), 4)
Combo3.Text = Mid(mrc.Fields(5), 5, 2)
Combo4.Text = Right(mrc.Fields(5), 2)
Text1(2).Text = mrc.Fields(6)
Text1(3).Text = mrc.Fields(7)
Text1(4).Text = mrc.Fields(8)
Text1(5).Text = mrc.Fields(9)
Text1(6).Text = mrc.Fields(10)
Text1(7).Text = mrc.Fields(11)
Text1(8).Text = mrc.Fields(12)
If Text1(8).Text <> "" Then
Image1.Visible = True
Image1.Picture = LoadPicture(App.Path & "\" & "photo" & "\" & Trim(Text1(8).Text))
Else
Image1.Visible = False
End If

End Sub

Private Sub Form_Load()
Dim txtSQL As String
   
    txtSQL1 = "select * from stud"
    Set mrc = ExecuteSQL(txtSQL1)

   mrc.MoveFirst
    '显示数据
    Call viewData
    mcbookmark = mrc.Bookmark
    mcclean = True
    End Sub

Private Sub Form_Unload(Cancel As Integer)
frmMain.Enabled = True
End Sub

Private Sub lastCommand_Click(Index As Integer)
mrc.MoveLast
Call viewData
End Sub

Private Sub nextCommand_Click(Index As Integer)
mrc.MoveNext
If mrc.EOF Then
mrc.MoveFirst
End If
Call viewData
End Sub

Private Sub previousCommand_Click(Index As Integer)
mrc.MovePrevious
If mrc.BOF Then
mrc.MoveLast
End If
Call viewData
End Sub

Private Sub updateCommand_Click(Index As Integer)
Command3.Visible = False
  Dim txtSQL As String
    Dim MsgText As String
    Dim mrcc As ADODB.Recordset
    
    If mcclean Then
        MsgBox "请先修改学生信息", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    End If
    
    If Not Testtxt(Text1(0)) Then
        MsgBox "请输入学号！", vbOKOnly + vbExclamation, "警告"
        Text1(0).SetFocus
        Exit Sub
    End If
    
    If Not Testtxt(Text1(1)) Then
        MsgBox "请输入姓名！", vbOKOnly + vbExclamation, "警告"
        Text1(1).SetFocus
        Exit Sub
    End If
    
    If Not Testtxt(Combo1.Text) Then
        MsgBox "请选择性别！", vbOKOnly + vbExclamation, "警告"
        Combo1.SetFocus
        Exit Sub
    End If
    
    If Not Testtxt(Text1(2).Text) Then
        MsgBox "请输宿舍号码！", vbOKOnly + vbExclamation, "警告"
       Text1(2).SetFocus
        Exit Sub
    End If
    
    If Not Testtxt(Text1(3).Text) Then
        MsgBox "请输入宿舍电话！", vbOKOnly + vbExclamation, "警告"
       Text1(3).SetFocus
        Exit Sub
    End If
    
  If Not Testtxt(Text1(4).Text) Then
        MsgBox "请输入家庭住址！", vbOKOnly + vbExclamation, "警告"
        Text1(4).SetFocus
        Exit Sub
    End If
     If Not Testtxt(Text1(5).Text) Then
        MsgBox "请输入邮政编码！", vbOKOnly + vbExclamation, "警告"
        Text1(5).SetFocus
        Exit Sub
    End If
     If Not Testtxt(Text1(6).Text) Then
        MsgBox "请输入家庭电话！", vbOKOnly + vbExclamation, "警告"
        Text1(6).SetFocus
        Exit Sub
    End If
    

mrc.Delete

mrc.AddNew
mrc.Fields(0) = Trim(Text1(0).Text)
mrc.Fields(1) = Trim(Text1(1).Text)
mrc.Fields(2) = Trim(Combo1.Text)
mrc.Fields(3) = Trim(Combo5.Text)
mrc.Fields(4) = Trim(Combo6.Text)
mrc.Fields(5) = Trim(Combo2.Text + Combo3.Text + Combo4.Text)
mrc.Fields(6) = Trim(Text1(2).Text)
mrc.Fields(7) = Trim(Text1(3).Text)
mrc.Fields(8) = Trim(Text1(4).Text)
mrc.Fields(9) = Trim(Text1(5).Text)
mrc.Fields(10) = Trim(Text1(6).Text)
mrc.Fields(11) = Trim(Text1(7).Text)
mrc.Fields(12) = Trim(Text1(8).Text)
mrc.Update
MsgBox "修改信息成功！", vbOKOnly + vbExclamation, "警告"

Call viewData
Frame2(1).Enabled = True
firstCommand(0).Enabled = True
previousCommand(3).Enabled = True
nextCommand(2).Enabled = True
lastCommand(1).Enabled = True
Text1(0).Enabled = False
Text1(1).Enabled = False
Text1(2).Enabled = False
Text1(3).Enabled = False
Text1(4).Enabled = False
Text1(5).Enabled = False
Text1(6).Enabled = False
Text1(7).Enabled = False
Text1(8).Enabled = False
Image1.Enabled = False
Combo1.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = False
Combo4.Enabled = False
Combo5.Enabled = False
Combo6.Enabled = False
mcclean = True

End Sub