请问在ADP中如何用代码检测数据库窗口状态

yodong

如题

阿罗

Public function printProjectProperties() As BooleanDim x As Variant

For Each x In CurrentProject.Properties

    Debug.Print x.name, vbTab, x.Value

Nextend function 1 AccessVersion                          08.50

UseAppIconForFrmRpt                        0

StartupShortcutMenuBar                    

AppIcon                     

AllowSpecialKeys                           1

AllowToolbarChanges                        1

AllowBuiltInToolbars                       1

AllowFullMenus                             1

AllowShortcutMenus                         1

StartUpMenuBar                           

StartUpShowStatusBar                       1

StartUpShowDBWindow                        1  --- 这个就是你要的了，0代表隐藏

AppTitle                    项目名称

Row Limit                    10000

Use Default Connection File                0

Use Default Page Folder                    0

Show Values in Snapshot                    1

Show Values in Non-Indexed                 1

Show Values Limit                          1000

Themed Form Controls                       1

ProjVer                      35

Auto Compact                 0

Show Values in Indexed                     1

Show Values in Remote                      0

Show Values in Server                      0

Default Page Folder                       

Default Connection File                  

Build                        355

StartupForm                 启动窗体启动选项卡里的东西这里基本都有，不过值改变后要重新启动ADP才生效。另外，系统的“选项”中内容，可以通过Application.GetOption 和SetOption来读取和设置。

阿罗

用currentProject.Properties("StartUpShowDBWindow")来读取和设置。对于错误处理（即有可能某些版本或者其他原因这个property不存在），那么可以按照NorthwindCS示例中的方法处理（这里是针对“启动窗体”属性）err_handler:

    Const conPropertyNotFound = 2473

    If Err = conPropertyNotFound Then

        CurrentProject.Properties.Add "StartupForm", startFormName

        ..........

    Else

        MsgBox Err.Number & Err.Description ....

    End If

yodong

谢谢!