Keep Track of users activity in database

[markbwillard]

I would like to keep a record of following with time stamp

1) When the data was created
2) Who Created (Windows user ID)
3) Modified Date and users
4) Published date and user


Can anybody give me an idea?

Thanks.
Mark

[Stan Mathews]

Re: Keep Track of users activity in database

Field rule record event code.

I would like to keep a record of following with time stamp

1) When the data was created - OnEnterRecord
2) Who Created (Windows user ID) - API_GETUSERNAME(), same event
3) Modified Date and users - OnChangeRecord
4) Published date and user - no idea what published might be

Can anybody give me an idea?

Thanks.
Mark

[markbwillard]

Re: Keep Track of users activity in database

Thanks Stan! This is great!

[markbwillard]

Re: Keep Track of users activity in database

Hi Stan:

Can you please give me an example? I am bit of confused.

How would if used "CanEnterRecord" this to garb user data?

I would like to get the following.

[COLOR="#FF0000"]CanEnterRecord[/COLOR]
dim tbl as P
tbl = table.open("maintable")
tbl.change_begin()
tbl.username = getusername()
tbl.timestamp = now()
tbl.change_end(.T.)
tbl.close()

Something like this but I am not sure of "CanEnterRecord" syntax.

[Stan Mathews]

Re: Keep Track of users activity in database

Are you trying to store the tracking info in the table where the enters and changes occur or in a separate table?

[markbwillard]

Re: Keep Track of users activity in database

Yes!

I have following fields...

1) Created by:
2) Create Date:
3) Modified by:
4) Modified Date:

[Stan Mathews]

Re: Keep Track of users activity in database

No, you don't. Fieldnames can't have spaces.

[Tom Cone Jr]

Re: Keep Track of users activity in database

Yes

Huh? How can that be an answer to Stan's question?

[Stan Mathews]

Re: Keep Track of users activity in database

We can work with just one event if we use the tbl.mode_get() method. Didn't think of that earlier.

You want something like this for the cansaverecord event code only.

dim tbl as P
tbl = table.current() [COLOR="#0000FF"]'this is field rule event code, table is open when this occurs, don't need to open again[/COLOR]
if tbl.mode_get()= 1 then [COLOR="#0000FF"]'1 is change mode[/COLOR]
     tbl.Modified_by = api_getusername()
     tbl.Modified_time = now()
else [COLOR="#0000FF"]'2 is enter mode, 0 is view mode but since cansaverecord is firing a change or enter must be occurring[/COLOR]
     [COLOR="#0000FF"]'we handled changes above, this must be a enter to get here[/COLOR]
     tbl.Created_by = api_getusername()
     tbl.Created_time = now()
end if

[markbwillard]

Re: Keep Track of users activity in database

No, you don't. Fieldnames can't have spaces.

Hi Stan:
Yes, I am aware this.

Createdby
Create-date
Modifiedby
ModifiedDate

[markbwillard]

Re: Keep Track of users activity in database

I will try this.

Thanks.
Mark

[Ted Giles]

Re: Keep Track of users activity in database

Audit feature?

[markbwillard]

Re: Keep Track of users activity in database

Yes!

[Ted Giles]

Re: Keep Track of users activity in database

Yes!

Does that mean you have worked out how to use the Audit Trail feature Mark? You will need to read the bit about Deletions as well if you are going the whole hog with this.

[JetLi]

Re: Keep Track of users activity in database

From a non-experts point of view. Maybe this one will help. Search for f_Audit on the Code Archive.or paste this http://msgboard.alphasoftware.com/al...hlight=f_Audit. Study the code on the field rule events that the utility created.Step by step guide is provided on how to use the utility.