21-05-13, 11:00 AM
السلام عليكم ورحمه الله وبركاته
اخواني الكرام
انا لدي مشكله
صممت فورم لتسجيل مستخدمين جدد وتحديد صلاحيات لكل شخص منهم عن طريق قوائم الاختيار
وعند تشغيل البرنامج ظهر المشكله التاليه
كما في الصوره
[ATTACH=CONFIG]2751[/ATTACH]
اتمنى منكم التكرم بمساعدتي
لكم كل الشكر
الكود
اخواني الكرام
انا لدي مشكله
صممت فورم لتسجيل مستخدمين جدد وتحديد صلاحيات لكل شخص منهم عن طريق قوائم الاختيار
وعند تشغيل البرنامج ظهر المشكله التاليه
كما في الصوره
[ATTACH=CONFIG]2751[/ATTACH]
اتمنى منكم التكرم بمساعدتي
لكم كل الشكر
الكود
كود :
Imports System.Data.OleDb
Public Class Formnewuser
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" And TextBox2.Text = "" Then
MsgBox("Please put username or password")
End If
Dim cmd As New OleDb.OleDbCommand("insert into users(user,pass,Approve,SMR,KH,SA,NA,MOD1,AH,NO,AZ,MA,SJ,MOA,HA,OL) values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", con)
cmd.Parameters.AddWithValue("@user", OleDbType.VarChar).Value = Trim(TextBox1.Text)
cmd.Parameters.AddWithValue("@pass", OleDbType.VarChar).Value = Trim(TextBox2.Text)
cmd.Parameters.AddWithValue("@SMR", OleDbType.Boolean).Value = CheckBox2.Checked
cmd.Parameters.AddWithValue("@KH", OleDbType.Boolean).Value = CheckBox3.Checked
cmd.Parameters.AddWithValue("@SA", OleDbType.Boolean).Value = CheckBox4.Checked
cmd.Parameters.AddWithValue("@NA", OleDbType.Boolean).Value = CheckBox5.Checked
cmd.Parameters.AddWithValue("@MOD1", OleDbType.Boolean).Value = CheckBox6.Checked
cmd.Parameters.AddWithValue("@AH", OleDbType.Boolean).Value = CheckBox7.Checked
cmd.Parameters.AddWithValue("@NO", OleDbType.Boolean).Value = CheckBox8.Checked
cmd.Parameters.AddWithValue("@AZ", OleDbType.Boolean).Value = CheckBox9.Checked
cmd.Parameters.AddWithValue("@MA", OleDbType.Boolean).Value = CheckBox10.Checked
cmd.Parameters.AddWithValue("@SJ", OleDbType.Boolean).Value = CheckBox11.Checked
cmd.Parameters.AddWithValue("@MOA", OleDbType.Boolean).Value = CheckBox12.Checked
cmd.Parameters.AddWithValue("@HA", OleDbType.Boolean).Value = CheckBox13.Checked
cmd.Parameters.AddWithValue("@OL", OleDbType.Boolean).Value = CheckBox14.Checked
cmd.Parameters.AddWithValue("@Approve", OleDbType.Boolean).Value = CheckBox15.Checked
con.Open()
cmd.ExecuteNonQuery()
con.Close()
MsgBox("The new user has been saved successfully", MsgBoxStyle.Information)
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
For Each cntr In Me.Controls
If TypeOf cntr Is CheckBox Then
cntr.checked = True
End If
Next
Else
For Each cntr In Me.Controls
If TypeOf cntr Is CheckBox Then
cntr.checked = False
End If
Next
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Main.Show()
Me.Close()
End Sub
Private Sub Formnewuser_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class