frmverify.vb

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

        Me.GroupBox3.Controls.Add(Me.GroupBox6)
        Me.GroupBox3.Controls.Add(Me.GroupBox5)
        Me.GroupBox3.Controls.Add(Me.GroupBox4)
        Me.GroupBox3.Location = New System.Drawing.Point(248, 56)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(640, 584)
        Me.GroupBox3.TabIndex = 3
        Me.GroupBox3.TabStop = False
        Me.GroupBox3.Text = "报名列表："
        '
        'GroupBox7
        '
        Me.GroupBox7.Controls.Add(Me.LVver)
        Me.GroupBox7.Location = New System.Drawing.Point(384, 72)
        Me.GroupBox7.Name = "GroupBox7"
        Me.GroupBox7.Size = New System.Drawing.Size(248, 496)
        Me.GroupBox7.TabIndex = 4
        Me.GroupBox7.TabStop = False
        Me.GroupBox7.Text = "报名名单："
        '
        'LVver
        '
        Me.LVver.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.colnumber, Me.colstuname, Me.colstucardid})
        Me.LVver.Dock = System.Windows.Forms.DockStyle.Fill
        Me.LVver.FullRowSelect = True
        Me.LVver.Location = New System.Drawing.Point(3, 17)
        Me.LVver.Name = "LVver"
        Me.LVver.Size = New System.Drawing.Size(242, 476)
        Me.LVver.TabIndex = 2
        Me.LVver.View = System.Windows.Forms.View.Details
        '
        'colnumber
        '
        Me.colnumber.Text = "学生编号"
        Me.colnumber.Width = 63
        '
        'colstuname
        '
        Me.colstuname.Text = "姓名"
        Me.colstuname.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        Me.colstuname.Width = 74
        '
        'colstucardid
        '
        Me.colstucardid.Text = "学号"
        Me.colstucardid.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        Me.colstucardid.Width = 101
        '
        'GroupBox6
        '
        Me.GroupBox6.Controls.Add(Me.LVStuDeta)
        Me.GroupBox6.Location = New System.Drawing.Point(8, 72)
        Me.GroupBox6.Name = "GroupBox6"
        Me.GroupBox6.Size = New System.Drawing.Size(248, 496)
        Me.GroupBox6.TabIndex = 3
        Me.GroupBox6.TabStop = False
        Me.GroupBox6.Text = "学生信息："
        '
        'LVStuDeta
        '
        Me.LVStuDeta.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.colnum, Me.colname, Me.colcardid})
        Me.LVStuDeta.Dock = System.Windows.Forms.DockStyle.Fill
        Me.LVStuDeta.FullRowSelect = True
        Me.LVStuDeta.Location = New System.Drawing.Point(3, 17)
        Me.LVStuDeta.Name = "LVStuDeta"
        Me.LVStuDeta.Size = New System.Drawing.Size(242, 476)
        Me.LVStuDeta.TabIndex = 2
        Me.LVStuDeta.View = System.Windows.Forms.View.Details
        '
        'colnum
        '
        Me.colnum.Text = "学生编号"
        '
        'colname
        '
        Me.colname.Text = "姓名"
        Me.colname.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        Me.colname.Width = 70
        '
        'colcardid
        '
        Me.colcardid.Text = "学号"
        Me.colcardid.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        Me.colcardid.Width = 108
        '
        'GroupBox5
        '
        Me.GroupBox5.Controls.Add(Me.Button5)
        Me.GroupBox5.Controls.Add(Me.Button6)
        Me.GroupBox5.Controls.Add(Me.Button3)
        Me.GroupBox5.Controls.Add(Me.Button4)
        Me.GroupBox5.Controls.Add(Me.Button2)
        Me.GroupBox5.Controls.Add(Me.Button1)
        Me.GroupBox5.Location = New System.Drawing.Point(264, 72)
        Me.GroupBox5.Name = "GroupBox5"
        Me.GroupBox5.Size = New System.Drawing.Size(112, 496)
        Me.GroupBox5.TabIndex = 1
        Me.GroupBox5.TabStop = False
        Me.GroupBox5.Text = "操作"
        '
        'Button5
        '
        Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button5.Location = New System.Drawing.Point(16, 424)
        Me.Button5.Name = "Button5"
        Me.Button5.Size = New System.Drawing.Size(80, 24)
        Me.Button5.TabIndex = 5
        Me.Button5.Text = "返   回"
        '
        'Button6
        '
        Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button6.Location = New System.Drawing.Point(16, 368)
        Me.Button6.Name = "Button6"
        Me.Button6.Size = New System.Drawing.Size(80, 24)
        Me.Button6.TabIndex = 4
        Me.Button6.Text = "确   定"
        '
        'Button3
        '
        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button3.Location = New System.Drawing.Point(16, 264)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(80, 24)
        Me.Button3.TabIndex = 3
        Me.Button3.Text = "全部去除>>"
        '
        'Button4
        '
        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button4.Location = New System.Drawing.Point(16, 208)
        Me.Button4.Name = "Button4"
        Me.Button4.Size = New System.Drawing.Size(80, 24)
        Me.Button4.TabIndex = 2
        Me.Button4.Text = "<<去  除"
        '
        'Button2
        '
        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button2.Location = New System.Drawing.Point(17, 104)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(80, 24)
        Me.Button2.TabIndex = 1
        Me.Button2.Text = "全部添加>>"
        '
        'Button1
        '
        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button1.Location = New System.Drawing.Point(17, 48)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(80, 24)
        Me.Button1.TabIndex = 0
        Me.Button1.Text = "添  加>>"
        '
        'GroupBox4
        '
        Me.GroupBox4.Controls.Add(Me.Label12)
        Me.GroupBox4.Controls.Add(Me.txtQuery)
        Me.GroupBox4.Controls.Add(Me.Label11)
        Me.GroupBox4.Controls.Add(Me.combtesttime)
        Me.GroupBox4.Controls.Add(Me.Label1)
        Me.GroupBox4.Controls.Add(Me.Label3)
        Me.GroupBox4.Controls.Add(Me.combtestyear)
        Me.GroupBox4.Location = New System.Drawing.Point(8, 16)
        Me.GroupBox4.Name = "GroupBox4"
        Me.GroupBox4.Size = New System.Drawing.Size(624, 48)
        Me.GroupBox4.TabIndex = 0
        Me.GroupBox4.TabStop = False
        Me.GroupBox4.Text = "考试时间："
        '
        'combtesttime
        '
        Me.combtesttime.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.combtesttime.Items.AddRange(New Object() {"1", "2"})
        Me.combtesttime.Location = New System.Drawing.Point(144, 18)
        Me.combtesttime.Name = "combtesttime"
        Me.combtesttime.Size = New System.Drawing.Size(40, 20)
        Me.combtesttime.TabIndex = 2
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(88, 20)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(56, 16)
        Me.Label1.TabIndex = 1
        Me.Label1.Text = "学年第"
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(192, 20)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(40, 16)
        Me.Label3.TabIndex = 3
        Me.Label3.Text = "季"
        '
        'combtestyear
        '
        Me.combtestyear.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.combtestyear.Location = New System.Drawing.Point(16, 18)
        Me.combtestyear.Name = "combtestyear"
        Me.combtestyear.Size = New System.Drawing.Size(64, 20)
        Me.combtestyear.TabIndex = 0
        '
        'txtQuery
        '
        Me.txtQuery.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtQuery.Location = New System.Drawing.Point(424, 16)
        Me.txtQuery.Name = "txtQuery"
        Me.txtQuery.Size = New System.Drawing.Size(160, 21)
        Me.txtQuery.TabIndex = 19
        Me.txtQuery.Text = ""
        '
        'Label11
        '
        Me.Label11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.Label11.Cursor = System.Windows.Forms.Cursors.Hand
        Me.Label11.Image = CType(resources.GetObject("Label11.Image"), System.Drawing.Image)
        Me.Label11.Location = New System.Drawing.Point(592, 16)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(24, 24)
        Me.Label11.TabIndex = 20
        '
        'Label12
        '
        Me.Label12.ForeColor = System.Drawing.Color.LightSeaGreen
        Me.Label12.Location = New System.Drawing.Point(240, 21)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(167, 16)
        Me.Label12.TabIndex = 21
        Me.Label12.Text = "请输入姓名或学号进行查询。"
        '
        'frmverify
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(888, 645)
        Me.Controls.Add(Me.GroupBox3)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.GroupBox1)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Name = "frmverify"
        Me.Text = "报名管理"
        Me.GroupBox1.ResumeLayout(False)
        Me.GbMarjoy.ResumeLayout(False)
        Me.GbDepartment.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.gbrever.ResumeLayout(False)
        Me.gbverfirst.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        Me.GroupBox7.ResumeLayout(False)
        Me.GroupBox6.ResumeLayout(False)
        Me.GroupBox5.ResumeLayout(False)
        Me.GroupBox4.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub frmverify_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MyDep.Initials()
        qflag = False
        CurDep.Initials()
        MyMar.Initials()
        CurMar.Initials()
        MyStu.Initials()
        CurStu.Initials()
        MyGrade.Initials()
        CurGrade.Initials()
        MyDep.LoadDepNodesToTV(TvDep)
        rdbfirst.Checked = True
        Dim i As Integer
        Dim yy As Integer
        CombEnterTime.Items.Clear()
        studbset = Nothing
        For i = 95 To 99
            CombEnterTime.Items.Add(i.ToString)
        Next
        For i = 2000 To 2050
            CombEnterTime.Items.Add(i.ToString)
            combreyear.Items.Add(i.ToString)
            combtestyear.Items.Add(i.ToString)
        Next
        yy = Year(Now())
        combtesttime.Text = 1
        combretime.Text = 1
        combtestyear.Text = yy.ToString
        combreyear.Text = (yy - 1).ToString
        If yy < 2000 And yy > 1994 Then
            CombEnterTime.Text = (yy - 1900).ToString
        Else
            CombEnterTime.Text = (yy - 3).ToString
        End If
        marid = 0
    End Sub