frmaddsinfo.frm

数据库管理系统的实习内容

         Begin VB.Label Label9 
            Caption         =   "出生日期"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   9
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   375
            Left            =   3120
            TabIndex        =   7
            Top             =   2400
            Width           =   975
         End
         Begin VB.Label Label10 
            Caption         =   "入校日期"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   9
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   375
            Left            =   3120
            TabIndex        =   6
            Top             =   3000
            Width           =   855
         End
         Begin VB.Label Label11 
            Caption         =   "性  别"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   9
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   375
            Left            =   3120
            TabIndex        =   5
            Top             =   1920
            Width           =   615
         End
         Begin VB.Label Label5 
            Caption         =   "联系电话"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   9
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   375
            Left            =   360
            TabIndex        =   4
            Top             =   3000
            Width           =   975
         End
      End
   End
End
Attribute VB_Name = "frmAddsinfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'是否改动过记录，ture为改过
Dim mblChange As Boolean
Public txtSQL As String
Dim mrc As ADODB.Recordset
'操作的表名称
Private Sub cboItem_Change()
    '有变化设置gblchange
    mblChange = True
End Sub

Private Sub cboItem_KeyDown(KeyCode As Integer, Shift As Integer)
    EnterToTab KeyCode
End Sub

Private Sub cmdCancel_Click()
    If mblChange And cmdOk.Enabled Then
        If MsgBox("保存当前记录的变化吗？", vbOKCancel + vbExclamation, "警告") = vbOK Then
            '保存
            Call cmdOK_Click
        End If
    End If
    Unload Me
End Sub

Private Sub cmdOK_Click()
    Dim intCount As Integer
    Dim txtSQL As String
    Dim MsgText As String
    Dim sMeg As String
    Dim i As Integer
  If Not Testtxt(txtSID.Text) Then
        MsgBox "请输入学号！", vbOKOnly + vbExclamation, "警告"
        txtSID.SetFocus
        Exit Sub
    End If
    If Not Testtxt(txtCard.Text) Then
        MsgBox "请输入卡号！", vbOKOnly + vbExclamation, "警告"
        txtCard.SetFocus
        Exit Sub
    End If
    If Not Testtxt(txtName.Text) Then
        MsgBox "请输入姓名！", vbOKOnly + vbExclamation, "警告"
        txtName.SetFocus
        Exit Sub
    End If
    
    If Not Testtxt(comboSex.Text) Then
        MsgBox "请选择性别！", vbOKOnly + vbExclamation, "警告"
        comboSex.SetFocus
        Exit Sub
    End If
    
    If Not Testtxt(txtBorndate.Text) Then
        MsgBox "请输入出生日期！", vbOKOnly + vbExclamation, "警告"
        txtBorndate.SetFocus
        Exit Sub
    End If
    
    If Not Testtxt(comboCollege.Text) Then
        MsgBox "请选择校区号！", vbOKOnly + vbExclamation, "警告"
        comboCollege.SetFocus
        Exit Sub
    End If
    
    If Not Testtxt(txtTel.Text) Then
        MsgBox "请输入联系电话！", vbOKOnly + vbExclamation, "警告"
        txtTel.SetFocus
        Exit Sub
    End If
    
    If Not Testtxt(txtRudate.Text) Then
        MsgBox "请输入入校日期！", vbOKOnly + vbExclamation, "警告"
        txtRudate.SetFocus
        Exit Sub
    End If
    
    If Not Testtxt(txtAddress.Text) Then
        MsgBox "请输入家庭住址！", vbOKOnly + vbExclamation, "警告"
        txtAddress.SetFocus
        Exit Sub
    End If
    
    If Not IsNumeric(Trim(txtSID.Text)) Then
        MsgBox "请输入数字！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
        txtSID.SetFocus
    End If
    
     If Not IsNumeric(Trim(txtCard.Text)) Then
        MsgBox "请输入数字！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
        txtCard.SetFocus
    End If
    
    If Not IsDate(txtBorndate.Text) Then
        MsgBox "出生时间应输入日期格式（yyyy-mm-dd）！", vbOKOnly + vbExclamation, "警告"
        txtBorndate.SetFocus
    Else
        txtBorndate = Format(txtBorndate, "yyyy-mm-dd")
    End If
    If Not IsDate(txtRudate.Text) Then
        MsgBox "入校时间应输入日期格式（yyyy-mm-dd）！", vbOKOnly + vbExclamation, "警告"
        txtRudate.SetFocus
    Else
        txtRudate = Format(txtRudate, "yyyy-mm-dd")
    End If
    
    '添加判断是否有相同的ID记录
    '添加判断是否有相同的ID记录
    If gintMode = 1 Then
        txtSQL = "select * from student_Info where student_ID='" & Trim(txtSID) & "'"
        Set mrc = ExecuteSQL(txtSQL, MsgText)
        If mrc.EOF = False Then
            MsgBox "学号重复，请重新输入！", vbOKOnly + vbExclamation, "警告"
            txtSID.SetFocus
            txtSID.SelStart = 0
            txtSID.SelLength = Len(txtSID)
            Exit Sub
        End If
        mrc.Close
    End If
        
  
       
   '先删除已有记录
    txtSQL = "delete from student_Info where student_ID='" & Trim(txtSID) & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    
    '再加入新记录
    
    txtSQL = "select * from student_Info"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    mrc.AddNew
                mrc.Fields(0) = Trim(txtSID.Text)
                mrc.Fields(1) = Trim(txtCard.Text)
                mrc.Fields(2) = Trim(txtName.Text)
                mrc.Fields(3) = Trim(comboSex.Text)
                mrc.Fields(4) = Trim(txtBorndate.Text)
                mrc.Fields(5) = Trim(comboCollege.Text)
                mrc.Fields(6) = Trim(txtTel.Text)
                mrc.Fields(7) = Trim(txtRudate.Text)
                mrc.Fields(8) = Trim(txtAddress.Text)
                mrc.Fields(9) = Trim(txtComment.Text)
    mrc.Update
    
  If gintMode = 1 Then
        MsgBox "记录添加成功！", vbOKOnly + vbExclamation, "恭喜"
        
        
        txtSID.Text = ""
        txtCard.Text = ""
        txtName.Text = ""
        comboSex.Text = ""
        txtBorndate.Text = ""
        comboCollege.Text = ""
        txtTel.Text = ""
        txtRudate.Text = ""
        txtAddress.Text = ""
        txtComment.Text = ""
        mblChange = False
        
        Unload Me
        'frmAddsinfo.Show
        'frmAddsinfo.ZOrder 1
        
        frmModifysinfo.ShowTitle
        frmModifysinfo.txtSQL = "select * from student_Info"
        frmModifysinfo.ShowData
        frmModifysinfo.ZOrder 0
        
        
   Else
        MsgBox "记录修改成功！", vbOKOnly + vbExclamation, "恭喜"
        Unload Me
        frmModifysinfo.ShowTitle
        frmModifysinfo.txtSQL = "select * from student_Info"
        frmModifysinfo.ShowData
        frmModifysinfo.ZOrder 0
    End If
    
    gintMode = 0
End Sub
Private Sub cmdRefresh_Click()
        txtSID.Text = ""
        txtCard.Text = ""
        txtName.Text = ""
        comboSex.Text = ""
        txtBorndate.Text = ""
        comboCollege.Text = ""
        txtTel.Text = ""
        txtRudate.Text = ""
        txtAddress.Text = ""
        txtComment.Text = ""
End Sub

Private Sub Form_Load()
    Dim MsgText As String
    Dim i As Integer
    
    comboSex.AddItem "男"
    comboSex.AddItem "女"
   
    If gintMode = 1 Then
        Me.Caption = Me.Caption & "添加"
        comboSex.ListIndex = 0
         txtSQL = "select * from college_Info "
     Set mrc = ExecuteSQL(txtSQL, MsgText)
     For i = 1 To mrc.RecordCount
        comboCollege.AddItem mrc.Fields(0)
        mrc.MoveNext
    Next i
    ElseIf gintMode = 2 Then
        Set mrc = ExecuteSQL(txtSQL, MsgText)
        
        If mrc.EOF = False Then
        txtSID.Text = mrc.Fields(0)
        txtCard.Text = mrc.Fields(1)
        txtName.Text = mrc.Fields(2)
        comboSex.Text = mrc.Fields(3)
        txtBorndate.Text = Format(mrc.Fields(4), "yyyy-mm-dd")
        comboCollege.Text = mrc.Fields(5)
        txtTel.Text = mrc.Fields(6)
        txtRudate.Text = Format(mrc.Fields(7), "yyyy-mm-dd")
        txtAddress.Text = mrc.Fields(8)
        txtComment.Text = mrc.Fields(9)
                
        txtSID.Enabled = False
        End If
        
        mrc.Close
        
        Me.Caption = Me.Caption & "修改"
    End If
        mblChange = False
    

End Sub




Private Sub txtItem_Change(Index As Integer)
    '有变化设置gblchange
    mblChange = True
End Sub


Private Sub txtItem_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)

        EnterToTab KeyCode

End Sub