15-11-19, 05:43 PM
15-11-19, 06:19 PM
انظر الى الصورة :
[attachment=23450]
للاضافة :
للتعديل :
[attachment=23450]
للاضافة :
PHP كود :
dim StrSQL as string = "INSERT INTO ALL_USERS (ID,USER_NAME,USER_PASS,TYPE,VEW_FORM,ADD_Button,EDIT_Button,DELETE_Button,FIND_Button,PRINT_Button,EXPORT_Button ) VALUES (" & Txt_ID.Text & ",'" & Txt_USER_NAME.Text & "','" & Txt_USER_PASS.Text & "'," & Txt_TYPE.Text & ",'" & Chk_VEW_FORM.Checked & "','" & Chk_ADD_Button.Checked & "','" & Chk_EDIT_Button.Checked & "','" & Chk_DELETE_Button.Checked & "','" & Chk_FIND_Button.Checked & "','" & Chk_PRINT_Button.Checked & "','" & Chk_EXPORT_Button.Checked & "')"
Dim cn As New SqlConnection("Server =(local);database=ALASEM0;integrated security=true")
Dim StrTableName As String ="ALL_USERS"
Dim da As New SqlDataAdapter(StrSQL, cn)
Dim dt As New DataTable
da.Fill(dt)
للتعديل :
PHP كود :
dim StrSQL as string = "UPDATE ALL_USERS SET USER_NAME='" & Txt_USER_NAME.Text & "', USER_PASS='" & Txt_USER_PASS.Text & "', TYPE=" & Txt_TYPE.Text & ", VEW_FORM='" & Chk_VEW_FORM.Checked & "', ADD_Button='" & Chk_ADD_Button.Checked & "', EDIT_Button='" & Chk_EDIT_Button.Checked & "', DELETE_Button='" & Chk_DELETE_Button.Checked & "', FIND_Button='" & Chk_FIND_Button.Checked & "', PRINT_Button='" & Chk_PRINT_Button.Checked & "', EXPORT_Button='" & Chk_EXPORT_Button.Checked & "' Where ID=" & Txt_ID.Text
Dim cn As New SqlConnection("Server =(local);database=ALASEM0;integrated security=true")
Dim StrTableName As String ="ALL_USERS"
Dim da As New SqlDataAdapter(StrSQL, cn)
Dim dt As New DataTable
da.Fill(dt)