frmimportdata.vb

代码：是由本人自主开发完成的

        'Label4
        '
        Me.Label4.ForeColor = System.Drawing.SystemColors.ActiveCaption
        Me.Label4.Location = New System.Drawing.Point(245, 56)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(48, 15)
        Me.Label4.TabIndex = 9
        Me.Label4.Text = "性别："
        '
        'CombSexy
        '
        Me.CombSexy.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.CombSexy.Location = New System.Drawing.Point(245, 74)
        Me.CombSexy.Name = "CombSexy"
        Me.CombSexy.Size = New System.Drawing.Size(96, 20)
        Me.CombSexy.TabIndex = 10
        '
        'Label3
        '
        Me.Label3.ForeColor = System.Drawing.SystemColors.ActiveCaption
        Me.Label3.Location = New System.Drawing.Point(136, 55)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(48, 16)
        Me.Label3.TabIndex = 7
        Me.Label3.Text = "姓名："
        '
        'CombStuName
        '
        Me.CombStuName.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.CombStuName.Location = New System.Drawing.Point(136, 74)
        Me.CombStuName.Name = "CombStuName"
        Me.CombStuName.Size = New System.Drawing.Size(96, 20)
        Me.CombStuName.TabIndex = 8
        '
        'Label2
        '
        Me.Label2.ForeColor = System.Drawing.SystemColors.ActiveCaption
        Me.Label2.Location = New System.Drawing.Point(24, 56)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(48, 16)
        Me.Label2.TabIndex = 3
        Me.Label2.Text = "学号："
        '
        'CombStuCardID
        '
        Me.CombStuCardID.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.CombStuCardID.Location = New System.Drawing.Point(24, 75)
        Me.CombStuCardID.Name = "CombStuCardID"
        Me.CombStuCardID.Size = New System.Drawing.Size(96, 20)
        Me.CombStuCardID.TabIndex = 6
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.Add(Me.GroupBox4)
        Me.GroupBox2.Controls.Add(Me.GroupBox3)
        Me.GroupBox2.Controls.Add(Me.GroupBox5)
        Me.GroupBox2.Location = New System.Drawing.Point(8, 104)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(800, 488)
        Me.GroupBox2.TabIndex = 6
        Me.GroupBox2.TabStop = False
        '
        'GroupBox4
        '
        Me.GroupBox4.BackColor = System.Drawing.Color.CornflowerBlue
        Me.GroupBox4.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.GroupBox4.Location = New System.Drawing.Point(280, 11)
        Me.GroupBox4.Name = "GroupBox4"
        Me.GroupBox4.Size = New System.Drawing.Size(8, 477)
        Me.GroupBox4.TabIndex = 2
        Me.GroupBox4.TabStop = False
        '
        'GroupBox3
        '
        Me.GroupBox3.Controls.Add(Me.GbMarjoy)
        Me.GroupBox3.Controls.Add(Me.GbDepartment)
        Me.GroupBox3.Dock = System.Windows.Forms.DockStyle.Left
        Me.GroupBox3.Location = New System.Drawing.Point(3, 17)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(277, 468)
        Me.GroupBox3.TabIndex = 1
        Me.GroupBox3.TabStop = False
        Me.GroupBox3.Text = "数据库信息"
        '
        'GbMarjoy
        '
        Me.GbMarjoy.Controls.Add(Me.LbMarjoy)
        Me.GbMarjoy.Location = New System.Drawing.Point(8, 264)
        Me.GbMarjoy.Name = "GbMarjoy"
        Me.GbMarjoy.Size = New System.Drawing.Size(264, 200)
        Me.GbMarjoy.TabIndex = 1
        Me.GbMarjoy.TabStop = False
        Me.GbMarjoy.Text = "专业信息："
        '
        'LbMarjoy
        '
        Me.LbMarjoy.Dock = System.Windows.Forms.DockStyle.Fill
        Me.LbMarjoy.ItemHeight = 12
        Me.LbMarjoy.Location = New System.Drawing.Point(3, 17)
        Me.LbMarjoy.Name = "LbMarjoy"
        Me.LbMarjoy.Size = New System.Drawing.Size(258, 172)
        Me.LbMarjoy.TabIndex = 0
        '
        'GbDepartment
        '
        Me.GbDepartment.Controls.Add(Me.TvDep)
        Me.GbDepartment.Location = New System.Drawing.Point(8, 16)
        Me.GbDepartment.Name = "GbDepartment"
        Me.GbDepartment.Size = New System.Drawing.Size(264, 240)
        Me.GbDepartment.TabIndex = 0
        Me.GbDepartment.TabStop = False
        Me.GbDepartment.Text = "院系信息："
        '
        'TvDep
        '
        Me.TvDep.Dock = System.Windows.Forms.DockStyle.Fill
        Me.TvDep.ImageList = Me.ImageList1
        Me.TvDep.ItemHeight = 34
        Me.TvDep.Location = New System.Drawing.Point(3, 17)
        Me.TvDep.Name = "TvDep"
        Me.TvDep.Size = New System.Drawing.Size(258, 220)
        Me.TvDep.TabIndex = 0
        '
        'ImageList1
        '
        Me.ImageList1.ImageSize = New System.Drawing.Size(32, 32)
        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
        '
        'GroupBox5
        '
        Me.GroupBox5.Controls.Add(Me.GroupBox8)
        Me.GroupBox5.Controls.Add(Me.GroupBox9)
        Me.GroupBox5.Location = New System.Drawing.Point(288, 16)
        Me.GroupBox5.Name = "GroupBox5"
        Me.GroupBox5.Size = New System.Drawing.Size(504, 464)
        Me.GroupBox5.TabIndex = 3
        Me.GroupBox5.TabStop = False
        Me.GroupBox5.Text = "导入院系信息"
        '
        'GroupBox8
        '
        Me.GroupBox8.Controls.Add(Me.Button2)
        Me.GroupBox8.Controls.Add(Me.CmdCancel)
        Me.GroupBox8.Controls.Add(Me.CmdImport)
        Me.GroupBox8.Controls.Add(Me.GroupBox7)
        Me.GroupBox8.Controls.Add(Me.GroupBox6)
        Me.GroupBox8.Location = New System.Drawing.Point(8, 24)
        Me.GroupBox8.Name = "GroupBox8"
        Me.GroupBox8.Size = New System.Drawing.Size(488, 432)
        Me.GroupBox8.TabIndex = 18
        Me.GroupBox8.TabStop = False
        '
        'Button2
        '
        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button2.Location = New System.Drawing.Point(416, 200)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(64, 64)
        Me.Button2.TabIndex = 20
        Me.Button2.Text = "查看异常数据"
        '
        'CmdCancel
        '
        Me.CmdCancel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.CmdCancel.Location = New System.Drawing.Point(416, 352)
        Me.CmdCancel.Name = "CmdCancel"
        Me.CmdCancel.Size = New System.Drawing.Size(64, 32)
        Me.CmdCancel.TabIndex = 19
        Me.CmdCancel.Text = "返  回"
        '
        'CmdImport
        '
        Me.CmdImport.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.CmdImport.Location = New System.Drawing.Point(416, 80)
        Me.CmdImport.Name = "CmdImport"
        Me.CmdImport.Size = New System.Drawing.Size(64, 32)
        Me.CmdImport.TabIndex = 18
        Me.CmdImport.Text = "确  定"
        '
        'GroupBox7
        '
        Me.GroupBox7.Controls.Add(Me.LbTempmar)
        Me.GroupBox7.Location = New System.Drawing.Point(212, 16)
        Me.GroupBox7.Name = "GroupBox7"
        Me.GroupBox7.Size = New System.Drawing.Size(192, 408)
        Me.GroupBox7.TabIndex = 3
        Me.GroupBox7.TabStop = False
        Me.GroupBox7.Text = "专业："
        '
        'LbTempmar
        '
        Me.LbTempmar.Dock = System.Windows.Forms.DockStyle.Fill
        Me.LbTempmar.ItemHeight = 12
        Me.LbTempmar.Location = New System.Drawing.Point(3, 17)
        Me.LbTempmar.Name = "LbTempmar"
        Me.LbTempmar.Size = New System.Drawing.Size(186, 388)
        Me.LbTempmar.TabIndex = 2
        '
        'GroupBox6
        '
        Me.GroupBox6.Controls.Add(Me.TvTempDepart)
        Me.GroupBox6.Location = New System.Drawing.Point(12, 16)
        Me.GroupBox6.Name = "GroupBox6"
        Me.GroupBox6.Size = New System.Drawing.Size(192, 408)
        Me.GroupBox6.TabIndex = 2
        Me.GroupBox6.TabStop = False
        Me.GroupBox6.Text = "院系："
        '
        'TvTempDepart
        '
        Me.TvTempDepart.Dock = System.Windows.Forms.DockStyle.Fill
        Me.TvTempDepart.ImageList = Me.ImageList1
        Me.TvTempDepart.ItemHeight = 34
        Me.TvTempDepart.Location = New System.Drawing.Point(3, 17)
        Me.TvTempDepart.Name = "TvTempDepart"
        Me.TvTempDepart.Size = New System.Drawing.Size(186, 388)
        Me.TvTempDepart.TabIndex = 0
        '
        'GroupBox9
        '
        Me.GroupBox9.Controls.Add(Me.Button3)
        Me.GroupBox9.Controls.Add(Me.Label8)
        Me.GroupBox9.Controls.Add(Me.DataGrid1)
        Me.GroupBox9.Location = New System.Drawing.Point(8, 24)
        Me.GroupBox9.Name = "GroupBox9"
        Me.GroupBox9.Size = New System.Drawing.Size(488, 432)
        Me.GroupBox9.TabIndex = 20
        Me.GroupBox9.TabStop = False
        Me.GroupBox9.Visible = False
        '
        'Button3
        '
        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button3.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Button3.ForeColor = System.Drawing.SystemColors.Highlight
        Me.Button3.Location = New System.Drawing.Point(400, 16)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(80, 80)
        Me.Button3.TabIndex = 2
        Me.Button3.Text = "返   回"
        '
        'Label8
        '
        Me.Label8.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.Label8.ForeColor = System.Drawing.SystemColors.InactiveCaption
        Me.Label8.Location = New System.Drawing.Point(8, 17)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(376, 80)
        Me.Label8.TabIndex = 1
        Me.Label8.Text = "  说明：在以下显示的学生数据可能是你还未导入的数据，也可能是因为数据缺乏重要的信息而系统无法导入的，如果你发现这些数据请求相关院系提供有效的数据，在学生管理模块" & _
        "中添加，如果是还未完成的导入数据，请继续操作。"
        Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'DataGrid1
        '
        Me.DataGrid1.AlternatingBackColor = System.Drawing.Color.GhostWhite
        Me.DataGrid1.BackColor = System.Drawing.Color.GhostWhite
        Me.DataGrid1.BackgroundColor = System.Drawing.Color.Lavender
        Me.DataGrid1.CaptionBackColor = System.Drawing.Color.RoyalBlue
        Me.DataGrid1.CaptionForeColor = System.Drawing.Color.White
        Me.DataGrid1.DataMember = ""
        Me.DataGrid1.FlatMode = True
        Me.DataGrid1.Font = New System.Drawing.Font("Tahoma", 8.0!)
        Me.DataGrid1.ForeColor = System.Drawing.Color.MidnightBlue
        Me.DataGrid1.GridLineColor = System.Drawing.Color.RoyalBlue
        Me.DataGrid1.HeaderBackColor = System.Drawing.Color.MidnightBlue
        Me.DataGrid1.HeaderFont = New System.Drawing.Font("Tahoma", 8.0!, System.Drawing.FontStyle.Bold)
        Me.DataGrid1.HeaderForeColor = System.Drawing.Color.Lavender
        Me.DataGrid1.LinkColor = System.Drawing.Color.Teal