ຂ່າວສານຂອງພຣະສີລາ: ບົດຮຽນກ່ຽວການຂຽນໂປຼແກຼມ

ปุ่มบันทึกครับ

Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnsave.Click

   
    Dim sqlADD As String '

เก็บคำสั่ง

sql สำหรับเพิ่มข้อมูล

   
    Dim cm As New SqlCommand

   
    sqlADD = "INSERT INTO
vacancies_Job(Company_name,Address,Tel,Job_title,Vacancy_rates)"

   
    sqlADD &= "VALUES ('" & txtcompany.Text &
"','" & txtaddress.Text & "','" & txtphone.Text
& "','" & txtyouwork.Text & "','" &
txtwage.Text & "')"

ใช้ oledbcommand ในการเพิ่มข้อมูล

   
    If MessageBox.Show("

คุณต้องการเพิ่มรายชื่อใหม่ใช่หรือไม่?", "ยืนยัน"

,
MessageBoxButtons.YesNo, MessageBoxIcon.Question) =
Windows.Forms.DialogResult.Yes Then

   
        With cm

   
            .CommandType = CommandType.Text

   
            .CommandText = sqlADD

   
            .Connection = Conn

   
            .ExecuteNonQuery()

   
        End With

   
        MessageBox.Show("

เพิ่มรายชื่อพนักงานแล้ว", "ผลการทำงาน"

,
MessageBoxButtons.OK, MessageBoxIcon.Information)

   
        txtcompany.Clear()

   
        txtaddress.Clear()

   
        txtphone.Clear()

   
        txtyouwork.Clear()

   
        txtwage.Clear()

   
    End If

    End
Sub

ปุ่มแก้ไข

Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btnedit.Click

แก้ไขข้อมูล

   
    Dim sqlADD As String '

เก็บคำสั่ง

sql สำหรับเพิ่มข้อมูล

   
    Dim cm As New SqlCommand

   
    sqlADD = "UPDATE loguser SET Username= '" &
Trim(txtuser.Text) & "' ,Password= '" & Trim(txtpass.Text)
& "' WHERE ID= '" & Trim(txtID.Text) & "'"

   
    'sqlADD &= "VALUES ('" & txtID.Text &
"','" & txtuser.Text & "','" & txtpass.Text
& "')"

ใช้ oledbcommand ในการเพิ่มข้อมูล

   
    If MessageBox.Show("

คุณต้องการแก้ไขข้อมูลนี้ใหม่ใช่หรือไม่?", "ยืนยัน"

,
MessageBoxButtons.YesNo, MessageBoxIcon.Question) =
Windows.Forms.DialogResult.Yes Then

   
        With cm

   
            .CommandType = CommandType.Text

   
            .CommandText = sqlADD

   
            .Connection = Conn

   
            .ExecuteNonQuery()

   
        End With

ปุ่มลบ

Private Sub btndel_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btndel.Click

   
    If MessageBox.Show("

คุณต้องการลบข้อความนี่ใช่หรือไม่

?",
"

ยืนยันการลบ"

, MessageBoxButtons.YesNo,
MessageBoxIcon.Question, MessageBoxDefaultButton.Button1) =
Windows.Forms.DialogResult.Yes Then

   
        Dim strID As String = Me.DataGridView1(0,
Me.DataGridView1.CurrentCell.RowIndex).Value.ToString()

   
        Dim myConnection As Data.SqlClient.SqlConnection

   
        myConnection = New
Data.SqlClient.SqlConnection("Data Source=DARKEDITION\SA;Initial
Catalog=Registered_unemployed;User ID=sa;Password=12345;")

   
        myConnection.Open()

   
        Dim myCommand As Data.SqlClient.SqlCommand =
myConnection.CreateCommand()

   
        myCommand.CommandText = "DELETE FROM
[vacancies_Job] WHERE Company_name = '" & strID & "'"

   
        myCommand.CommandType = CommandType.Text

   
        myCommand.ExecuteNonQuery()

   
        myConnection.Close()

   
        MessageBox.Show("

ลบข้อมูลเรียบร้อยแล้ว", "ระบบตรวจสอบ")

   
        DataGridView1.Refresh()

ปุ่มค้นหา

Private Sub btnsearch_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnsearch.Click

คอลัมน์ที่จะแสดง

   
    Dim sql As String = " SELECT first_name "

   
   
'Type_code,card_ID,Prefix,first_name,Last_name,Address,Tel,Mail,Date_Birth,Age,Religion,Job_title,Wage,Education,Levels_education,Branch,GPA,Status_military,Talent,Out_work,Picture"

   
    If chaddress.Checked Then

   
        sql &= ", Address"

   
    End If

   
    If chtel.Checked Then

   
        sql &= ", Tel"

   
    End If

   
    If chid.Checked Then

   
        sql &= ", card_ID"

   
    End If

   
    If choutjob.Checked Then

   
        sql &= ",  Out_work"

   
    End If

   
    If chyouwork.Checked Then

   
        sql &= ", Job_title"

   
    End If

   
    If chtalent.Checked Then

   
        sql &= ", Talent"

   
    End If

   
    If chall.Checked Then

   
        sql &= ", Type_code"

   
        sql &= ", card_ID"

   
        sql &= ", Prefix"

   
        sql &= ", first_name"

   
        sql &= ", Last_name"

   
        sql &= ", Address"

   
        sql &= ", Tel"

   
        sql &= ", Mail"

   
        sql &= ", Date_Birth"

   
        sql &= ", Age"

   
        sql &= ", Religion"

   
        sql &= ", Job_title"

   
        sql &= ", Wage"

   
        sql &= ", Education"

   
        sql &= ", Levels_education"

   
        sql &= ", Branch"

     
      sql &= ", GPA"

   
        sql &= ", Status_military"

   
        sql &= ", Talent"

   
        sql &= ", Out_work"

   
        chid.Checked = False

   
        chaddress.Checked = False

   
        chtel.Checked = False

   
        chyouwork.Checked = False

   
        chtalent.Checked = False

   
        choutjob.Checked = False

   
        chid.Enabled = False

   
        chaddress.Enabled = False

   
        chtalent.Enabled = False

   
        chtel.Enabled = False

   
        choutjob.Enabled = False

   
        chyouwork.Enabled = False

   
    Else

   
        chid.Enabled = True

   
        chaddress.Enabled = True

   
        chtalent.Enabled = True

   
        chtel.Enabled = True

   
        choutjob.Enabled = True

   
        chyouwork.Enabled = True

   
    End If

   
    sql &= " FROM Personal "

   
    sql &= " WHERE first_name LIKE "

ตำแหน่งคำ

   
    Select Case cmbsearch.SelectedItem

   
        Case "

ส่วนหนึ่งของคำ"
:

sql
&= "'%" & txtsearch.Text & "%'"

   
        Case "

ขึ้นต้นคำ"
:

sql
&= "'" & txtsearch.Text & "%'"

   
        Case "

ลงท้ายคำ"
:

sql
&= "'%" & txtsearch.Text & "'"

   
        Case "

ตรงกันทั้งคำ"
:

sql
&= "'" & txtsearch.Text & "'"

   
    End Select

   
    'MessageBox.Show(sql)

   
    Dim command As New SqlCommand(sql, connection)

   
    Dim adapter As New SqlDataAdapter(command)

   
    Dim dataSt As New DataSet()

   
    adapter.Fill(dataSt, " customer ")

   
    DataGridView1.DataSource = dataSt.Tables(" customer ")

    End
Sub

ปุ่มยกเลิกใช้การ Cancle นะครับ
เช่น
textbox1.text = ""
combobox.resettext

ส่วนปุ่มเพิ่มอาจจะทำแบบ
คลิกปุ่มแล้ว textbox1.text = ""
หรือ
คลิกแล้ว
ทำการเชื่อโยงกับปุ่มบันทึกคือ
ให้ปุ่มบันทึกเช็คค่าการกดว่าเรากดปุ่ม เพิ่ม หรือ แก้ไข

ຂ່າວສານຂອງພຣະສີລາ

หน้าเว็บ

ບົດຮຽນກ່ຽວການຂຽນໂປຼແກຼມ

ไม่มีความคิดเห็น:

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