《课程设计1》.docVIP

一、学生信息查询 界面截图： 主要代码： Public Class StuSearch Private Sub StuSearch_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim con As System.Data.SqlClient.SqlConnection = New System.Data.SqlClient.SqlConnection(Data Source=.;Initial Catalog=PXSCJ;User ID=sa;Password=woshifj) Dim cmd As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand() cmd.Connection = con cmd.CommandText = SELECT DISTINCT ZY AS ZY FROM XSB con.Open() Dim sdr As System.Data.SqlClient.SqlDataReader = cmd.ExecuteReader() Dim ds As System.Data.DataSet = New System.Data.DataSet ds.Load(sdr, LoadOption.OverwriteChanges, 专业) ds.Tables(专业).Rows.Add(所有) ComboBox1.DataSource = ds.Tables(专业) ComboBox1.SelectedIndex = ComboBox1.Items.Count - 1 con.Close() Me.WindowState = FormWindowState.Maximized Me.Location = New System.Drawing.Point(0, 0) End Sub Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick Dim dgr As DataGridViewRow Dim dgc As Integer dgc = e.RowIndex If dgc -1 And dgc DataGridView1.Rows.Count - 1 Then dgr = DataGridView1.Rows(dgc) PictureBox1.Image = Nothing Try Dim bytes() As Byte = dgr.Cells(ZP).Value PictureBox1.Image = CType(Bitmap.FromStream(New IO.MemoryStream(bytes)), Bitmap) Catch ex As Exception End Try TextBox3.Text = dgr.Cells(BZ).Value End If End Sub Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged Dim zy As String = ComboBox1.SelectedValue Dim str As String = SELECT XH, XM, (CASE XB WHEN (0) THEN 女 ELSE 男 END) AS XB, CSSJ, ZY, ZXF, BZ, LXFS,