Cute Lady Bug

I am the nicest one

[healthyiswealthy]

Happy and Healthy New Year to All

[docegrafias-deactivated20140203]

[staff]

Tumblr Tuesday: Winter Wonderland Edition

A Darling Knits The perfect knit goods blog for no one’s New Year’s Resolution: no more boring beanies. Instead of your favorite sports team, represent feminism or jerks.

Jynnne Every year, the National Science Foundation picks a scholar of the humanities to join 800 scientists and 29 million penguins in the Antarctic. Maybe Jynne will get a book deal with Penguin Books after this cool adventure (rimshot).

BaristArt The quickest way to keep warm this winter is with a nice, steaming hot cup of Beyonce. 

Fuck Yeah Mall Santa There are two age ranges in your life when sitting on Santa’s lap is acceptable: infancy through third grade and then again when you’re a young adult who loves irony and Christmas sweaters. This documents the latter. 

Snowman Secrets We all have our secrets. Snowmen are no different. 

Photo by Jynnne

[healthyiswealthy]

HOW TO MAKE A MAN HAPPY 1. Feed him 2. Sleep with him 3. Leave him with peace 4. Don’t check his phone (Msgs) 5. Don’t bother him with his movements

So whats so hard about that? HOW TO MAKE A WOMAN HAPPY It’s really not too difficult but…. to make a woman happy, a man only needs to be: 1. a...

[healthyiswealthy]

Teary Eye

[healthyiswealthy]

Fidelity

It is the essence and the center of wholesome human relationship. Experience will tell us that this act of faithfulness reflects no more than what one willingly puts in a relationship in terms of selfless giving and altruistic convictions.

For a meaningful friendly relationship to...

[healthyiswealthy]

Be Friends With Failures

I was surfing the net earlier this day and I happened to stumble on a link that I feel I really should share, part of it is shown below and if you wanna see the entire story click here,

[iamthenicestone-blog]

US President Obama and his wife

[sayomg-blog]

[bunnyfood]

(via dpaf: here)

[healthyiswealthy]

cute little puppies

[iamthenicestone-blog]

DB #5 and DB #6

Add a new table to you database, name it tableuser with the following columns:

userid

password

fname

lname

position

Add a new form to your project , it should look like the form below.

set the properties of the form as below:

name: frmadduser

borderstyle: 1-fixed single

caption: New User

moveable: false

showintaskbar: false           "set all your forms showintaskbar properties to false"

startupposition: 2-center screen

set the passwordcharacter property of textpassword to "*"

do the following codes:

Option Explicit

Dim conn As ADODB.Connection

Dim constr As String

Private Sub openserver()

constr = "Provider=MSDASQL;dsn=mydbase;uid=;pwd=;database=;"

Set conn = New ADODB.Connection

conn.Open constr

End Sub

Private Sub CmdAdd_Click()

On Error Resume Next

Dim rs As ADODB.Recordset

Dim sql As String

If textuserid.Text = "" Or textpassword.Text = "" Or textfname.Text = "" Or textlname.Text = "" Or textposition.Text = "" Then

MsgBox "Required fields are empty!", vbRetryCancel + vbCritical, "Add New User!"

Exit Sub

End If

openserver

Set rs = New ADODB.Recordset

    rs.CursorLocation = adUseServer

    sql = "select * from tableuser where userid = '" & textuserid.Text & "'"

                rs.Open sql, conn, adOpenStatic, adLockOptimistic, adCmdText

       If rs.EOF = True Then

conn.Execute "INSERT INTO tableuser(userid, password, fname, lname, position) values('" & textuserid.Text & "', '" & textpassword.Text & "', '" & textfname.Text & "', '" & textlname.Text & "', '" & textposition.Text & "')"

MsgBox "New user successfully added!", vbOKOnly + vbInformation, "Add New User!"

textuserid.Text = ""

textpassword.Text = ""

textfname.Text = ""

textlname.Text = ""

textposition.Text = ""

        Else

             MsgBox "User already exist!", vbRetryCancel + vbCritical, "Add New User!"

        End If

        rs.Close

        Set rs = Nothing

End Sub

Private Sub CmdCancel_Click()

Unload Me

End Sub

Add another form to your project and set the following properties:

name: frmlogin

borderstyle: 1-fixed single

caption: Login!

moveable: false

showintaskbar: false           "set all your forms showintaskbar properties to false"

startupposition: 2-center screen

set the passwordcharacter property of textpassword to "*"

the form should look like the one below:

do the following codes:

Option Explicit

Dim conn As ADODB.Connection

Dim constr As String

Private Sub openserver()

constr = "Provider=MSDASQL;dsn=mydbase;uid=;pwd=;database=;"

Set conn = New ADODB.Connection

conn.Open constr

End Sub

Private Sub Cmdok_Click()

On Error Resume Next

Dim rs As ADODB.Recordset

Dim sql As String

If Textusername.Text = "" Or Textpassword.Text = "" Then

MsgBox "Required fields are empty!", vbRetryCancel + vbCritical, "Login Failed!"

Exit Sub

End If

openserver

Set rs = New ADODB.Recordset

    rs.CursorLocation = adUseServer

    sql = "select * from user where username = '" & Textusername.Text & "' and password = '" & Textpassword.Text & "'"

                rs.Open sql, conn, adOpenStatic, adLockOptimistic, adCmdText

       If rs.EOF = True Then

MsgBox "Access Denied!", vbOKOnly + vbInformation, "Login!"

        Else

             MsgBox "Access Granted!", vbOKOnly, "Login!"

        FrmMain.Show

        Unload Me

        End If

        rs.Close

        Set rs = Nothing

End Sub

Private Sub Cmdexit_Click()

End

End Sub

[healthyiswealthy]

lovely kitty

[healthyiswealthy]

cute friend

[healthyiswealthy]

cute kitty

[healthyiswealthy]

cute bunny

[healthyiswealthy]

cute kitty

[godbless-st-cyr]

[iamthenicestone-blog]

This raccoon never left the side of a cat who was dying of a tumor. The cat was comforted for the final hours of her life by her long time friend.