frmsearch.frm

这是一个还需要一些修改的数据库系统

   Begin VB.TextBox txtNative 
      Height          =   300
      Left            =   4200
      TabIndex        =   12
      Top             =   1560
      Width           =   1575
   End
   Begin VB.TextBox txtBirth 
      Height          =   300
      Left            =   4200
      TabIndex        =   11
      Top             =   960
      Width           =   1575
   End
   Begin VB.TextBox txtName 
      Height          =   300
      Left            =   960
      TabIndex        =   10
      Top             =   960
      Width           =   1575
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00FFC0C0&
      Caption         =   " 学生基本情况"
      Height          =   1695
      Left            =   120
      TabIndex        =   3
      Top             =   600
      Width           =   9615
      Begin VB.Label Label2 
         BackColor       =   &H00FFC0C0&
         Caption         =   "姓名："
         Height          =   300
         Left            =   0
         TabIndex        =   9
         Top             =   360
         Width           =   1215
      End
      Begin VB.Label Label3 
         BackColor       =   &H00FFC0C0&
         Caption         =   "性别："
         Height          =   300
         Left            =   0
         TabIndex        =   8
         Top             =   960
         Width           =   1215
      End
      Begin VB.Label Label4 
         BackColor       =   &H00FFC0C0&
         Caption         =   "生日："
         Height          =   300
         Left            =   3120
         TabIndex        =   7
         Top             =   360
         Width           =   1215
      End
      Begin VB.Label Label5 
         BackColor       =   &H00FFC0C0&
         Caption         =   "籍贯："
         Height          =   300
         Left            =   3120
         TabIndex        =   6
         Top             =   960
         Width           =   1215
      End
      Begin VB.Label Label6 
         BackColor       =   &H00FFC0C0&
         Caption         =   "院系："
         Height          =   300
         Left            =   6360
         TabIndex        =   5
         Top             =   360
         Width           =   1215
      End
      Begin VB.Label Label7 
         BackColor       =   &H00FFC0C0&
         Caption         =   "班级："
         Height          =   300
         Left            =   6360
         TabIndex        =   4
         Top             =   960
         Width           =   1215
      End
   End
   Begin VB.CommandButton cmdSearch 
      Caption         =   "查询"
      Height          =   390
      Left            =   2880
      TabIndex        =   2
      Top             =   120
      Width           =   855
   End
   Begin VB.TextBox txtStuNO 
      Height          =   300
      Left            =   1080
      TabIndex        =   1
      Top             =   120
      Width           =   1215
   End
   Begin VB.Label Label10 
      BackColor       =   &H00FFC0C0&
      Caption         =   "学籍变更列表："
      Height          =   300
      Left            =   120
      TabIndex        =   16
      Top             =   2520
      Width           =   1455
   End
   Begin VB.Label Label9 
      BackColor       =   &H00FFC0C0&
      Caption         =   "奖励情况列表："
      Height          =   300
      Left            =   3600
      TabIndex        =   15
      Top             =   2520
      Width           =   1575
   End
   Begin VB.Label Label8 
      BackColor       =   &H00FFC0C0&
      Caption         =   "处罚情况列表："
      Height          =   300
      Left            =   7200
      TabIndex        =   14
      Top             =   2520
      Width           =   1695
   End
   Begin VB.Label Label1 
      BackColor       =   &H00FFC0C0&
      Caption         =   "输入学号："
      Height          =   300
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   1215
   End
End
Attribute VB_Name = "FrmSearch"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim strCnn As String
Dim cnn As ADODB.Connection
Dim cmd As ADODB.Command
Public strStuNO As String
Public iCurrentPos As Integer





Private Sub Command1_Click()
  Unload Me
End Sub

Private Sub Form_Load()
   strCnn = "Provider=SQLOLEDB.1;integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=学生信息管理系统;Data Source=飞扬社区"
End Sub
Private Sub Search()
     Set cmd = New ADODB.Command
     If Len(LTrim(txtStuNO.Text)) <> 0 Then
          strStuNO = txtStuNO.Text
     Else
         MsgBox "请输入学号！"
         Exit Sub
     End If
     FillStuBasic strStuNO
     FillChangeList strStuNO
     If MSHFlexGridChange.Col > 0 Then
          FillTypeAndDes MSHFlexGridChange.TextMatrix(1, 1)
     End If
End Sub
Private Sub FillStuBasic(stuNO As String)
     Dim cnn As New ADODB.Connection
     Dim cmd As New ADODB.Command
     cnn.Open strCnn
     
     cmd.ActiveConnection = cnn
     cmd.CommandType = adCmdStoredProc
     cmd.CommandText = "stu_GetStuSummary2"
     
     cmd.Parameters.Append cmd.CreateParameter("@stuNO", adChar, adParamInput, 6)
     cmd.Parameters.Append cmd.CreateParameter("@name", adVarChar, adParamOutput, 20)
     cmd.Parameters.Append cmd.CreateParameter("@sex", adChar, adParamOutput, 2)
     cmd.Parameters.Append cmd.CreateParameter("@birthday", adDate, adParamOutput)
     cmd.Parameters.Append cmd.CreateParameter("@native", adVarChar, adParamOutput, 50)
     cmd.Parameters.Append cmd.CreateParameter("@departName", adVarChar, adParamOutput, 50)
     cmd.Parameters.Append cmd.CreateParameter("@className", adVarChar, adParamOutput, 50)
     
     cmd.Parameters("@stuNO").Value = stuNO
     cmd.Execute
     
     txtName.Text = cmd.Parameters("@name").Value
     cmbSex.Text = cmd.Parameters("@sex").Value
     txtBirth.Text = cmd.Parameters("@birthday").Value
     txtNative.Text = cmd.Parameters("@native").Value
     dtcmbDepart.Text = cmd.Parameters("@departName").Value
     dtcmbClass.Text = cmd.Parameters("@className").Value
     cnn.Close
     Set cnn = Nothing
End Sub

Private Sub FillChangeList(stuNO As String)
      Dim cnn As New ADODB.Connection
      Dim cmdChange As New ADODB.Command
      Dim rsChange As New ADODB.Recordset
      
      cnn.Open strCnn
      cmdChange.ActiveConnection = cnn
      cmdChange.CommandType = adCmdStoredProc
      cmdChange.CommandText = "stu_GetChangeByNO"
      cmdChange.Parameters.Append cmdChange.CreateParameter("@stuNO", adChar, adParamInput, 6)
      cmdChange.Parameters("@stuNO").Value = stuNO
      
      With rsChange
              .ActiveConnection = cnn
              .CursorLocation = adUseClient
              .CursorType = adOpenStatic
      End With
      Set rsChange = cmdChange.Execute()
      Set MSHFlexGridChange.DataSource = rsChange
End Sub

Private Sub FillTypeAndDes(Row As Integer)
      Dim cnn As New ADODB.Connection
      Dim cmd As New ADODB.Command
      
      cnn.Open strCnn
      cmd.ActiveConnection = cnn
      cmd.CommandType = adCmdStoredProc
      cmd.CommandText = "stu_ChangeTypeAndDes"
      
      cmd.Parameters.Append cmd.CreateParameter("@id", adChar, adParamInput, 1)
      cmd.Parameters.Append cmd.CreateParameter("@des", adVarChar, adParamOutput, 50)
      cmd.Parameters.Append cmd.CreateParameter("@memo", adVarChar, adParamOutput, 1000)
      cmd.Parameters("@id").Value = Row
      cmd.Execute
      
      dtcmbChange.Text = cmd("@des").Value
      txtChangeMemo.Text = cmd("@memo").Value
End Sub
Private Sub CmdSearch_Click()
     Search
End Sub
Private Sub MSHFlexGridChange_RowColChange()
      Dim recNO As Integer
      recNO = MSHFlexGridChange.TextMatrix(MSHFlexGridChange.RowSel, 1)
      FillTypeAndDes recNO
End Sub