frmuserupdate.frm

这是一个选课系统

         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   240
      Left            =   3480
      TabIndex        =   0
      Top             =   240
      Width           =   1530
   End
   Begin VB.Image imgTitleMaximize 
      Height          =   195
      Left            =   5760
      Picture         =   "frmuserupdate.frx":422D
      ToolTipText     =   "Maximize (Disabled)"
      Top             =   120
      Visible         =   0   'False
      Width           =   195
   End
   Begin VB.Image imgTitleHelp 
      Height          =   210
      Left            =   6000
      Picture         =   "frmuserupdate.frx":4477
      Stretch         =   -1  'True
      Top             =   120
      Width           =   210
   End
   Begin VB.Image imgTitleMinimize 
      Height          =   210
      Left            =   6240
      Picture         =   "frmuserupdate.frx":46C1
      Stretch         =   -1  'True
      Top             =   120
      Width           =   210
   End
   Begin VB.Image imgTitleclose 
      Height          =   195
      Left            =   6600
      Picture         =   "frmuserupdate.frx":490B
      ToolTipText     =   "Close"
      Top             =   120
      Width           =   195
   End
   Begin VB.Image imgWindowLeft 
      Height          =   450
      Left            =   1080
      Picture         =   "frmuserupdate.frx":4B55
      Stretch         =   -1  'True
      Top             =   480
      Width           =   285
   End
   Begin VB.Image imgWindowRight 
      Height          =   450
      Left            =   720
      Picture         =   "frmuserupdate.frx":529F
      Stretch         =   -1  'True
      Top             =   480
      Width           =   285
   End
   Begin VB.Image imgTitleLeft 
      Height          =   450
      Left            =   120
      Picture         =   "frmuserupdate.frx":59E9
      Top             =   0
      Width           =   285
   End
   Begin VB.Image imgTitleRight 
      Height          =   450
      Left            =   360
      Picture         =   "frmuserupdate.frx":6133
      Top             =   0
      Width           =   285
   End
   Begin VB.Image imgWindowBottom 
      Height          =   450
      Left            =   360
      Picture         =   "frmuserupdate.frx":687D
      Stretch         =   -1  'True
      Top             =   480
      Width           =   285
   End
   Begin VB.Image imgTitleMain 
      Height          =   450
      Left            =   0
      Picture         =   "frmuserupdate.frx":6FC7
      Stretch         =   -1  'True
      Top             =   450
      Width           =   285
   End
   Begin VB.Image imgWindowBottomLeft 
      Height          =   450
      Left            =   720
      Picture         =   "frmuserupdate.frx":7711
      Top             =   0
      Width           =   285
   End
   Begin VB.Image imgWindowBottomRight 
      Height          =   450
      Left            =   1080
      Picture         =   "frmuserupdate.frx":7E5B
      Top             =   0
      Width           =   285
   End
End
Attribute VB_Name = "frmuserupdate"
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     '用于标记是否修改了数据
Dim sign As Integer '用于标记是点击修改还是点击添加

Private Sub addcmm_Click(Index As Integer)
 mcclean = False
    sign = 0   '表示点击添加
    
    SmartNetXpButton1.Enabled = False
    SmartNetXpButton5.Enabled = False
    SmartNetXpButton6.Enabled = False
    SmartNetXpButton7.Enabled = False
          
    Text1.Enabled = True
    Text2.Enabled = True
    Text3.Enabled = True
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    myBookmark = mrc.Bookmark
    
End Sub



Private Sub Form_Load()
    MakeWindow Me
    Dim txtSQL As String
    Dim MsgText As String
    
     Text1.Enabled = False
     Text2.Enabled = False
     Text3.Enabled = False
     txtSQL = "select * from user_if "
    Set mrc = MyDB.ExecuteSQL(txtSQL, MsgText)
    mrc.MoveFirst
    Call viewData
    myBookmark = mrc.Bookmark
    mcclean = True
    sign = 0
End Sub

Public Sub viewData()
    Text1.Text = mrc.Fields(0)
    Text2.Text = mrc.Fields(1)
    Text3.Text = mrc.Fields(2)
End Sub

Private Sub SmartNetXpButton1_Click()
     mrc.MoveFirst
     Call viewData
End Sub


Private Sub SmartNetXpButton4_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
   If Not mcclean Then
       
        SmartNetXpButton1.Enabled = True
        SmartNetXpButton5.Enabled = True
        SmartNetXpButton6.Enabled = True
        SmartNetXpButton7.Enabled = True
            
        Text1.Enabled = False
        Text2.Enabled = False
        Text3.Enabled = False
        mrc.Bookmark = myBookmark
        Call viewData
    Else
        MsgBox "你没有修改数据！", vbOKOnly + vbExclamation, "警告"
    End If
    mcclean = True
End Sub

Private Sub SmartNetXpButton5_Click()
   mrc.MovePrevious
    If mrc.BOF Then
        mrc.MoveLast
    End If
    Call viewData
End Sub



Private Sub SmartNetXpButton6_Click()
    mrc.MoveNext
    If mrc.EOF Then
        mrc.MoveFirst
    End If
    Call viewData
End Sub


Private Sub SmartNetXpButton7_Click()
   mrc.MoveLast
    Call viewData
End Sub


 
Private Sub SmartNetXpButton2_Click()
    mcclean = False
    sign = 1   '表示点击修改
    SmartNetXpButton1.Enabled = False
    SmartNetXpButton5.Enabled = False
    SmartNetXpButton6.Enabled = False
    SmartNetXpButton7.Enabled = False
    Text1.Enabled = True
    Text2.Enabled = True
    Text3.Enabled = True
    myBookmark = mrc.Bookmark
End Sub
Private Sub imgTitleclose_Click()
    intNumField = -2
    Unload Me
End Sub

Private Sub imgTitleLeft_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DoDrag Me
End Sub

Private Sub imgTitleMain_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DoDrag Me
End Sub

Private Sub imgTitleMinimize_Click()
    Me.WindowState = 1
End Sub

Private Sub imgTitleRight_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DoDrag Me
End Sub

Private Sub Label4_Click()
frmmain.Show
End Sub

Private Sub lblTitle_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DoDrag Me
End Sub

Private Sub SmartNetXpButton8_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
   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.Text) Then
        MsgBox "请输入学号！", vbOKOnly + vbExclamation, "警告"
        Text1.SetFocus
        Exit Sub
    End If
    
   If Not Testtxt(Text2.Text) Then
        MsgBox "请输入姓名！", vbOKOnly + vbExclamation, "警告"
        Text2.SetFocus
        
        Exit Sub
    End If
    
   
  If sign = 1 Then mrc.Delete
    txtSQL = "select * from user_if where Uname = '" & Trim(Text1.Text) & "'"
     Set mrcc = MyDB.ExecuteSQL(txtSQL, MsgText)
        If mrcc.EOF = False Then
           MsgBox "该用户已存在，不需要在添加，请重新输入！", vbOKOnly + vbExclamation, "警告"
           mrcc.Close
           Text1.SetFocus
       Else
        mrcc.Close
        mrc.AddNew
        mrc.Fields(0) = Trim(Text1.Text)
        mrc.Fields(1) = Trim(Text2.Text)
        mrc.Fields(2) = Trim(Text3.Text)
        mrc.Update
        MsgBox "修改信息成功！", vbOKOnly + vbExclamation, "提示"
        mrc.Bookmark = myBookmark
        Call viewData
        
        SmartNetXpButton1.Enabled = True
        SmartNetXpButton5.Enabled = True
        SmartNetXpButton6.Enabled = True
        SmartNetXpButton7.Enabled = True
        
        Text1.Enabled = False
        Text2.Enabled = False
        Text3.Enabled = False
        mcclean = True
    End If
End Sub


Private Sub SmartNetXpButton3_Click()
    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 text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
       Text2.SetFocus
    End If
End Sub
Private Sub text2_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
       Text3.SetFocus
    End If
End Sub