سورس یک فرم لاگین ایراد یابی

[Blacky]

فقط موندم کجا باید براش یوزر تعریف کرد


Option Explicit

Public LoginSucceeded As Boolean

Private Sub cmdCancel_Click()
'set the global var to false
'to denote a failed login
LoginSucceeded = False

MsgBox "شما از برنامه خارج شديد"
Me.Hide
End Sub

Private Sub cmdOK_Click()
'check for correct password
If txtPassword = "09153037456" Then
'place code to here to pass the
'success to the calling sub
'setting a global var is the easiest
LoginSucceeded = True
Me.Hide
Else
MsgBox "رمز اشتباه است , دوباره سعي کنيد", , "Login"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub

[emad86_20011]

ببين با اين كد ها بيشتر گيج ميشي!! اگه شد يه مثال مينويسم برات ميزارم ببيني!!

[Blacky]

جون من نه

بببین کجاش اینجا یوزر تعریف کنیم

مثلا اگه طرف مهدی رو با پسوورد 09153037456 وارد کرد بتونه ok کنه و بره داخل

[arash_j13]

شرط رو باید این طوری بزاری
If txtPassword = "09153037456" and txtuser="reza" Then

[Blacky]

دستت درست آرش خان

میگم حاجی آرش بچه مشهد آوردمش اینجا از پی تی بیاد سوالامو جواب بده مدیرش کن به نظر من

[Blacky]

شرط رو باید این طوری بزاری
If txtPassword = "09153037456" and txtuser="reza" Then


ر اصل باید این شکلی باشه

If txtPassword = "09153037456" And txtUserName = "reza" Then

[emad86_20011]

حالا اگه طرف بخواد password رو عوض كنه چيكار ميكني؟

[Blacky]

حالا اگه طرف بخواد password رو عوض كنه چيكار ميكني؟


غلط میکنه عوض کنه

اون موقع هستش که باید پشتیبانی فنی بیاد و 5 هزار تومان بگیره

:دی

[emad86_20011]

غلط میکنه عوض کنه

اون موقع هستش که باید پشتیبانی فنی بیاد و 5 هزار تومان بگیره

:دی
بابا تو دیگه کی هستی http://qsmile.com/qsimages/247.gif

[Blacky]

متاسفم که نوز منو نشناختی

(دیروز یه سفارشزدم بهش تخفیف هم دادم موقع حساب کردن دقیقا سودش رو هم نداد گفتم بقیه اش گفت سهم خمس ات )

بعد تو میگی؟