My employee Time monitoring program
hello I need some help with a program I am trying to write it is a Server / Client application What I need it to do is as follows:
Structure:
Administration View:
-Admin Login
-User (employee) setup
-Task setup
-User / Task relating, allowing admin to relate particular tasks to spacific employees
-Reporting (period/user/task)definable time period - all users or single user -all tasks or single task (exportable to MS-Excel format)
-Keyboard and mouse monitoring maintenance to set amount of keyoard/ mouse inactivity time for break recording
-Need to be able for admin to retrieve updated data from spreadsheets every (admin specified time)
-Auto delete duplicate records
-ability to pull individual time records from database
ability to disable users from resizing application window
-ability to view records of employee activity
-ability to set as service in windows upon install (server)
-ability for admin to set up the application for use over the internet with one server end application located at head office and just the client end of the application installed on machines at the other locations
-ability to asign a product key to installation and the ability for (LGCC) to change it upon renewal date
-ability to auto save data every (time set by admin) minutes
-ability to activate program upon windows login (must tie into the user login API and the User list on the SQL server and network
-When exporting data from program to excel each entry must be specified by user name
Ability to copy to CD/DVD (Depending On Size) at the end of every month
Employee (User) View:
-Employee Login (must connect to the windows login screen)
-Task selection
-Time recording
ability to only install Employee (user) view restriction on the user systems but have it link back to server (Client)
The excel output app needs to be password protected (password set by admin)
Is it posible to set time limits on use of the program (ex: 365 days)
and then force to repurchase (date has to be able to be changed by LGCC)
The backbone of the app will be tied into the SQL server and MS - Excel
Re: My employee Time monitoring program
Quote:
Originally Posted by VBprogrammer2006
hello I need some help with a program I am trying to write it is a Server / Client application What I need it to do is as follows:
Structure:
Well almost everything listed is already posted or answered in CG.. I've linked to some of the more interesting ones..
I hope this is enough to get you started...
When you start writing your app and get into problems.. post your code and we can help you debug it...
Gremmy....
Re: My employee Time monitoring program
What is a db table? and how to I create one?
another question:
How would I be able to connect all of the seperate components of the application together
Re: My employee Time monitoring program
Private Sub btnCancel_Click()
End
End Sub
Private Sub Form_Load()
btnLogin.Enabled = False
gintKeypresscount = 1
End Sub
Private Sub txtLoginID_GotFocus()
gintKeypresscount = 0
End Sub
Private Sub txtLoginID_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
gintKeypresscount = 1
SearchEmployee
End If
End Sub
Private Sub txtLoginID_LostFocus()
If gintKeypresscount = 0 And txtLoginID.Text <> "" Then
gintKeypresscount = 1
SearchEmployee
End If
End Sub
Private Sub txtPassword_GotFocus()
If txtLoginID.Text = "" Then
txtLoginID.SetFocus
End If
gintKeypresscount = 0
End Sub
Private Sub txtPassword_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If gintKeypresscount = 0 And txtPassword.Text <> "" Then
KeyAscii = 0
gintKeypresscount = 1
SearchPassword
End If
End If
If txtPassword <> "" Then
btnLogin.Enabled = True
End If
End Sub
Sub SearchEmployee()
'establish connection to database
Dim dcnRefund As New ADODB.Connection
dcnRefund.CursorLocation = adUseClient
dcnRefund.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0; Data Source = D:\Alvin Tan\My Documents\Refund\Refund.mdb;"
'create recordset
Dim rstUsers As ADODB.Recordset
Set rstUsers = New ADODB.Recordset
rstUsers.CursorType = adOpenKeyset
rstUsers.LockType = adLockOptimistic
rstUsers.Open "tblRefundUsers", dcnRefund, adOpenStatic, adLockOptimistic
rstUsers.Index = "UserID"
rstUsers.Seek "=", txtLoginID.Text
If rstUsers.NoMatch Then
MsgBox "Sorry, User not found!", vbExclamation
gintKeypresscount = 0
txtLoginID.Text = ""
txtLoginID.SetFocus
Else
txtPassword.SetFocus
btnLogin.Enabled = True
End If
rstUsers.Close
dcnRefund.Close
End Sub
Sub SearchPassword()
'establish connection to database
Dim dcnRefund As New ADODB.Connection
dcnRefund.CursorLocation = adUseClient
dcnRefund.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0; Data Source = D:\Alvin Tan\My Documents\Refund\Refund.mdb;"
'create recordset
Dim rstUsers2 As ADODB.Recordset
Set rstUsers2 = New ADODB.Recordset
rstUsers2.CursorType = adOpenKeyset
rstUsers2.LockType = adLockOptimistic
rstUsers2.Open "tblRefundUsers", dcnRefund, adOpenStatic, adLockOptimistic
If txtLoginID.Text = "" Then
MsgBox "Please enter User Login ID", vbExclamation
gintKeypresscount = 0
txtLoginID.Text = ""
txtLoginID.SetFocus
Exit Sub
End If
rstUsers2.Index = "UserID"
rstUsers2.Seek "=", txtLoginID.Text
If txtPassword.Text = "" And gintKeypresscount = 1 Then
MsgBox "Please enter password", vbExclamation
gintKeypresscount = 0
txtPassword.SetFocus
Else
If rstUsers2("UserPwd") = txtPassword.Text Then
gintLoginID = UCase(txtLoginID.Text)
Unload Me
frmMainMenu.Show
Else
MsgBox "Wrong Password!", vbExclamation
gintKeypresscount = 0
txtPassword.SetFocus
txtPassword.Text = ""
End If
End If
rstUsers2.Close
dcnRefund.Close
End Sub
Private Form_Load()
Frm.Tool_Acc.Enabled = Acc(8) 'Set Menu rights to user..
Frm.Tool_Print.Enabled = Acc(9)
Frm.Tool_Staff.Enabled = Acc(6)
Frm.Tool_Supp.Enabled = Acc(7)
Frm.Tool_User.Enabled = Acc(10)
Frm.Main_Func.Enabled = Acc(3)
Frm.Main_Paym.Enabled = Acc(4)
Frm.Main_Shift.Enabled = Acc(2)
Frm.Main_With.Enabled = Acc(5)
End Sub
-----AND------
Private Sub Cmd1_Click()
If Acc(1) Then
.........
End If
End Sub
btnLogin.Enabled = False (comes back with a run time error 424 object required. Please help
Re: My employee Time monitoring program
Quote:
Originally Posted by VBprogrammer2006
What is a db table? and how to I create one?
This is a new table in the Database , Create it in Access, SQL, or the Database system your using..
Quote:
Originally Posted by VBprogrammer2006
How would I be able to connect all of the seperate components of the application together
Write your Server aplication as one EXE and your Clinet aplication as one EXE, with all the Different Components in forms and/or modules...
Quote:
Originally Posted by VBprogrammer2006
Code:
Private Sub Form_Load()
btnLogin.Enabled = False
gintKeypresscount = 1
End Sub
Are you sure that BtnLogin in on this form.. IF not you have to refrence it by (Form).Object.Property = Value. Double check the Name used...
Gremmy...
Re: My employee Time monitoring program
Quote:
Originally Posted by VBprogrammer2006
Private Sub btnCancel_Click()
End
End Sub
Private Sub Form_Load()
btnLogin.Enabled = False
gintKeypresscount = 1
End Sub
Private Sub txtLoginID_GotFocus()
gintKeypresscount = 0
End Sub
Private Sub txtLoginID_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
gintKeypresscount = 1
SearchEmployee
End If
......
Hi VBProgrammer. Glad to see you have joined our forum here. Your code is really bad to read dear! I know ;) nobody reads 'userinstructions' I also usual never read the instructionbook of my coffeemachine :D , but indeed you should read ' Before you Post' and then using Code Tags and setting spaces, so it looks like this
Code:
Private Sub btnCancel_Click()
End
End Sub
Private Sub Form_Load()
btnLogin.Enabled = False
gintKeypresscount = 1
End Sub
Private Sub txtLoginID_GotFocus()
gintKeypresscount = 0
End Sub
Private Sub txtLoginID_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
gintKeypresscount = 1
SearchEmployee
End If
end Sub
Please for future posts use Code Tags. Its an advantage for all. If you dont know how, look into this post doing a quote on it and look how I did that. Its easy. If you dont use this tags, Left-Spaces, you maybe have had in your post are lost. Happy new year to all :wave:
Re: My employee Time monitoring program
Quote:
Originally Posted by GremlinSA
This is a new table in the Database , Create it in Access, SQL, or the Database system your using..
Write your Server aplication as one EXE and your Clinet aplication as one EXE, with all the Different Components in forms and/or modules...
Are you sure that BtnLogin in on this form.. IF not you have to refrence it by (Form).Object.Property = Value. Double check the Name used...
Gremmy...
The BTN login is still not working what do I need to do to get it to do what I need it to
1 Attachment(s)
Re: My employee Time monitoring program
Quote:
Originally Posted by VBprogrammer2006
The BTN login is still not working what do I need to do to get it to do what I need it to
Well with out seeing the project, i can't help you there... But to help you a have posted a example login code for you.. In the Attached db. there are two users..
User1 :Admin - Password = admin
User2 :Guest - Password = password
Start up the project (DB must be in the project directory..)
Click File, Login to start the login procedure...
Play around with it .. Expecially the Util menu on the form... see how the two different users have diferent access rights..
Hope this will help you...
Gremmy...
Re: My employee Time monitoring program
Hi VBpgmer
I have against my will now read me through all that terrible sausage
of code, because you still didn't correct it with codetags and adding all lost spaces. You only have obviously one function there where this
btnLogin.Enabled = False can cause err 424 and this ist that one
Code:
Private Sub Form_Load()
btnLogin.Enabled = False 'error 424 occures here
gintKeypresscount = 1
End Sub
Look at the above. Thats how it should look like.
And now there is only one reason that can cause this error.
YOU HAVE NO binLogin Button on that Form. !!! Maybe you have an button there but it is not btnLogin Look into the buttons Property maybe a damned typo like bntLogin or something like that. If you dont get it that way, delete the button an create a new one. I 'm very sure that this should work.
Jonny Poet
Re: My employee Time monitoring program
Quote:
Originally Posted by GremlinSA
Well with out seeing the project, i can't help you there... But to help you a have posted a example login code for you.. In the Attached db. there are two users..
User1 :Admin - Password = admin
User2 :Guest - Password = password
Start up the project (DB must be in the project directory..)
Click File, Login to start the login procedure...
Play around with it .. Expecially the Util menu on the form... see how the two different users have diferent access rights..
Hope this will help you...
Gremmy...
What I ment by log in was being able to have the application start as soon as the user logs into the actual computer because you and I both know that if the user has to log into the timer seperately they wont and then will defeate the purpose of the program
So what I was asking was if you know how I could tie the windows login into my application so that they only login once
thanks
waiting for your reply
Re: My employee Time monitoring program
Quote:
Originally Posted by VBprogrammer2006
So what I was asking was if you know how I could tie the windows login into my application so that they only login once
thanks
waiting for your reply
Well then read this thread for the answer...
Gremmy....
Re: My employee Time monitoring program
Quote:
Originally Posted by GremlinSA
Well then read
this thread for the answer...
Gremmy....
Sorry I'm needing so much help but the client I am working for has asked me to create this application for them but they dont understad that I have not ever done this type of thing before I support PCs I am not very good at building software applications (what I had done before is I had found a company that specializes in programming custom applications but when I came back to them with the price that they quoted me they said we are not willing to pay that we want you to build the program for us.)
Again I am sorry
VBProgrammer2006
Re: My employee Time monitoring program
No problem ... Just it's eisier to point you to threads where these things have been discussed already rather than trying to explain things again... Also was in a bit of a rush when posting that answer..
Another thread worth reading is this one.
Gremmy...
Re: My employee Time monitoring program
Quote:
Originally Posted by VBprogrammer2006
but when I came back to them with the price that they quoted me they said we are not willing to pay that we want you to build the program for us.)
VBProgrammer2006
hmm. Do you like to work for one dollar / hour or less ? How much hours have you estimated to get all that work done ?You told, in one of the first threads, whats all needed to be done. I really dont want to disencourage you I would really like to here oother programmers estimate in that, because server-client applications is not my main field I'm programming, but my estimation for getting all that things done is more then 1000 manhours. And the next point is product guaranties. So maybe they never will pay you any cent for that or if paid claimng back money, because of producttroubles. If you are not familar with databases, and even when you are, you could experience so much multiuser troubles you really cannot imagine.
IMHO its totally OK to do such projects for personal use or for learning and fun, but in - excuse me - your state of know how - you should not even thing about, to sell the final product as a professional one. This would cost you much more than you ever can earn. People who told you that they didn't want to pay for real professional work,... forget them.
Thats a private advice which is the summary of my experience of 33 years doing business as electronic devices and services reseller.
BTW Have you solved that btnLogin problem in between ?
Re: My employee Time monitoring program
Quote:
Originally Posted by JonnyPoet
hmm. Do you like to work for one dollar / hour or less ? How much hours have you estimated to get all that work done ?You told, in one of the first threads, whats all needed to be done. I really dont want to disencourage you I would really like to here oother programmers estimate in that, because server-client applications is not my main field I'm programming, but my estimation for getting all that things done is more then 1000 manhours. And the next point is product guaranties. So maybe they never will pay you any cent for that or if paid claimng back money, because of producttroubles. If you are not familar with databases, and even when you are, you could experience so much multiuser troubles you really cannot imagine.
IMHO its totally OK to do such projects for personal use or for learning and fun, but in - excuse me - your state of know how - you should not even thing about, to sell the final product as a professional one. This would cost you much more than you ever can earn. People who told you that they didn't want to pay for real professional work,... forget them.
Thats a private advice which is the summary of my experience of 33 years doing business as electronic devices and services reseller.
BTW Have you solved that btnLogin problem in between ?
Would you be willing to assist me in creating this application
if so that would be greatly appreciated
thanks
VBProgrammer2006