|
Public Function SetStartProperties()
Dim Prop As DAO.Property
Dim strAppName As String
Dim iErr As Integer
Dim stIcon As String
On Error GoTo HandleErr
ChangeProperty "StartupForm", DB_Text, "AfrmFirst"
ChangeProperty "StartupMenuBar", DB_Text, "Главное меню"
ChangeProperty "StartupShowDBWindow", DB_Boolean, False
ChangeProperty "StartupShowStatusBar", DB_Boolean, True
ChangeProperty "AllowBuiltinToolbars", DB_Boolean, False
ChangeProperty "AllowFullMenus", DB_Boolean, False
ChangeProperty "AllowBreakIntoCode", DB_Boolean, False
ChangeProperty "AllowSpecialKeys", DB_Boolean, False
ChangeProperty "AllowBypassKey", DB_Boolean, False
iErr = 1
APP_NAME:
DBEngine(0)(0).Properties("AppTitle") = strAppName
Application.RefreshTitleBar
iErr = 2
APP_ICON:
DBEngine(0)(0).Properties("AppIcon") = stIcon
Application.RefreshTitleBar
ExitHere:
Exit Function
HandleErr:
Select Case Err.number
Case 3270
Select Case iErr
Case 1
Set Prop = DBEngine(0)(0).CreateProperty("AppTitle", dbText, " ")
DBEngine(0)(0).Properties.Append Prop
Resume APP_NAME
Case 2
Set Prop = DBEngine(0)(0).CreateProperty("AppIcon", dbText, " ")
DBEngine(0)(0).Properties.Append Prop
Resume APP_ICON
End Select
Case Else
MsgBox "Îøèáêà #" & Err.number & ": " & Err.Description, vbCritical, "SetStartProperties"
End Select
Call RecordError(Err.number, Err.Description, "Êëèåíò ÍÒ", "SetStartProperties")
End Function
Public Function SetApplicationOptions()
On Error Resume Next
With Application
.SetOption "Show Status Bar", False
.SetOption "Show Startup dialog box", False
.SetOption "Show New object shortcuts", False
.SetOption "Left Margin", 0.5
.SetOption "Right Margin", 0.5
.SetOption "Top Margin", 1
.SetOption "Bottom Margin", 1
.SetOption "Provide Feedback with sound", True
.SetOption "Track name AutoCorrect info", False
.SetOption "Perform name AutoCorrect", False
.SetOption "Log name AutoCorrect changes", False
.SetOption "Default find/replace behavior", 1
.SetOption "Confirm Record changes", False
.SetOption "Confirm Document deletions", False
.SetOption "Confirm Action Queries", False
.SetOption "Show Values Limit", 1000
.SetOption "Move after enter", False
.SetOption "Behavior entering field", 0
.SetOption "Arrow Key Behavior", 0
.SetOption "Cursor Stops At First/Last Field", True
.SetOption "Enable DDE Refresh", True
.SetOption "Refresh Interval (Sec)", 60
.SetOption "Default Open Mode for Databases", 1
.SetOption "Default Record Locking", 2
.SetOption "Use Row Level Locking", True
End With
End Function
|
