دفتر خاطرات

[تازه کار]

سلام بر همه برنامه نویسان
دوستان من یه تازه کارم و دارم یه برنامه دفتر خاطرات خصوصی مینویسم.
البته یه جاهایی گیر دارم.ولی تا اینجا بد نبوده.
حالا یه کمک میخواستم .
برنامه ای که من دارم مینویسم دارای دو فرم هستش .یکی فرم رمز عبور و یکی فرم اصلی که متن ها در اون نوشته میشه.
من کد های مربوط به فرم رمز عبور رو نوشتم و تو فرم اصلی گیر کردم.
اگر بخوایید کد هایی رو که نوشتم میزارم تا ایراداتم رو بهم بگید.


ممنون میشم.

[تازه کار]

بازم سلام خدمت اساتید
من این کدها رو برای فرم welcomeنوشتم ولی موقع اجرای اصلا پیغامی مبنی بر اشتباه بودن رمز عبور نمیده
میشه کمکم کنید

Private Sub cmdOk_Click()
Dim strmsg As String
'holds message box return value
If ((txtUser.UBound = "101") And (txtPassword.UBound = "000")) Then
strmsg = MsgBox("نام کاربر یا کلمه عبور اشتباه است ،تکرار نمایید")
size]ElseIf (txtPassword = "000") Then
frmwelcome.Hide
frmDiary.Show
End If
End Sub
Private Sub Form_Load()
'clear alone of the txtpassword
End Sub
Private Sub cmdExit_Click()
'stop the program
End
End Sub

[HamedFaa]

نمونه کدی برای رمز گذاشتن روی برنامه برات نوشتم استفاده کن.

دانلود

کد:

If Text1.Text = "test" And Text2.Text = "123" Then
    Form1.Hide
    Form2.Show
Else
    msg = MsgBox("password is incorrect!", vbCritical + vbOKOnly, "Error")
End If

[HamedFaa]

سلام دوست عزیز من نمونه برنامه با رمز عبور رو برات گذاشتم که دانلود کنی. مشکلات دیگه ی برنامه تون چیه؟

[تازه کار]

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

[HamedFaa]

سلام دوست عزیز اینو دانلود کن
تمام چیزی که میخوای رو برات نوشتم.

کد:

Dim strUsername(1 To 5) As String
Dim strPassword(1 To 5) As String

Private Sub cmdEnter_Click()
For i = 1 To UBound(strUsername)
    If (txtUsername.Text = strUsername(i)) And (txtPassword.Text = strPassword(i)) Then
        frmLogin.Hide
        frmWelcome.Show
        Exit Sub
    End If
Next i
msg = MsgBox("Username or Password is incorrect!", vbCritical + vbOKOnly, "Error")
End Sub

Private Sub Form_Load()
'Bejaye user1 va password1 mitoni har user passi entekhab koni ke mishe hamon account haye barnamat.
'Baraye kam o ziad kardane account ha ham mitoni araye ro kam o ziad koni.
  strUsername(1) = "user1": strPassword(1) = "password1"
  strUsername(2) = "user2": strPassword(2) = "password2"
  strUsername(3) = "user3": strPassword(3) = "password3"
  strUsername(4) = "user4": strPassword(4) = "password4"
  strUsername(5) = "user5": strPassword(5) = "password5"
End Sub

Private Sub Form_Unload(Cancel As Integer)
  Unload frmLogin
  Unload frmWelcome
End Sub

Private Sub txtPassword_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then Call cmdEnter_Click
End Sub

Private Sub txtUsername_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then Call cmdEnter_Click
End Sub