برچسب ها: Access
این پست شامل 0 پاسخ ، و دارای 1 کاربر است ، و آخرین بار توسط مهندس بیات در 1 سال، 9 ماه پیش بروز شده است.
ساخت پسورد تصادفی در اکسس
-
مهندس بیات 2019-04-03 در 4:34 ب.ظ #6955
ساخت پسورد تصادفی در اکسس
ساخت پسورد تصادفی در اکسس : در این مطلب آموزشی قصد دارم تا شما را با یک برنامه تولید پسورد تصادفی آشنا کنم. از طریق این برنامه می توان به تعداد دلخواه اقدام به ایجاد پسورد با تعداد کاراکتر (طول) مشخص نمود. در صورتی که بخواهید به تعداد انبوه اقدام به تولید پسورد تصادفی نمائید می توانید از حلقه ها در محیط برنامه نویسی اکسس استفاده کنید و پسوردهای تولید شده را در یک جدول ذخیره و مورد استفاده قرار دهید. برای ساخت این برنامه کاربردی مراحل زیر را به ترتیب انجام دهید:
ابتدا یک ماژول در محیط VBA ایجاد کنید و کدهای زیر را در درون آن قرار دهید:
Visual Basic12345678910111213141516171819202122232425262728293031323334Public Function CreateRandomPassword(strlen As Integer, Optional seed As Variant) As StringOn Error GoTo Err_CreateRandomPasswordDim i As Integer, j As IntegerDim strSource As StringDim strTarget As String'دانلود کدهای کاربردی در اکسس'www.mrplanner.ir'*** used with the RND() function to return' a random numberRandomizestrSource = "12345678901234567890" & _"abcdefghijklmnopqrstuvwxyz" & _"ABCDEFGHIJKLMNOPQRSTUVWXYZ"strTarget = ""For i = 1 To strlen'*** select a character position at randomj = Int((Len(strSource) - 1) * Rnd + 1)strTarget = strTarget & Mid(strSource, j, 1)Next'*** when the Target String is complete, pass it backCreateRandomPassword = strTargetExit_CreateRandomPassword:Exit FunctionErr_CreateRandomPassword:MsgBox Err.DescriptionResume Exit_CreateRandomPasswordEnd Functionدر مرحله بعدی یک فرم بسازید و دو عدد TextBox را به نام های PasswordLength جهت وارد کردن طول پسورد و دیگری را به نام txtPassword برای نمایش پسورد ساخته شده روی فرم قرار دهید.
در مرحله آخر یک دکمه روی فرم قرارداده و در رویداد OnClick آن کدهای زیر را قرار دهید:
Visual Basic123456789101112131415On Error GoTo Err_Command5_ClickIf IsNull(Me.PasswordLength) ThenMsgBox "طول پسورد را وارد کنيد"ElseMe.txtPassword = CreateRandomPassword(Me.PasswordLength)End IfExit_Command5_Click:Exit SubErr_Command5_Click:MsgBox Err.DescriptionResume Exit_Command5_Clickتذکر: بجای اسم دکمه که در اینجا command5 هست اسم دکمه خود را جایگذین کنید!
فرم را دخیره کنید و آنرا اجرا کنید. حالا با وارد کردن طول پسورد و زدن دکمه ساخته شده در فرم نرم افزار پسوردهای تصادفی را برای شما تولید و به نمایش در خواهد آورد.
انجمن ‘آموزش های کوتاه اکسس’ برای جستار ها و پاسخ ها جدید بسته است.