frmfa.vb

需要在.net环境下运行需要安装框架

Public Class FRMFA
    Inherits System.Windows.Forms.Form

#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写处置以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意：以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents tbFName As System.Windows.Forms.TextBox
    Friend WithEvents tbFRelation As System.Windows.Forms.TextBox
    Friend WithEvents tbFRemark As System.Windows.Forms.TextBox
    Friend WithEvents nudHID As System.Windows.Forms.NumericUpDown
    Friend WithEvents cbFSex As System.Windows.Forms.ComboBox
    Friend WithEvents btnAdd As System.Windows.Forms.Button
    Friend WithEvents btnDel As System.Windows.Forms.Button
    Friend WithEvents btnChg As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.Label4 = New System.Windows.Forms.Label()
        Me.Label5 = New System.Windows.Forms.Label()
        Me.tbFName = New System.Windows.Forms.TextBox()
        Me.tbFRelation = New System.Windows.Forms.TextBox()
        Me.tbFRemark = New System.Windows.Forms.TextBox()
        Me.nudHID = New System.Windows.Forms.NumericUpDown()
        Me.cbFSex = New System.Windows.Forms.ComboBox()
        Me.btnAdd = New System.Windows.Forms.Button()
        Me.btnDel = New System.Windows.Forms.Button()
        Me.btnChg = New System.Windows.Forms.Button()
        CType(Me.nudHID, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(8, 29)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(48, 16)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "房号："
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(232, 29)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(48, 16)
        Me.Label2.TabIndex = 1
        Me.Label2.Text = "姓名："
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(8, 76)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(48, 16)
        Me.Label3.TabIndex = 2
        Me.Label3.Text = "性别："
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(232, 76)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(48, 16)
        Me.Label4.TabIndex = 3
        Me.Label4.Text = "关系："
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(8, 128)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(48, 16)
        Me.Label5.TabIndex = 4
        Me.Label5.Text = "备注："
        '
        'tbFName
        '
        Me.tbFName.Location = New System.Drawing.Point(328, 24)
        Me.tbFName.Name = "tbFName"
        Me.tbFName.Size = New System.Drawing.Size(120, 21)
        Me.tbFName.TabIndex = 6
        Me.tbFName.Text = ""
        '
        'tbFRelation
        '
        Me.tbFRelation.Location = New System.Drawing.Point(328, 71)
        Me.tbFRelation.Name = "tbFRelation"
        Me.tbFRelation.Size = New System.Drawing.Size(120, 21)
        Me.tbFRelation.TabIndex = 8
        Me.tbFRelation.Text = ""
        '
        'tbFRemark
        '
        Me.tbFRemark.Location = New System.Drawing.Point(8, 152)
        Me.tbFRemark.Multiline = True
        Me.tbFRemark.Name = "tbFRemark"
        Me.tbFRemark.Size = New System.Drawing.Size(440, 112)
        Me.tbFRemark.TabIndex = 9
        Me.tbFRemark.Text = ""
        '
        'nudHID
        '
        Me.nudHID.Location = New System.Drawing.Point(80, 24)
        Me.nudHID.Maximum = New Decimal(New Integer() {10000, 0, 0, 0})
        Me.nudHID.Name = "nudHID"
        Me.nudHID.TabIndex = 10
        '
        'cbFSex
        '
        Me.cbFSex.Items.AddRange(New Object() {"女", "男"})
        Me.cbFSex.Location = New System.Drawing.Point(79, 72)
        Me.cbFSex.Name = "cbFSex"
        Me.cbFSex.Size = New System.Drawing.Size(121, 20)
        Me.cbFSex.TabIndex = 11
        Me.cbFSex.Text = "女"
        '
        'btnAdd
        '
        Me.btnAdd.Location = New System.Drawing.Point(224, 120)
        Me.btnAdd.Name = "btnAdd"
        Me.btnAdd.TabIndex = 12
        Me.btnAdd.Text = "添加"
        '
        'btnDel
        '
        Me.btnDel.Location = New System.Drawing.Point(299, 120)
        Me.btnDel.Name = "btnDel"
        Me.btnDel.TabIndex = 13
        Me.btnDel.Text = "删除"
        '
        'btnChg
        '
        Me.btnChg.Location = New System.Drawing.Point(374, 120)
        Me.btnChg.Name = "btnChg"
        Me.btnChg.TabIndex = 14
        Me.btnChg.Text = "更改"
        '
        'FRMFA
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(456, 273)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnChg, Me.btnDel, Me.btnAdd, Me.cbFSex, Me.nudHID, Me.tbFRemark, Me.tbFRelation, Me.tbFName, Me.Label5, Me.Label4, Me.Label3, Me.Label2, Me.Label1})
        Me.Name = "FRMFA"
        Me.Text = "家庭成员"
        CType(Me.nudHID, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

    End Sub

    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        If nudHID.Text = "" Or tbFName.Text = "" Or cbFSex.Text = "" Or tbFRelation.Text = "" Then
            MsgBox("输入需要的信息！", MsgBoxStyle.Exclamation, "OK")
            Exit Sub
        End If
        Dim sqlStr As String
        sqlStr = "insert into family(hID,fName,fSex,fRelation,fRemark) values("
        sqlStr = sqlStr & nudHID.Text & ",'"
        sqlStr = sqlStr & tbFName.Text & "','"
        sqlStr = sqlStr & cbFSex.Text & "','"
        sqlStr = sqlStr & tbFRelation.Text & "','"
        sqlStr = sqlStr & tbFRemark.Text & "')"
        Dim dbopera1 As DbOpera = New DbOpera(sqlStr)
        dbopera1.opera()
        MsgBox("成功！", MsgBoxStyle.Exclamation, "OK")
    End Sub

    Private Sub btnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDel.Click
        '删除某些成员
        If tbFName.Text = "" Or nudHID.Text = "" Then
            MsgBox("输入房号和成员名。", MsgBoxStyle.Exclamation, "OK")
            Exit Sub
        End If
        Dim sqlStr As String = "delete from family where fName='" & tbFName.Text & "' and hID=" & nudHID.Text
        Dim dbopera1 As DbOpera = New DbOpera(sqlStr)
        dbopera1.opera()
        MsgBox("成功！", MsgBoxStyle.Exclamation, "OK")
    End Sub

    Private Sub btnChg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnChg.Click
        '更改某些成员的信息
        If nudHID.Text = "" Or tbFName.Text = "" Or cbFSex.Text = "" Or tbFRelation.Text = "" Then
            MsgBox("输入需要的信息！", MsgBoxStyle.Exclamation, "OK")
            Exit Sub
        End If
        Dim sqlStr As String
        sqlStr = "update family set fSex='" & cbFSex.Text & "',fRelation='" & tbFRelation.Text & "'.fRemark='" & tbFRemark.Text & "' "
        sqlStr = sqlStr & " where hID=" & nudHID.Text & "  and fName='" & tbFName.Text & "'"
        Dim dbopera1 As DbOpera = New DbOpera(sqlStr)
        If dbopera1.opera() Then
            MsgBox("成功！", MsgBoxStyle.Exclamation, "OK")
        Else
            MsgBox("错误！请检查数据类型！也许想修改的成员不存在！", MsgBoxStyle.Exclamation, "OK")
        End If

    End Sub
End Class