Skip to content

Commit 3c0dca9

Browse files
committed
add db properties for test file
1 parent 9853a54 commit 3c0dca9

File tree

4 files changed

+75
-28
lines changed

4 files changed

+75
-28
lines changed

deployment/Application-Config.json

Lines changed: 16 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -9,6 +9,11 @@
99
}
1010
],
1111
"DatabaseProperties": [
12+
{
13+
"Name": "AppTitle",
14+
"Type": 10,
15+
"Value": "Test App for Build Workflow"
16+
},
1217
{
1318
"Name": "AllowBypassKey",
1419
"Type": 1,
@@ -28,6 +33,16 @@
2833
"Name": "StartUpForm",
2934
"Type": 10,
3035
"Value": "frmStart"
36+
},
37+
{
38+
"Name": "CustomRibbonID",
39+
"Type": 10,
40+
"Value": "MainRibbon"
41+
},
42+
{
43+
"Name": "ShowDocumentTabs",
44+
"Type": 1,
45+
"Value": false
3146
}
3247
]
33-
}
48+
}

source/dbs-properties.json

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -168,6 +168,10 @@
168168
"Value": 1,
169169
"Type": 4
170170
},
171+
"Track Name AutoCorrect Info": {
172+
"Value": 0,
173+
"Type": 4
174+
},
171175
"Transactions": {
172176
"Value": true,
173177
"Type": 1

source/forms/frmStart.bas

Lines changed: 44 additions & 24 deletions
Original file line numberDiff line numberDiff line change
@@ -1,17 +1,20 @@
11
Version =20
22
VersionRequired =20
33
Begin Form
4+
RecordSelectors = NotDefault
5+
NavigationButtons = NotDefault
46
DividingLines = NotDefault
57
AllowDesignChanges = NotDefault
68
DefaultView =0
9+
ScrollBars =0
710
PictureAlignment =2
811
DatasheetGridlinesBehavior =3
912
GridY =10
10-
Width =6994
13+
Width =6803
1114
DatasheetFontHeight =11
12-
ItemSuffix =2
13-
Right =22843
14-
Bottom =11091
15+
ItemSuffix =3
16+
Right =24915
17+
Bottom =11730
1518
RecSrcDt = Begin
1619
0xfd5e93f4705de640
1720
End
@@ -71,40 +74,57 @@ Begin Form
7174
PressedForeTint =75.0
7275
End
7376
Begin Section
74-
Height =5952
77+
Height =5669
7578
Name ="Detail"
76-
AutoHeight =1
7779
AlternateBackThemeColorIndex =1
7880
AlternateBackShade =95.0
7981
BackThemeColorIndex =1
8082
Begin
8183
Begin Label
8284
OverlapFlags =85
83-
Left =1474
84-
Top =1133
85-
Width =720
86-
Height =315
85+
Left =566
86+
Top =566
87+
Width =2205
88+
Height =675
89+
FontSize =26
8790
Name ="Label0"
88-
Caption ="Test"
89-
LayoutCachedLeft =1474
90-
LayoutCachedTop =1133
91-
LayoutCachedWidth =2194
92-
LayoutCachedHeight =1448
91+
Caption ="Test Form"
92+
LayoutCachedLeft =566
93+
LayoutCachedTop =566
94+
LayoutCachedWidth =2771
95+
LayoutCachedHeight =1241
9396
End
9497
Begin CommandButton
9598
OverlapFlags =85
96-
Left =3344
97-
Top =453
98-
Width =1842
99-
Height =351
99+
Left =566
100+
Top =1700
101+
Width =2247
102+
Height =561
100103
Name ="cmdDevMode"
101-
Caption ="Aktivate Dev Mode"
104+
Caption ="Activate Dev Mode"
102105
OnClick ="[Event Procedure]"
103106

104-
LayoutCachedLeft =3344
105-
LayoutCachedTop =453
106-
LayoutCachedWidth =5186
107-
LayoutCachedHeight =804
107+
LayoutCachedLeft =566
108+
LayoutCachedTop =1700
109+
LayoutCachedWidth =2813
110+
LayoutCachedHeight =2261
111+
End
112+
Begin Label
113+
Visible = NotDefault
114+
OverlapFlags =85
115+
Left =2948
116+
Top =1700
117+
Width =3105
118+
Height =525
119+
FontSize =10
120+
ForeColor =0
121+
Name ="labDevMode"
122+
Caption ="You must close and reopen \015\012the current database to take effect"
123+
LayoutCachedLeft =2948
124+
LayoutCachedTop =1700
125+
LayoutCachedWidth =6053
126+
LayoutCachedHeight =2225
127+
ForeTint =100.0
108128
End
109129
End
110130
End

source/forms/frmStart.cls

Lines changed: 11 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -14,25 +14,33 @@ Option Explicit
1414
' {
1515
' "Name": "AllowSpecialKeys",
1616
' "Type": 1,
17-
' "Value": true
17+
' "Value": false
1818
' },
1919
' {
2020
' "Name": "StartUpShowDBWindow",
2121
' "Type": 1,
22-
' "Value": true
22+
' "Value": false
2323
' },
2424
' {
2525
' "Name": "StartUpForm",
2626
' "Type": 10,
2727
' "Value": "frmStart"
2828
' }
29-
29+
' ...
3030
Private Sub cmdDevMode_Click()
31+
3132
Dim db As DAO.Database
3233
Set db = CurrentDb
3334

35+
On Error Resume Next
3436
db.Properties.Delete "AllowBypassKey"
3537
db.Properties("AllowSpecialKeys").Value = True
3638
db.Properties("StartUpShowDBWindow").Value = True
39+
db.Properties("ShowDocumentTabs").Value = True
3740
db.Properties.Delete "StartUpForm"
41+
db.Properties.Delete "CustomRibbonId"
42+
43+
Me.labDevMode.Visible = True
44+
Me.cmdDevMode.Enabled = False
45+
3846
End Sub

0 commit comments

Comments
 (0)