cmarti
Hey THIS is FUN
Registered: 2001-02-26
Posts: 297
Loc: Little Rock, AR
|
I'm writing a script to automate a manual process we have. When I check to see if the $txtSecGroupName field is blank, in which it is when I'm testing it says it's not blank. When I print the contents of that field it shows "15215720". Chances are it's something simple as always that I'm missing because I'm looking too deep for it...
Below is my code..
I'm using kix 4.02 and kixforms 2.1.1.35.
Thanks in advance..
code:
break on :CreateForm $TITLE = SETTITLE("Network Directory Request AutoSetup") ;$HIDECONSOLE = SETCONSOLE("HIDE") $FORM = CREATEOBJECT("Kixtart.FORM") $FORM.CAPTION = "Network Directory Request AutoSetup" $FORM.SCALEHEIGHT = 400 $FORM.SCALEWIDTH = 700 $FORM.FONTNAME = "Tahoma" $FORM.FONTSIZE = 9 $FORM.CENTER
:CreateLabelsandTextBoxes ;$option = $object.xxx(caption,left,top,width,height) $lblSecGroupName = $FORM.Label("Security Group Name",3,10,250,20) $txtSecGroupName = $FORM.TextBox("",3,30,300,20) $lblSecGroupDescription = $FORM.Label("Description of the Security Group",3,70,200,20) $txtSecGroupDescription = $FORM.TextBox("",3,90,400,20) $lblSecGroupType = $FORM.Label("Type of Group (Global or Local)",3,130,200,20) $txtSecGroupType = $FORM.TextBox("",3,150,200,20) $lblTerritoryname = $FORM.Label("Territory Name",3,190,200,20) $txtTerritoryname = $FORM.TextBox("",3,210,200,20) $lblDistList = $FORM.Label("Outlook Distribution List Name",3,250,200,20) $txtDistList = $FORM.TextBox("",3,270,200,20) $lblDirectoryName = $FORM.Label("Directory Name",3,310,200,20) $txtDirectoryName = $FORM.TextBox("",3,330,200,20) $fraAdmins = $FORM.Frame("Folder Admins",415,10,285,150) $lblAdmin1 = $fraAdmins.label("1.",7,20,10,20) $txtAdmin1 = $fraAdmins.TextBox("",20,20,120,20) $lblAdmin2 = $fraAdmins.label("2.",7,50,10,20) $txtAdmin2 = $fraAdmins.TextBox("",20,50,120,20) $lblAdmin3 = $fraAdmins.label("3.",7,80,10,20) $txtAdmin3 = $fraAdmins.TextBox("",20,80,120,20) $lblAdmin4 = $fraAdmins.label("4.",7,110,10,20) $txtAdmin4 = $fraAdmins.TextBox("",20,110,120,20) $lblAdmin5 = $fraAdmins.label("5.",145,20,10,20) $txtAdmin5 = $fraAdmins.TextBox("",157,20,120,20) $lblAdmin6 = $fraAdmins.label("6.",145,50,10,20) $txtAdmin6 = $fraAdmins.TextBox("",157,50,120,20) $lblAdmin7 = $fraAdmins.label("7.",145,80,10,20) $txtAdmin7 = $fraAdmins.TextBox("",157,80,120,20) $lblAdmin8 = $fraAdmins.label("8.",145,110,10,20) $txtAdmin8 = $fraAdmins.TextBox("",157,110,120,20) $fraDrive = $FORM.Frame("Data Drive",430,160,250,200) $optG = $fraDrive.OptionButton("G: \\server1\share1",10,20,150,15) $optH = $fraDrive.OptionButton("H: \\server2\share1",10,50,150,15) $optO = $fraDrive.OptionButton("O: \\server3\share1",10,80,150,15) $optP = $fraDrive.OptionButton("P: \\server4\share1",10,110,150,15) $optS = $fraDrive.OptionButton("S: \\server5\share1",10,140,150,15) $optT = $fraDrive.OptionButton("T: \\server6\share1",10,170,150,15) $fraProgress = $FORM.Frame("Progress",215,120,190,240) $txtProgress = $FORM.TextBox("",219,134,180,220) $fraProgress.visible = false $txtProgress.visible = false
:CreateStartButton $cmdStartButton = $FORM.CommandButton("Create",270,365,129,30) $cmdStartButton.Enabled = 1 $cmdStartButton.OnClick = "AreAllTextBoxesPopulated()"
Function AreAllTextBoxesPopulated() IF $txtSecGroupName = "" $MSG = MESSAGEBOX("Please enter a group name for the security group.","Network Directory Request AutoSetup",48) else ? $txtSecGroupName ENDIF EndFunction
$FORM.SHOW
While $FORM.Visible $=Execute($FORM.DoEvents) Loop
|