Alpha Video Training
Results 1 to 5 of 5

Thread: Passwords

  1. #1
    Steven Srebnik
    Guest

    Default Passwords

    Alpha 4V6 I am interested in setting up passwords to allow certain individuals to change data in records. Is there any way to do this without using the restrict access function in form layout. Using this function requires the user to go into layout forms and change the access each time. It would be nice if simply entering a password would allow the user to edit or change records as they wish.
    Steve Srebnik

  2. #2
    Member
    Real Name
    Robert Picard
    Join Date
    Apr 2000
    Posts
    326

    Default RE: Passwords

    Hi Steven

    I use A4V4 so I am unfamiliar with the form feature you mention. But in my applications I have scripts which password protect individual fields.

    i.e.

    In enter mode the value in FIELD->ADVISOR can be changed but in change mode a password is required to change the value in FIELD->ADVISOR.

    Anyways I am not sure what it is you wish to accomplish but it would possible and easy to do.

    If you gave a clearer example, others might be able to give specific solutions.

    Robert

  3. #3
    Steven Srebnik
    Guest

    Default RE: Passwords

    Thanks for the input. I'm basically looking for a way to put in passwords so that only certain people can enter or change records, or for that matter to access a certain database all together. Any further input would be appreciated.

  4. #4
    Steven Srebnik
    Guest

    Default RE: Passwords

    Thanks for the input. I'm basically looking for a way to put in passwords so that only certain people can enter or change records, or for that matter to access a certain database all together. Any further input would be appreciated.

  5. #5
    Member
    Real Name
    Robert Picard
    Join Date
    Apr 2000
    Posts
    326

    Default RE: Passwords

    Hi Steven

    Are they accessing the forms and databases through an application?

    You could hard code a password script into the application buttons or have "security.dbf" with access priviliges listed and do an "xlookup" to see if their priviliges are set high enough.

    Dr. Waynes book X-Basic for everyone has an excellent example of these techniques.

    Again not being there, a detailed step by step example of one instance would be helpful. I could then be more specific.

    Below is a script attached to field rules exit trigger of a field. An enter trigger script retrieves the current value in the field which compares against the new value. If in change mode and the old value doesn't match the new value, password is required.

    ----------

    {clear·"%USE_PASSWORD"}

    {**if in enter mode no password required**}
    {if·%STATUS="E",·{{cancel}}}

    {SET·%TEMP1,·TELETRAC->advisor}
    {SET·%TEMP1,LTRIM(TRIM(%TEMP1))}

    {IF·%TEMP%TEMP1,{{GOTO·:X}}}

    {goto·:B}

    {cancel}
    {:X}

    {BEEP}{BEEP}
    {set·%promptdone,·space((37-len("!!·PASSWORD·REQUIRED·!!")
    )/2)+"!!·PASSWORD·REQUIRED·!!"}

    {*·set·variables·for·dialog·box·prompts·*}

    {set·%warn_line_01,"In·change·mode,·either···"}
    {set·%warn_line_02,"Advisor·or·Salesaperson's"}
    {set·%warn_line_03,"name·can·only·be·changed·"}
    {set·%warn_line_04,"by·the·System·Supervisor."}
    {set·%warn_line_05,"·························"}
    {SET·%WARN_LINE_06,"···························"}
    {SET·%WARN_LINE_07,"···························"}
    {SET·%WARN_LINE_08,"···························"}
    {SET·%WARN_LINE_09,"···························"}
    {play·"CHO_WARN"}
    {CLEAR·"%WARN_LINE_*"}

    {:X}
    {set·%use_Try,·"3"}

    {if·
    %SYS_LAST_KEY="{ESC}",
    {{goto·:g}}}
    {:A}

    {if·
    %SYS_LAST_KEY="{ESC}",
    {{goto·:G}}}
    {clear·"%USE_PASSWORD"}
    {clear·%DIRECTORY}
    {play·"US_PASS"}
    {if·
    %SYS_LAST_KEY="{ESC}",·
    {{goto·:g}}}
    {if·
    %USE_PASSWORD·=·"JASPER",·
    {{set·%use_try,·"1"}},·
    {{beep}{BEEP}{play·"US_PAS_R"}{if·%SYS_LAST_KEY="{ESC}
    ",·{{goto·:b}}}}}
    {loop·:A,·%USE_Try}

    {if·
    %USE_PASSWORD·=·"JASPER",
    {{goto·:B}},·
    {{goto·:g}}}

    {:B}
    {CANCEL}

    {:G}
    {TRIGKEYS·{{ESC:3}y}}
    {ABORT}

    Hope this helps

    Robert

Similar Threads

  1. Passwords
    By Ed Barley in forum Alpha Five Version 5
    Replies: 0
    Last Post: 01-03-2003, 12:41 PM
  2. Passwords
    By John Hadley in forum Alpha Five Version 4
    Replies: 7
    Last Post: 03-29-2001, 03:47 AM
  3. Passwords
    By Dan Job in forum Alpha Five Version 4
    Replies: 2
    Last Post: 11-09-2000, 12:14 PM
  4. Passwords
    By Steven Srebnik in forum Alpha Four Version 6 and Prior
    Replies: 0
    Last Post: 07-25-2000, 12:16 PM
  5. Passwords
    By Nigel Waters in forum Alpha Five Version 4
    Replies: 0
    Last Post: 04-20-2000, 01:28 PM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •