Skip to content

Commit 0e554f1

Browse files
josef-poetzljosef-poetzl
committed
add test procedures
1 parent 5286fc6 commit 0e554f1

File tree

6 files changed

+272
-3
lines changed

6 files changed

+272
-3
lines changed

‎source/dbs-properties.json‎

Lines changed: 16 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -60,6 +60,10 @@
6060
"Value": "",
6161
"Type": 12
6262
},
63+
"Continuous Form Record Navigation Keys": {
64+
"Value": 0,
65+
"Type": 4
66+
},
6367
"DesignMasterID": {
6468
"Value": "",
6569
"Type": 15
@@ -100,6 +104,10 @@
100104
"Value": 0,
101105
"Type": 4
102106
},
107+
"Option to enable Monaco SQL Editor": {
108+
"Value": 1,
109+
"Type": 4
110+
},
103111
"Picture Property Storage Format": {
104112
"Value": 0,
105113
"Type": 4
@@ -168,6 +176,14 @@
168176
"Value": true,
169177
"Type": 1
170178
},
179+
"Use BigInt for linking and importing data": {
180+
"Value": 0,
181+
"Type": 4
182+
},
183+
"Use DateTime2 for linking and importing data": {
184+
"Value": 0,
185+
"Type": 4
186+
},
171187
"Use Microsoft Access 2007 compatible cache": {
172188
"Value": 0,
173189
"Type": 4

‎source/forms/frmStart.bas‎

Lines changed: 48 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -9,9 +9,9 @@ Begin Form
99
GridY =10
1010
Width =6994
1111
DatasheetFontHeight =11
12-
ItemSuffix =1
13-
Right =14700
14-
Bottom =11865
12+
ItemSuffix =2
13+
Right =22843
14+
Bottom =11091
1515
RecSrcDt = Begin
1616
0xfd5e93f4705de640
1717
End
@@ -42,6 +42,34 @@ Begin Form
4242
GridlineThemeColorIndex =1
4343
GridlineShade =65.0
4444
End
45+
Begin CommandButton
46+
Width =1701
47+
Height =283
48+
FontSize =11
49+
FontWeight =400
50+
FontName ="Calibri"
51+
ForeThemeColorIndex =0
52+
ForeTint =75.0
53+
GridlineThemeColorIndex =1
54+
GridlineShade =65.0
55+
UseTheme =1
56+
Shape =1
57+
Gradient =12
58+
BackThemeColorIndex =4
59+
BackTint =60.0
60+
BorderLineStyle =0
61+
BorderThemeColorIndex =4
62+
BorderTint =60.0
63+
ThemeFontIndex =1
64+
HoverThemeColorIndex =4
65+
HoverTint =40.0
66+
PressedThemeColorIndex =4
67+
PressedShade =75.0
68+
HoverForeThemeColorIndex =0
69+
HoverForeTint =75.0
70+
PressedForeThemeColorIndex =0
71+
PressedForeTint =75.0
72+
End
4573
Begin Section
4674
Height =5952
4775
Name ="Detail"
@@ -63,7 +91,24 @@ Begin Form
6391
LayoutCachedWidth =2194
6492
LayoutCachedHeight =1448
6593
End
94+
Begin CommandButton
95+
OverlapFlags =85
96+
Left =3344
97+
Top =453
98+
Width =1842
99+
Height =351
100+
Name ="cmdDevMode"
101+
Caption ="Aktivate Dev Mode"
102+
OnClick ="[Event Procedure]"
103+
104+
LayoutCachedLeft =3344
105+
LayoutCachedTop =453
106+
LayoutCachedWidth =5186
107+
LayoutCachedHeight =804
108+
End
66109
End
67110
End
68111
End
69112
End
113+
CodeBehindForm
114+
' See "frmStart.cls"

‎source/forms/frmStart.cls‎

Lines changed: 38 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,38 @@
1+
Attribute VB_GlobalNameSpace = False
2+
Attribute VB_Creatable = True
3+
Attribute VB_PredeclaredId = True
4+
Attribute VB_Exposed = False
5+
Option Compare Database
6+
Option Explicit
7+
8+
'"DatabaseProperties": [
9+
' {
10+
' "Name": "AllowBypassKey",
11+
' "Type": 1,
12+
' "Value": false
13+
' },
14+
' {
15+
' "Name": "AllowSpecialKeys",
16+
' "Type": 1,
17+
' "Value": true
18+
' },
19+
' {
20+
' "Name": "StartUpShowDBWindow",
21+
' "Type": 1,
22+
' "Value": true
23+
' },
24+
' {
25+
' "Name": "StartUpForm",
26+
' "Type": 10,
27+
' "Value": "frmStart"
28+
' }
29+
30+
Private Sub cmdDevMode_Click()
31+
Dim db As DAO.Database
32+
Set db = CurrentDb
33+
34+
db.Properties.Delete "AllowBypassKey"
35+
db.Properties("AllowSpecialKeys").Value = True
36+
db.Properties("StartUpShowDBWindow").Value = True
37+
db.Properties.Delete "StartUpForm"
38+
End Sub

‎source/modules/modTestProcedures.bas‎

Lines changed: 28 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,28 @@
1+
Attribute VB_Name = "modTestProcedures"
2+
Option Compare Database
3+
Option Explicit
4+
5+
Public Sub TestProcedure()
6+
SaveTestInfo "TestProcedure"
7+
End Sub
8+
9+
Public Sub TestProcedure2(ByVal T As String, ByVal N As Long)
10+
SaveTestInfo "TestProcedure2", T, N
11+
End Sub
12+
13+
Private Sub SaveTestInfo(ByVal ProcName As String, Optional ByVal T As Variant, Optional ByVal N As Variant)
14+
15+
With CurrentDb.OpenRecordset("tabTest", dbOpenTable, dbAppendOnly)
16+
.AddNew
17+
.Fields("ProcName").Value = ProcName
18+
If Not IsMissing(T) Then
19+
.Fields("T").Value = T
20+
End If
21+
If Not IsMissing(N) Then
22+
.Fields("N").Value = N
23+
End If
24+
.Update
25+
.Close
26+
End With
27+
28+
End Sub

‎source/tbldefs/tabTest.sql‎

Lines changed: 7 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,7 @@
1+
CREATE TABLE [tabTest] (
2+
[id] AUTOINCREMENT CONSTRAINT [PrimaryKey] PRIMARY KEY UNIQUE NOT NULL,
3+
[RecDate] DATETIME,
4+
[ProcName] VARCHAR (255),
5+
[T] VARCHAR (255),
6+
[N] LONG
7+
)

‎source/tbldefs/tabTest.xml‎

Lines changed: 135 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,135 @@
1+
<?xml version="1.0"?>
2+
<xsd:schema xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:od="urn:schemas-microsoft-com:officedata">
3+
<xsd:element name="dataroot">
4+
<xsd:complexType>
5+
<xsd:sequence>
6+
<xsd:element ref="tabTest" minOccurs="0" maxOccurs="unbounded"></xsd:element>
7+
</xsd:sequence>
8+
<xsd:attribute name="generated" type="xsd:dateTime"></xsd:attribute>
9+
</xsd:complexType>
10+
</xsd:element>
11+
<xsd:element name="tabTest">
12+
<xsd:annotation>
13+
<xsd:appinfo>
14+
<od:index index-name="id" index-key="id " primary="no" unique="no" clustered="no" order="asc"></od:index>
15+
<od:index index-name="PrimaryKey" index-key="id " primary="yes" unique="yes" clustered="no" order="asc"></od:index>
16+
<od:tableProperty name="Orientation" type="2" value="0"></od:tableProperty>
17+
<od:tableProperty name="OrderByOn" type="1" value="0"></od:tableProperty>
18+
<od:tableProperty name="DefaultView" type="2" value="2"></od:tableProperty>
19+
<od:tableProperty name="DisplayViewsOnSharePointSite" type="2" value="1"></od:tableProperty>
20+
<od:tableProperty name="TotalsRow" type="1" value="0"></od:tableProperty>
21+
<od:tableProperty name="FilterOnLoad" type="1" value="0"></od:tableProperty>
22+
<od:tableProperty name="OrderByOnLoad" type="1" value="1"></od:tableProperty>
23+
<od:tableProperty name="HideNewField" type="1" value="0"></od:tableProperty>
24+
<od:tableProperty name="BackTint" type="6" value="100"></od:tableProperty>
25+
<od:tableProperty name="BackShade" type="6" value="100"></od:tableProperty>
26+
<od:tableProperty name="ThemeFontIndex" type="4" value="1"></od:tableProperty>
27+
<od:tableProperty name="AlternateBackThemeColorIndex" type="4" value="1"></od:tableProperty>
28+
<od:tableProperty name="AlternateBackTint" type="6" value="100"></od:tableProperty>
29+
<od:tableProperty name="AlternateBackShade" type="6" value="95"></od:tableProperty>
30+
<od:tableProperty name="ReadOnlyWhenDisconnected" type="1" value="0"></od:tableProperty>
31+
<od:tableProperty name="DatasheetGridlinesThemeColorIndex" type="4" value="3"></od:tableProperty>
32+
<od:tableProperty name="DatasheetForeThemeColorIndex" type="4" value="0"></od:tableProperty>
33+
</xsd:appinfo>
34+
</xsd:annotation>
35+
<xsd:complexType>
36+
<xsd:sequence>
37+
<xsd:element name="id" minOccurs="1" od:jetType="autonumber" od:sqlSType="int" od:autoUnique="yes" od:nonNullable="yes" type="xsd:int">
38+
<xsd:annotation>
39+
<xsd:appinfo>
40+
<od:fieldProperty name="ColumnWidth" type="3" value="-1"></od:fieldProperty>
41+
<od:fieldProperty name="ColumnOrder" type="3" value="1"></od:fieldProperty>
42+
<od:fieldProperty name="ColumnHidden" type="1" value="0"></od:fieldProperty>
43+
<od:fieldProperty name="TextAlign" type="2" value="0"></od:fieldProperty>
44+
<od:fieldProperty name="AggregateType" type="4" value="-1"></od:fieldProperty>
45+
<od:fieldProperty name="ResultType" type="2" value="0"></od:fieldProperty>
46+
<od:fieldProperty name="CurrencyLCID" type="4" value="0"></od:fieldProperty>
47+
</xsd:appinfo>
48+
</xsd:annotation>
49+
</xsd:element>
50+
<xsd:element name="RecDate" minOccurs="0" od:jetType="datetime" od:sqlSType="datetime" type="xsd:dateTime">
51+
<xsd:annotation>
52+
<xsd:appinfo>
53+
<od:fieldProperty name="ColumnWidth" type="3" value="2083"></od:fieldProperty>
54+
<od:fieldProperty name="ColumnOrder" type="3" value="0"></od:fieldProperty>
55+
<od:fieldProperty name="ColumnHidden" type="1" value="0"></od:fieldProperty>
56+
<od:fieldProperty name="DefaultValue" type="12" value="Now()"></od:fieldProperty>
57+
<od:fieldProperty name="Required" type="1" value="0"></od:fieldProperty>
58+
<od:fieldProperty name="IMEMode" type="2" value="0"></od:fieldProperty>
59+
<od:fieldProperty name="IMESentenceMode" type="2" value="3"></od:fieldProperty>
60+
<od:fieldProperty name="TextAlign" type="2" value="0"></od:fieldProperty>
61+
<od:fieldProperty name="AggregateType" type="4" value="-1"></od:fieldProperty>
62+
<od:fieldProperty name="ShowDatePicker" type="3" value="1"></od:fieldProperty>
63+
<od:fieldProperty name="ResultType" type="2" value="0"></od:fieldProperty>
64+
<od:fieldProperty name="CurrencyLCID" type="4" value="0"></od:fieldProperty>
65+
</xsd:appinfo>
66+
</xsd:annotation>
67+
</xsd:element>
68+
<xsd:element name="ProcName" minOccurs="0" od:jetType="text" od:sqlSType="nvarchar">
69+
<xsd:annotation>
70+
<xsd:appinfo>
71+
<od:fieldProperty name="ColumnWidth" type="3" value="1997"></od:fieldProperty>
72+
<od:fieldProperty name="ColumnOrder" type="3" value="0"></od:fieldProperty>
73+
<od:fieldProperty name="ColumnHidden" type="1" value="0"></od:fieldProperty>
74+
<od:fieldProperty name="Required" type="1" value="0"></od:fieldProperty>
75+
<od:fieldProperty name="AllowZeroLength" type="1" value="1"></od:fieldProperty>
76+
<od:fieldProperty name="DisplayControl" type="3" value="109"></od:fieldProperty>
77+
<od:fieldProperty name="IMEMode" type="2" value="0"></od:fieldProperty>
78+
<od:fieldProperty name="IMESentenceMode" type="2" value="3"></od:fieldProperty>
79+
<od:fieldProperty name="UnicodeCompression" type="1" value="1"></od:fieldProperty>
80+
<od:fieldProperty name="TextAlign" type="2" value="0"></od:fieldProperty>
81+
<od:fieldProperty name="AggregateType" type="4" value="-1"></od:fieldProperty>
82+
<od:fieldProperty name="ResultType" type="2" value="0"></od:fieldProperty>
83+
<od:fieldProperty name="CurrencyLCID" type="4" value="0"></od:fieldProperty>
84+
</xsd:appinfo>
85+
</xsd:annotation>
86+
<xsd:simpleType>
87+
<xsd:restriction base="xsd:string">
88+
<xsd:maxLength value="255"></xsd:maxLength>
89+
</xsd:restriction>
90+
</xsd:simpleType>
91+
</xsd:element>
92+
<xsd:element name="T" minOccurs="0" od:jetType="text" od:sqlSType="nvarchar">
93+
<xsd:annotation>
94+
<xsd:appinfo>
95+
<od:fieldProperty name="ColumnWidth" type="3" value="-1"></od:fieldProperty>
96+
<od:fieldProperty name="ColumnOrder" type="3" value="0"></od:fieldProperty>
97+
<od:fieldProperty name="ColumnHidden" type="1" value="0"></od:fieldProperty>
98+
<od:fieldProperty name="Required" type="1" value="0"></od:fieldProperty>
99+
<od:fieldProperty name="AllowZeroLength" type="1" value="1"></od:fieldProperty>
100+
<od:fieldProperty name="DisplayControl" type="3" value="109"></od:fieldProperty>
101+
<od:fieldProperty name="IMEMode" type="2" value="0"></od:fieldProperty>
102+
<od:fieldProperty name="IMESentenceMode" type="2" value="3"></od:fieldProperty>
103+
<od:fieldProperty name="UnicodeCompression" type="1" value="1"></od:fieldProperty>
104+
<od:fieldProperty name="TextAlign" type="2" value="0"></od:fieldProperty>
105+
<od:fieldProperty name="AggregateType" type="4" value="-1"></od:fieldProperty>
106+
<od:fieldProperty name="ResultType" type="2" value="0"></od:fieldProperty>
107+
<od:fieldProperty name="CurrencyLCID" type="4" value="0"></od:fieldProperty>
108+
</xsd:appinfo>
109+
</xsd:annotation>
110+
<xsd:simpleType>
111+
<xsd:restriction base="xsd:string">
112+
<xsd:maxLength value="255"></xsd:maxLength>
113+
</xsd:restriction>
114+
</xsd:simpleType>
115+
</xsd:element>
116+
<xsd:element name="N" minOccurs="0" od:jetType="longinteger" od:sqlSType="int" type="xsd:int">
117+
<xsd:annotation>
118+
<xsd:appinfo>
119+
<od:fieldProperty name="ColumnWidth" type="3" value="-1"></od:fieldProperty>
120+
<od:fieldProperty name="ColumnOrder" type="3" value="0"></od:fieldProperty>
121+
<od:fieldProperty name="ColumnHidden" type="1" value="0"></od:fieldProperty>
122+
<od:fieldProperty name="DecimalPlaces" type="2" value="255"></od:fieldProperty>
123+
<od:fieldProperty name="Required" type="1" value="0"></od:fieldProperty>
124+
<od:fieldProperty name="DisplayControl" type="3" value="109"></od:fieldProperty>
125+
<od:fieldProperty name="TextAlign" type="2" value="0"></od:fieldProperty>
126+
<od:fieldProperty name="AggregateType" type="4" value="-1"></od:fieldProperty>
127+
<od:fieldProperty name="ResultType" type="2" value="0"></od:fieldProperty>
128+
<od:fieldProperty name="CurrencyLCID" type="4" value="0"></od:fieldProperty>
129+
</xsd:appinfo>
130+
</xsd:annotation>
131+
</xsd:element>
132+
</xsd:sequence>
133+
</xsd:complexType>
134+
</xsd:element>
135+
</xsd:schema>

0 commit comments

Comments
 (0)