proc warningMsgCallback { valfield field } {
set value [$valfield getCurrentValue]
if { $value == "access2010" || $value == "access2007" || $value == "access" } {
$field setVisible true
} else {
$field setVisible false
}
}
GuidoForm frm10110 {
-default_buttons
-label "Choose Type of Survey Database"
-tip 10110_TIP_0
GuidoLabel frm10110_2 {
-label "Database Name"
}
GuidoLabel dbname {
-no_mlt
}
GuidoComboBox dbtyp {
-display_length 15
-format none
-label "Database Type"
-max_length 10
-no_mlt
-tip CREATE_DATABASE_TYPE_TIP
-action valueChanged {[warningMsgCallback $dbtyp $Overwrite_Label]}
}
GuidoLabel Overwrite_Label_space {
-visible false
}
GuidoLabel Overwrite_Label {
-label DB_SURPAC_COMP_WARNING
}
GuidoField odbc_str {
-dependency {"[ $dbtyp getCurrentValue]" == "odbc"}
-display_length 25
-format none
-label "ODBC connect string"
-max_length 100
-tip 10020_TIP_2
-translate none
}
}
