formstudentleaveschool.vb

学生信息管理系统

        '
        Me.lblBusiness.Location = New System.Drawing.Point(16, 72)
        Me.lblBusiness.Name = "lblBusiness"
        Me.lblBusiness.Size = New System.Drawing.Size(32, 16)
        Me.lblBusiness.TabIndex = 50
        Me.lblBusiness.Text = "职务"
        '
        'lblHomeAddress
        '
        Me.lblHomeAddress.Location = New System.Drawing.Point(16, 120)
        Me.lblHomeAddress.Name = "lblHomeAddress"
        Me.lblHomeAddress.Size = New System.Drawing.Size(56, 23)
        Me.lblHomeAddress.TabIndex = 51
        Me.lblHomeAddress.Text = "家庭住址"
        '
        'lblHomePhone
        '
        Me.lblHomePhone.Location = New System.Drawing.Point(16, 144)
        Me.lblHomePhone.Name = "lblHomePhone"
        Me.lblHomePhone.Size = New System.Drawing.Size(56, 23)
        Me.lblHomePhone.TabIndex = 52
        Me.lblHomePhone.Text = "家庭电话"
        '
        'lblPostalcode
        '
        Me.lblPostalcode.Location = New System.Drawing.Point(280, 120)
        Me.lblPostalcode.Name = "lblPostalcode"
        Me.lblPostalcode.Size = New System.Drawing.Size(32, 23)
        Me.lblPostalcode.TabIndex = 53
        Me.lblPostalcode.Text = "邮编"
        '
        'lblEmail
        '
        Me.lblEmail.Location = New System.Drawing.Point(280, 144)
        Me.lblEmail.Name = "lblEmail"
        Me.lblEmail.Size = New System.Drawing.Size(40, 23)
        Me.lblEmail.TabIndex = 54
        Me.lblEmail.Text = "Email"
        '
        'lblEnterDate
        '
        Me.lblEnterDate.Location = New System.Drawing.Point(16, 168)
        Me.lblEnterDate.Name = "lblEnterDate"
        Me.lblEnterDate.Size = New System.Drawing.Size(56, 23)
        Me.lblEnterDate.TabIndex = 55
        Me.lblEnterDate.Text = "入学日期"
        '
        'txtHomeAddress
        '
        Me.txtHomeAddress.Enabled = False
        Me.txtHomeAddress.Location = New System.Drawing.Point(72, 112)
        Me.txtHomeAddress.Name = "txtHomeAddress"
        Me.txtHomeAddress.Size = New System.Drawing.Size(192, 21)
        Me.txtHomeAddress.TabIndex = 56
        Me.txtHomeAddress.Text = ""
        '
        'txtHomePhone
        '
        Me.txtHomePhone.Enabled = False
        Me.txtHomePhone.Location = New System.Drawing.Point(72, 136)
        Me.txtHomePhone.Name = "txtHomePhone"
        Me.txtHomePhone.Size = New System.Drawing.Size(192, 21)
        Me.txtHomePhone.TabIndex = 57
        Me.txtHomePhone.Text = ""
        '
        'txtPostalcode
        '
        Me.txtPostalcode.Enabled = False
        Me.txtPostalcode.Location = New System.Drawing.Point(320, 112)
        Me.txtPostalcode.Name = "txtPostalcode"
        Me.txtPostalcode.Size = New System.Drawing.Size(112, 21)
        Me.txtPostalcode.TabIndex = 58
        Me.txtPostalcode.Text = ""
        '
        'txtEmail
        '
        Me.txtEmail.Enabled = False
        Me.txtEmail.Location = New System.Drawing.Point(320, 136)
        Me.txtEmail.Name = "txtEmail"
        Me.txtEmail.Size = New System.Drawing.Size(112, 21)
        Me.txtEmail.TabIndex = 59
        Me.txtEmail.Text = ""
        '
        'lblIntro
        '
        Me.lblIntro.Location = New System.Drawing.Point(16, 192)
        Me.lblIntro.Name = "lblIntro"
        Me.lblIntro.Size = New System.Drawing.Size(40, 16)
        Me.lblIntro.TabIndex = 60
        Me.lblIntro.Text = "简介"
        '
        'dtpEnterDate
        '
        Me.dtpEnterDate.Enabled = False
        Me.dtpEnterDate.Location = New System.Drawing.Point(72, 160)
        Me.dtpEnterDate.Name = "dtpEnterDate"
        Me.dtpEnterDate.Size = New System.Drawing.Size(120, 21)
        Me.dtpEnterDate.TabIndex = 61
        '
        'txtIntro
        '
        Me.txtIntro.Enabled = False
        Me.txtIntro.Location = New System.Drawing.Point(16, 208)
        Me.txtIntro.Multiline = True
        Me.txtIntro.Name = "txtIntro"
        Me.txtIntro.Size = New System.Drawing.Size(416, 120)
        Me.txtIntro.TabIndex = 62
        Me.txtIntro.Text = ""
        '
        'NativePlace1
        '
        Me.NativePlace1.Enabled = False
        Me.NativePlace1.Location = New System.Drawing.Point(200, 64)
        Me.NativePlace1.Name = "NativePlace1"
        Me.NativePlace1.Size = New System.Drawing.Size(184, 24)
        Me.NativePlace1.TabIndex = 63
        '
        'pnlTop
        '
        Me.pnlTop.Controls.Add(Me.lblCaption)
        Me.pnlTop.Controls.Add(Me.PictureBox2)
        Me.pnlTop.Controls.Add(Me.PictureBox1)
        Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
        Me.pnlTop.Location = New System.Drawing.Point(0, 0)
        Me.pnlTop.Name = "pnlTop"
        Me.pnlTop.Size = New System.Drawing.Size(448, 48)
        Me.pnlTop.TabIndex = 2
        '
        'lblCaption
        '
        Me.lblCaption.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.lblCaption.Font = New System.Drawing.Font("隶书", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.lblCaption.ForeColor = System.Drawing.SystemColors.Desktop
        Me.lblCaption.Location = New System.Drawing.Point(88, 8)
        Me.lblCaption.Name = "lblCaption"
        Me.lblCaption.Size = New System.Drawing.Size(272, 32)
        Me.lblCaption.TabIndex = 2
        Me.lblCaption.Text = "学生离校 Leave School"
        Me.lblCaption.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'PictureBox2
        '
        Me.PictureBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Image)
        Me.PictureBox2.Location = New System.Drawing.Point(384, 8)
        Me.PictureBox2.Name = "PictureBox2"
        Me.PictureBox2.Size = New System.Drawing.Size(32, 32)
        Me.PictureBox2.TabIndex = 1
        Me.PictureBox2.TabStop = False
        '
        'PictureBox1
        '
        Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
        Me.PictureBox1.Location = New System.Drawing.Point(32, 8)
        Me.PictureBox1.Name = "PictureBox1"
        Me.PictureBox1.Size = New System.Drawing.Size(32, 32)
        Me.PictureBox1.TabIndex = 0
        Me.PictureBox1.TabStop = False
        '
        'ilButton
        '
        Me.ilButton.ImageSize = New System.Drawing.Size(32, 32)
        Me.ilButton.ImageStream = CType(resources.GetObject("ilButton.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ilButton.TransparentColor = System.Drawing.Color.Transparent
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.Add(Me.btnExit)
        Me.GroupBox2.Controls.Add(Me.btnCancel)
        Me.GroupBox2.Controls.Add(Me.btnOk)
        Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Bottom
        Me.GroupBox2.Location = New System.Drawing.Point(0, 429)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(448, 56)
        Me.GroupBox2.TabIndex = 3
        Me.GroupBox2.TabStop = False
        '
        'btnExit
        '
        Me.btnExit.Font = New System.Drawing.Font("隶书", 18.0!, System.Drawing.FontStyle.Bold)
        Me.btnExit.ForeColor = System.Drawing.SystemColors.Desktop
        Me.btnExit.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.btnExit.ImageIndex = 2
        Me.btnExit.ImageList = Me.ilButton
        Me.btnExit.Location = New System.Drawing.Point(296, 16)
        Me.btnExit.Name = "btnExit"
        Me.btnExit.Size = New System.Drawing.Size(120, 32)
        Me.btnExit.TabIndex = 2
        Me.btnExit.Text = "退出"
        Me.btnExit.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'btnCancel
        '
        Me.btnCancel.Font = New System.Drawing.Font("隶书", 18.0!, System.Drawing.FontStyle.Bold)
        Me.btnCancel.ForeColor = System.Drawing.SystemColors.Desktop
        Me.btnCancel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.btnCancel.ImageIndex = 1
        Me.btnCancel.ImageList = Me.ilButton
        Me.btnCancel.Location = New System.Drawing.Point(160, 16)
        Me.btnCancel.Name = "btnCancel"
        Me.btnCancel.Size = New System.Drawing.Size(120, 32)
        Me.btnCancel.TabIndex = 1
        Me.btnCancel.Text = "放弃"
        Me.btnCancel.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'btnOk
        '
        Me.btnOk.Font = New System.Drawing.Font("隶书", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.btnOk.ForeColor = System.Drawing.SystemColors.Desktop
        Me.btnOk.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.btnOk.ImageIndex = 0
        Me.btnOk.ImageList = Me.ilButton
        Me.btnOk.Location = New System.Drawing.Point(24, 16)
        Me.btnOk.Name = "btnOk"
        Me.btnOk.Size = New System.Drawing.Size(120, 32)
        Me.btnOk.TabIndex = 0
        Me.btnOk.Text = "确认"
        Me.btnOk.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'GroupBox3
        '
        Me.GroupBox3.Controls.Add(Me.Label1)
        Me.GroupBox3.Controls.Add(Me.cmbStudent)
        Me.GroupBox3.Location = New System.Drawing.Point(0, 48)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(448, 48)
        Me.GroupBox3.TabIndex = 4
        Me.GroupBox3.TabStop = False
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.Location = New System.Drawing.Point(88, 16)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(79, 17)
        Me.Label1.TabIndex = 1
        Me.Label1.Text = "请选择学生："
        '
        'cmbStudent
        '
        Me.cmbStudent.Location = New System.Drawing.Point(168, 16)
        Me.cmbStudent.Name = "cmbStudent"
        Me.cmbStudent.Size = New System.Drawing.Size(128, 20)
        Me.cmbStudent.TabIndex = 0
        Me.cmbStudent.Text = "ComboBox1"
        '
        'FormStudentLeaveSchool
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(448, 485)
        Me.Controls.Add(Me.GroupBox3)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.pnlTop)
        Me.Controls.Add(Me.GroupBox1)
        Me.Name = "FormStudentLeaveSchool"
        Me.Text = "学生离校"
        Me.GroupBox1.ResumeLayout(False)
        Me.pnlTop.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    '根据m_oStudent对象实例的属性设置窗体各控件值
    Private Function SetControl() As Boolean
        If Object.Equals(Me.m_oStudent, Nothing) Then
            SetControl = False
        Else
            '设置控件值
            Me.txtName.Text = Me.m_oStudent.Name
            Me.txtDorm.Text = Me.m_oStudent.Dorm
            Me.txtEmail.Text = Me.m_oStudent.Email
            Me.txtHomeAddress.Text = Me.m_oStudent.HomeAddress
            Me.txtHomePhone.Text = Me.m_oStudent.HomePhone
            Me.txtIntro.Text = Me.m_oStudent.Intro
            Me.txtPhone.Text = Me.m_oStudent.Phone
            Me.txtPostalcode.Text = Me.m_oStudent.Postalcode
            Me.txtStudentNumber.Text = Me.m_oStudent.StudentNumber
            Me.cmbBusiness.Text = Me.m_oStudent.Business
            Me.cmbNation.Text = Me.m_oStudent.Nation
            Me.cmbProfession.Text = Me.m_oStudent.Profession.Name
            Me.cmbSex.Text = Me.m_oStudent.Sex
            Me.NativePlace1.Text = Me.m_oStudent.NativePlace
            Me.dtpBirthday.Text = Me.m_oStudent.Birthday
            Me.dtpEnterDate.Text = Me.m_oStudent.EnterDate
            SetControl = True
        End If
    End Function

    Private Sub ResetForm()
        Me.m_oStudent = New Student
        SetControl()
        cmbStudent.Text = "请选择学生..."
    End Sub

    Private Sub FormStudentLeaveSchool_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cmbStudent.Items.Clear()
        cmbStudent.DisplayMember = "name"
        cmbStudent.ValueMember = "stu_num"
        cmbStudent.DataSource = DbBase.DataInterface.Execute4DS("select stu_num,name from student").Tables(0).DefaultView
    End Sub

    Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
        If Me.m_oStudent.Leave() = 0 Then
            MessageBox.Show("学生离校成功！")
            ResetForm()
        End If
    End Sub

    Private Sub cmbStudent_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbStudent.SelectedIndexChanged
        Me.m_oStudent = New Student(cmbStudent.SelectedValue)
        SetControl()
    End Sub

    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        ResetForm()
    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub
End Class