  E                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      KLeft = 32
Top = 335
Width = 372
Height = 256
Name = "Dataenvironment"
      cursor      cursor      Cursor1      Dataenvironment      Left = 10
Top = 20
Width = 90
Height = 90
Alias = "user"
BufferModeOverride = 2
Database = ..\data\trackerdb.dbc
CursorSource = "user"
Name = "Cursor1"
      cursor      cursor      Cursor2      Dataenvironment      Left = 150
Top = 20
Width = 90
Height = 90
Alias = "user_level"
Database = ..\data\trackerdb.dbc
CursorSource = "user_level"
Name = "Cursor2"
      relation      relation      	Relation1      Dataenvironment      zParentAlias = "user"
RelationalExpr = "ngroupid"
ChildAlias = "user_level"
ChildOrder = "groupid"
Name = "Relation1"
      4      1      t_form      ..\libs\t_base.vcx      form      frmUser      }Height = 240
Width = 550
DoCreate = .T.
AutoCenter = .T.
Caption = "User Maintenance"
WindowType = 1
Name = "frmUser"
      t_pageframe      ..\libs\t_base.vcx      	pageframe      pgfUser      frmUser      ErasePage = .T.
Top = 0
Left = 0
Width = 552
Height = 204
Name = "pgfUser"
Page1.Caption = "User"
Page1.Name = "Page1"
Page2.Caption = "User List"
Page2.Name = "Page2"
      jPROCEDURE Page1.Activate
thisform.refresh
ENDPROC
PROCEDURE Page2.Activate
thisform.refresh
ENDPROC
                                      d   %   c       x      r             U    >      U  USER NGROUPID THIS VALUE Valid,     1 11                       6       )                            frmUser      
cmdButtons      	container      Text1      	t_textbox      ..\libs\t_base.vcx      textbox      txtCname      frmUser.pgfUser.Page1      Comment = ""
ControlSource = "user.cname"
Height = 23
Left = 105
MaxLength = 25
ReadOnly = .F.
TabIndex = 1
Top = 57
Width = 183
Name = "txtCname"
      t_label      ..\libs\t_base.vcx      label      lblCname      frmUser.pgfUser.Page1      aCaption = "Name"
Height = 17
Left = 61
Top = 57
Width = 36
TabIndex = 4
Name = "lblCname"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCpassword      frmUser.pgfUser.Page1      Comment = ""
ControlSource = "user.cpassword"
Height = 23
Left = 129
MaxLength = 10
TabIndex = 2
Top = 93
Width = 79
Name = "txtCpassword"
      t_label      ..\libs\t_base.vcx      label      lblCpassword      frmUser.pgfUser.Page1      iCaption = "Password"
Height = 17
Left = 63
Top = 93
Width = 58
TabIndex = 5
Name = "lblCpassword"
      t_optiongroup      ..\libs\t_base.vcx      optiongroup      optUserLevel      frmUser.pgfUser.Page1     AutoSize = .T.
ButtonCount = 4
Value = 4
ControlSource = "User.Ngroupid"
Height = 84
Left = 359
Top = 45
Width = 87
TabIndex = 3
Name = "optUserLevel"
Option1.Caption = "Developer"
Option1.Value = 0
Option1.Height = 17
Option1.Left = 5
Option1.Style = 0
Option1.Top = 5
Option1.Width = 77
Option1.AutoSize = .F.
Option1.Name = "Option1"
Option2.Caption = "Supervisor"
Option2.Height = 17
Option2.Left = 5
Option2.Style = 0
Option2.Top = 24
Option2.Width = 77
Option2.AutoSize = .F.
Option2.Name = "Option2"
Option3.Caption = "Clerk"
Option3.Height = 17
Option3.Left = 5
Option3.Style = 0
Option3.Top = 43
Option3.Width = 77
Option3.AutoSize = .F.
Option3.Name = "Option3"
Option4.Caption = "Read Only"
Option4.Value = 1
Option4.Height = 17
Option4.Left = 5
Option4.Style = 0
Option4.Top = 62
Option4.Width = 77
Option4.AutoSize = .F.
Option4.Name = "Option4"
      APROCEDURE Valid
Replace user.ngroupid with this.value
ENDPROC
      BArial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 0, 8, 5, 14, 11, 30, 3, 0
      PROCEDURE Init
DODEFAULT()
this.haderror = .F.

ENDPROC
PROCEDURE cmdAdd.Click
DODEFAULT()
ThisForm.pgfUser.Page1.txtCname.setfocus
ENDPROC
      t_grid      ..\libs\t_base.vcx      grid      grdUser      frmUser.pgfUser.Page2     JColumnCount = 2
Height = 165
Left = 130
Panel = 1
ScrollBars = 2
Top = 4
Width = 287
Name = "grdUser"
Column1.ControlSource = "user.cname"
Column1.Enabled = .F.
Column1.Width = 127
Column1.Name = "Column1"
Column2.ControlSource = "user.cpassword"
Column2.Enabled = .F.
Column2.Width = 121
Column2.Name = "Column2"
      header      header      Header1      %frmUser.pgfUser.Page2.grdUser.Column1      8Alignment = 2
Caption = "User Name"
Name = "Header1"
      textbox      textbox      Text1      %frmUser.pgfUser.Page2.grdUser.Column1      hBorderStyle = 0
Enabled = .F.
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      %frmUser.pgfUser.Page2.grdUser.Column2      7Alignment = 2
Caption = "Password"
Name = "Header1"
      textbox      textbox      %frmUser.pgfUser.Page2.grdUser.Column2      hBorderStyle = 0
Enabled = .F.
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      t_basictxtbtns      ..\libs\t_basicbtns.vcx     tTop = 210
Left = 0
usercontrolmode = .T.
Name = "cmdButtons"
cmdTop.Name = "cmdTop"
cmdPrev.Name = "cmdPrev"
cmdNext.Name = "cmdNext"
cmdEnd.Name = "cmdEnd"
cmdFind.Visible = .F.
cmdFind.Name = "cmdFind"
cmdPrint.Visible = .F.
cmdPrint.Name = "cmdPrint"
cmdAdd.Name = "cmdAdd"
cmdEdit.Name = "cmdEdit"
cmdDelete.Name = "cmdDelete"
cmdExit.Name = "cmdExit"
     O    6  6                        \   %                             U   	 C T   - U  THIS HADERROR 	 C        U  THISFORM PGFUSER PAGE1 TXTCNAME SETFOCUS Init,      cmdAdd.ClickZ     1   3  11                       2         U          )   6                                                      4   %   t                          U   
     U  THISFORM REFRESH 
     U  THISFORM REFRESH Page1.Activate,      Page2.ActivateP     1  2  1                       *         O   _       )                     
