frmstu.vb

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

        Me.cmdFlash.Location = New System.Drawing.Point(120, 96)
        Me.cmdFlash.Name = "cmdFlash"
        Me.cmdFlash.Size = New System.Drawing.Size(64, 24)
        Me.cmdFlash.TabIndex = 5
        Me.cmdFlash.Text = "刷 新"
        '
        'cmdDelete
        '
        Me.cmdDelete.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.cmdDelete.Location = New System.Drawing.Point(24, 96)
        Me.cmdDelete.Name = "cmdDelete"
        Me.cmdDelete.Size = New System.Drawing.Size(64, 24)
        Me.cmdDelete.TabIndex = 4
        Me.cmdDelete.Text = "删 除"
        '
        'cmdQuery
        '
        Me.cmdQuery.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.cmdQuery.Location = New System.Drawing.Point(120, 56)
        Me.cmdQuery.Name = "cmdQuery"
        Me.cmdQuery.Size = New System.Drawing.Size(64, 24)
        Me.cmdQuery.TabIndex = 3
        Me.cmdQuery.Text = "查 找"
        '
        'cmdModify
        '
        Me.cmdModify.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.cmdModify.Location = New System.Drawing.Point(24, 56)
        Me.cmdModify.Name = "cmdModify"
        Me.cmdModify.Size = New System.Drawing.Size(64, 24)
        Me.cmdModify.TabIndex = 2
        Me.cmdModify.Text = "修 改"
        '
        'cmdSave
        '
        Me.cmdSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.cmdSave.Location = New System.Drawing.Point(120, 16)
        Me.cmdSave.Name = "cmdSave"
        Me.cmdSave.Size = New System.Drawing.Size(64, 24)
        Me.cmdSave.TabIndex = 1
        Me.cmdSave.Text = "保 存"
        '
        'cmdAdd
        '
        Me.cmdAdd.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.cmdAdd.Location = New System.Drawing.Point(24, 17)
        Me.cmdAdd.Name = "cmdAdd"
        Me.cmdAdd.Size = New System.Drawing.Size(64, 24)
        Me.cmdAdd.TabIndex = 0
        Me.cmdAdd.Text = "添 加"
        '
        'txtMarjoy
        '
        Me.txtMarjoy.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtMarjoy.Location = New System.Drawing.Point(72, 154)
        Me.txtMarjoy.MaxLength = 50
        Me.txtMarjoy.Name = "txtMarjoy"
        Me.txtMarjoy.Size = New System.Drawing.Size(160, 21)
        Me.txtMarjoy.TabIndex = 10
        Me.txtMarjoy.Text = ""
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(16, 156)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(48, 16)
        Me.Label6.TabIndex = 9
        Me.Label6.Text = "专 业："
        '
        'txtDepartment
        '
        Me.txtDepartment.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtDepartment.Location = New System.Drawing.Point(72, 119)
        Me.txtDepartment.MaxLength = 50
        Me.txtDepartment.Name = "txtDepartment"
        Me.txtDepartment.Size = New System.Drawing.Size(160, 21)
        Me.txtDepartment.TabIndex = 8
        Me.txtDepartment.Text = ""
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(16, 122)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(48, 16)
        Me.Label5.TabIndex = 7
        Me.Label5.Text = "院 系："
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(16, 88)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(48, 16)
        Me.Label4.TabIndex = 5
        Me.Label4.Text = "性 别："
        '
        'txtStuID
        '
        Me.txtStuID.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtStuID.Location = New System.Drawing.Point(72, 49)
        Me.txtStuID.MaxLength = 50
        Me.txtStuID.Name = "txtStuID"
        Me.txtStuID.Size = New System.Drawing.Size(160, 21)
        Me.txtStuID.TabIndex = 4
        Me.txtStuID.Text = ""
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(16, 54)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(48, 16)
        Me.Label3.TabIndex = 3
        Me.Label3.Text = "学 号："
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(16, 20)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(48, 16)
        Me.Label1.TabIndex = 2
        Me.Label1.Text = "姓 名："
        '
        'txtStuName
        '
        Me.txtStuName.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtStuName.Location = New System.Drawing.Point(72, 17)
        Me.txtStuName.MaxLength = 50
        Me.txtStuName.Name = "txtStuName"
        Me.txtStuName.Size = New System.Drawing.Size(160, 21)
        Me.txtStuName.TabIndex = 0
        Me.txtStuName.Text = ""
        '
        'GroupBox3
        '
        Me.GroupBox3.Controls.Add(Me.txtquery)
        Me.GroupBox3.Controls.Add(Me.Label7)
        Me.GroupBox3.Controls.Add(Me.CombEnterTime)
        Me.GroupBox3.Controls.Add(Me.Label2)
        Me.GroupBox3.Location = New System.Drawing.Point(8, 8)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(456, 48)
        Me.GroupBox3.TabIndex = 0
        Me.GroupBox3.TabStop = False
        '
        'CombEnterTime
        '
        Me.CombEnterTime.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.CombEnterTime.Location = New System.Drawing.Point(104, 16)
        Me.CombEnterTime.Name = "CombEnterTime"
        Me.CombEnterTime.Size = New System.Drawing.Size(80, 20)
        Me.CombEnterTime.TabIndex = 4
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(8, 19)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(96, 16)
        Me.Label2.TabIndex = 3
        Me.Label2.Text = "学生入学时间："
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(192, 19)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(144, 16)
        Me.Label7.TabIndex = 5
        Me.Label7.Text = "查询（姓名，或学号）："
        '
        'txtquery
        '
        Me.txtquery.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtquery.Location = New System.Drawing.Point(328, 16)
        Me.txtquery.MaxLength = 50
        Me.txtquery.Name = "txtquery"
        Me.txtquery.Size = New System.Drawing.Size(120, 21)
        Me.txtquery.TabIndex = 6
        Me.txtquery.Text = ""
        '
        'frmstu
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(722, 567)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.Splitter1)
        Me.Controls.Add(Me.GroupBox1)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MaximizeBox = False
        Me.Name = "frmstu"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "学生信息管理"
        Me.GroupBox1.ResumeLayout(False)
        Me.GbMarjoy.ResumeLayout(False)
        Me.GbDepartment.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox5.ResumeLayout(False)
        CType(Me.DGStudent, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox4.ResumeLayout(False)
        Me.GroupBox6.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
    Protected studbset As DataSet
    Protected SaveFlag As String
    Public Sub UpdatedData(ByVal upflag As Boolean)
        If (upflag) Then
            txtStuName.Enabled = True
            txtStuID.Enabled = True
            combSexy.Enabled = True
            ' txtDepartment.Enabled = True
            ' txtMarjoy.Enabled = True
            cmdSave.Enabled = True
            cmdDelete.Enabled = False
            cmdModify.Enabled = False
            cmdAdd.Enabled = False
        Else
            txtStuName.Enabled = False
            txtStuID.Enabled = False
            combSexy.Enabled = False
            'txtDepartment.Enabled = False
            'txtMarjoy.Enabled = False
            cmdSave.Enabled = False
            cmdDelete.Enabled = True
            cmdModify.Enabled = True
            cmdAdd.Enabled = True
        End If
    End Sub
    Public Sub clearform()
        SaveFlag = "取消"
        txtStuName.Text = ""
        txtStuID.Text = ""
        combSexy.SelectedIndex = 0
        txtDepartment.Text = CurDep.DepartmentName
        txtMarjoy.Text = CurMar.MarjoyName
        txtStuName.Enabled = False
        txtStuID.Enabled = False
        combSexy.Enabled = False
        txtDepartment.Enabled = False
        txtMarjoy.Enabled = False
        cmdSave.Enabled = False
    End Sub
    Private Sub cmdExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExit.Click
        Me.Close()
    End Sub

    Private Sub frmstu_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()
        studbset = Nothing
        clearform()
        txtMarjoy.Text = ""
        txtDepartment.Text = ""
        MyDep.LoadDepNodesToTV(TvDep)
        Dim i As Integer
        Dim yy As Integer
        CombEnterTime.Items.Clear()
        For i = 95 To 99
            CombEnterTime.Items.Add(i.ToString)
        Next
        For i = 2000 To 2050
            CombEnterTime.Items.Add(i.ToString)
        Next
        combSexy.SelectedIndex = 0
        yy = Year(Now())
        If yy < 2000 And yy > 1994 Then
            CombEnterTime.Text = (yy - 1900).ToString
        Else
            CombEnterTime.Text = (yy - 3).ToString
        End If
    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)
        DGStudent.DataSource = Nothing
        DGStudent.CaptionText = "学生信息--没有学生记录"
            GbMarjoy.Text = "专业信息--当前专业[]"
            clearform()
        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)
            txtDepartment.Text = CurDep.DepartmentName
            GbDepartment.Text = "院系信息--当前院系:[" & CurDep.DepartmentName & "]"
            CurDep.LoadMarjoysToList(LbMarjoy)
            DGStudent.DataSource = Nothing
        Else
            'txtDepName.Text = ""
            DGStudent.DataSource = Nothing
            CurDep.Initials()
            GbDepartment.Text = "院系信息--当前院系:[]"
        End If