frmzhengshu.vb

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

        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
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.Add(Me.Button3)
        Me.GroupBox2.Controls.Add(Me.cmdCancel)
        Me.GroupBox2.Controls.Add(Me.cmdOK)
        Me.GroupBox2.Controls.Add(Me.DataGrid1)
        Me.GroupBox2.Location = New System.Drawing.Point(248, 64)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(632, 408)
        Me.GroupBox2.TabIndex = 12
        Me.GroupBox2.TabStop = False
        '
        'Button3
        '
        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button3.Location = New System.Drawing.Point(296, 368)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(88, 32)
        Me.Button3.TabIndex = 14
        Me.Button3.Text = "打    印"
        '
        'cmdCancel
        '
        Me.cmdCancel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.cmdCancel.Location = New System.Drawing.Point(448, 368)
        Me.cmdCancel.Name = "cmdCancel"
        Me.cmdCancel.Size = New System.Drawing.Size(72, 32)
        Me.cmdCancel.TabIndex = 13
        Me.cmdCancel.Text = "返   回"
        '
        'cmdOK
        '
        Me.cmdOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.cmdOK.Location = New System.Drawing.Point(112, 368)
        Me.cmdOK.Name = "cmdOK"
        Me.cmdOK.Size = New System.Drawing.Size(88, 32)
        Me.cmdOK.TabIndex = 12
        Me.cmdOK.Text = "打 印 预 览"
        '
        '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
        Me.DataGrid1.Location = New System.Drawing.Point(3, 8)
        Me.DataGrid1.Name = "DataGrid1"
        Me.DataGrid1.ParentRowsBackColor = System.Drawing.Color.Lavender
        Me.DataGrid1.ParentRowsForeColor = System.Drawing.Color.MidnightBlue
        Me.DataGrid1.ReadOnly = True
        Me.DataGrid1.SelectionBackColor = System.Drawing.Color.Teal
        Me.DataGrid1.SelectionForeColor = System.Drawing.Color.PaleGreen
        Me.DataGrid1.Size = New System.Drawing.Size(621, 344)
        Me.DataGrid1.TabIndex = 10
        '
        'GroupBox3
        '
        Me.GroupBox3.Controls.Add(Me.GroupBox5)
        Me.GroupBox3.Controls.Add(Me.TxtPRVerDateLeft)
        Me.GroupBox3.Controls.Add(Me.Label18)
        Me.GroupBox3.Controls.Add(Me.TxtPRVerMonLeft)
        Me.GroupBox3.Controls.Add(Me.Label17)
        Me.GroupBox3.Controls.Add(Me.TxtPRVerYearLeft)
        Me.GroupBox3.Controls.Add(Me.Label16)
        Me.GroupBox3.Controls.Add(Me.TxtPRVerYearTop)
        Me.GroupBox3.Controls.Add(Me.Label15)
        Me.GroupBox3.Controls.Add(Me.TxtPRTestMonTop)
        Me.GroupBox3.Controls.Add(Me.Label14)
        Me.GroupBox3.Controls.Add(Me.TxtPRTestMonLeft)
        Me.GroupBox3.Controls.Add(Me.Label13)
        Me.GroupBox3.Controls.Add(Me.TxtPRTestYearLeft)
        Me.GroupBox3.Controls.Add(Me.Label12)
        Me.GroupBox3.Controls.Add(Me.TxtPRNameLeft)
        Me.GroupBox3.Controls.Add(Me.Label11)
        Me.GroupBox3.Controls.Add(Me.TxtPRNameTop)
        Me.GroupBox3.Controls.Add(Me.Label10)
        Me.GroupBox3.Controls.Add(Me.TxtBianHaoTop)
        Me.GroupBox3.Controls.Add(Me.Label9)
        Me.GroupBox3.Controls.Add(Me.TxtGrdTop)
        Me.GroupBox3.Controls.Add(Me.Label8)
        Me.GroupBox3.Controls.Add(Me.TxtMarTop)
        Me.GroupBox3.Controls.Add(Me.Label7)
        Me.GroupBox3.Controls.Add(Me.TxtPDepTop)
        Me.GroupBox3.Controls.Add(Me.Label6)
        Me.GroupBox3.Controls.Add(Me.TxtPsexTop)
        Me.GroupBox3.Controls.Add(Me.Label5)
        Me.GroupBox3.Controls.Add(Me.TxtPNameTop)
        Me.GroupBox3.Controls.Add(Me.Label4)
        Me.GroupBox3.Controls.Add(Me.TxtPLeft)
        Me.GroupBox3.Controls.Add(Me.Label2)
        Me.GroupBox3.Controls.Add(Me.Button2)
        Me.GroupBox3.Controls.Add(Me.Button1)
        Me.GroupBox3.Location = New System.Drawing.Point(248, 64)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(456, 408)
        Me.GroupBox3.TabIndex = 13
        Me.GroupBox3.TabStop = False
        Me.GroupBox3.Visible = False
        '
        'GroupBox5
        '
        Me.GroupBox5.Controls.Add(Me.TxtVerDate)
        Me.GroupBox5.Controls.Add(Me.Label24)
        Me.GroupBox5.Controls.Add(Me.TxtVerMon)
        Me.GroupBox5.Controls.Add(Me.Label22)
        Me.GroupBox5.Controls.Add(Me.TxtVerYear)
        Me.GroupBox5.Controls.Add(Me.Label23)
        Me.GroupBox5.Controls.Add(Me.TxtTestMon)
        Me.GroupBox5.Controls.Add(Me.Label21)
        Me.GroupBox5.Controls.Add(Me.TxtTestYear)
        Me.GroupBox5.Controls.Add(Me.Label20)
        Me.GroupBox5.Controls.Add(Me.TxtBianHao)
        Me.GroupBox5.Controls.Add(Me.Label19)
        Me.GroupBox5.Location = New System.Drawing.Point(184, 208)
        Me.GroupBox5.Name = "GroupBox5"
        Me.GroupBox5.Size = New System.Drawing.Size(256, 136)
        Me.GroupBox5.TabIndex = 34
        Me.GroupBox5.TabStop = False
        '
        'TxtVerDate
        '
        Me.TxtVerDate.Location = New System.Drawing.Point(64, 104)
        Me.TxtVerDate.Name = "TxtVerDate"
        Me.TxtVerDate.Size = New System.Drawing.Size(56, 21)
        Me.TxtVerDate.TabIndex = 27
        Me.TxtVerDate.Text = ""
        '
        'Label24
        '
        Me.Label24.Location = New System.Drawing.Point(8, 108)
        Me.Label24.Name = "Label24"
        Me.Label24.Size = New System.Drawing.Size(56, 16)
        Me.Label24.TabIndex = 26
        Me.Label24.Text = "发证日："
        '
        'TxtVerMon
        '
        Me.TxtVerMon.Location = New System.Drawing.Point(184, 74)
        Me.TxtVerMon.Name = "TxtVerMon"
        Me.TxtVerMon.Size = New System.Drawing.Size(56, 21)
        Me.TxtVerMon.TabIndex = 25
        Me.TxtVerMon.Text = ""
        '
        'Label22
        '
        Me.Label22.Location = New System.Drawing.Point(128, 78)
        Me.Label22.Name = "Label22"
        Me.Label22.Size = New System.Drawing.Size(56, 16)
        Me.Label22.TabIndex = 24
        Me.Label22.Text = "发证月："
        '
        'TxtVerYear
        '
        Me.TxtVerYear.Location = New System.Drawing.Point(64, 74)
        Me.TxtVerYear.Name = "TxtVerYear"
        Me.TxtVerYear.Size = New System.Drawing.Size(56, 21)
        Me.TxtVerYear.TabIndex = 23
        Me.TxtVerYear.Text = ""
        '
        'Label23
        '
        Me.Label23.Location = New System.Drawing.Point(8, 79)
        Me.Label23.Name = "Label23"
        Me.Label23.Size = New System.Drawing.Size(56, 16)
        Me.Label23.TabIndex = 22
        Me.Label23.Text = "发证年："
        '
        'TxtTestMon
        '
        Me.TxtTestMon.Location = New System.Drawing.Point(184, 44)
        Me.TxtTestMon.Name = "TxtTestMon"
        Me.TxtTestMon.Size = New System.Drawing.Size(56, 21)
        Me.TxtTestMon.TabIndex = 21
        Me.TxtTestMon.Text = ""
        '
        'Label21
        '
        Me.Label21.Location = New System.Drawing.Point(128, 48)
        Me.Label21.Name = "Label21"
        Me.Label21.Size = New System.Drawing.Size(56, 16)
        Me.Label21.TabIndex = 20
        Me.Label21.Text = "考试月："
        '
        'TxtTestYear
        '
        Me.TxtTestYear.Location = New System.Drawing.Point(64, 44)
        Me.TxtTestYear.Name = "TxtTestYear"
        Me.TxtTestYear.Size = New System.Drawing.Size(56, 21)
        Me.TxtTestYear.TabIndex = 19
        Me.TxtTestYear.Text = ""
        '
        'Label20
        '
        Me.Label20.Location = New System.Drawing.Point(8, 47)
        Me.Label20.Name = "Label20"
        Me.Label20.Size = New System.Drawing.Size(56, 16)
        Me.Label20.TabIndex = 18
        Me.Label20.Text = "考试年："
        '
        'TxtBianHao
        '
        Me.TxtBianHao.Location = New System.Drawing.Point(64, 16)
        Me.TxtBianHao.Name = "TxtBianHao"
        Me.TxtBianHao.Size = New System.Drawing.Size(176, 21)
        Me.TxtBianHao.TabIndex = 17
        Me.TxtBianHao.Text = ""
        '
        'Label19
        '
        Me.Label19.Location = New System.Drawing.Point(8, 20)
        Me.Label19.Name = "Label19"
        Me.Label19.Size = New System.Drawing.Size(56, 16)
        Me.Label19.TabIndex = 16
        Me.Label19.Text = "编号："
        '
        'TxtPRVerDateLeft
        '
        Me.TxtPRVerDateLeft.Location = New System.Drawing.Point(256, 184)
        Me.TxtPRVerDateLeft.Name = "TxtPRVerDateLeft"
        Me.TxtPRVerDateLeft.Size = New System.Drawing.Size(56, 21)
        Me.TxtPRVerDateLeft.TabIndex = 33
        Me.TxtPRVerDateLeft.Text = ""
        '
        'Label18
        '
        Me.Label18.Location = New System.Drawing.Point(160, 184)
        Me.Label18.Name = "Label18"
        Me.Label18.Size = New System.Drawing.Size(80, 16)
        Me.Label18.TabIndex = 32
        Me.Label18.Text = "发证日左起："
        '
        'TxtPRVerMonLeft
        '
        Me.TxtPRVerMonLeft.Location = New System.Drawing.Point(256, 152)
        Me.TxtPRVerMonLeft.Name = "TxtPRVerMonLeft"
        Me.TxtPRVerMonLeft.Size = New System.Drawing.Size(56, 21)
        Me.TxtPRVerMonLeft.TabIndex = 31
        Me.TxtPRVerMonLeft.Text = ""
        '
        'Label17
        '
        Me.Label17.Location = New System.Drawing.Point(160, 152)
        Me.Label17.Name = "Label17"
        Me.Label17.Size = New System.Drawing.Size(80, 16)
        Me.Label17.TabIndex = 30
        Me.Label17.Text = "发证月左起："
        '
        'TxtPRVerYearLeft
        '
        Me.TxtPRVerYearLeft.Location = New System.Drawing.Point(256, 120)
        Me.TxtPRVerYearLeft.Name = "TxtPRVerYearLeft"
        Me.TxtPRVerYearLeft.Size = New System.Drawing.Size(56, 21)
        Me.TxtPRVerYearLeft.TabIndex = 29
        Me.TxtPRVerYearLeft.Text = ""
        '
        'Label16
        '
        Me.Label16.Location = New System.Drawing.Point(160, 120)
        Me.Label16.Name = "Label16"
        Me.Label16.Size = New System.Drawing.Size(80, 16)
        Me.Label16.TabIndex = 28
        Me.Label16.Text = "发证年左起："
        '
        'TxtPRVerYearTop
        '
        Me.TxtPRVerYearTop.Location = New System.Drawing.Point(256, 88)
        Me.TxtPRVerYearTop.Name = "TxtPRVerYearTop"
        Me.TxtPRVerYearTop.Size = New System.Drawing.Size(56, 21)
        Me.TxtPRVerYearTop.TabIndex = 27
        Me.TxtPRVerYearTop.Text = ""
        '
        'Label15
        '
        Me.Label15.Location = New System.Drawing.Point(160, 88)
        Me.Label15.Name = "Label15"
        Me.Label15.Size = New System.Drawing.Size(80, 16)
        Me.Label15.TabIndex = 26
        Me.Label15.Text = "发证年顶起："
        '
        'TxtPRTestMonTop
        '
        Me.TxtPRTestMonTop.Location = New System.Drawing.Point(256, 56)
        Me.TxtPRTestMonTop.Name = "TxtPRTestMonTop"
        Me.TxtPRTestMonTop.Size = New System.Drawing.Size(56, 21)
        Me.TxtPRTestMonTop.TabIndex = 25
        Me.TxtPRTestMonTop.Text = ""
        '
        'Label14
        '
        Me.Label14.Location = New System.Drawing.Point(160, 56)
        Me.Label14.Name = "Label14"
        Me.Label14.Size = New System.Drawing.Size(80, 16)
        Me.Label14.TabIndex = 24
        Me.Label14.Text = "考试月顶起："
        '
        'TxtPRTestMonLeft
        '
        Me.TxtPRTestMonLeft.Location = New System.Drawing.Point(256, 24)
        Me.TxtPRTestMonLeft.Name = "TxtPRTestMonLeft"
        Me.TxtPRTestMonLeft.Size = New System.Drawing.Size(56, 21)
        Me.TxtPRTestMonLeft.TabIndex = 23
        Me.TxtPRTestMonLeft.Text = ""
        '
        'Label13
        '
        Me.Label13.Location = New System.Drawing.Point(160, 24)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(80, 16)
        Me.Label13.TabIndex = 22
        Me.Label13.Text = "考试月左起："
        '