frmzhengshu.vb

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

        'TxtPRTestYearLeft
        '
        Me.TxtPRTestYearLeft.Location = New System.Drawing.Point(112, 312)
        Me.TxtPRTestYearLeft.Name = "TxtPRTestYearLeft"
        Me.TxtPRTestYearLeft.Size = New System.Drawing.Size(56, 21)
        Me.TxtPRTestYearLeft.TabIndex = 21
        Me.TxtPRTestYearLeft.Text = ""
        '
        'Label12
        '
        Me.Label12.Location = New System.Drawing.Point(16, 320)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(80, 16)
        Me.Label12.TabIndex = 20
        Me.Label12.Text = "考试年左起："
        '
        'TxtPRNameLeft
        '
        Me.TxtPRNameLeft.Location = New System.Drawing.Point(112, 280)
        Me.TxtPRNameLeft.Name = "TxtPRNameLeft"
        Me.TxtPRNameLeft.Size = New System.Drawing.Size(56, 21)
        Me.TxtPRNameLeft.TabIndex = 19
        Me.TxtPRNameLeft.Text = ""
        '
        'Label11
        '
        Me.Label11.Location = New System.Drawing.Point(16, 288)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(96, 16)
        Me.Label11.TabIndex = 18
        Me.Label11.Text = "右边姓名左起："
        '
        'TxtPRNameTop
        '
        Me.TxtPRNameTop.Location = New System.Drawing.Point(112, 248)
        Me.TxtPRNameTop.Name = "TxtPRNameTop"
        Me.TxtPRNameTop.Size = New System.Drawing.Size(56, 21)
        Me.TxtPRNameTop.TabIndex = 17
        Me.TxtPRNameTop.Text = ""
        '
        'Label10
        '
        Me.Label10.Location = New System.Drawing.Point(16, 256)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(96, 16)
        Me.Label10.TabIndex = 16
        Me.Label10.Text = "右边姓名顶起："
        '
        'TxtBianHaoTop
        '
        Me.TxtBianHaoTop.Location = New System.Drawing.Point(88, 216)
        Me.TxtBianHaoTop.Name = "TxtBianHaoTop"
        Me.TxtBianHaoTop.Size = New System.Drawing.Size(56, 21)
        Me.TxtBianHaoTop.TabIndex = 15
        Me.TxtBianHaoTop.Text = ""
        '
        'Label9
        '
        Me.Label9.Location = New System.Drawing.Point(16, 222)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(72, 16)
        Me.Label9.TabIndex = 14
        Me.Label9.Text = "编号顶起："
        '
        'TxtGrdTop
        '
        Me.TxtGrdTop.Location = New System.Drawing.Point(88, 184)
        Me.TxtGrdTop.Name = "TxtGrdTop"
        Me.TxtGrdTop.Size = New System.Drawing.Size(56, 21)
        Me.TxtGrdTop.TabIndex = 13
        Me.TxtGrdTop.Text = ""
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(16, 189)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(72, 16)
        Me.Label8.TabIndex = 12
        Me.Label8.Text = "年级顶起："
        '
        'TxtMarTop
        '
        Me.TxtMarTop.Location = New System.Drawing.Point(88, 152)
        Me.TxtMarTop.Name = "TxtMarTop"
        Me.TxtMarTop.Size = New System.Drawing.Size(56, 21)
        Me.TxtMarTop.TabIndex = 11
        Me.TxtMarTop.Text = ""
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(16, 158)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(72, 16)
        Me.Label7.TabIndex = 10
        Me.Label7.Text = "专业顶起："
        '
        'TxtPDepTop
        '
        Me.TxtPDepTop.Location = New System.Drawing.Point(88, 120)
        Me.TxtPDepTop.Name = "TxtPDepTop"
        Me.TxtPDepTop.Size = New System.Drawing.Size(56, 21)
        Me.TxtPDepTop.TabIndex = 9
        Me.TxtPDepTop.Text = ""
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(16, 124)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(72, 16)
        Me.Label6.TabIndex = 8
        Me.Label6.Text = "院系顶起："
        '
        'TxtPsexTop
        '
        Me.TxtPsexTop.Location = New System.Drawing.Point(88, 88)
        Me.TxtPsexTop.Name = "TxtPsexTop"
        Me.TxtPsexTop.Size = New System.Drawing.Size(56, 21)
        Me.TxtPsexTop.TabIndex = 7
        Me.TxtPsexTop.Text = ""
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(16, 92)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(72, 16)
        Me.Label5.TabIndex = 6
        Me.Label5.Text = "性别顶起："
        '
        'TxtPNameTop
        '
        Me.TxtPNameTop.Location = New System.Drawing.Point(88, 55)
        Me.TxtPNameTop.Name = "TxtPNameTop"
        Me.TxtPNameTop.Size = New System.Drawing.Size(56, 21)
        Me.TxtPNameTop.TabIndex = 5
        Me.TxtPNameTop.Text = ""
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(16, 58)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(72, 16)
        Me.Label4.TabIndex = 4
        Me.Label4.Text = "姓名顶起："
        '
        'TxtPLeft
        '
        Me.TxtPLeft.Location = New System.Drawing.Point(88, 22)
        Me.TxtPLeft.Name = "TxtPLeft"
        Me.TxtPLeft.Size = New System.Drawing.Size(56, 21)
        Me.TxtPLeft.TabIndex = 3
        Me.TxtPLeft.Text = ""
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(16, 24)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(72, 16)
        Me.Label2.TabIndex = 2
        Me.Label2.Text = "姓名左起："
        '
        'Button2
        '
        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button2.Location = New System.Drawing.Point(268, 360)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(80, 32)
        Me.Button2.TabIndex = 1
        Me.Button2.Text = "返    回"
        '
        'Button1
        '
        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button1.Location = New System.Drawing.Point(108, 360)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(80, 32)
        Me.Button1.TabIndex = 0
        Me.Button1.Text = "确   定"
        '
        'frmzhengshu
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(882, 479)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.GroupBox4)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.GroupBox3)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
        Me.MaximizeBox = False
        Me.Name = "frmzhengshu"
        Me.Text = "合格证书打印"
        Me.GroupBox1.ResumeLayout(False)
        Me.GbDepartment.ResumeLayout(False)
        Me.GbMarjoy.ResumeLayout(False)
        Me.GroupBox4.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox3.ResumeLayout(False)
        Me.GroupBox5.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
    Private Sub FrmUnPass_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MyDep.Initials()
        CurDep.Initials()
        MyMar.Initials()
        CurMar.Initials()
        MyStu.Initials()
        CurStu.Initials()
        MyGrade.Initials()
        CurGrade.Initials()
        MyPriSet.initials()
        CurPriSet.initials()
        CurPriSet.GetInfo()
        testyear = Year(Now()).ToString
        testmon = Month(Now()).ToString
        veryear = Year(Now()).ToString
        vermon = Month(Now()).ToString
        verdate = 2
        showData()
        MyDep.LoadDepNodesToTV(TvDep)
        updbset = Nothing
        Dim i As Integer
        Dim yy As Integer
        For i = 2000 To 2050
            combtestyear.Items.Add(i.ToString)
        Next
        yy = Year(Now())
        combtesttime.Text = 1
        combtestyear.Text = yy.ToString

        Dim pkInstalledPrinters As String
        For i = 0 To PrinterSettings.InstalledPrinters.Count - 1
            pkInstalledPrinters = PrinterSettings.InstalledPrinters.Item(i)
            cbprinter.Items.Add(pkInstalledPrinters)

        Next
        If cbprinter.Items.Count = 0 Then
            cmdOK.Enabled = False
            Button1.Enabled = False
            MsgBox("没有一台有效的打印机！", MsgBoxStyle.Exclamation, "大学语文考试系统V2.0")
        Else
            cbprinter.SelectedIndex = 0
            printername = cbprinter.Items(cbprinter.SelectedIndex)
        End If
    End Sub
    Public Sub ValData()
        CurPriSet.PLeft = Val(TxtPLeft.Text)
        CurPriSet.PNameTop = Val(TxtPNameTop.Text)
        CurPriSet.PSexTop = Val(TxtPsexTop.Text)
        CurPriSet.PDepTop = Val(TxtPDepTop.Text)
        CurPriSet.PMarTop = Val(TxtMarTop.Text)
        CurPriSet.PGradTop = Val(TxtGrdTop.Text)
        CurPriSet.PBianHTop = Val(TxtBianHaoTop.Text)
        CurPriSet.PRNameTop = Val(TxtPRNameTop.Text)
        CurPriSet.PRNameLeft = Val(TxtPRNameLeft.Text)
        CurPriSet.PRTestYearLeft = Val(TxtPRTestYearLeft.Text)
        CurPriSet.PRTestMonLeft = Val(TxtPRTestMonLeft.Text)
        CurPriSet.PRTestMonTop = Val(TxtPRTestMonTop.Text)
        CurPriSet.PRVerYearTop = Val(TxtPRVerYearTop.Text)
        CurPriSet.PRVerYearLeft = Val(TxtPRVerYearLeft.Text)
        CurPriSet.PRVerMonLeft = Val(TxtPRVerMonLeft.Text)
        CurPriSet.PRVerDateLeft = Val(TxtPRVerDateLeft.Text)
        CurPriSet.BianHao = TxtBianHao.Text
        testyear = TxtTestYear.Text
        testmon = TxtTestMon.Text
        veryear = TxtVerYear.Text
        vermon = TxtVerMon.Text
        verdate = TxtVerDate.Text
        CurPriSet.Modify()
    End Sub
    Public Sub showData()
        
        TxtPLeft.Text = CurPriSet.PLeft.ToString
        TxtPNameTop.Text = CurPriSet.PNameTop.ToString
        TxtPsexTop.Text = CurPriSet.PSexTop.ToString
        TxtPDepTop.Text = CurPriSet.PDepTop.ToString
        TxtMarTop.Text = CurPriSet.PMarTop.ToString
        TxtGrdTop.Text = CurPriSet.PGradTop.ToString
        TxtBianHaoTop.Text = CurPriSet.PBianHTop.ToString
        TxtPRNameTop.Text = CurPriSet.PRNameTop.ToString
        TxtPRNameLeft.Text = CurPriSet.PRNameLeft.ToString
        TxtPRTestYearLeft.Text = CurPriSet.PRTestYearLeft.ToString
        TxtPRTestMonLeft.Text = CurPriSet.PRTestMonLeft.ToString
        TxtPRTestMonTop.Text = CurPriSet.PRTestMonTop.ToString
        TxtPRVerYearTop.Text = CurPriSet.PRVerYearTop.ToString
        TxtPRVerYearLeft.Text = CurPriSet.PRVerYearLeft.ToString
        TxtPRVerMonLeft.Text = CurPriSet.PRVerMonLeft.ToString
        TxtPRVerDateLeft.Text = CurPriSet.PRVerDateLeft.ToString
        TxtBianHao.Text = CurPriSet.BianHao
        TxtTestYear.Text = testyear
        TxtTestMon.Text = testmon
        TxtVerYear.Text = veryear
        TxtVerMon.Text = vermon
        TxtVerDate.Text = verdate
    End Sub
    Private Sub FrmUnPass_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        MyDep.Initials()
        CurDep.Initials()
        MyMar.Initials()
        CurMar.Initials()
        MyStu.Initials()
        CurStu.Initials()
        MyGrade.Initials()
        CurGrade.Initials()
        updbset = Nothing
        sigstudbset = Nothing
    End Sub
    Private Sub TvDep_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TvDep.MouseDown
        TvDep.SelectedNode = TvDep.GetNodeAt(e.X, e.Y)
        GbMarjoy.Text = "专业信息--当前专业[]"
        If Not TvDep.SelectedNode Is Nothing Then
            If CurDep.DepartmentName = TvDep.SelectedNode.Text Then
                Exit Sub
            End If
            MyDep.GetDepInfo(MakeStr(TvDep.SelectedNode.Text))
            CurDep.Equal(MyDep)
            GbDepartment.Text = "院系信息--当前院系:[" & CurDep.DepartmentName & "]"
            CurDep.LoadMarjoysToList(LbMarjoy)
        Else
            CurDep.Initials()
            MyDep.Initials()
            GbDepartment.Text = "院系信息--当前院系:[]"
        End If
        With DataGrid1
            .CaptionText = "学生信息"
            .DataSource = Nothing
        End With
    End Sub
    Private Sub LbMarjoy_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LbMarjoy.SelectedIndexChanged
        If CurDep.DepartmentID <= 0 Then
            Exit Sub
        End If
        MyMar.MarjoyName = LbMarjoy.SelectedItem()
        GbMarjoy.Text = "专业信息--当前专业[" & Trim(MyMar.MarjoyName) & "]"
        MyMar.GetMarInfo(MyMar.MarjoyName, CurDep.DepartmentID)
        CurMar.Equal(MyMar)
        MyMar.GetMarInfo(CurMar.MarjoyName, CurDep.DepartmentID)