سلام دوستان
این کار خیلی ساده هستش
من خودم برای پروژه دانشگاه یک نرم افزار اتوماسیون تاکسی سرویس نوشتم که توش یه قسمت برای دسترسی اعضا مشخص کردم که الان یکم توضیح میدم و شما خودتون دست به کار بشید
به طور کلی این فرم مورد نظر من برای اضافه کردن عضو به مجموعه اعضای کاربر برنامم هست که با توجه به نیازم تعیین کردم
حالا شما ممکنه گزینه های کمتر یا بیشتری مد نظرتون باشه
از طرفی موازی با این گزینه هام توی جدول فیلدهایی با دیتای yes/no دارم که نشون دهنده فعال یا غیر فعال بودن هر کدوم از خصوصیات هستن
حالا تو کلید ایجاد کاربری یه کد نوشتم که در زیر میتونید ببینید
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MsgBox("لطفا نام و نام خانوادگی را وارد نمایید", MsgBoxStyle.OkOnly + MsgBoxStyle.SystemModal, "خطا")
TextBox1.Focus()
ElseIf TextBox2.Text = "" Then
MsgBox("لطفا نام کاربری را وارد نمایید", MsgBoxStyle.OkOnly + MsgBoxStyle.SystemModal, "خطا")
TextBox2.Focus()
ElseIf TextBox3.Text = "" Then
MsgBox("لطفا رمز عبور را وارد نمایید", MsgBoxStyle.OkOnly + MsgBoxStyle.SystemModal, "خطا")
TextBox3.Focus()
ElseIf TextBox4.Text = "" Then
MsgBox("لطفا تکرار رمز عبور را وارد نمایید", MsgBoxStyle.OkOnly + MsgBoxStyle.SystemModal, "خطا")
TextBox4.Focus()
ElseIf TextBox4.Text <> TextBox3.Text Then
MsgBox("رمز عبور و تکرار رمز عبور با هم یکسان نمیباشد", MsgBoxStyle.OkOnly + MsgBoxStyle.SystemModal, "خطا")
TextBox4.Focus()
Else
Dim cmdsql As New OleDbCommand
Dim inssql As String
cmdsql.Connection = con
inssql = "SELECT * FROM tbuser where uname= '" & TextBox2.Text & "'"
cmdsql.Connection = con
cmdsql.CommandText = inssql
Dim DR As OleDbDataReader
DR = cmdsql.ExecuteReader
DR.Read()
If DR.HasRows = True Then
DR.Read()
MsgBox("این نام کاربری قبلا به ثبت رسیده است")
Else
Dim inssql1 As String
Dim cmdsql1 As New OleDbCommand
inssql1 = "INSERT INTO tbuser(uname,upass,name,ins,del,rep,mon,udb,active ,um)VALUES('" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox1.Text & "','" & CheckBox1.CheckState & "','" & CheckBox2.CheckState & "','" & CheckBox3.CheckState & "','" & CheckBox4.CheckState & "','" & CheckBox5.CheckState & "','" & CheckBox6.CheckState & "','" & CheckBox7.CheckState & "')"
cmdsql1.Connection = con
cmdsql1.CommandText = inssql1
cmdsql1.ExecuteNonQuery()
MsgBox("کاربر جدید با موفقیت ثبت شد", MsgBoxStyle.OkOnly + MsgBoxStyle.SystemModal, "پیغام")
Call empty()
Call free()
End If
بعد از اینکه شما این کار رو انجام دادید،یعنی کاربر اضافه کردید باید از یه جایی کاربر رو به خصوصیات محدود کنید
که اون همون صفحه login میشه
البته من از قبل به تعداد خصوصیاتی که تو قسمت ایجاد کاربر جدید checkbox داشتم،اینجا هم دارم ،اما برای اینکه معلوم نشه پایین فرمم قرار دادم که میتونی ببینی
و کد ورود به صورت زیر شد
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If TextBox2.Text = "" Then
MsgBox("لطفا نام کاربری را وارد نمایید", , "هشدار")
ElseIf TextBox1.Text = "" Then
MsgBox("لطفا رمز عبور را وارد نمایید", , "هشدار")
Else
Dim cmdsql As New OleDbCommand
Dim inssql As String
cmdsql.Connection = con
inssql = "SELECT * FROM tbuser where uname= '" & TextBox2.Text & "' and upass= '" & TextBox1.Text & "'"
cmdsql.Connection = con
cmdsql.CommandText = inssql
Dim DR As OleDbDataReader
DR = cmdsql.ExecuteReader
DR.Read()
If DR.HasRows = True Then
Dim a As String
a = DR("name")
CheckBox1.Checked = DR("ins")
CheckBox2.Checked = DR("del")
CheckBox3.Checked = DR("rep")
CheckBox4.Checked = DR("mon")
CheckBox5.Checked = DR("udb")
CheckBox6.Checked = DR("active")
CheckBox7.Checked = DR("um")
If CheckBox6.Checked = False Then
MsgBox("دسترسی شما توسط مدیر غیر فعال شده است", , "")
Else
SaveSetting("taxi", "setting", "taxiop", a)
Me.Visible = False
frm_startup.ToolStripStatusLabel3.Text = "| نام اپراتور وارد شده: " + GetSetting("taxi", "setting", "taxiop", "")
If CheckBox1.Checked = False Then
frm_startup.انجامسرویسToolStripMenuItem. Enabled = False
frm_startup.بازگشتازسرویسToolStripMen uItem.Enabled = False
frm_startup.رزروسرویسToolStripMenuItem.En abled = False
frm_startup.حضوروغیابToolStripMenuItem.En abled = False
frm_startup.اضافهکردنمسیرToolStripMen uItem.Enabled = False
frm_startup.ویرایشمسیرToolStripMenuItem. Enabled = False
frm_startup.اضافهکردنمشترکToolStripM enuItem.Enabled = False
frm_startup.اضافهکردنرانندهToolStri pMenuItem.Enabled = False
frm_startup.ویرایشرانندهToolStripMenuI tem.Enabled = False
frm_startup.لغورزروToolStripMenuItem.Enable d = False
End If
If CheckBox2.Checked = False Then
frm_startup.خذفمسیرToolStripMenuItem.Enable d = False
End If
If CheckBox3.Checked = False Then
frm_startup.لیستToolStripMenuItem.Enabled = False
frm_startup.لیستمشترکینToolStripMenuIte m.Enabled = False
frm_startup.لیسترانندههاToolStripMenuI tem.Enabled = False
frm_startup.لیستمسیرهاToolStripMenuItem. Enabled = False
frm_startup.جستجویمشترکToolStripMenuIte m.Enabled = False
frm_startup.درآمدرانندگانآژانسTo olStripMenuItem.Enabled = False
frm_startup.درآمدآژانسToolStripMenuItem. Enabled = False
frm_startup.جزئیاتسرویسهاToolStripMen uItem.Enabled = False
End If
If CheckBox4.Checked = False Then
frm_startup.تسویهحسابرانندهToolStri pMenuItem.Enabled = False
End If
If CheckBox5.Checked = False Then
frm_startup.استفادهToolStripMenuItem.Enable d = False
frm_startup.ایجادToolStripMenuItem.Enabled = False
frm_startup.پشتیبانگیریToolStripMenuIte m.Enabled = False
End If
If CheckBox7.Checked = False Then
frm_startup.افزودنکاربرToolStripMenuIte m.Enabled = False
frm_startup.ویرایشکاربرToolStripMenuIte m.Enabled = False
End If
frm_startup.Show()
End If
Else
MsgBox("نام کاربری یا رمز عبور (ویا هر دو) اشتباه میباشد", , "هشدار")
End If
End If
End Sub
حالا قسمت بالا اینه که اگر چک باکس بعد از اینکه نام کاربری و رمز عبور وارد شد تیک نداشت
توی برنامه منوهایی که مربوط به اون دسته میشه رو enable رو FALSE میکنه که نشه روش کلیک کرد و در حقیقت غیر قابل دسترسی میشه
امیدوارم تونسته باشم کمک کنم
پاسخ با نقل قول
آقایون و خانم ها چی شد
