VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentKLeft = 32 Top = 335 Width = 372 Height = 256 Name = "Dataenvironment" cursorcursorCursor1DataenvironmentLeft = 10 Top = 20 Width = 90 Height = 90 Alias = "v_user" Database = ..\data\trackerdb.dbc CursorSource = "v_user" Name = "Cursor1" 21t_form..\libs\t_base.vcxformfrmUsermHeight = 240 Width = 550 DoCreate = .T. AutoCenter = .T. Caption = "User Maintenance" Name = "frmUser" fPROCEDURE Init LOCAL lnTagCnt, ; llCloseUserLevel, ; lcUserLevel DODEFAULT() thisform.cCurrentTable = "User" *SET DATABASE TO (this.cDataBase) *-- Look up the group information IF !USED("user_level") USE user_level IN 0 llCloseUserLevel = .T. ENDIF SELECT User_level.ngroupid , User_level.cdescription ; FROM user_level; INTO ARRAY thisform.aUserLevel IF llCloseUserLevel USE IN user_level ENDIF SELECT (thisform.cCurrentTable) ThisForm.pgfUser.Page1.cboUserLevel.NumberOfElements = ALEN(thisform.aUserLevel) ThisForm.pgfUser.Page1.cboUserLevel.refresh ENDPROC  ]\%lU UTHISREFRESH UTHISREFRESHPage1.Activate,Page2.ActivateL121&KW)BArial, 0, 9, 5, 15, 12, 13, 3, 0 Arial, 0, 8, 5, 14, 11, 12, 3, 0 frmUser cmdButtons container..\libs\t_basicbtns.vcxt_basictxtbtnshBorderStyle = 0 Enabled = .F. Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" Text1textbox^auserlevel[1,1]  t_pageframe..\libs\t_base.vcx pageframepgfUserfrmUserErasePage = .T. Top = 0 Left = 0 Width = 552 Height = 204 Name = "pgfUser" Page1.Caption = "User" Page1.Name = "Page1" Page2.Caption = "User List" Page2.Name = "Page2" bPROCEDURE Page1.Activate this.refresh ENDPROC PROCEDURE Page2.Activate this.refresh ENDPROC %frmUser.pgfUser.Page2.grdUser.Column2textbox7Alignment = 2 Caption = "Password" Name = "Header1" %frmUser.pgfUser.Page2.grdUser.Column2Header1headerheader%frmUser.pgfUser.Page2.grdUser.Column1Text1textbox t_textbox..\libs\t_base.vcxtextboxtxtCnamefrmUser.pgfUser.Page1Comment = "" ControlSource = "v_user.cname" Height = 23 Left = 204 MaxLength = 25 ReadOnly = .T. TabIndex = 2 Top = 44 Width = 183 Name = "txtCname" t_label..\libs\t_base.vcxlabellblCnamefrmUser.pgfUser.Page1bCaption = "Name" Height = 17 Left = 160 Top = 44 Width = 36 TabIndex = 1 Name = "lblCname"  t_textbox..\libs\t_base.vcxtextbox txtCpasswordfrmUser.pgfUser.Page1Comment = "" ControlSource = "v_user.cpassword" Height = 23 Left = 267 MaxLength = 10 TabIndex = 4 Top = 79 Width = 79 Name = "txtCpassword" t_label..\libs\t_base.vcxlabel lblCpasswordfrmUser.pgfUser.Page1jCaption = "Password" Height = 17 Left = 201 Top = 79 Width = 58 TabIndex = 3 Name = "lblCpassword" t_label..\libs\t_base.vcxlabellblSecurityLevelfrmUser.pgfUser.Page1Comment = "" Caption = "Security Level" Height = 16 Left = 153 Top = 118 Width = 84 TabIndex = 6 Name = "lblSecurityLevel"  t_combobox..\libs\t_base.vcxcombobox cboUserLevelfrmUser.pgfUser.Page1wBoundColumn = 2 ColumnCount = 2 RowSourceType = 5 RowSource = "thisform.aUserLevel" DisplayValue = cboUserLevel ControlSource = "V_user.Ngroupid" Enabled = .T. FirstElement = 1 Height = 24 IncrementalSearch = .F. Left = 239 NumberOfElements = (ALEN(thisform.aUserLevel)) TabIndex = 5 Top = 114 Width = 156 BoundTo = .T. ReadOnly = .T. Name = "cboUserLevel" t_grid..\libs\t_base.vcxgridgrdUserfrmUser.pgfUser.Page2NColumnCount = 2 Height = 165 Left = 130 Panel = 1 ScrollBars = 2 Top = 4 Width = 287 Name = "grdUser" Column1.ControlSource = "v_user.cname" Column1.Enabled = .F. Column1.Width = 127 Column1.Name = "Column1" Column2.ControlSource = "v_user.cpassword" Column2.Enabled = .F. Column2.Width = 121 Column2.Name = "Column2" headerheaderHeader1%frmUser.pgfUser.Page2.grdUser.Column18Alignment = 2 Caption = "User Name" Name = "Header1" textboxhBorderStyle = 0 Enabled = .F. Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" 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" [ BB\%U CTUser%C user_level gQ user_level Ta+o user_level %Q FT C ULNTAGCNTLLCLOSEUSERLEVEL LCUSERLEVELTHISFORM CCURRENTTABLE USER_LEVELNGROUPID CDESCRIPTION AUSERLEVELPGFUSERPAGE1 CBOUSERLEVELNUMBEROFELEMENTSREFRESHInit,1BaAA23[)B