机房管理系统之注册

注册窗体，都基本类似。查找：调用 InquiryBalance  - 学生查看余额窗体。清空：所有控件内容清空。存盘：就是把信息添加到表中。  退出。

代码部分：

Private Sub cmdSave_Click()
    '定义数据集对象
    Dim mrc As ADODB.Recordset
    
    '定义字符串变量,表示查询语句
    Dim Msgtext As String
    Dim txtSQL As String
    
    '判断是否输入卡号
    If Not Testtxt(txtCardNo.Text) Then
         MsgBox "请输入卡号！", vbOKOnly + vbExclamation, "警告"
         txtCardNo.SetFocus
         Exit Sub
    End If

    '判断是否输入充值金额
    If Not Testtxt(txtRecharge.Text) Then
         MsgBox "请输入充值金额！", vbOKOnly + vbExclamation, "警告"
         txtRecharge.SetFocus
         Exit Sub
    End If

    '判断是否选择性别
    If Not Testtxt(txtSex.Text) Then
         MsgBox "请选择性别！", vbOKOnly + vbExclamation, "警告"
         txtSex.SetFocus
         Exit Sub
    End If

    '判断是否输入系别
    If Not Testtxt(txtDept.Text) Then
         MsgBox "请输入系别 ！", vbOKOnly + vbExclamation, "警告"
         txtDept.SetFocus
         Exit Sub
    End If

        '判断是否输入年级
    If Not Testtxt(txtGrade.Text) Then
         MsgBox "请输入年级 ！", vbOKOnly + vbExclamation, "警告"
         txtGrade.SetFocus
         Exit Sub
    End If

         '判断是否输入班级
    If Not Testtxt(txtGrade.Text) Then
         MsgBox "请输入班级 ！", vbOKOnly + vbExclamation, "警告"
         txtGrade.SetFocus
         Exit Sub
    End If

     '判断是否输入状态
    If Not Testtxt(txtState.Text) Then
         MsgBox "请输入状态 ！", vbOKOnly + vbExclamation, "警告"
         txtState.SetFocus
         Exit Sub
    End If

     '判断是否输入金额
    If Not Testtxt(txtCash.Text) Then
         MsgBox "请输入金额 ！", vbOKOnly + vbExclamation, "警告"
         txtCash.SetFocus
         Exit Sub
    End If

     '判断是否输入注释
    If Not Testtxt(txtComment.Text) Then
         MsgBox "请输入注释 ！", vbOKOnly + vbExclamation, "警告"
         txtComment.SetFocus
         Exit Sub
    End If

     '判断是否输入类型
    If Not Testtxt(txtType.Text) Then
         MsgBox "请输入类型 ！", vbOKOnly + vbExclamation, "警告"
         txtType.SetFocus
         Exit Sub
    End If

 
       
     
             
             
             
      ' 限制冲钱 金额
         Dim mrc2 As ADODB.Recordset
         txtSQL = "select * from BasicData_Info "
         Set mrc2 = ExecuteSQL(txtSQL, Msgtext)
             
       If Trim(txtCash.Text) < Val(mrc2.Fields(5)) Then
          MsgBox "冲的太少点了吧！", vbOKOnly + vbExclamation, "警告"
           
          Exit Sub
       End If
       
       
       
         '因为下面需要查询 userid    所以要查询这个表
         Dim mrc1 As ADODB.Recordset
         txtSQL = "select * from OnWork_Info "
         Set mrc1 = ExecuteSQL(txtSQL, Msgtext)
         
         
             '格式化日期
             txtRudate = Format(txtRudate, "yyyy-mm-dd")
             txtSQL = "select * from student_Info "
             
             '执行查询操作
             Set mrc = ExecuteSQL(txtSQL, Msgtext)
             
             '添加记录
             mrc.AddNew
             
             
             '给每个字段赋值
             mrc.Fields(0) = Trim(txtCardNo.Text)
             mrc.Fields(1) = Trim(txtSID.Text)
             mrc.Fields(2) = Trim(txtName.Text)
             mrc.Fields(3) = Trim(txtSex.Text)
             mrc.Fields(4) = Trim(txtDept.Text)
             mrc.Fields(5) = Trim(txtGrade.Text)
             mrc.Fields(6) = Trim(txtClass.Text)
             mrc.Fields(7) = Trim(txtCash.Text)
             mrc.Fields(8) = Trim(txtComment.Text)
             mrc.Fields(9) = Trim(mrc1.Fields(0))
             mrc.Fields(10) = Trim(txtState.Text)
             mrc.Fields(11) = "未结账"
             mrc.Fields(12) = Date
             mrc.Fields(13) = Time
             mrc.Fields(14) = Trim(txtType.Text)
                
             
             '更新数据库
             mrc.Update
             MsgBox "添加 信息成功！", vbOKOnly + vbExclamation, "警告"
              
              
              '清空内容
                  
             txtSID.Text = ""
             txtName.Text = ""
                
             txtSex.Text = ""
             txtDept.Text = ""
             txtGrade.Text = ""
             txtClass.Text = ""
             txtCash.Text = ""
             txtComment.Text = ""
                
             '关闭数据集对象

       
End Sub