frmstudent.vb

vb.net+SQL开发工具 是一个很好的管理系统的源码

        Me.cbbSex.Items.AddRange(New Object() {"男", "女"})
        Me.cbbSex.Location = New System.Drawing.Point(208, 32)
        Me.cbbSex.Name = "cbbSex"
        Me.cbbSex.Size = New System.Drawing.Size(64, 20)
        Me.cbbSex.TabIndex = 27
        '
        'Label13
        '
        Me.Label13.Location = New System.Drawing.Point(208, 16)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(56, 16)
        Me.Label13.TabIndex = 26
        Me.Label13.Text = "性别"
        '
        'txbPID
        '
        Me.txbPID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "学生信息.身份证号"))
        Me.txbPID.Location = New System.Drawing.Point(360, 32)
        Me.txbPID.Name = "txbPID"
        Me.txbPID.Size = New System.Drawing.Size(96, 21)
        Me.txbPID.TabIndex = 25
        Me.txbPID.Text = ""
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(360, 16)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(56, 16)
        Me.Label7.TabIndex = 24
        Me.Label7.Text = "身份证号"
        '
        'txbGrade
        '
        Me.txbGrade.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "学生信息.年级"))
        Me.txbGrade.Location = New System.Drawing.Point(288, 32)
        Me.txbGrade.Name = "txbGrade"
        Me.txbGrade.Size = New System.Drawing.Size(56, 21)
        Me.txbGrade.TabIndex = 23
        Me.txbGrade.Text = ""
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(288, 16)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(56, 16)
        Me.Label6.TabIndex = 22
        Me.Label6.Text = "年级"
        '
        'txbName
        '
        Me.txbName.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "学生信息.姓名"))
        Me.txbName.Location = New System.Drawing.Point(112, 32)
        Me.txbName.Name = "txbName"
        Me.txbName.Size = New System.Drawing.Size(80, 21)
        Me.txbName.TabIndex = 21
        Me.txbName.Text = ""
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(112, 16)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(56, 16)
        Me.Label5.TabIndex = 20
        Me.Label5.Text = "姓名"
        '
        'txbClassId
        '
        Me.txbClassId.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "学生信息.学号"))
        Me.txbClassId.Location = New System.Drawing.Point(16, 32)
        Me.txbClassId.Name = "txbClassId"
        Me.txbClassId.Size = New System.Drawing.Size(80, 21)
        Me.txbClassId.TabIndex = 19
        Me.txbClassId.Text = ""
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(16, 16)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(56, 16)
        Me.Label4.TabIndex = 18
        Me.Label4.Text = "学号"
        '
        'SqlDataAdapter1
        '
        Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
        Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
        Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
        Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "学生信息", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("学号", "学号"), New System.Data.Common.DataColumnMapping("姓名", "姓名"), New System.Data.Common.DataColumnMapping("班级编号", "班级编号"), New System.Data.Common.DataColumnMapping("性别", "性别"), New System.Data.Common.DataColumnMapping("年级", "年级"), New System.Data.Common.DataColumnMapping("身份证号", "身份证号"), New System.Data.Common.DataColumnMapping("政治面貌编号", "政治面貌编号"), New System.Data.Common.DataColumnMapping("民族编号", "民族编号"), New System.Data.Common.DataColumnMapping("籍贯编号", "籍贯编号"), New System.Data.Common.DataColumnMapping("学籍编号", "学籍编号")})})
        Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
        '
        'SqlDeleteCommand1
        '
        Me.SqlDeleteCommand1.CommandText = "DELETE FROM 学生信息 WHERE (学号 = @Original_学号) AND (姓名 = @Original_姓名 OR @Original_姓名" & _
        " IS NULL AND 姓名 IS NULL) AND (学籍编号 = @Original_学籍编号) AND (年级 = @Original_年级 OR @" & _
        "Original_年级 IS NULL AND 年级 IS NULL) AND (性别 = @Original_性别 OR @Original_性别 IS NU" & _
        "LL AND 性别 IS NULL) AND (政治面貌编号 = @Original_政治面貌编号 OR @Original_政治面貌编号 IS NULL AN" & _
        "D 政治面貌编号 IS NULL) AND (民族编号 = @Original_民族编号) AND (班级编号 = @Original_班级编号 OR @Ori" & _
        "ginal_班级编号 IS NULL AND 班级编号 IS NULL) AND (籍贯编号 = @Original_籍贯编号) AND (身份证号 = @Or" & _
        "iginal_身份证号 OR @Original_身份证号 IS NULL AND 身份证号 IS NULL)"
        Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_学号", System.Data.SqlDbType.VarChar, 14, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "学号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_姓名", System.Data.SqlDbType.VarChar, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "姓名", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_学籍编号", System.Data.SqlDbType.VarChar, 2, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "学籍编号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_年级", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "年级", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_性别", System.Data.SqlDbType.VarChar, 2, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "性别", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_政治面貌编号", System.Data.SqlDbType.VarChar, 2, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "政治面貌编号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_民族编号", System.Data.SqlDbType.VarChar, 2, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "民族编号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_班级编号", System.Data.SqlDbType.VarChar, 14, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "班级编号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_籍贯编号", System.Data.SqlDbType.VarChar, 2, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "籍贯编号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_身份证号", System.Data.SqlDbType.VarChar, 15, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "身份证号", System.Data.DataRowVersion.Original, Nothing))
        '
        'SqlConnection1
        '
        Me.SqlConnection1.ConnectionString = "workstation id=CS;packet size=4096;integrated security=SSPI;data source=cs;persis" & _
        "t security info=False;initial catalog=eisbook"
        '
        'SqlInsertCommand1
        '
        Me.SqlInsertCommand1.CommandText = "INSERT INTO 学生信息(学号, 姓名, 班级编号, 性别, 年级, 身份证号, 政治面貌编号, 民族编号, 籍贯编号, 学籍编号) VALUES (@学" & _
        "号, @姓名, @班级编号, @性别, @年级, @身份证号, @政治面貌编号, @民族编号, @籍贯编号, @学籍编号); SELECT 学号, 姓名, 班级" & _
        "编号, 性别, 年级, 身份证号, 政治面貌编号, 民族编号, 籍贯编号, 学籍编号 FROM 学生信息 WHERE (学号 = @学号)"
        Me.SqlInsertCommand1.Connection = Me.SqlConnection1
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@学号", System.Data.SqlDbType.VarChar, 14, "学号"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@姓名", System.Data.SqlDbType.VarChar, 8, "姓名"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@班级编号", System.Data.SqlDbType.VarChar, 14, "班级编号"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@性别", System.Data.SqlDbType.VarChar, 2, "性别"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@年级", System.Data.SqlDbType.Int, 4, "年级"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@身份证号", System.Data.SqlDbType.VarChar, 15, "身份证号"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@政治面貌编号", System.Data.SqlDbType.VarChar, 2, "政治面貌编号"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@民族编号", System.Data.SqlDbType.VarChar, 2, "民族编号"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@籍贯编号", System.Data.SqlDbType.VarChar, 2, "籍贯编号"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@学籍编号", System.Data.SqlDbType.VarChar, 2, "学籍编号"))
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "SELECT 学号, 姓名, 班级编号, 性别, 年级, 身份证号, 政治面貌编号, 民族编号, 籍贯编号, 学籍编号 FROM 学生信息"
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        '
        'SqlUpdateCommand1
        '
        Me.SqlUpdateCommand1.CommandText = "UPDATE 学生信息 SET 学号 = @学号, 姓名 = @姓名, 班级编号 = @班级编号, 性别 = @性别, 年级 = @年级, 身份证号 = @身份证" & _
        "号, 政治面貌编号 = @政治面貌编号, 民族编号 = @民族编号, 籍贯编号 = @籍贯编号, 学籍编号 = @学籍编号 WHERE (学号 = @Origi" & _
        "nal_学号) AND (姓名 = @Original_姓名 OR @Original_姓名 IS NULL AND 姓名 IS NULL) AND (学籍编号" & _
        " = @Original_学籍编号) AND (年级 = @Original_年级 OR @Original_年级 IS NULL AND 年级 IS NULL" & _
        ") AND (性别 = @Original_性别 OR @Original_性别 IS NULL AND 性别 IS NULL) AND (政治面貌编号 = @" & _
        "Original_政治面貌编号 OR @Original_政治面貌编号 IS NULL AND 政治面貌编号 IS NULL) AND (民族编号 = @Ori" & _
        "ginal_民族编号) AND (班级编号 = @Original_班级编号 OR @Original_班级编号 IS NULL AND 班级编号 IS NUL" & _
        "L) AND (籍贯编号 = @Original_籍贯编号) AND (身份证号 = @Original_身份证号 OR @Original_身份证号 IS N" & _
        "ULL AND 身份证号 IS NULL); SELECT 学号, 姓名, 班级编号, 性别, 年级, 身份证号, 政治面貌编号, 民族编号, 籍贯编号, 学籍" & _
        "编号 FROM 学生信息 WHERE (学号 = @学号)"
        Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@学号", System.Data.SqlDbType.VarChar, 14, "学号"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@姓名", System.Data.SqlDbType.VarChar, 8, "姓名"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@班级编号", System.Data.SqlDbType.VarChar, 14, "班级编号"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@性别", System.Data.SqlDbType.VarChar, 2, "性别"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@年级", System.Data.SqlDbType.Int, 4, "年级"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@身份证号", System.Data.SqlDbType.VarChar, 15, "身份证号"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@政治面貌编号", System.Data.SqlDbType.VarChar, 2, "政治面貌编号"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@民族编号", System.Data.SqlDbType.VarChar, 2, "民族编号"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@籍贯编号", System.Data.SqlDbType.VarChar, 2, "籍贯编号"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@学籍编号", System.Data.SqlDbType.VarChar, 2, "学籍编号"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_学号", System.Data.SqlDbType.VarChar, 14, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "学号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_姓名", System.Data.SqlDbType.VarChar, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "姓名", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_学籍编号", System.Data.SqlDbType.VarChar, 2, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "学籍编号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_年级", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "年级", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_性别", System.Data.SqlDbType.VarChar, 2, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "性别", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_政治面貌编号", System.Data.SqlDbType.VarChar, 2, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "政治面貌编号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_民族编号", System.Data.SqlDbType.VarChar, 2, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "民族编号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_班级编号", System.Data.SqlDbType.VarChar, 14, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "班级编号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_籍贯编号", System.Data.SqlDbType.VarChar, 2, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "籍贯编号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_身份证号", System.Data.SqlDbType.VarChar, 15, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "身份证号", System.Data.DataRowVersion.Original, Nothing))
        '
        'frmStudent
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(616, 317)
        Me.Controls.Add(Me.GroupBox1)
        Me.Name = "frmStudent"
        Me.Controls.SetChildIndex(Me.GroupBox1, 0)
        Me.GroupBox1.ResumeLayout(False)
        CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region
    Public Overrides Sub Prepare()
        Me.Text = "学生信息维护"
        Me.Label1.Text = "  学号"
        Me.Label2.Text = "  姓名"
        Me.Label3.Text = "  年级"
        '设置ComboBox控件数据源
        Dim db As DataBase = New DataBase
        Dim dv As DataView = db.RunSelectSQL _
       ("select 班级编号,班级名称 from 班级信息 order by 班级名称")
        Me.cbbClassId.DataSource = dv
        Me.cbbClassId.DisplayMember = "班级名称"
        Me.cbbClassId.ValueMember = "班级编号"
        dv = db.RunSelectSQL _
        ("select 政治面貌编号,政治面貌 from 政治面貌代码表")
        Me.cbbPolity.DataSource = dv
        Me.cbbPolity.DisplayMember = "政治面貌"
        Me.cbbPolity.ValueMember = "政治面貌编号"
        dv = db.RunSelectSQL("select 民族编号,民族 from 民族代码表")
        Me.cbbNation.DataSource = dv
        Me.cbbNation.DisplayMember = "民族"
        Me.cbbNation.ValueMember = "民族编号"
        dv = db.RunSelectSQL("select 籍贯编号,籍贯 from 籍贯代码表")
        Me.cbbBirthPlace.DataSource = dv