Parent page: Using GUI Forms in TestComplete

Even though automation scripts are intended to drive the application under test there are cases when communication with tester is required. With TestComplete, we have a vast arsenal of predefined GUI controls for that (and those, acquainted with Delphi, will be pleasantly surprised by the way it’s organized).

Today’s post provides an example of creating and using ‘Username/Password’ dialog.
But, first, a couple of words why automation scripts would need one.

No, this is not an authorization to run the scripts. This is for the scripts.
Maybe you need to connect to the database. Or run the scripts with administrator’s permission. Or it’s just a security requirement from your stakeholders.

Whatever it is, you better not store such sensitive data in a file or the source code. Make them exist only during run-time.

Preparing Modal Form

We begin with a sample form.

Add Edit Controls, Buttons, and Labels

Set Object Properties

Form

• Name - object name to use in the code; ‘Security’ in my example
• Caption - title of the window when the form is displayed

Label controls

• Caption - displayed text

Edit Box Controls

• Name - object name to use in the code; ‘EditUsername’/’EditPassword’ in my example
• EditPassword.Properties.EchoMode = eemPassword - to mask password characters

Buttons

• Caption - displayed text; ‘OK’/’Cancel’ in my example
• Cancel = True - for ‘Cancel’ button
• ModalResult = mrCancel - for ‘Cancel’ button
• Default = True - for ‘OK’ button
• ModalResult = mrOK - for ‘OK’ button

Example

 Dim objDlg
 Dim sUsername, sPassword
 Dim Result
 'Get object's instance
 Set objDlg = UserForms.Security
 'Execute
 Result = objDlg.ShowModal
 If Result = mrOK Then
 'retrieve the input
 sUsername = objDlg.EditUsername.Text
 sPassword = objDlg.EditPassword.Text
 Else
 'Respond
 MsgBox "Execution cancelled", vbOKOnly
 'exit function or finalize execution
 End If