diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2002-10-15 08:23:20 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2002-10-15 08:23:20 +0000 |
| commit | 92d75cb3cc1b950ebb0b1d84026a81bf7d98d365 (patch) | |
| tree | cd2a476c5c9f2ef9ad6eb2333fc49c623c5b6f43 /wizards/source/formwizard/tools.xba | |
| parent | 619b8518ecc560633e0eba6f624e12bedb372fc0 (diff) | |
#104200# Declaration of a variable included
Diffstat (limited to 'wizards/source/formwizard/tools.xba')
| -rw-r--r-- | wizards/source/formwizard/tools.xba | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/wizards/source/formwizard/tools.xba b/wizards/source/formwizard/tools.xba index 7a945593c42a..0d5da836c9cd 100644 --- a/wizards/source/formwizard/tools.xba +++ b/wizards/source/formwizard/tools.xba @@ -179,15 +179,12 @@ Function SetNumerics(ByVal oLocObject as Object, iLocFieldType as Integer) as Ob oLocObject.EffectiveMax = 127 oLocObject.EffectiveMin = -128 Case com.sun.star.sdbc.DataType.FLOAT, com.sun.star.sdbc.DataType.REAL, com.sun.star.sdbc.DataType.DOUBLE, com.sun.star.sdbc.DataType.DECIMAL, com.sun.star.sdbc.DataType.NUMERIC -'Todo: oLocObject.DecimalAccuracy = ... oLocObject.EffectiveDefault = CurDefaultValue -' Todo: HelpText??? End Select If oLocObject.PropertySetinfo.HasPropertyByName("Width")Then ' Note: an Access AutoincrementField does not provide this property Width oLocObject.Width = CurFieldLength + CurScale + 1 End If If CurIsCurrency Then -'Todo: Wie setzt man Währungen? Msgbox "Währungsfeld: " & oLocObject.dbg_Properties End If ElseIf CurControlType = cTextBox Then 'com.sun.star.sdbc.DataType.CHAR, com.sun.star.sdbc.DataType.VARCHAR, com.sun.star.sdbc.DataType.LONGVARCHAR If oLocObject.MaxTextLen = 0 Or oLocObject.MaxTextLen > 30 Then @@ -198,10 +195,8 @@ Function SetNumerics(ByVal oLocObject as Object, iLocFieldType as Integer) as Ob End If oLocObject.DefaultText = CurDefaultValue ElseIf CurControlType = cDateBox Then -''Todo Why does this not work?: oLocObject.DefaultDate = CurDefaultValue ElseIf CurControlType = cTimeBox Then 'com.sun.star.sdbc.DataType.DATE, com.sun.star.sdbc.DataType.TIME oLocObject.DefaultTime = CurDefaultValue -' Todo: Property TimeFormat? frome where? ElseIf CurControlType = cCheckBox Then 'Todo Why does this not work?: oLocObject.DefautState = CurDefaultValue End If |