Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,038

HOME > .NET Framework > Forum > รบกวนช่วยดูcodeให้หน่อยค่ะบันทึก ลบ แก้ไขไม่ได้ค่ะ

[.NET] รบกวนช่วยดูcodeให้หน่อยค่ะบันทึก ลบ แก้ไขไม่ได้ค่ะ

เริ่มหัวข้อใหม่

Guest

Code (VB.NET)

Option Explicit On
Option Strict On
Imports System.Data
Imports System.Data.OleDb
Imports System.Text
 
Public Class frmDevice
    Dim Conn As OleDbConnection
    Dim com As OleDbCommand 'กำหนดคำสั่งsqlเพื่อส่งไปประมวลผล
    Dim da As OleDbDataAdapter
    Dim dr As OleDbDataReader
    Dim Active As Boolean 'สถานะการทำงาน พิจารณาว่าเป็นการบันทึก หรือ แก้ไข
    Dim tr As OleDbTransaction
     
    Private Sub ClearAllData()
        Dim myCtl As Control 'myCtl ตัวแปรออบเจ็กต์คอนโทรล
        For Each myCtl In grbDataDevice.Controls
            If myCtl.GetType.Name Is GetType(System.Windows.Forms.TextBox).Name Then myCtl.Text = ""
            If myCtl.GetType.Name Is GetType(System.Windows.Forms.ComboBox).Name Then myCtl.Text = ""
        Next
        txtDeviceNo.Text = "####"
    End Sub
    Private Sub LockTrue() 'กำหนดสถานะการทำงานของคอนโทรล(ให้ใช้งานได้) 
        Dim myCtl As Control
        For Each myCtl In grbDataDevice.Controls
            If myCtl.GetType.Name Is GetType(System.Windows.Forms.TextBox).Name Then
                If myCtl.Name <> "txtDeviceID" Then 'ไม่เท่ากับtxtDeviceID
                    myCtl.Enabled = True
                End If
            End If
            If myCtl.GetType.Name Is GetType(System.Windows.Forms.ComboBox).Name Then myCtl.Enabled = True
            'If myCtl.GetType.Name Is GetType(System.Windows.Forms.DateTimePicker).Name Then myCtl.Enabled = True
        Next
    End Sub
    Private Sub LockFalse() 'กำหนดสถานะการทำงานของคอนโทรล(ไม่ให้ใช้งาน)
        Dim myCtl As Control
        For Each myCtl In grbDataDevice.Controls
            If myCtl.GetType.Name Is GetType(System.Windows.Forms.TextBox).Name Then myCtl.Enabled = False
            If myCtl.GetType.Name Is GetType(System.Windows.Forms.ComboBox).Name Then myCtl.Enabled = False
            'If myCtl.GetType.Name Is GetType(System.Windows.Forms.DateTimePicker).Name Then myCtl.Enabled = False
        Next
    End Sub
    'โหลดข้อมูล
    Private Sub frmDevice_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        
        Dim strConn As String
        strConn = DBConnString.strConn
        Conn = New OleDbConnection()
        With conn
            If .State = ConnectionState.Open Then .Close()
            .ConnectionString = strConn 'เอาข้อความที่เก็บใน strConn ไปติดต่อ
            .Open() 'เชื่อมต่อกับฐานข้อมูล
        End With
        Call LoadComboLink()
 
        With cboSearch
            .Items.Add("ปี")
            .Items.Add("ข้อมูลอุปกรณ์")
            .SelectedIndex = 0
        End With
        Call ShowData(False)
        Call FormatdgvDataList()
 
        cmdAdd.Enabled = True
        cmdEdit.Enabled = False
        cmdSave.Enabled = True
        cmdDelete.Enabled = False
        cmdExits.Enabled = True
        Call LockTrue()
        Active = False
        Call ClearAllData()
        txtDataDevice.Focus()
    End Sub
    Private Sub LoadComboLink()
        da = New OleDbDataAdapter
        com = New OleDbCommand
    End Sub
    Private Sub ShowData(ByVal bShow As Boolean)
 
        Dim tSQL As String 'ตัวแปรเก็บชุดคำสั่งsql
        Dim tFed As String = ""
        Dim tWhe As String = ""
        Dim dr As OleDbDataReader
        tSQL = "SELECT * FROM DEVICE  " 'ดึงข้อมูลจากตารางDEVICEทั้งหมด
        If bShow And txtSearch.Text.Trim() <> "" Then
            Select Case cboSearch.SelectedIndex
                Case 0 'ปี
                    tSQL = tSQL & " WHERE (DEVICE_YEAR LIKE @DEVICE_YEAR)"
                    tWhe = txtSearch.Text.Trim()
                    tFed = "DEVIVE_YEAR"
                Case 1 'รหัสอุปกรณ์
                    tSQL = tSQL & " WHERE (DEVICE_NAME LIKE @DEVICE_NAME)"
                    tWhe = txtSearch.Text.Trim()
                    tFed = "DEVICE_NAME"
            End Select
        End If
        tSQL = tSQL & " ORDER BY ID_DEVICE"
        Dim dt As DataTable
        com = New OleDbCommand()
        With com
            .CommandText = tSQL 'ใช้ชุดคำสั่ง tSQL
            .CommandType = CommandType.Text
            .Connection = conn
            .Parameters.Clear()
            If bShow Then
                If tWhe <> "" Then
                    .Parameters.AddWithValue(tFed, OleDbType.VarChar).Value = "%" & tWhe & "%"
                End If
            End If
            dr = .ExecuteReader 'รันชุดคำสั่ง sql ที่อยู่ในตัวแปร dr
            If dr.HasRows Then 'ถ้ามีรายการข้อมูล
                dt = New DataTable() 'ในดาต้าเทเบิล
                dt.Load(dr) 'ให้โหลดข้อมูลมา
                dgvDataList.DataSource = dt 'แสดงข้อมูลออกมา
            Else 'ถ้าไม่มี
                dgvDataList.DataSource = Nothing 'ล้างข้อมูล
            End If
        End With
        dr.Close() 'ปิดการใช้งานออบเจ็กต์ dr
    End Sub
    'กดปุ่มบันทึก
    Private Sub AddData()
        
 
        If MessageBox.Show("คุณต้องการเพิ่ม" & Me.Text & "ใหม่ ใช่หรือไม่?", "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            tr = Conn.BeginTransaction()
            Try
                da = New OleDbDataAdapter
                da.InsertCommand.CommandText = ("INSERT INTO DEVICE(DEVICE_NO,DEVICE_NAME,PRICE_PER_MONTH,DEVICE_YEAR)")
                da.InsertCommand.CommandText = (" VALUES (@DEVICE_NO,@DEVICE_NAME,@PRICE_PER_MONTH,@DEVICE_YEAR)")
                Dim sqlAdd As String
                sqlAdd = da.ToString()
                With com
                    .CommandText = sqlAdd
                    .CommandType = CommandType.Text
                    .Connection = Conn
                    .Transaction = tr
                    .Parameters.Clear()
                    .Parameters.AddWithValue("@DEVICE_NO", OleDbType.Numeric).Value = txtDeviceNo.Text.Trim() 'ตัวแปร@DEVICE_NO กำหหนดจากtxtDeviceID
                    .Parameters.AddWithValue("@DEVICE_NAME", OleDbType.VarChar).Value = txtDataDevice.Text.Trim()
                    .Parameters.AddWithValue("@PRICE_PER_MONTH", OleDbType.Numeric).Value = txtPrice.Text.Trim()
                    .Parameters.AddWithValue("@DEVICE_YEAR", OleDbType.Numeric).Value = cboYear.Text.Trim()
                    Dim result As Integer = com.ExecuteNonQuery()
 
 
                End With
                tr.Commit() 'ให้ทรานเซกซันสมบูรณ์
                MessageBox.Show("เพิ่ม" & Me.Text & "ใหม่ เรียบร้อยแล้ว !!!", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Call ShowData(False)
                Call FormatdgvDataList()
                cmdAdd.Enabled = False
                cmdEdit.Enabled = False
                cmdSave.Enabled = True
                cmdDelete.Enabled = False
                cmdExits.Enabled = True
                cmdSearch.Enabled = False
                Call LockTrue()
                Active = False
                Call ClearAllData()
            Catch ex As Exception 'ถ้ามีข้อผิดพลาด'
                MessageBox.Show("เกิดความผิดพลาด !!!" & ex.Message, "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                tr.Rollback() 'ยกเลิกการทำ ทรานเซกซัน
            End Try
 
        End If
 
    End Sub
    Private Sub EditData()
        If MessageBox.Show("คุณต้องการบันทึก" & Me.Text & " ใช่หรือไม่?", "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            tr = Conn.BeginTransaction()
            Try
                ' @DEVICE_NO,@DEVICE_NAME,@PRICE_PER_MONTH,@DEVICE_YEAR
                da = New OleDbDataAdapter
 
                da.SelectCommand = New OleDbCommand("UPDATE DEVICE")
                da.SelectCommand = New OleDbCommand(" SET DEVICE_NO=@DEVICE_NO")
                da.SelectCommand = New OleDbCommand(" ,DEVICE_NAME=@DEVICE_NAME")
                da.SelectCommand = New OleDbCommand(" ,PRICE_PER_MONTH=@PRICE_PER_MONTH")
                da.SelectCommand = New OleDbCommand(" ,DEVICE_YEAR=@DEVICE_YEAR")
                da.SelectCommand = New OleDbCommand(" WHERE (DEVICE_ID=@DEVICE_ID)")
                Dim sqlEdit As String
                sqlEdit = da.ToString()
 
                With com
                    .CommandText = sqlEdit
                    .CommandType = CommandType.Text
                    .Connection = Conn
                    .Transaction = tr
                    .Parameters.Clear()
                    .Parameters.AddWithValue("@DEVICE_NO", OleDbType.Numeric).Value = txtDeviceNo.Text.Trim()
                    .Parameters.AddWithValue("@DEVICE_NAME", OleDbType.VarChar).Value = txtDataDevice.Text.Trim()
                    .Parameters.AddWithValue("@PRICE_PER_MONTH", OleDbType.VarChar).Value = txtPrice.Text.Trim()
                    .Parameters.AddWithValue("@DEVICE_YEAR", OleDbType.VarChar).Value = cboYear.Text.Trim()
 
                    Dim result As Integer = com.ExecuteNonQuery()
 
                    If result = 0 Then
                        tr.Rollback()
                        MessageBox.Show("เกิดข้อผิดพลาด !!!", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
                        txtDataDevice.SelectAll()
                    Else
                        tr.Commit()
                        MessageBox.Show("แก้ไข" & Me.Text & " เรียบร้อยแล้ว !!!", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
                        Call ClearAllData()
                        Call ShowData(False)
                        Call FormatdgvDataList()
                        Call LockFalse()
                        cmdAdd.Enabled = True
                        cmdEdit.Enabled = True
                        cmdSave.Enabled = False
                        cmdDelete.Enabled = False
                        cmdExits.Enabled = True
                        cmdSearch.Enabled = True
                    End If
                End With
            Catch ex As Exception
                tr.Rollback()
 
                MessageBox.Show("เกิดข้อผิดพลาด เนื่องจาก " & ex.Message, "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End Try
        End If
        txtDataDevice.Focus()
    End Sub
    Private Sub FormatdgvDataList()
        With dgvDataList
            If .RowCount > 0 Then
                .Columns(0).HeaderText = "ลำดับที่"
                .Columns(1).HeaderText = "รหัสอุปกรณ์"
                .Columns(2).HeaderText = "ข้อมูลอุปกรณ์"
                .Columns(3).HeaderText = "ราคาค่าเช่า/เดือน"
                .Columns(4).HeaderText = "ปี"
 
                .Columns(0).Width = 80
                .Columns(1).Width = 100
                .Columns(2).Width = 250
                .Columns(3).Width = 150
                .Columns(4).Width = 80
 
            End If
        End With
    End Sub
    'เลือกข้อมูลในดาต้ากิตมาแก้ไข
    Private Sub dgvDataList_CellMouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgvDataList.CellMouseUp
        If e.RowIndex = -1 Then Exit Sub
        Dim tstatus As String = ""
        With dgvDataList
 
            txtPrice.Text = .Rows.Item(e.RowIndex).Cells(0).Value.ToString()
            txtDeviceNo.Text = .Rows.Item(e.RowIndex).Cells(1).Value.ToString()
            txtDataDevice.Text = .Rows.Item(e.RowIndex).Cells(2).Value.ToString()
            txtPrice.Text = .Rows.Item(e.RowIndex).Cells(3).Value.ToString()
            cboYear.Text = .Rows.Item(e.RowIndex).Cells(4).Value.ToString()
            Call LockFalse()
 
            Active = True
            cmdAdd.Enabled = True
            cmdEdit.Enabled = True
            cmdSave.Enabled = False
            cmdDelete.Enabled = True
            cmdExits.Enabled = True
            cmdSearch.Enabled = True
            txtDataDevice.Focus()
            txtDataDevice.SelectAll()
        End With
    End Sub
 
    Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
 
        'Dim dateIn As Date = dptPet_Age.Value
        If txtDataDevice.Text.Trim = "" Or txtPrice.Text.Trim = "" Then
            MessageBox.Show("กรุณากรอกข้อมูลที่มี * ให้ครบก่อน !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            Exit Sub
        End If
 
        If Active = False Then      'เพิ่มข้อมูล ต้องทำการ Insert ข้อมูลเข้าใจฐาน
            Call AddData()
        Else        'Update เป็นการแก้ไขข้อมูล
            Call EditData()
        End If
    End Sub
    Private Sub cmdSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSearch.Click
        Call ShowData(True)
        cmdAdd.Enabled = True
        cmdEdit.Enabled = True
        cmdSave.Enabled = False
        cmdDelete.Enabled = True
        cmdExits.Enabled = True
        cmdSearch.Enabled = True
        Call LockFalse()
    End Sub
    Private Sub cmdEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEdit.Click
        cmdAdd.Enabled = False
        cmdEdit.Enabled = False
        cmdSave.Enabled = True
        cmdDelete.Enabled = False
        cmdExits.Enabled = True
        cmdSearch.Enabled = False
        Call LockTrue()
        Active = True
    End Sub
    Private Sub cmdAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdd.Click
        cmdAdd.Enabled = False
        cmdEdit.Enabled = False
        cmdSave.Enabled = True
        cmdDelete.Enabled = False
        cmdExits.Enabled = True
        cmdSearch.Enabled = True
        Call LockTrue()
        Active = False
        Call ClearAllData()
        txtDataDevice.Focus()
    End Sub
    Private Sub cmdDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDelete.Click
        If MessageBox.Show("คุณต้องการลบ" & Me.Text & " ใช่หรือไม่?", "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
 
            tr = Conn.BeginTransaction()
            Try
                da = New OleDbDataAdapter()
                da.InsertCommand = New OleDbCommand("DELETE FROM  DEVICE")
                da.InsertCommand = New OleDbCommand(" WHERE (DEVICE_NO=@DEVICE_NO)")
                Dim sqlEdit As String
                sqlEdit = da.ToString()
                With com
                    .CommandText = sqlEdit
                    .CommandType = CommandType.Text
                    .Connection = Conn
                    .Transaction = tr
                    .Parameters.Clear()
                    .Parameters.AddWithValue("@DEVICE_NO", OleDbType.Numeric).Value = txtDeviceNo.Text.Trim()
                    Dim result As Integer = com.ExecuteNonQuery()
 
                    If result = 0 Then
                        tr.Rollback()
                        MessageBox.Show("รหัสที่คุณป้อน ไม่ถูกต้อง !!!", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
                        txtDataDevice.SelectAll()
                    Else
                        tr.Commit()
                        MessageBox.Show("ลบ" & Me.Text & " เรียบร้อยแล้ว !!!", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
                        Call ClearAllData()
                        Call ShowData(False)
                        Call FormatdgvDataList()
                        cmdAdd.Enabled = True
                        cmdEdit.Enabled = True
                        cmdSave.Enabled = False
                        cmdDelete.Enabled = False
                        cmdExits.Enabled = True
                        cmdSearch.Enabled = True
                        Call LockFalse()
                    End If
                End With
            Catch ex As Exception
                tr.Rollback()
 
                MessageBox.Show("เกิดข้อผิดพลาด เนื่องจาก " & ex.Message, "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End Try
        End If
        txtDataDevice.Focus()
    End Sub
    'ปุมออก
    Private Sub cmdExits_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExits.Click
        If MessageBox.Show("คุณต้องการจบการทำงาน ใช่หรือไม่?", "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            Me.Close()
            frmMain.Show()
        End If
    End Sub
 
    Private Sub txtPrice_keyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtPrice.KeyPress
        Select Case Asc(e.KeyChar)
            Case 47 To 58   
                e.Handled = False
            Case 8, 13, 46
                e.Handled = False
            Case Else
                e.Handled = True
        End Select
    End Sub
End Class

Tag : .NET, VB.NET

Date : 2010-08-26 16:36:56

By : jee

View : 1603

Reply : 5

No. 1

TC Admin

โพสกระทู้ ( 74,059 )
บทความ ( 838 )

Code (VB.NET)

Private Sub cmdDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDelete.Click
    If MessageBox.Show("คุณต้องการลบ" & Me.Text & " ใช่หรือไม่?", "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
 
        tr = Conn.BeginTransaction()
        Try
            da = New OleDbDataAdapter()
            da.InsertCommand = New OleDbCommand("DELETE FROM  DEVICE")
            da.InsertCommand = New OleDbCommand(" WHERE (DEVICE_NO=@DEVICE_NO)")
            Dim sqlEdit As String
            sqlEdit = da.ToString()
            With com
                .CommandText = sqlEdit
                .CommandType = CommandType.Text
                .Connection = Conn
                .Transaction = tr
                .Parameters.Clear()
                .Parameters.AddWithValue("@DEVICE_NO", OleDbType.Numeric).Value = txtDeviceNo.Text.Trim()
                Dim result As Integer = com.ExecuteNonQuery()
 
                If result = 0 Then
                    tr.Rollback()
                    MessageBox.Show("รหัสที่คุณป้อน ไม่ถูกต้อง !!!", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
                    txtDataDevice.SelectAll()
                Else
                    tr.Commit()
                    MessageBox.Show("ลบ" & Me.Text & " เรียบร้อยแล้ว !!!", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
                    Call ClearAllData()
                    Call ShowData(False)
                    Call FormatdgvDataList()
                    cmdAdd.Enabled = True
                    cmdEdit.Enabled = True
                    cmdSave.Enabled = False
                    cmdDelete.Enabled = False
                    cmdExits.Enabled = True
                    cmdSearch.Enabled = True
                    Call LockFalse()
                End If
            End With
        Catch ex As Exception
            tr.Rollback()
 
            MessageBox.Show("เกิดข้อผิดพลาด เนื่องจาก " & ex.Message, "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End Try
    End If
    txtDataDevice.Focus()
End Sub

ตรงนี้ขึ้นอะไรบ้างครับ

Date : 2010-08-26 17:59:42

By : webmaster

No. 2

Guest

เวลากดบันทึกแล้ว แจ้งเตือนว่า "เกิดความผิดพลาด !!!Object reference not set to an instance of an object." ค่ะ

Date : 2010-08-27 23:21:29

By : jee

No. 3

xxx

โพสกระทู้ ( 3,144 )
บทความ ( 1 )

โค้ดได้มั่วมากครับ

Date : 2010-08-27 23:53:13

By : tungman

No. 4

Guest

Object reference not set to an instance of an object.

ปกติที่เราเจอคือมันไม่ส่งค่าไปอ่ะ คือโค้ดอ่านหาค่าที่จะรับอ่ะไม่เจอ ประมาณนี้อ่ะ

แต่ไม่รู้ว่าความหมายถูกป่าวนะ - -"

Date : 2010-08-28 08:19:51

By : akura

No. 5

Guest

ลองเอา Try และ Catch ออกก่อนแล่วมันจะระบุจุดผิดพลาดเองครับ แล้วเราจะรู้และเดาได้ว่าเกิดจากตรองไหน หลักการแบบมืออาชีพ หาก Source Code ที่เราเขียนนั้น ยังทำงานไม่ 100 % ก็อย่าเพิ่งใส่ Try และ Catch ครับ จะได้รู้ได้อย่างตรงจุด

Date : 2010-08-30 14:24:26

By : Dr.T

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : รบกวนช่วยดูcodeให้หน่อยค่ะบันทึก ลบ แก้ไขไม่ได้ค่ะ

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

Registered : 109,038

document.write("<font color=996600>[.NET]</font>"); [.NET] รบกวนช่วยดูcodeให้หน่อยค่ะบันทึก ลบ แก้ไขไม่ได้ค่ะ

No. 1

No. 2

No. 3

No. 4

No. 5

ค้นหาข้อมูล

อัพโหลดแทรกรูปภาพ

Notice

[.NET] รบกวนช่วยดูcodeให้หน่อยค่ะบันทึก ลบ แก้ไขไม่ได้ค่ะ