ذخیره Username و Password در Login های مجدد

[Milad_ATM]

با سلام

آیا راهی هست که با یک بار Login روی هر سیستم User و Password برای بارهای بعدی ذخیره بشه و کاربر نیاز به وارد کردن مجدد اونها نداشته باشه؟
معمولا یوزرهایی که از نرم افزار استفاده میکنند خیلی سریع باید کارشون انجام بشه و اینکه برای هر بار Login بخوان Username و Password وارد کنند خیلی معقول نیست.

نمونه فایل پیوست شده.
لطفاً اگر براتون مقدور بود روی فایل تست کنید

QC-Base-System.rar

توضیح : برای باز شدن سورس شیفت را در زمان باز شدن برنامه نگه دارید.
مرسی

[mazoolagh]

سلام و روز خوش
برنامه پیوست رو چک نکردم ولی گویا در خود برنامه کاربر تعریف کردین.
اگر اینجور هست که میتونین مثل هر دیتا دیگه اطلاعات کاربر authorize شده رو در جایی ذخیره کنین، میتونه خود دیتابیس باشه یا رجیستری یا یک فایل در آدرس مشخص و ...

ولی بهترین راه این هست که authentication رو به خود ویندوز بسپرین و امنیت رو به عهده خریدار/کاربر بگذارین.

[Milad_ATM]

اول ممنون از پیشنهادتون
و دوم خب نمونه انجام شده اینکار هست که بعنوان فایل کمکی استفاده کنم؟
ضمن اینکه در مورد جزییات توضیحی ندادین
لطف میکنید کمی بیشتر راهنمایی کنید

[amirzazadeh]

سلام
بهترین توصیه همون هست که جناب mazoolagh گفتند ولی برای وضعیت موجود از این کد میتونید استفاده بکنید:

Private Sub Command49_Click()





Dim TempLoginID

Dim sq As String

Dim rs As Recordset







 If Len(Nz(Me!Text0, "")) = 0 Then

       ' Textbox UserName  is empty

       MsgBox "Please Enter Username ", vbInformation, "Provide Username"

      Me.Text0.SetFocus

       GoTo ExitPoint

   End If

   If Len(Nz(Me!Text3, "")) = 0 Then

       ' Password textbox is empty

       MsgBox "Please Enter Password ", vbInformation, "Provide  Password"

       Me.Text3.SetFocus

       GoTo ExitPoint

   End If

   

   sq = "select * from UserPass where UserName='" & Me.Text0 & "' and Password='" & Me.Text3 & "'"

Set rs = CurrentDb().OpenRecordset(sq, dbOpenForwardOnly, dbSeeChanges)

If rs.RecordCount = 0 Then

    MsgBox ("Wrong Password. Try again!")

    GoTo ExitPoint

Else

       ' TempVars!TempLoginID = Me.Text0

        DoCmd.OpenForm "SelectOption", acNormal

        DoCmd.Restore

End If

If Check53.Value = True Then

  Dim Log, Pas, FormName As String

  Log = Me.Text0

  Pas = Me.Text3

  FormName = "Login"

    

  DoCmd.OpenForm FormName, acDesign, , , , acHidden

  Forms(FormName)!Text0.DefaultValue = "'" & Log & "'"

  Forms(FormName)!Text3.DefaultValue = "'" & Pas & "'"

  DoCmd.Close acForm, FormName, acSaveYes

  DoCmd.OpenForm FormName, acNormal, , , , acHidden

End If

ExitPoint:

   Exit Sub



End Sub

[Milad_ATM]

چک باکس رو اضافه و کد رو تست کردم
اما هیچ تاثیری نداره
علت چی میتونه باشه؟

[Milad_ATM]

انجام شد
مرسی از توضیحاتتون
سوال دوم اینکه چطور میشه آخرین وضعیت چک باکس هم ذخیره بشه؟

[amirzazadeh]

سلام از این کد استفاده کنید:

Private Sub Check53_Click()

  Dim FormName As String

  FormName = "Login"

  Value1 = Forms(FormName)!Check53.Value

  DoCmd.OpenForm FormName, acDesign, , , , acHidden

  Forms(FormName)!Check53.DefaultValue = Value1

  DoCmd.Close acForm, FormName, acSaveYes

  MsgBox "Your Selection Saved!"

  DoCmd.OpenForm FormName, acNormal, , , , acDialog

End Sub