- - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -

บทที่ 5 สร้างฟอร์มเพิ่มข้อมูล (2)

ขั้นตอนในการสร้าง

• คลิกแท็บ Design
• ดับเบิ้ลคลิกที่ปุ่ม addButton และทำการป้อนโค้ดต่อไปนี้ลงไป

Sub addButton_Click(sender As Object, e As EventArgs)
    If mCode.Text = "" or mName.Text = "" or mAddress.Text = "" or mWebSite.Text = "" Then
        msgLabel.Text = "One or more fields re empty. <br>Please complete all fields."
        msgLabel.Visible = True
    ElseIf InsertManufacturer(mCode.Text, mName.Text, mAddress.Text, mWebSite.Text)>0 Then
        msgLabel.Text = "Manufacturer: " & mName.Text & " was added successfully"
        msgLabel.Visible = True
        DataGrid1.DataSource = GetManufacturers()
        DataGrid1.DataBind()
    End If
End Sub

• เพิ่ม Sub ต่อไปนี้ ลงในหน้า Code View ซึ่งโค้ดส่วนนี้จะทำงานทุกครั้ง เมื่อมีการโหลดเว็บเพจหน้านี้

Sub Page_Load(sender As Object, e As EventArgs)
    If IsPostBack Then
        msgLabel.Text = ""
        msgLabel.Visible = False
    Else
        DataGrid1.DataSource = GetManufacturers()
        DataGrid1.DataBind()
    End If
End Sub

• ทำการ Save ไฟล์
• ทดสอบโปรแกรมโดยกดปุ่ม F5
• ทำการป้อนข้อมูลลงไป แล้วกดปุ่ม Add Manufacturer

• จะสังเกตุได้ว่าข้อมูลได้ถูกบันทึกฐานข้อมูลเป็นที่เรียบร้อย แต่ยังไม่มีการ ลบข้อความที่ได้บันทึกแล้ว ออกไปจากช่องป้อนข้อมูล
• เพิ่ม Sub ต่อไปนี้ ลงในหน้า Code View ซึ่งโค้ดส่วนนี้จะทำการลบข้อความในช่องป้อนข้อมูลออกไป

Sub ResetTextAllFields()
    mCode.Text = ""
    mName.Text = ""
    mAddress.Text = ""
    mWebSite.Text = ""
End Sub

• ทำการแก้ไข Sub addButton_Click เป็น ...

Sub addButton_Click(sender As Object, e As EventArgs)
    If mCode.Text = "" or mName.Text = "" or mAddress.Text = "" or mWebSite.Text = "" Then
        msgLabel.Text = "One or more fields re empty. <br>Please complete all fields."
        msgLabel.Visible = True
    ElseIf InsertManufacturer(mCode.Text, mName.Text, mAddress.Text, mWebSite.Text)>0 Then
        msgLabel.Text = "Manufacturer: " & mName.Text & " was added successfully"
        msgLabel.Visible = True
        DataGrid1.DataSource = GetManufacturers()
        DataGrid1.DataBind()
        ResetTextAllFields()
    End If
End Sub

• ทำการ Save ไฟล์ แล้วกดปุ่ม F5 เพื่อทดสอบ
• จะเห็นว่าหลังจากเราได้ เพิ่มข้อมูลเข้าไป ข้อมูลที่เราได้ป้อนไปในช่อง จะหายไปด้วย