|
|
- - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
|
กระทู้ #2813 [Vb] (จาก IP: 119.42.80.100)
อยากได้โค้ด ปุ้ม บันทีก ลบ แก้ไข
ช่อยหน่อยนะครับ....ต้องการมากเลย จะทำโปรแกรมให้ได้ 80% ก่อน วันที่ 26 กุมภา 2553 อ่ะครับ.....ช่วยหน่อยนะครับ พี่ๆๆๆ
|
จากคุณ
:
crvtom / crvtom@hotmail.com [2010-02-15 02:20:43]
|
|
ความคิดเห็น #27795 (จาก IP: 119.42.80.100)
โค้ด VB 2005 นะครับ |
จากคุณ
:
crvtom / crvtom@hotmail.com [2010-02-15 02:29:10]
|
|
ความคิดเห็น #27796 (จาก IP: 203.144.240.232)
ผมรับทำให้ใหมครับ ถ้า 80 % 3 วันเสร็จพร้อมสอน CODE cshnet_dotnet@hotmail.com |
จากคุณ
:
WINCOMMON [2010-02-16 20:06:27]
|
|
ความคิดเห็น #27797 (จาก IP: 61.7.134.4)
คิดในราคาเท่าไร.....ครับ ....อยาก ทราบก่อน อ่ะครับ..... |
จากคุณ
:
crvtom [2010-02-16 20:30:45]
|
|
ความคิดเห็น #27798 (จาก IP: 113.53.79.64)
ผมสอนเอาๆไหม
.net สินะ ฟรี ๆ ครับ
แอดมาเลย ๆ
k1nGdOm_h4ck@hotmail.com |
จากคุณ
:
ปาล์ม / k1nGdOm_h4ck@hotmail.com [2010-02-16 20:48:13]
|
|
ความคิดเห็น #27800 (จาก IP: 119.42.125.84)
ขอบคุณครับ แอด..ไปแล้วนะครับ.....^^ |
จากคุณ
:
crvtom [2010-02-16 23:02:43]
|
|
ความคิดเห็น #28058 (จาก IP: 203.158.196.192)
Imports System.Data Imports System.Data.SqlClient Imports System.Configuration Public Class frmOne Dim myConn As New SqlConnection Dim myCom As New SqlCommand Dim myDa As SqlDataAdapter Dim myDs As New DataSet Dim myDr As SqlDataReader Dim myTs As SqlTransaction Dim strCon As String = ConfigurationManager.ConnectionStrings("workproject.My.MySettings.myDB").ConnectionString Dim strSql As String Dim ID As String Dim bb As Integer
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click If MessageBox.Show("คุณต้องการออกจากโปรแกรม", " กรุณาตรวจสอบ", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then Me.Close() End If End Sub
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click ID = "insert" txtUser.Enabled = True txtPass.Enabled = True txtName.Enabled = True txtLname.Enabled = True txtTel.Enabled = True txtAddress.Enabled = True btnAdd.Enabled = True btnUpdate.Enabled = False btnDelete.Enabled = False btnSave.Enabled = True btnCancel.Enabled = True
txtUser.Clear() txtPass.Clear() txtName.Clear() txtLname.Clear() txtTel.Clear() txtAddress.Clear() txtUser.Focus()
End Sub
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
Dim r As Integer Dim n As String
If txtUser.Text.Trim = "" Then ' คำสั่งตรวจสอบชื่อเข้าใช้ซ้ำกันในฐานข้อมูลและเช็คค่าว่าง MessageBox.Show("ชื่อเข้าใช้ซ้ำกรุณาป้อนชื่อใหม่") Exit Sub txtUser.Focus() ElseIf txtPass.Text.Trim = "" Then MessageBox.Show("กรุณาป้อนรหัสผ่าน") Exit Sub txtPass.Focus() ElseIf txtName.Text.Trim = "" Then MessageBox.Show("กรุณาป้อนชื่อ") Exit Sub txtName.Focus() ElseIf txtLname.Text.Trim = "" Then MessageBox.Show("กรุณาป้อนนามสกุล") Exit Sub txtLname.Focus() ElseIf txtTel.Text.Trim = "" Then MessageBox.Show("กรุณาป้อนเบอร์โทรศัพท์") Exit Sub txtTel.Focus() ElseIf txtAddress.Text.Trim = "" Then MessageBox.Show("กรุณาป้อนที่อยู่") Exit Sub txtAddress.Focus()
Else
If myConn.State = ConnectionState.Open Then myConn.Close() End If
myConn.Open() myTs = myConn.BeginTransaction myCom = New SqlCommand myCom.Connection = myConn myCom.Transaction = myTs
If radAdmin.Checked = True Then n = radAdmin.Text ElseIf radAdmis.Checked = True Then n = radAdmis.Text Else n = radEmp.Text End If
If ID = "insert" Then strSql = "insert into User_System values(@User_ID,@User_pass,@User_name,@User_Lname,@Tel,@Address,@Ustatus)" MessageBox.Show("บันทึกข้อมูลเรียบร้อยแล้ว", "Succesed...", MessageBoxButtons.OK, MessageBoxIcon.Information) ElseIf ID = "update" Then strSql = "update User_System set User_pass = @User_pass,User_name = @User_name,User_Lname = @User_Lname,Tel = @Tel,Address = @Address,Ustatus = @Ustatus where User_ID = @User_ID" MessageBox.Show("แก้ไขข้อมูลเรียบร้อยแล้ว") End If
End If myCom.Parameters.Clear() myCom.Parameters.AddWithValue("@User_ID", txtUser.Text) myCom.Parameters.AddWithValue("@User_pass", txtPass.Text) myCom.Parameters.AddWithValue("@User_name", txtName.Text) myCom.Parameters.AddWithValue("@User_Lname", txtLname.Text) myCom.Parameters.AddWithValue("@Tel", txtTel.Text) myCom.Parameters.AddWithValue("@Address", txtAddress.Text) myCom.Parameters.AddWithValue("@Ustatus", n)
myCom.CommandText = strSql r = myCom.ExecuteNonQuery myTs.Commit() txtUser.Enabled = True myConn.Close()
txtUser.Enabled = False txtPass.Enabled = False txtAddress.Enabled = False txtLname.Enabled = False txtTel.Enabled = False txtName.Enabled = False
frmOne_Load(sender, e) txtUser.Clear() txtPass.Clear() txtName.Clear() txtLname.Clear() txtTel.Clear() txtAddress.Clear() radAdmin.Checked = False radAdmis.Checked = False radEmp.Checked = False
End Sub
Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click Me.Close()
End Sub
Private Sub frmOne_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load txtUser.Enabled = False txtPass.Enabled = False txtName.Enabled = False txtLname.Enabled = False txtTel.Enabled = False txtAddress.Enabled = False
If myConn.State = ConnectionState.Open Then myConn.Close() End If
myConn.ConnectionString = strCon myConn.Open()
strSql = "select User_ID,User_name,User_Lname,Tel,Address,Ustatus from User_System" myDa = New SqlDataAdapter(strSql, myConn) myDs = New DataSet myDs.Clear() myDa.Fill(myDs, "tbUser") dgvData.DataSource = myDs.Tables("tbUser")
dgvData.Columns(0).HeaderText = "ชื่อเข้าใช้" dgvData.Columns(1).HeaderText = "ชื่อ" dgvData.Columns(2).HeaderText = "นามสกุล" dgvData.Columns(3).HeaderText = "เบอร์โทร" dgvData.Columns(4).HeaderText = "ที่อยู่" dgvData.Columns(5).HeaderText = "สถานะ"
dgvData.Columns(0).Width = 100 dgvData.Columns(1).Width = 100 dgvData.Columns(2).Width = 100 dgvData.Columns(3).Width = 80 dgvData.Columns(4).Width = 250 dgvData.Columns(5).Width = 80
Label12.Text = status Label13.Text = nl End Sub
Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click Dim r As Integer
If myConn.State = ConnectionState.Open Then myConn.Close() End If myConn.ConnectionString = strCon myConn.Open()
strSql = "delete from User_System where User_ID = '" & txtUser.Text & "'" If MessageBox.Show("คุณต้องการลบข้อมูล", "Delete...", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then myCom = New SqlCommand myCom.CommandType = CommandType.Text myCom.CommandText = strSql myCom.Connection = myConn r = myCom.ExecuteNonQuery()
frmOne_Load(sender, e) End If
End Sub
Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click ID = "update" btnAdd.Enabled = False btnUpdate.Enabled = True btnDelete.Enabled = False btnSave.Enabled = True btnExit.Enabled = True btnCancel.Enabled = True
txtUser.Enabled = False txtPass.Enabled = True txtName.Enabled = True txtLname.Enabled = True txtTel.Enabled = True txtAddress.Enabled = True
txtPass.Focus()
End Sub
Private Sub dgvData_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvData.CellClick
rowdgv = dgvData.Rows(e.RowIndex).Cells(0).Value If dgvData.Rows.Count > 0 Then
txtUser.Text = dgvData.Rows(e.RowIndex).Cells(0).Value txtName.Text = dgvData.Rows(e.RowIndex).Cells(1).Value txtLname.Text = dgvData.Rows(e.RowIndex).Cells(2).Value txtTel.Text = dgvData.Rows(e.RowIndex).Cells(3).Value txtAddress.Text = dgvData.Rows(e.RowIndex).Cells(4).Value
If dgvData.Rows(e.RowIndex).Cells(5).Value = "ผู้ดูแลระบบ" Then radAdmin.Checked = True ElseIf dgvData.Rows(e.RowIndex).Cells(5).Value = "ผู้บริหาร" Then radAdmis.Checked = True Else radEmp.Checked = True End If End If End Sub
Private Sub txtPass_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtPass.KeyPress Select Case Asc(e.KeyChar) Case 47 To 58 e.Handled = False Case 8, 13, 46 ' Backspace = 8, Enter = 13, Delete = 46 e.Handled = False Case Else e.Handled = True End Select
End Sub
Private Sub txtTel_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTel.KeyPress Select Case Asc(e.KeyChar) Case 47 To 58 e.Handled = False Case 8, 13, 46 ' Backspace = 8, Enter = 13, Delete = 46 e.Handled = False Case Else e.Handled = True End Select End Sub End Class |
จากคุณ
:
notipe / nichi-yobi@msn.com [2010-11-24 16:31:17]
|
|
ความคิดเห็น #28059 (จาก IP: 203.158.196.192)
ก็ประมาณนี้นะค่ะ เพิ่ม ลบ แก้ไข ข้อมูลได้ เพราะตอนนี้ทำโปรเจค ใช้ vb.net เขียนอยู่ เชื่อมกับ sqlServer 2005 อยู่ค่ะ |
จากคุณ
:
notipe / nichi-yobi@msn.com [2010-11-24 16:47:37]
|
|
ความคิดเห็น #28065 (จาก IP: 223.205.89.195)
ขอบคุณ มากนะครับ ..... ทุกๆๆท่านเลยนะครับ......โค้ดบันทึกแก้ไขลบ ได้หมดแล้วครับ แต่ เหลือ ออกรายงาน คลิทตรันรีพอร์ท ....ครับ ออกไม่ได้ เลย ช่วย หน่อยได้ไมครับ ^^ |
จากคุณ
:
crvtom / crvtom@hotmail.com [2010-11-30 18:56:25]
|
|
ความคิดเห็น #29175 (จาก IP: 110.78.178.116)
มีใครพอจะแปลงเป็น C# ได้บ้างครับ อยากได้ |
จากคุณ
:
kan / kan.ounkaew@gmail.com [2014-12-09 09:34:39]
|
|
|
- - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
|
|
|