نوشتن بصورت پسورد در access

tondar · Dec 28, 2003

سلام
ضمن عرض خسته نباشيد
من سوالي در مورد access داشتم و آن اينكه از چه دستوري استفاده كنم تا در يك فيلد از يك فرم در برنامه access وقتي كلمه اي نوشته ميشود آنرا بصورت پسورد يعني **** نشان دهد.
ممنون ميشوم اگر راهنمايي كنيد

omidak · Dec 28, 2003

سلام:
فكر نميكنم Access یا کلاً هر Database ای این سیستم رو داشته باشه... :roll:
ولی برایه اینکه Password شما دیده نشه میتونید از روش زیر استفاده کنید...(VB6):

کد:

Public Function Crypt(Source As String, strPassword As String, EnDeCrypt As Boolean) As String
    'EnDeCrypt True = Encrypt
    'EnDeCrypt False = Decrypt
    Dim intPassword As Long
    Dim intCrypt As Long


    For x = 1 To Len(strPassword)
        intPassword = intPassword + Asc(Mid$(strPassword, x, 1))
    Next x


    For x = 1 To Len(Source)


        If EnDeCrypt = True Then
            intCrypt = Asc(Mid$(Source, x, 1)) + intPassword + x
            


            Do Until intCrypt &lt;= 298
                intCrypt = intCrypt - 298
            Loop
        Else
            intCrypt = Asc(Mid$(Source, x, 1)) - intPassword - x
            


            Do Until intCrypt > 0
                intCrypt = intCrypt + 298
            Loop
        End If
        Crypt = Crypt &amp; ChrW(intCrypt)
    Next x
End Function

DrXoX · Apr 9, 2007

با سلام
جواب سوال
1 - به قسمت Design جدول برین
2 - روی فیلدی که می خواهید به صورت **** نمایش داده بشه کلیک کنید
3 - نوع آن (Data Type ) را Text انتخاب کنید
4 - در قسمت Field Properties پایین صفحه سربرگ General
5 - خاصیت Input Mask رو انتخاب(یعنی باید روی ... که جلوی اون هست کلیک کنی)
6-پنجره ای باز میشه که نحوه نمایش اطلاعات تو فیلد رو نشون میده
7 - در قسمت Input Mask گزینه Password رو انتخاب کن
8 - بعد Next
9 - Finish
حالا داخل اون فیلد هر چیزی بنویسد به صورت*** نمایش داده میشه
___________________

روزي کـه تو آمــــدي به دنيا عــريان *** جمعي به تو خندان و تو بودي گريان
کاري بکن اي دوست که وقت رفتن *** جمعي به تو گريند و تو باشي خندان