| |
 |
| - - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
|
กระทู้ #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]
|
|
|
| - - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
| |
|
|
New Article
อัตราค่าโฆษณา
