Mesa duket nuk jeni i regjistruar, kliko ne butonin Regjisrohu nqs dëshironi të bëheni pjesë e forumit tonë, per t'u regjistruar ju hargjoni maksimumi 1 min kohë. Me respekt Staffi.


ForumPortaliCalendarPytësoriKërkoLista AnëtarëveGrupet e AnëtarëveRegjistrohuidentifikimiChatBilardo

Share | 
 

 Krijimi i Bazes per Password ne Vizual Basic

Shiko temën e mëparshme Shiko temën pasuese Shko poshtë 
AutoriMesazh
Crespy
Moderator
Moderator


Postimet : 162

MesazhTitulli: Krijimi i Bazes per Password ne Vizual Basic   Sun Apr 12, 2009 12:32 am

Krijimi i Bazes per Password ne Vizual Basic








Private Sub cmdBegin_Click()
On Error Resume Next
With frmReg.Data1
.DatabaseName = App.Path & "\database.mdb"
.RecordSource = "reg"
.Refresh
End With
If Text1.Text = "" Then
Text1.SetFocus
ElseIf Text2.Text = "" Then
Text2.SetFocus
ElseIf Text1.Text <> frmReg.Data1.Recordset.Fields("User") Then
MsgBox "You can not begin this software with this USER ID. Please try again..", vbCritical
Text1.Text = ""
Text1.SetFocus
ElseIf Text2.Text <> frmReg.Data1.Recordset.Fields("Password") Then
MsgBox "You entered an invalid password for " & Text1.Text & " .", vbCritical
Text2.Text = ""
Text2.SetFocus
Else
Me.Hide
mdiMain.Show
End If
frmReg.Data1.Database.Close
End Sub

Private Sub cmdQuit_Click()
Unload Me
End
End Sub

Private Sub Form_Load()
On Error Resume Next
Screen.MousePointer = vbNormal
Label3.Caption = frmReg.Data1.Recordset.Fields("Organization")
End Sub


krijimi i paswortit ne database
Mbrapsht në krye Shko poshtë
Shiko profilin e anëtarit
 
Krijimi i Bazes per Password ne Vizual Basic
Shiko temën e mëparshme Shiko temën pasuese Mbrapsht në krye 
Faqja 1 e 1
 Similar topics
-
» Hena nje satelit artificial ! ? Ne se eshte keshtu,kush e 'parkoi'atje.?
» Xhindët
» Evolucioni apo Krijimi ?
» Ferri dhe Parajsa
» Mitet e Krijimit

Drejtat e ktij Forumit:Ju nuk mund ti përgjigjeni temave të këtij forumi
 :: Paneli i Kontrollit :: Tutorials & Mësime-
Kërce tek: