//AB/ Project Password dialog
//AB/ Object prj is a Dialog_Project
  //AB/ Set ProjectName to "Password dialog"
  //AB/ Set ProjectFileName to "Password.dg"
  //AB/ Set Size to 99 321

// Project Object Structure
//   oPassword_dg is a cRDSDbModalPanel
//     BitmapContainer1 is a BitmapContainer
//     Textbox1 is a Textbox
//     oPassword_fm is a Form
//     oName_fm is a Form
//     oOK_bn is a cBitmapButton
//     oCancel_bn is a cBitmapButton

// Register all objects
Register_Object BitmapContainer1
Register_Object oCancel_bn
Register_Object oName_fm
Register_Object oOK_bn
Register_Object oPassword_dg
Register_Object oPassword_fm
Register_Object Textbox1


//AB-StoreTopStart
Open SncSys
Use SyncFuncs.pkg

Register_Object Main
Register_Object oName_fm
Register_Object oPassword_fm
Register_Object oOK_bn
Register_Object oCancel_bn
//AB-StoreTopEnd

//AB-IgnoreStart
Use cRDSDbModalPanel.pkg
Use dfbitmap.pkg
Use Windows.pkg
Use cBitmapButton.pkg
//AB-IgnoreEnd



Object oPassword_dg is a cRDSDbModalPanel

  //AB-StoreTopStart
  Set Locate_Mode To CENTER_ON_SCREEN
  //AB-StoreTopEnd

  Set Border_Style to Border_Normal
  Set Sysmenu_Icon to FALSE
  Set Minimize_Icon to FALSE
  Set Label to "Welcome to CrossMerge Builder"
  Set Size to 77 308

  //AB-DDOStart


  //AB-DDOEnd

  Object BitmapContainer1 is a BitmapContainer
    Set Size to 20 25
    Set Location to 4 15
    Set Bitmap to "Keys32.bmp/T/3D"
    Set Border_Style to Border_None
    Set Dialog_Caption to ""

    //AB-StoreStart

    //AB-StoreEnd

  End_Object    // BitmapContainer1

  Object Textbox1 is a Textbox
    Set Label to "Enter user name and password to login:"
    Set FontSize to 4 0
    Set Location to 5 61
    Set Size to 10 125
    Set TypeFace to "MS Sans Serif"
  End_Object    // Textbox1

  Object oPassword_fm is a Form
    Set Label to "&Password:"
    Set Size to 13 90
    Set Location to 40 106
    Set Label_Col_Offset to 45

    //AB-StoreStart
    Set Password_State Item 0 To True
    //AB-StoreEnd

  End_Object    // oPassword_fm

  Object oName_fm is a Form
    Set Label to "&Name:"
    Set Size to 13 90
    Set Location to 24 106
    Set Label_Col_Offset to 45

    //AB-StoreStart
    Procedure OnStartup
      String sName
      Get Network_User_Name To sName
      Set Value Item 0      To sName
    End_Procedure // OnStartUp
    Send OnStartUp
    //AB-StoreEnd

  End_Object    // oName_fm

  Object oOK_bn is a cBitmapButton
    Set Label to "OK"
    Set Size to 14 50
    Set Location to 24 246
    Set Status_Help to "Login to CrossMerge Builder"
    Set Default_State to TRUE
    Set Bitmap to "Ok16.bmp"
    Set piTransparentColor to clFuchsia

    //AB-StoreStart
    Procedure OnClick
      String sName sPassword sOrgName sOrgPv sText
      Clear SncSys
      Find Gt SncSys By Recnum
      Move SncSys.User          To sOrgName
      Move (Trim(sOrgName))     To sOrgName
      Move SncSys.Pv            To sOrgPv
      Move (Trim(sOrgPv))       To sOrgPv
      If (Length(sOrgPv) > 0) ;
        Get CmNewDeKry sOrgPv SncSys.Recnum To sOrgPv
      Get Value Of oName_fm     To sName
      Move (Trim(sName))        To sName
      Get Value Of oPassword_fm To sPassword
      Move (Trim(sPassword))    To sPassword
      Move ("The user name or password is incorrect. Please retype your password and/or user name. " + ;
            "Letters in passwords must be typed using the correct case. Make sure that Caps Lock is not accidently on.") To sText

      // Note: Checking for username in UPPERCASE:
      If (Uppercase(sOrgName) <> Uppercase(sName) Or sOrgPv <> sPassword) Begin
        Send Stop_Box sText
        Set Value Of oPassword_fm To ""
        Procedure_Return
      End
      Else Send Close_Panel
    End_Procedure // OnClick
    //AB-StoreEnd

  End_Object    // oOK_bn

  Object oCancel_bn is a cBitmapButton
    Set Label to "&Cancel"
    Set Size to 14 50
    Set Location to 40 246
    Set Status_Help to "Close this dialog and the program"
    Set Bitmap to "Cancel16.bmp"
    Set piTransparentColor to clFuchsia

    //AB-StoreStart
    Procedure OnClick
      Abort
    End_Procedure // OnClick
    //AB-StoreEnd

  End_Object    // oCancel_bn


  //AB-StoreStart
  On_Key Key_Ctrl+Key_F4 Send OnClick  To oCancel_bn // Aborts
  On_Key Key_Alt+Key_F4  Send OnClick  To oCancel_bn
  On_Key Key_Alt+Key_N   Send Activate To oName_fm
  On_Key Key_Alt+Key_P   Send Activate To oPassword_fm

  //AB-StoreEnd

End_Object    // oPassword_dg


//AB-StoreStart

//AB-StoreEnd

//AB/ End_Object    // prj