Visual Basic

12-Apr-08 1:29

hi.stil me again..ya..so funny...i can store login time..but can't update logout time..can help..?thanks

Dim Emp_IDDataRow As DataRow<br />
        Dim Encryption As String<br />
        Dim i As Integer<br />
        Comdataset = Com.getCOMDataset<br />
        Encryption = ""<br />
        Emp_IDDataRow = Comdataset.EMPLOYEE_DETAIL.FindByEmp_ID(txtID.Text)<br />
<br />
        If Emp_IDDataRow IsNot Nothing Then<br />
            For i = 1 To Len(txtPass.Text)<br />
                Encryption = Encryption & Chr(Asc(Mid(txtPass.Text, i, 1)) + 3)<br />
            Next<br />
            If txtPass.Text = Emp_IDDataRow!Password.ToString Then<br />
                LoginTime = Format(Date.Now, "HH:mm:ss")<br />
                strID = txtID.Text<br />
                LoginDate = Format(Date.Today, "dd/MM/yyyy")<br />
                Me.LOGIN_OUTTableAdapter.InsertLogin(LoginTime, strID, LoginDate)<br />
                MessageBox.Show("Login Successful!", "infor", MessageBoxButtons.OK, MessageBoxIcon.Information)<br />
                frmMenu.Show()<br />
<br />
                If Encryption = Emp_IDDataRow!password.ToString And txtID.Text.ToUpper.StartsWith("TM") Then<br />
                    MessageBox.Show("Welcome, " & Emp_IDDataRow!name.ToString, "Welcome", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)<br />
                    frmMenu.Show()<br />
                ElseIf Encryption = Emp_IDDataRow!password.ToString And txtID.Text.ToUpper.StartsWith("LM") Then<br />
                    MessageBox.Show("Welcome, " & Emp_IDDataRow!name.ToString, "Welcome", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)<br />
                    frmPurchase.Show()<br />
                    txtID.Focus()<br />
                    txtPass.Focus()<br />
                    txtID.SelectAll()<br />
                    txtPass.SelectAll()<br />
                End If<br />
            Else<br />
                MessageBox.Show("Invalid Password", "Error", MessageBoxButtons.RetryCancel, MessageBoxIcon.Error)<br />
                txtID.Focus()<br />
                txtPass.Focus()<br />
                txtID.SelectAll()<br />
                txtPass.SelectAll()<br />
            End If<br />
        Else<br />
            MessageBox.Show("Invalid ID!", "ERROR", MessageBoxButtons.RetryCancel, MessageBoxIcon.Error)<br />
            txtID.Focus()<br />
            txtPass.Focus()<br />
            txtID.SelectAll()<br />
            txtPass.SelectAll()<br />
        End If<br />
<br />
    End Sub

INSERT INTO LOGIN_OUT
(Time_login, Emp_ID, Logindate)
VALUES (?, ?, ?)

i set time login emp id and logindate as primary key

UPDATE LOGIN_OUT
SET Time_logout = ?
WHERE ('Time_login' = ?) AND ('Emp_ID' = ?) AND ('Logindate' = ?)
it add same column in Time_login but not in time_logout

Christian Graus12-Apr-08 1:33

12-Apr-08 1:33

This is nasty code.

Just do the same as you did for login, to store the logout. Surely it's going to work the same ?

Christian Graus

Please read this if you don't understand the answer I've given you

"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )

Member 444291612-Apr-08 1:37

12-Apr-08 1:37

no choice..this the code i only can think...mean the update i change to insert..?because when i login then go form 2...once i close form 2..automatically insert to time_out .in form 2 code that i wrote is
frmLogin.LOGIN_OUTTableAdapter.UpdateLogin(Format(Date.Now, "HH:mm:ss"), frmLogin.LoginTime, frmLogin.strID, frmLogin.LoginDate)

should i do the same thing with insert..?

Christian Graus12-Apr-08 1:40

12-Apr-08 1:40

I mean, you've written the code to store a date into the DB, so why not write the same sort of code here ? I know from watching the questions you ask that you've not understood my answers or done what I suggested, so I have no idea how you got the other one working, but it means you know how to insert a date, right ? I mean, if someone gave you code that works, you took the time to understand it, right ?

It doesn't matter if you're being paid for this code, or if you're a student ( except that if you're being paid, that is plain disgusting ), you should be taking the answers you get, and coming to an understanding of how they work, so you can become competent in your own right, instead of spending your life on these forums asking the same basic questions over and over.

Member 444291612-Apr-08 1:44

12-Apr-08 1:44

no..no..i know i'm asking nasty question..i stil student...code i wrote myself...not copying from others...sometimes easy things i go think hard way to do...okok..i do the same thing as do my login

Christian Graus12-Apr-08 1:50

12-Apr-08 1:50

OK - a lot of people ask these sort of questions for their work. If you're a student, then that's cool. You just plainly are not yet at a commerical level and a lot of people seem to get jobs anyhow Smile | :)

By all means, if you try to use the method you're using to insert the date on the login end, and you have a specific problem, feel free to post it here, but you should look at that code first, you should be able to reuse the date insert portion to insert a date again.

Member 444291612-Apr-08 1:52

Re: now update query problem..hep [modified]

12-Apr-08 1:52

ok thanks..very glad that you reply me all the nasty question..thanks..

Member 444291612-Apr-08 2:46

12-Apr-08 2:46

but one problem i do the logout in formclosing...how do i do the query?
Private Sub frmMenu_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
frmLogin.LOGIN_OUTTableAdapter.UpdateLogin(Format(Date.Now, "HH:mm:ss"), frmLogin.LoginTime, frmLogin.strID, frmLogin.LoginDate)
End Sub

why when i close the form it store in login time..but not logout column...
UPDATE LOGIN_OUT
SET Time_logout = ?
WHERE ('Time_login' = ?) AND ('Emp_ID' = ?) AND ('Logindate' = ?)

modified on Saturday, April 12, 2008 8:56 AM

Christian Graus12-Apr-08 15:16

12-Apr-08 15:16

Well, for starters, are you sure the logindate and time of login you're passing in are correct ? I'd be inclined to suggest you can simplify this to where Emp_ID = ? and time_logout is null, or something to use the most recent login date. Also, the column names should not be in quotes.

Member 444291612-Apr-08 16:14

12-Apr-08 16:14

thanks can work d...UPDATE LOGIN_OUT
SET Time_logout = ?
WHERE ([Time_login] = ?) AND ([Emp_ID]= ?) AND ([Logindate] = ?)
i do with this

Christian Graus12-Apr-08 16:54