register.vb

档案管理系统

        '
        'cmbCollege
        '
        Me.cmbCollege.Location = New System.Drawing.Point(96, 344)
        Me.cmbCollege.Name = "cmbCollege"
        Me.cmbCollege.Size = New System.Drawing.Size(360, 20)
        Me.cmbCollege.TabIndex = 12
        '
        'cmbClass
        '
        Me.cmbClass.Location = New System.Drawing.Point(96, 376)
        Me.cmbClass.Name = "cmbClass"
        Me.cmbClass.Size = New System.Drawing.Size(360, 20)
        Me.cmbClass.TabIndex = 13
        '
        'cmbSpecial
        '
        Me.cmbSpecial.Location = New System.Drawing.Point(96, 408)
        Me.cmbSpecial.Name = "cmbSpecial"
        Me.cmbSpecial.Size = New System.Drawing.Size(360, 20)
        Me.cmbSpecial.TabIndex = 14
        '
        'stbRegister
        '
        Me.stbRegister.Location = New System.Drawing.Point(0, 445)
        Me.stbRegister.Name = "stbRegister"
        Me.stbRegister.Size = New System.Drawing.Size(536, 24)
        Me.stbRegister.TabIndex = 20
        '
        'cmbSex
        '
        Me.cmbSex.Items.AddRange(New Object() {"男", "女"})
        Me.cmbSex.Location = New System.Drawing.Point(96, 115)
        Me.cmbSex.Name = "cmbSex"
        Me.cmbSex.Size = New System.Drawing.Size(136, 20)
        Me.cmbSex.TabIndex = 3
        '
        'txtState
        '
        Me.txtState.Location = New System.Drawing.Point(96, 245)
        Me.txtState.Name = "txtState"
        Me.txtState.ReadOnly = True
        Me.txtState.Size = New System.Drawing.Size(136, 21)
        Me.txtState.TabIndex = 8
        Me.txtState.Text = "正常"
        '
        'Label12
        '
        Me.Label12.Location = New System.Drawing.Point(16, 247)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(64, 23)
        Me.Label12.TabIndex = 0
        Me.Label12.Text = "目前状态"
        Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'btnSelect
        '
        Me.btnSelect.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.btnSelect.Location = New System.Drawing.Point(480, 64)
        Me.btnSelect.Name = "btnSelect"
        Me.btnSelect.Size = New System.Drawing.Size(48, 40)
        Me.btnSelect.TabIndex = 16
        Me.btnSelect.Text = "选课登记"
        Me.btnSelect.Visible = False
        '
        'btnQuery
        '
        Me.btnQuery.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.btnQuery.Location = New System.Drawing.Point(480, 104)
        Me.btnQuery.Name = "btnQuery"
        Me.btnQuery.Size = New System.Drawing.Size(48, 40)
        Me.btnQuery.TabIndex = 16
        Me.btnQuery.Text = "成绩查询"
        Me.btnQuery.Visible = False
        '
        'btnReport
        '
        Me.btnReport.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.btnReport.Location = New System.Drawing.Point(480, 144)
        Me.btnReport.Name = "btnReport"
        Me.btnReport.Size = New System.Drawing.Size(48, 40)
        Me.btnReport.TabIndex = 16
        Me.btnReport.Text = "输出报表"
        Me.btnReport.Visible = False
        '
        'frmRegister
        '
        Me.AcceptButton = Me.btnConfirm
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.CancelButton = Me.btnCancel
        Me.ClientSize = New System.Drawing.Size(536, 469)
        Me.Controls.Add(Me.stbRegister)
        Me.Controls.Add(Me.cmbVisage)
        Me.Controls.Add(Me.mcMonth)
        Me.Controls.Add(Me.vslGrade)
        Me.Controls.Add(Me.txtGrade)
        Me.Controls.Add(Me.btnConfirm)
        Me.Controls.Add(Me.txtID)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.Label7)
        Me.Controls.Add(Me.Label8)
        Me.Controls.Add(Me.Label9)
        Me.Controls.Add(Me.Label10)
        Me.Controls.Add(Me.Label11)
        Me.Controls.Add(Me.Label13)
        Me.Controls.Add(Me.Label14)
        Me.Controls.Add(Me.Label15)
        Me.Controls.Add(Me.txtName)
        Me.Controls.Add(Me.txtBirth)
        Me.Controls.Add(Me.txtFamilyAddr)
        Me.Controls.Add(Me.txtNation)
        Me.Controls.Add(Me.txtDuty)
        Me.Controls.Add(Me.txtEmail)
        Me.Controls.Add(Me.txtBedchamber)
        Me.Controls.Add(Me.btnCancel)
        Me.Controls.Add(Me.picPhoto)
        Me.Controls.Add(Me.cmbCollege)
        Me.Controls.Add(Me.cmbClass)
        Me.Controls.Add(Me.cmbSpecial)
        Me.Controls.Add(Me.cmbSex)
        Me.Controls.Add(Me.txtState)
        Me.Controls.Add(Me.Label12)
        Me.Controls.Add(Me.btnSelect)
        Me.Controls.Add(Me.btnQuery)
        Me.Controls.Add(Me.btnReport)
        Me.MaximizeBox = False
        Me.Name = "frmRegister"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "新生注册"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private tip As New ToolTip
    Private filename As String
    Private DataReader As System.Data.OleDb.OleDbDataReader
    Public type As Integer = 0
    Public id As Integer

    Private Sub picPhoto_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles picPhoto.Click
        Dim dlg As New OpenFileDialog

        Try
            dlg.CheckFileExists = True
            dlg.CheckPathExists = True
            dlg.Filter = "所有图象文件 (*.bmp;*.gif;*.jpg;*jpeg;*.png;*.ico;*.emf;*.wmf)|*.bmp;*.gif;*.jpg;*jpeg;*.png;*.ico;*.emf;*.wmf|" & _
                "位图文件 (*.bmp;*.gif;*.jpg;*.jpeg;*.png;*.ico)|*.bmp;*.gif;*.jpg;*.jpeg;*.png;*.ico|" & _
                "图元文件 (*.emf;*.wmf)|*.emf;*.wmf"
            If dlg.ShowDialog = DialogResult.OK Then
                Dim mybitmap As New Bitmap(dlg.FileName)
                picPhoto.SizeMode = PictureBoxSizeMode.StretchImage
                picPhoto.Image = CType(mybitmap, Image)
                filename = dlg.FileName
            End If
        Catch ex As Exception
            DisplayError(ex)
        End Try
    End Sub

    Private Sub txtBirth_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtBirth.GotFocus
        mcMonth.SelectionStart = mcMonth.TodayDate
        mcMonth.SelectionEnd = mcMonth.TodayDate
        mcMonth.Visible = True
    End Sub

    Private Sub mcMonth_DateSelected(ByVal sender As Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles mcMonth.DateSelected
        txtBirth.Text = CStr(e.End.Year) & "年" & CStr(e.End.Month) & "月" & CStr(e.End.Day) & "日"
        mcMonth.TodayDate = e.End
        mcMonth.Visible = False
        cmbSex.Focus()
    End Sub

    Private Sub frmRegister_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        tip.AutoPopDelay = 5000
        tip.InitialDelay = 500
        tip.ReshowDelay = 500
        tip.ShowAlways = True
        tip.SetToolTip(Me.picPhoto, "相片，单击添加相片")

        If OleConn.SelectQuery("select 学院名称 from 学院信息", DataReader) Then
            While DataReader.Read
                cmbCollege.Items.Add(DataReader.Item(0))
            End While
            DataReader.Close()
        End If

        If OleConn.SelectQuery("select 班名 from 班级信息", DataReader) Then
            While DataReader.Read
                cmbClass.Items.Add(DataReader.Item(0))
            End While
            DataReader.Close()
        End If

        If type = 1 Then
            Try
                btnConfirm.Text = "修改"
                btnSelect.Visible = True
                btnQuery.Visible = True
                btnReport.Visible = True
                Dim str As String
                Dim dr As DataRow()
                str = "学号=" & id
                dr = stdDataSet.Tables(0).Select(str)
                Me.Text = "学生 " & Trim(dr(0).Item("姓名")) & " 的基本信息"
                txtID.Text = id
                txtName.Text = Trim(dr(0).Item("姓名"))
                txtBirth.Text = dr(0).Item("出生日期")
                cmbSex.SelectedItem = dr(0).Item("性别")
                cmbVisage.SelectedItem = dr(0).Item("政治面貌")
                txtNation.Text = Trim(dr(0).Item("民族"))
                txtEmail.Text = dr(0).Item("EMAIL")
                txtGrade.Text = dr(0).Item("入学年份")
                txtState.Text = Trim(dr(0).Item("状态"))
                txtDuty.Text = dr(0).Item("职务")
                txtFamilyAddr.Text = dr(0).Item("家庭住址")
                txtBedchamber.Text = dr(0).Item("寝室地址")
                cmbCollege.SelectedItem = dr(0).Item("学院名称")
                cmbClass.SelectedItem = dr(0).Item("班名")

                str = "select 专业名 from 专业信息 where 学院名称='" & dr(0).Item("学院名称") & "'"
                If OleConn.SelectQuery(str, DataReader) Then
                    While DataReader.Read
                        cmbSpecial.Items.Add(DataReader.Item(0))
                    End While
                    DataReader.Close()
                End If
                cmbSpecial.SelectedItem = dr(0).Item("专业名")
                If CStr(dr(0).Item("照片地址")) <> "" Then
                    filename = dr(0).Item("照片地址")
                    Dim mybitmap As New Bitmap(filename)
                    picPhoto.SizeMode = PictureBoxSizeMode.StretchImage
                    picPhoto.Image = CType(mybitmap, Image)
                End If
            Catch ex As Exception
                DisplayError(ex)
            End Try
        End If

        stbRegister.Text = "就绪"

    End Sub

    Private Sub vslGrade_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles vslGrade.Scroll
        If e.Type = ScrollEventType.SmallDecrement = True Then
            txtGrade.Text = CStr(CInt(txtGrade.Text) + 1)
        ElseIf e.Type = ScrollEventType.SmallIncrement = True Then
            txtGrade.Text = CStr(CInt(txtGrade.Text) - 1)
        End If
    End Sub

    Private Sub btnConfirm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConfirm.Click
        Dim str As String
        Dim succ As Boolean = True

        If txtID.Text = "" Then
            stbRegister.Text = "学号不能为空"
            txtID.Focus()
        ElseIf txtName.Text = "" Then
            stbRegister.Text = "姓名不能为空"
            txtName.Focus()
        ElseIf cmbSex.SelectedIndex < 0 Then
            stbRegister.Text = "请指定性别"
            cmbSex.Focus()
        ElseIf cmbCollege.SelectedIndex < 0 Then
            stbRegister.Text = "请指定学院"
            cmbCollege.Focus()
        ElseIf cmbClass.SelectedIndex < 0 Then
            stbRegister.Text = "请指定班级"
            cmbClass.Focus()
        ElseIf cmbSpecial.SelectedIndex < 0 Then
            stbRegister.Text = "请指定专业"
            cmbSpecial.Focus()
        Else
            If type = 1 Then
                str = "UPDATE 学生信息 set 学号=" & CInt(txtID.Text) & " ,姓名='" & txtName.Text & _
                      "' ,出生日期='" & txtBirth.Text & "' ,性别='" & cmbSex.SelectedItem & _
                      "' ,入学年份=" & CInt(txtGrade.Text) & " ,班名='" & cmbClass.SelectedItem & _
                      "' ,学院名称='" & cmbCollege.SelectedItem & "' ,专业名='" & cmbSpecial.SelectedItem & _
                      "' ,家庭住址='" & txtFamilyAddr.Text & "' ,政治面貌='" & cmbVisage.SelectedItem & _
                      "' ,EMAIL='" & txtEmail.Text & "' ,寝室地址='" & txtBedchamber.Text & _
                      "' ,职务='" & txtDuty.Text & "' ,民族='" & txtNation.Text & _
                      "' ,照片地址='" & filename & "' where 学号=" & id
                succ = OleConn.UpdateQuery(str)
                stdDataSet.AcceptChanges()
            Else
                Try
                    str = "INSERT INTO 学生信息(学号, 姓名, 出生日期, 性别, 入学年份, 班名, 学院名称, 专业名," & _
                        "家庭住址, 政治面貌, EMAIL, 寝室地址, 职务, 民族, 照片地址) " & _
                        "VALUES(" & txtID.Text & ",'" & txtName.Text & "','" & txtBirth.Text & "','" & _
                        cmbSex.SelectedItem & "'," & txtGrade.Text & ",'" & cmbClass.SelectedItem & "','" & _
                        cmbCollege.SelectedItem & "','" & cmbSpecial.SelectedItem & "','" & txtFamilyAddr.Text & "','" & _
                        cmbVisage.SelectedItem & "','" & txtEmail.Text & "','" & txtBedchamber.Text & "','" & _
                        txtDuty.Text & "','" & txtNation.Text & "','" & filename & "')"
                    succ = OleConn.InsertQuery(str)
                Catch ex As Exception
                    succ = False
                    DisplayError(ex)
                End Try
            End If

            If succ Then
                If type = 1 Then
                    stbRegister.Text = "修改记录成功"
                Else
                    stbRegister.Text = "增加记录成功"
                End If
            Else
                If type = 1 Then
                    stbRegister.Text = "修改记录失败"
                Else
                    stbRegister.Text = "增加记录失败"
                End If
            End If
        End If
    End Sub

    Private Sub cmbCollege_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbCollege.SelectedIndexChanged

        If cmbCollege.SelectedIndex >= 0 Then
            cmbSpecial.Items.Clear()
            Dim str As String
            str = "select 专业名 from 专业信息 where 学院名称='" & cmbCollege.SelectedItem & "'"
            If OleConn.SelectQuery(str, DataReader) Then
                While DataReader.Read
                    cmbSpecial.Items.Add(DataReader.Item(0))
                End While
                DataReader.Close()
            End If
        End If
    End Sub

    Private Sub btnSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelect.Click

        Dim frm As New frmSelectCourse
        frm.id = id
        frm.scname = txtName.Text
        If frm.ShowDialog() = DialogResult.OK Then
            stbRegister.Text = "选课登记成功"
        Else
            stbRegister.Text = "你取消了该生的选课登记"
        End If

    End Sub

    Private Sub btnQuery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuery.Click
        Dim frm As New frmQueryResult

        frm.id = id
        frm.MdiParent = Me.MdiParent
        frm.Show()
    End Sub

    Private Sub btnReport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReport.Click
        Dim frm As New frmInfoReport
        frm.ShowDialog()
    End Sub
End Class