~bkidwell/msaccess-gpg-demo

e6a636ce1b9950b14ae3d1c0a16f48ccbe79cd06 — Brendan Kidwell 11 years ago 6758856 master
fixed bad export of source code
M source/forms/About.bas => source/forms/About.bas +12 -0
@@ 1,5 1,6 @@
Version =19
VersionRequired =19
Begin Form
    PopUp = NotDefault
    Modal = NotDefault
    RecordSelectors = NotDefault


@@ 24,30 25,39 @@ VersionRequired =19
    Right =13140
    Bottom =5955
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0xcc680cc2fa67e240
    End
    Caption ="About"
    DatasheetFontName ="Arial"
    PrtMip = Begin
        0x6801000068010000680100006801000000000000201c0000e010000001000000 ,
        0x010000006801000000000000a10700000100000001000000
    End
    Begin
        Begin Label
            BackStyle =0
            FontName ="Tahoma"
        End
        Begin CommandButton
            FontSize =8
            FontWeight =400
            ForeColor =-2147483630
            FontName ="Tahoma"
        End
        Begin TextBox
            FELineBreak = NotDefault
            SpecialEffect =2
            OldBorderStyle =0
            BorderLineStyle =0
            FontName ="Tahoma"
        End
        Begin Section
            Height =4140
            BackColor =-2147483633
            Name ="Detail"
            Begin
                Begin Label
                    OverlapFlags =85
                    Left =120
                    Top =120


@@ 64,6 74,7 @@ VersionRequired =19
                        "his application however you wish, but be sure to read and respect any license in"
                        "formation you may find at the top of each module."
                End
                Begin CommandButton
                    Default = NotDefault
                    Cancel = NotDefault
                    OverlapFlags =85


@@ 75,6 86,7 @@ VersionRequired =19
                    Caption ="OK"
                    OnClick ="[Event Procedure]"
                End
                Begin Label
                    FontUnderline = NotDefault
                    OverlapFlags =85
                    Left =120

M source/forms/Addresses.bas => source/forms/Addresses.bas +58 -0
@@ 1,5 1,6 @@
Version =19
VersionRequired =19
Begin Form
    AutoCenter = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0


@@ 16,71 17,92 @@ VersionRequired =19
    Right =9660
    Bottom =5880
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0x5f6d5044fb67e240
    End
    RecordSource ="addresses"
    Caption ="Addresses"
    DatasheetFontName ="Arial"
    Begin
        Begin Label
            BackStyle =0
            BackColor =-2147483633
            ForeColor =-2147483630
        End
        Begin Rectangle
            SpecialEffect =3
            BackStyle =0
        End
        Begin Image
            BackStyle =0
            OldBorderStyle =0
            PictureAlignment =2
        End
        Begin CommandButton
            FontSize =8
            FontWeight =400
            FontName ="MS Sans Serif"
        End
        Begin OptionButton
            SpecialEffect =2
            LabelX =230
            LabelY =-30
        End
        Begin CheckBox
            SpecialEffect =2
            LabelX =230
            LabelY =-30
        End
        Begin OptionGroup
            SpecialEffect =3
        End
        Begin BoundObjectFrame
            SpecialEffect =2
            OldBorderStyle =0
            BackStyle =0
        End
        Begin TextBox
            FELineBreak = NotDefault
            SpecialEffect =2
            BackColor =-2147483643
            ForeColor =-2147483640
        End
        Begin ListBox
            SpecialEffect =2
            BackColor =-2147483643
            ForeColor =-2147483640
        End
        Begin ComboBox
            SpecialEffect =2
            BackColor =-2147483643
            ForeColor =-2147483640
        End
        Begin Subform
            SpecialEffect =2
        End
        Begin UnboundObjectFrame
            SpecialEffect =2
            OldBorderStyle =1
        End
        Begin ToggleButton
            FontSize =8
            FontWeight =400
            FontName ="MS Sans Serif"
        End
        Begin Tab
            BackStyle =0
        End
        Begin FormHeader
            Height =0
            BackColor =-2147483633
            Name ="FormHeader"
        End
        Begin Section
            Height =4296
            BackColor =-2147483633
            Name ="Detail"
            Begin
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1500


@@ 89,6 111,8 @@ VersionRequired =19
                    ColumnWidth =2568
                    Name ="LastName"
                    ControlSource ="LastName"
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =60
                            Top =120


@@ 99,6 123,7 @@ VersionRequired =19
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1500


@@ 108,6 133,8 @@ VersionRequired =19
                    TabIndex =1
                    Name ="FirstName"
                    ControlSource ="FirstName"
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =60
                            Top =480


@@ 118,6 145,7 @@ VersionRequired =19
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1500


@@ 127,6 155,8 @@ VersionRequired =19
                    TabIndex =2
                    Name ="Street"
                    ControlSource ="Street"
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =60
                            Top =840


@@ 137,6 167,7 @@ VersionRequired =19
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1500


@@ 146,6 177,8 @@ VersionRequired =19
                    TabIndex =3
                    Name ="City"
                    ControlSource ="City"
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =60
                            Top =1200


@@ 156,6 189,7 @@ VersionRequired =19
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1500


@@ 165,6 199,8 @@ VersionRequired =19
                    TabIndex =4
                    Name ="State"
                    ControlSource ="State"
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =60
                            Top =1560


@@ 175,6 211,7 @@ VersionRequired =19
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =3060


@@ 185,6 222,8 @@ VersionRequired =19
                    Name ="Zip"
                    ControlSource ="Zip"
                    InputMask ="00000C####"
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =2700
                            Top =1560


@@ 195,6 234,7 @@ VersionRequired =19
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1500


@@ 204,6 244,8 @@ VersionRequired =19
                    TabIndex =6
                    Name ="Email"
                    ControlSource ="Email"
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =60
                            Top =1920


@@ 214,6 256,7 @@ VersionRequired =19
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1500


@@ 223,6 266,8 @@ VersionRequired =19
                    TabIndex =7
                    Name ="Phone"
                    ControlSource ="Phone"
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =60
                            Top =2280


@@ 233,6 278,7 @@ VersionRequired =19
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1500


@@ 243,6 289,8 @@ VersionRequired =19
                    Name ="Birthday"
                    ControlSource ="Birthday"
                    Format ="Short Date"
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =60
                            Top =2640


@@ 253,6 301,7 @@ VersionRequired =19
                        End
                    End
                End
                Begin TextBox
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    OverlapFlags =85


@@ 265,6 314,8 @@ VersionRequired =19
                    TabIndex =10
                    Name ="Comments"
                    ControlSource ="Comments"
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =60
                            Top =3000


@@ 275,6 326,7 @@ VersionRequired =19
                        End
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =2760
                    Top =2640


@@ 284,6 336,7 @@ VersionRequired =19
                    Name ="cmdBirthdayCal"
                    OnClick ="[Event Procedure]"
                    OnEnter ="[Event Procedure]"
                    PictureData = Begin
                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,


@@ 301,11 354,13 @@ VersionRequired =19
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000
                    End
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                        0xffffff0000000000
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    SpecialEffect =3
                    OverlapFlags =85


@@ 318,6 373,8 @@ VersionRequired =19
                    Name ="RecordCreated"
                    ControlSource ="RecordCreated"
                    Format ="General Date"
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =60
                            Top =3960


@@ 330,6 387,7 @@ VersionRequired =19
                End
            End
        End
        Begin FormFooter
            Height =0
            BackColor =-2147483633
            Name ="FormFooter"

M source/forms/DatePicker.bas => source/forms/DatePicker.bas +68 -0
@@ 1,5 1,6 @@
Version =19
VersionRequired =19
Begin Form
    PopUp = NotDefault
    Modal = NotDefault
    RecordSelectors = NotDefault


@@ 24,36 25,48 @@ VersionRequired =19
    Right =4128
    Bottom =5916
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0xf611209a7160e240
    End
    Caption ="Calendar"
    OnOpen ="[Event Procedure]"
    DatasheetFontName ="Arial"
    PrtMip = Begin
        0xa0050000a0050000a0050000a005000000000000201c0000e010000001000000 ,
        0x010000006801000000000000a10700000100000001000000
    End
    OnActivate ="[Event Procedure]"
    OnLoad ="[Event Procedure]"
    Begin
        Begin Label
            BackStyle =0
        End
        Begin Rectangle
            SpecialEffect =3
            BackStyle =0
        End
        Begin CommandButton
            FontSize =8
            FontWeight =400
            ForeColor =-2147483630
            FontName ="MS Sans Serif"
        End
        Begin TextBox
            SpecialEffect =2
            OldBorderStyle =0
        End
        Begin ListBox
            SpecialEffect =2
        End
        Begin ComboBox
            SpecialEffect =2
        End
        Begin Section
            Height =4380
            BackColor =-2147483633
            Name ="Detail"
            Begin
                Begin ComboBox
                    LimitToList = NotDefault
                    RowSourceTypeInt =1
                    OverlapFlags =85


@@ 72,6 85,7 @@ VersionRequired =19
                    AfterUpdate ="[Event Procedure]"
                    ControlTipText ="Month"
                End
                Begin CommandButton
                    AutoRepeat = NotDefault
                    OverlapFlags =85
                    Left =2520


@@ 84,6 98,7 @@ VersionRequired =19
                    OnClick ="[Event Procedure]"
                    ControlTipText ="Click or click and hold to go forward by month."
                End
                Begin CommandButton
                    AutoRepeat = NotDefault
                    OverlapFlags =85
                    Left =660


@@ 96,6 111,7 @@ VersionRequired =19
                    OnClick ="[Event Procedure]"
                    ControlTipText ="Click or click and hold to go back by month."
                End
                Begin CommandButton
                    AutoRepeat = NotDefault
                    OverlapFlags =85
                    Left =2520


@@ 108,6 124,7 @@ VersionRequired =19
                    OnClick ="[Event Procedure]"
                    ControlTipText ="Click or click and hold to go forward by year."
                End
                Begin CommandButton
                    AutoRepeat = NotDefault
                    OverlapFlags =85
                    Left =660


@@ 119,6 136,7 @@ VersionRequired =19
                    OnClick ="[Event Procedure]"
                    ControlTipText ="Click or click and hold to go back by year."
                End
                Begin TextBox
                    OverlapFlags =85
                    Left =1020
                    Top =120


@@ 129,6 147,7 @@ VersionRequired =19
                    AfterUpdate ="[Event Procedure]"
                    ControlTipText ="Year"
                End
                Begin Label
                    OverlapFlags =93
                    TextAlign =2
                    Left =120


@@ 138,6 157,7 @@ VersionRequired =19
                    Name ="Label19"
                    Caption ="Sun"
                End
                Begin Label
                    OverlapFlags =95
                    TextAlign =2
                    Left =600


@@ 147,6 167,7 @@ VersionRequired =19
                    Name ="Label20"
                    Caption ="Mon"
                End
                Begin Label
                    OverlapFlags =95
                    TextAlign =2
                    Left =1080


@@ 156,6 177,7 @@ VersionRequired =19
                    Name ="Label21"
                    Caption ="Tue"
                End
                Begin Label
                    OverlapFlags =95
                    TextAlign =2
                    Left =1560


@@ 165,6 187,7 @@ VersionRequired =19
                    Name ="Label22"
                    Caption ="Wed"
                End
                Begin Label
                    OverlapFlags =95
                    TextAlign =2
                    Left =2040


@@ 174,6 197,7 @@ VersionRequired =19
                    Name ="Label23"
                    Caption ="Thu"
                End
                Begin Label
                    OverlapFlags =95
                    TextAlign =2
                    Left =2520


@@ 183,6 207,7 @@ VersionRequired =19
                    Name ="Label24"
                    Caption ="Fri"
                End
                Begin Label
                    OverlapFlags =87
                    TextAlign =2
                    Left =3000


@@ 192,6 217,7 @@ VersionRequired =19
                    Name ="Label25"
                    Caption ="Sat"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =120
                    Top =1260


@@ 202,6 228,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =600
                    Top =1260


@@ 212,6 239,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =1080
                    Top =1260


@@ 222,6 250,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =1560
                    Top =1260


@@ 232,6 261,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =2040
                    Top =1260


@@ 242,6 272,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =2520
                    Top =1260


@@ 252,6 283,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =3000
                    Top =1260


@@ 262,6 294,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =120
                    Top =1680


@@ 272,6 305,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =600
                    Top =1680


@@ 282,6 316,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =1080
                    Top =1680


@@ 292,6 327,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =1560
                    Top =1680


@@ 302,6 338,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =2040
                    Top =1680


@@ 312,6 349,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =2520
                    Top =1680


@@ 322,6 360,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =3000
                    Top =1680


@@ 332,6 371,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =120
                    Top =2100


@@ 342,6 382,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =600
                    Top =2100


@@ 352,6 393,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =1080
                    Top =2100


@@ 362,6 404,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =1560
                    Top =2100


@@ 372,6 415,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =2040
                    Top =2100


@@ 382,6 426,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =2520
                    Top =2100


@@ 392,6 437,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =3000
                    Top =2100


@@ 402,6 448,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =120
                    Top =2520


@@ 412,6 459,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =600
                    Top =2520


@@ 422,6 470,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =1080
                    Top =2520


@@ 432,6 481,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =1560
                    Top =2520


@@ 442,6 492,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =2040
                    Top =2520


@@ 452,6 503,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =2520
                    Top =2520


@@ 462,6 514,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =3000
                    Top =2520


@@ 472,6 525,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =120
                    Top =2940


@@ 482,6 536,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =600
                    Top =2940


@@ 492,6 547,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =1080
                    Top =2940


@@ 502,6 558,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =1560
                    Top =2940


@@ 512,6 569,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =2040
                    Top =2940


@@ 522,6 580,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =2520
                    Top =2940


@@ 532,6 591,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =3000
                    Top =2940


@@ 542,6 602,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =120
                    Top =3360


@@ 552,6 613,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =600
                    Top =3360


@@ 562,6 624,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =1080
                    Top =3360


@@ 572,6 635,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =1560
                    Top =3360


@@ 582,6 646,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =2040
                    Top =3360


@@ 592,6 657,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =2520
                    Top =3360


@@ 602,6 668,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =3000
                    Top =3360


@@ 612,6 679,7 @@ VersionRequired =19
                    Caption ="1"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    Cancel = NotDefault
                    OverlapFlags =85
                    Left =2700

M source/forms/Switchboard.bas => source/forms/Switchboard.bas +40 -0
@@ 1,5 1,6 @@
Version =19
VersionRequired =19
Begin Form
    AllowFilters = NotDefault
    RecordSelectors = NotDefault
    ShortcutMenu = NotDefault


@@ 26,6 27,7 @@ VersionRequired =19
    Bottom =5760
    DatasheetGridlinesColor =12632256
    Filter ="[ItemNumber] = 0 AND [Argument] = 'Default' "
    RecSrcDt = Begin
        0xf9fea4ddd667e240
    End
    RecordSource ="Switchboard Items"


@@ 33,27 35,36 @@ VersionRequired =19
    OnCurrent ="[Event Procedure]"
    OnOpen ="[Event Procedure]"
    DatasheetFontName ="Arial"
    PrtMip = Begin
        0xa0050000a0050000a0050000a005000000000000201c0000e010000001000000 ,
        0x010000006801000000000000a10700000100000001000000
    End
    Begin
        Begin Label
            BackStyle =0
            FontName ="Tahoma"
        End
        Begin Rectangle
            SpecialEffect =3
            BackStyle =0
        End
        Begin Image
            BackStyle =0
            OldBorderStyle =0
            PictureAlignment =2
        End
        Begin CommandButton
            FontSize =8
            FontWeight =400
            ForeColor =-2147483630
            FontName ="Tahoma"
        End
        Begin Section
            Height =4770
            BackColor =-2147483633
            Name ="Detail"
            Begin
                Begin Rectangle
                    SpecialEffect =0
                    BackStyle =1
                    OldBorderStyle =0


@@ 64,6 75,7 @@ VersionRequired =19
                    BackColor =8421504
                    Name ="VerticalShadowBox"
                End
                Begin Label
                    OverlapFlags =93
                    TextFontFamily =18
                    Left =2997


@@ 76,6 88,7 @@ VersionRequired =19
                    Caption ="Address Book Database"
                    FontName ="Times New Roman"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =3030
                    Top =1305


@@ 86,6 99,8 @@ VersionRequired =19
                    Name ="Option1"
                    OnClick ="=HandleButtonClick(1)"
                    FontName ="System"
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =3390
                            Top =1305


@@ 98,6 113,7 @@ VersionRequired =19
                        End
                    End
                End
                Begin CommandButton
                    Visible = NotDefault
                    OverlapFlags =85
                    Left =3030


@@ 110,6 126,8 @@ VersionRequired =19
                    Name ="Option2"
                    OnClick ="=HandleButtonClick(2)"
                    FontName ="System"
                    Begin
                        Begin Label
                            Visible = NotDefault
                            OverlapFlags =85
                            Left =3390


@@ 123,6 141,7 @@ VersionRequired =19
                        End
                    End
                End
                Begin CommandButton
                    Visible = NotDefault
                    OverlapFlags =85
                    Left =3030


@@ 135,6 154,8 @@ VersionRequired =19
                    Name ="Option3"
                    OnClick ="=HandleButtonClick(3)"
                    FontName ="System"
                    Begin
                        Begin Label
                            Visible = NotDefault
                            OverlapFlags =85
                            Left =3390


@@ 148,6 169,7 @@ VersionRequired =19
                        End
                    End
                End
                Begin CommandButton
                    Visible = NotDefault
                    OverlapFlags =85
                    Left =3030


@@ 160,6 182,8 @@ VersionRequired =19
                    Name ="Option4"
                    OnClick ="=HandleButtonClick(4)"
                    FontName ="System"
                    Begin
                        Begin Label
                            Visible = NotDefault
                            OverlapFlags =85
                            Left =3390


@@ 173,6 197,7 @@ VersionRequired =19
                        End
                    End
                End
                Begin CommandButton
                    Visible = NotDefault
                    OverlapFlags =85
                    Left =3030


@@ 185,6 210,8 @@ VersionRequired =19
                    Name ="Option5"
                    OnClick ="=HandleButtonClick(5)"
                    FontName ="System"
                    Begin
                        Begin Label
                            Visible = NotDefault
                            OverlapFlags =85
                            Left =3390


@@ 198,6 225,7 @@ VersionRequired =19
                        End
                    End
                End
                Begin CommandButton
                    Visible = NotDefault
                    OverlapFlags =85
                    Left =3030


@@ 210,6 238,8 @@ VersionRequired =19
                    Name ="Option6"
                    OnClick ="=HandleButtonClick(6)"
                    FontName ="System"
                    Begin
                        Begin Label
                            Visible = NotDefault
                            OverlapFlags =85
                            Left =3390


@@ 223,6 253,7 @@ VersionRequired =19
                        End
                    End
                End
                Begin CommandButton
                    Visible = NotDefault
                    OverlapFlags =85
                    Left =3030


@@ 235,6 266,8 @@ VersionRequired =19
                    Name ="Option7"
                    OnClick ="=HandleButtonClick(7)"
                    FontName ="System"
                    Begin
                        Begin Label
                            Visible = NotDefault
                            OverlapFlags =85
                            Left =3390


@@ 248,6 281,7 @@ VersionRequired =19
                        End
                    End
                End
                Begin CommandButton
                    Visible = NotDefault
                    OverlapFlags =85
                    Left =3030


@@ 260,6 294,8 @@ VersionRequired =19
                    Name ="Option8"
                    OnClick ="=HandleButtonClick(8)"
                    FontName ="System"
                    Begin
                        Begin Label
                            Visible = NotDefault
                            OverlapFlags =85
                            Left =3390


@@ 273,6 309,7 @@ VersionRequired =19
                        End
                    End
                End
                Begin Rectangle
                    SpecialEffect =0
                    BackStyle =1
                    OverlapFlags =223


@@ 282,6 319,7 @@ VersionRequired =19
                    BorderColor =8421376
                    Name ="HorizontalHeaderBox"
                End
                Begin Label
                    OverlapFlags =215
                    TextFontFamily =18
                    Left =2955


@@ 294,6 332,7 @@ VersionRequired =19
                    Caption ="Address Book Database"
                    FontName ="Times New Roman"
                End
                Begin Line
                    OverlapFlags =95
                    SpecialEffect =1
                    Left =2685


@@ 301,6 340,7 @@ VersionRequired =19
                    Width =4698
                    Name ="HorizontalDividingLine"
                End
                Begin Image
                    BackStyle =1
                    SizeMode =1
                    Width =2685

M source/forms/Upload.bas => source/forms/Upload.bas +11 -0
@@ 1,5 1,6 @@
Version =19
VersionRequired =19
Begin Form
    PopUp = NotDefault
    Modal = NotDefault
    RecordSelectors = NotDefault


@@ 24,25 25,33 @@ VersionRequired =19
    Right =9660
    Bottom =4095
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0xbe7bd062f767e240
    End
    Caption ="Upload Data to FTP Server"
    DatasheetFontName ="Arial"
    Begin
        Begin Label
            BackStyle =0
            FontName ="Tahoma"
        End
        Begin CommandButton
            FontSize =8
            FontWeight =400
            ForeColor =-2147483630
            FontName ="Tahoma"
        End
        Begin TextBox
            FELineBreak = NotDefault
            SpecialEffect =2
            OldBorderStyle =0
            FontName ="Tahoma"
        End
        Begin Section
            BackColor =-2147483633
            Name ="Detail"
            Begin
                Begin Label
                    OverlapFlags =85
                    Left =120
                    Top =120


@@ 52,6 61,7 @@ VersionRequired =19
                    Caption ="This function will upload the the data (contained in the file data.mdb) to the F"
                        "TP server. Please be sure you are connected to the Internet before you proceed."
                End
                Begin CommandButton
                    Default = NotDefault
                    OverlapFlags =85
                    AccessKey =71


@@ 63,6 73,7 @@ VersionRequired =19
                    Caption ="&Go"
                    OnClick ="[Event Procedure]"
                End
                Begin CommandButton
                    Cancel = NotDefault
                    OverlapFlags =85
                    Left =3480

M source/macros/autoexec.bas => source/macros/autoexec.bas +5 -0
@@ 1,8 1,12 @@
Version =196611
ColumnsShown =0
Begin
End
Begin
End
Begin
End
Begin
    Action ="OpenForm"
    Comment ="show About"
    Argument ="About"


@@ 12,6 16,7 @@ End
    Argument ="-1"
    Argument ="0"
End
Begin
    Action ="OpenForm"
    Comment ="show Switchboard"
    Argument ="Switchboard"