windows-server-2003/net/rras/cps/pba/source/popins.frm

VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmPopInsert 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "add"
   ClientHeight    =   4290
   ClientLeft      =   720
   ClientTop       =   1530
   ClientWidth     =   7365
   Icon            =   "PopIns.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   4290
   ScaleWidth      =   7365
   ShowInTaskbar   =   0   'False
   WhatsThisButton =   -1  'True
   WhatsThisHelp   =   -1  'True
   Begin VB.CommandButton cmdOK 
      Caption         =   "ok"
      Default         =   -1  'True
      Height          =   375
      Left            =   3390
      TabIndex        =   36
      Top             =   3810
      WhatsThisHelpID =   10030
      Width           =   1170
   End
   Begin VB.CommandButton cmbclose 
      Cancel          =   -1  'True
      Caption         =   "cancel"
      Height          =   375
      Left            =   4725
      TabIndex        =   37
      Top             =   3810
      WhatsThisHelpID =   10040
      Width           =   1170
   End
   Begin VB.CommandButton cmdSave 
      Caption         =   "save"
      Height          =   375
      Left            =   6030
      TabIndex        =   38
      Top             =   3810
      WhatsThisHelpID =   10010
      Width           =   1185
   End
   Begin TabDlg.SSTab SSTab1 
      Height          =   3495
      Left            =   120
      TabIndex        =   39
      Top             =   135
      WhatsThisHelpID =   10060
      Width           =   7095
      _ExtentX        =   12515
      _ExtentY        =   6165
      _Version        =   393216
      Style           =   1
      TabHeight       =   520
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      TabCaption(0)   =   "access"
      TabPicture(0)   =   "PopIns.frx":000C
      Tab(0).ControlEnabled=   -1  'True
      Tab(0).Control(0)=   "picContainer(0)"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).ControlCount=   1
      TabCaption(1)   =   "settings"
      TabPicture(1)   =   "PopIns.frx":0028
      Tab(1).ControlEnabled=   0   'False
      Tab(1).Control(0)=   "picContainer(1)"
      Tab(1).Control(0).Enabled=   0   'False
      Tab(1).ControlCount=   1
      TabCaption(2)   =   "comments"
      TabPicture(2)   =   "PopIns.frx":0044
      Tab(2).ControlEnabled=   0   'False
      Tab(2).Control(0)=   "picContainer(2)"
      Tab(2).Control(0).Enabled=   0   'False
      Tab(2).ControlCount=   1
      Begin VB.PictureBox picContainer 
         BorderStyle     =   0  'None
         Height          =   2775
         Index           =   2
         Left            =   -74700
         ScaleHeight     =   2775
         ScaleWidth      =   6555
         TabIndex        =   35
         TabStop         =   0   'False
         Top             =   555
         Visible         =   0   'False
         Width           =   6555
         Begin VB.TextBox txtcomment 
            ForeColor       =   &H00000000&
            Height          =   2580
            Left            =   75
            MaxLength       =   256
            MultiLine       =   -1  'True
            ScrollBars      =   2  'Vertical
            TabIndex        =   27
            Top             =   45
            WhatsThisHelpID =   50000
            Width           =   6360
         End
      End
      Begin VB.PictureBox picContainer 
         BorderStyle     =   0  'None
         Height          =   2940
         Index           =   0
         Left            =   105
         ScaleHeight     =   2940
         ScaleWidth      =   6855
         TabIndex        =   32
         TabStop         =   0   'False
         Top             =   420
         Width           =   6855
         Begin VB.TextBox maskAccNo 
            Height          =   300
            HelpContextID   =   30050
            Left            =   5130
            MaxLength       =   40
            TabIndex        =   24
            Top             =   1980
            WhatsThisHelpID =   30050
            Width           =   1590
         End
         Begin VB.TextBox maskArea 
            Height          =   300
            Left            =   1710
            MaxLength       =   10
            TabIndex        =   22
            Top             =   1995
            WhatsThisHelpID =   30060
            Width           =   1290
         End
         Begin VB.ComboBox dbCmbCty 
            Height          =   315
            ItemData        =   "PopIns.frx":0060
            Left            =   1710
            List            =   "PopIns.frx":0062
            Style           =   2  'Dropdown List
            TabIndex        =   18
            Top             =   780
            WhatsThisHelpID =   30020
            Width           =   2820
         End
         Begin VB.ComboBox cmbRegion 
            Height          =   315
            ItemData        =   "PopIns.frx":0064
            Left            =   1710
            List            =   "PopIns.frx":0066
            Style           =   2  'Dropdown List
            TabIndex        =   20
            Top             =   1305
            WhatsThisHelpID =   30040
            Width           =   2820
         End
         Begin VB.ComboBox cmbstatus 
            ForeColor       =   &H00000000&
            Height          =   315
            ItemData        =   "PopIns.frx":0068
            Left            =   1710
            List            =   "PopIns.frx":006A
            Style           =   2  'Dropdown List
            TabIndex        =   26
            Top             =   2520
            WhatsThisHelpID =   30070
            Width           =   1545
         End
         Begin VB.TextBox txtcity 
            ForeColor       =   &H00000000&
            Height          =   285
            Left            =   1710
            MaxLength       =   30
            TabIndex        =   16
            Top             =   150
            WhatsThisHelpID =   30010
            Width           =   2805
         End
         Begin VB.TextBox txtid 
            BackColor       =   &H8000000F&
            ForeColor       =   &H00000000&
            Height          =   285
            HelpContextID   =   3000
            Left            =   4635
            MaxLength       =   25
            TabIndex        =   33
            TabStop         =   0   'False
            Top             =   135
            Visible         =   0   'False
            Width           =   510
         End
         Begin VB.Label Label3 
            BorderStyle     =   1  'Fixed Single
            ForeColor       =   &H000000C0&
            Height          =   255
            Left            =   4740
            TabIndex        =   34
            Top             =   1365
            Visible         =   0   'False
            Width           =   570
         End
         Begin VB.Label Label8 
            Alignment       =   2  'Center
            BackStyle       =   0  'Transparent
            BorderStyle     =   1  'Fixed Single
            ForeColor       =   &H00000000&
            Height          =   300
            Left            =   5130
            TabIndex        =   29
            Top             =   2475
            Visible         =   0   'False
            Width           =   1590
         End
         Begin VB.Label Label7 
            Alignment       =   1  'Right Justify
            Caption         =   "status"
            Height          =   255
            Left            =   3420
            TabIndex        =   28
            Top             =   2550
            Visible         =   0   'False
            Width           =   1605
         End
         Begin VB.Label StatusLabel 
            Alignment       =   1  'Right Justify
            Caption         =   "statss"
            Height          =   255
            Left            =   255
            TabIndex        =   25
            Top             =   2565
            WhatsThisHelpID =   30070
            Width           =   1350
         End
         Begin VB.Label AccessLabel 
            Alignment       =   1  'Right Justify
            Caption         =   "access num"
            Height          =   255
            Left            =   3390
            TabIndex        =   23
            Top             =   2040
            WhatsThisHelpID =   30050
            Width           =   1635
         End
         Begin VB.Label AreaLabel 
            Alignment       =   1  'Right Justify
            Caption         =   "&Area code:"
            Height          =   255
            Left            =   105
            TabIndex        =   21
            Top             =   2040
            WhatsThisHelpID =   30060
            Width           =   1515
         End
         Begin VB.Label RegionLabel 
            Alignment       =   1  'Right Justify
            Caption         =   "&Region:"
            Height          =   255
            Left            =   135
            TabIndex        =   19
            Top             =   1335
            WhatsThisHelpID =   30040
            Width           =   1455
         End
         Begin VB.Label POPLabel 
            Alignment       =   1  'Right Justify
            Caption         =   "&pop name:"
            Height          =   255
            Left            =   105
            TabIndex        =   15
            Top             =   165
            WhatsThisHelpID =   30010
            Width           =   1500
         End
         Begin VB.Label CountryLabel 
            Alignment       =   1  'Right Justify
            Caption         =   "&Country/ Dependency:"
            Height          =   480
            Left            =   135
            TabIndex        =   17
            Top             =   720
            WhatsThisHelpID =   30020
            Width           =   1470
         End
      End
      Begin VB.PictureBox picContainer 
         BorderStyle     =   0  'None
         Height          =   3015
         Index           =   1
         Left            =   -74955
         ScaleHeight     =   3015
         ScaleWidth      =   6855
         TabIndex        =   31
         TabStop         =   0   'False
         Top             =   390
         Visible         =   0   'False
         Width           =   6855
         Begin VB.Frame FlagFrame 
            Caption         =   "settings"
            Height          =   3015
            Left            =   240
            TabIndex        =   0
            Top             =   0
            WhatsThisHelpID =   40030
            Width           =   2655
            Begin VB.CheckBox FlagCheck 
               Caption         =   "cust 2"
               Height          =   255
               Index           =   7
               Left            =   240
               TabIndex        =   8
               Top             =   2640
               WhatsThisHelpID =   40090
               Width           =   2295
            End
            Begin VB.CheckBox FlagCheck 
               Caption         =   "sur"
               Height          =   255
               Index           =   6
               Left            =   240
               TabIndex        =   3
               Top             =   960
               WhatsThisHelpID =   40060
               Width           =   2295
            End
            Begin VB.CheckBox FlagCheck 
               Caption         =   "multi"
               Height          =   255
               Index           =   5
               Left            =   240
               TabIndex        =   6
               Top             =   1965
               WhatsThisHelpID =   40100
               Width           =   2295
            End
            Begin VB.CheckBox FlagCheck 
               Caption         =   "cust 1"
               Height          =   255
               Index           =   4
               Left            =   240
               TabIndex        =   7
               Top             =   2295
               WhatsThisHelpID =   40090
               Width           =   2295
            End
            Begin VB.CheckBox FlagCheck 
               Caption         =   "isdn"
               Height          =   255
               Index           =   3
               Left            =   240
               TabIndex        =   5
               Top             =   1635
               WhatsThisHelpID =   40080
               Width           =   2295
            End
            Begin VB.CheckBox FlagCheck 
               Caption         =   "mod"
               Height          =   255
               Index           =   2
               Left            =   240
               TabIndex        =   4
               Top             =   1290
               WhatsThisHelpID =   40070
               Width           =   2295
            End
            Begin VB.CheckBox FlagCheck 
               Caption         =   "up"
               Height          =   255
               Index           =   1
               Left            =   240
               TabIndex        =   2
               Top             =   615
               WhatsThisHelpID =   40050
               Width           =   2295
            End
            Begin VB.CheckBox FlagCheck 
               Caption         =   "sign on"
               Height          =   255
               Index           =   0
               Left            =   240
               TabIndex        =   1
               Top             =   285
               WhatsThisHelpID =   40040
               Width           =   2295
            End
         End
         Begin VB.Frame analogFrame 
            Caption         =   "speed"
            Height          =   1455
            Left            =   3585
            TabIndex        =   30
            Top             =   1500
            Width           =   3105
            Begin VB.ComboBox cmbmin 
               ForeColor       =   &H00000000&
               Height          =   315
               ItemData        =   "PopIns.frx":006C
               Left            =   1215
               List            =   "PopIns.frx":0088
               TabIndex        =   12
               Top             =   405
               WhatsThisHelpID =   40010
               Width           =   1095
            End
            Begin VB.ComboBox cmbmax 
               ForeColor       =   &H00000000&
               Height          =   315
               ItemData        =   "PopIns.frx":00C4
               Left            =   1215
               List            =   "PopIns.frx":00E0
               TabIndex        =   14
               Top             =   930
               WhatsThisHelpID =   40020
               Width           =   1095
            End
            Begin VB.Label MinLabel 
               Alignment       =   1  'Right Justify
               Caption         =   "min"
               Height          =   255
               Left            =   165
               TabIndex        =   11
               Top             =   480
               WhatsThisHelpID =   40010
               Width           =   1005
            End
            Begin VB.Label MaxLabel 
               Alignment       =   1  'Right Justify
               Caption         =   "max"
               Height          =   255
               Left            =   195
               TabIndex        =   13
               Top             =   990
               WhatsThisHelpID =   40020
               Width           =   975
            End
         End
         Begin VB.TextBox txtscript 
            ForeColor       =   &H00000000&
            Height          =   285
            Left            =   3570
            MaxLength       =   50
            TabIndex        =   10
            Top             =   570
            WhatsThisHelpID =   40000
            Width           =   3135
         End
         Begin VB.Label dunLabel 
            Caption         =   "dun"
            Height          =   255
            Left            =   3555
            TabIndex        =   9
            Top             =   300
            WhatsThisHelpID =   40000
            Width           =   2775
         End
      End
   End
End
Attribute VB_Name = "frmPopInsert"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit





Function InsertPOP() As Integer

    Dim deltnum, vernum As Integer
    Dim test As String
    Dim deltasql As String
    Dim i As Integer
    Dim addFound As Integer
    Dim m As Integer
    Dim v As Long
    Dim n As Long
    Dim bool As Integer
    Dim mydesc, sqlstm, countryname As String
    ReDim bitvaluearray(10) As bitValues
    
    On Error GoTo ErrTrap
    
        ' validate input
        If dbCmbCty.Text = "" Then
            MsgBox LoadResString(6044), 0
            SSTab1.Tab = 0
            dbCmbCty.SetFocus
            Exit Function
        ElseIf txtcity.Text = "" Then
            MsgBox LoadResString(6045), 0
            SSTab1.Tab = 0
            txtcity.SetFocus
            Exit Function
        ElseIf maskArea.Text = "" Then
            MsgBox LoadResString(6046), 0
            SSTab1.Tab = 0
            maskArea.SetFocus
            Exit Function
        ElseIf maskAccNo.Text = "" Then
            MsgBox LoadResString(6047), 0
            SSTab1.Tab = 0
            maskAccNo.SetFocus
            Exit Function
        ElseIf cmbstatus.Text = "" Then
            MsgBox LoadResString(6048), 0
            SSTab1.Tab = 0
            cmbstatus.SetFocus
            Exit Function
        End If
                
        Screen.MousePointer = 11
                     
        Set GsysDial = gsyspb.OpenRecordset("DialUpPort", dbOpenDynaset)
        Set GsysDelta = gsyspb.OpenRecordset("Select * from Delta order by DeltaNum", dbOpenDynaset)
                 
         result = 0
         For m = 0 To 7
            Select Case m
                Case 0, 2, 3, 5
                    result = result + (2 ^ m) * Abs(FlagCheck(m).Value - 1)
                Case Else
                    result = result + (2 ^ m) * FlagCheck(m).Value
            End Select
         Next m

         GsysDial.AddNew
         GsysDial!AccessNumberId = Val(txtid.Text)
         GsysDial!AreaCode = maskArea.Text
         GsysDial!AccessNumber = maskAccNo.Text
         GsysDial!status = cmbstatus.ItemData(cmbstatus.ListIndex)
         If Label8.Caption <> "" Then
             GsysDial!StatusDate = Label8.Caption
         End If
         If Trim(cmbmin.Text) <> "" Or Val(cmbmin.Text) = 0 Then
            GsysDial!MinimumSpeed = Val(cmbmin.Text)
         Else
            GsysDial!MinimumSpeed = Null
         End If
         If Trim(cmbmax.Text) <> "" Or Val(cmbmax.Text) = 0 Then
             GsysDial!MaximumSpeed = Val(cmbmax.Text)
         Else
             GsysDial!MaximumSpeed = Null
         End If
         GsysDial!CityName = txtcity.Text
         GsysDial!CountryNumber = dbCmbCty.ItemData(dbCmbCty.ListIndex)
         GsysDial!RegionID = cmbRegion.ItemData(cmbRegion.ListIndex) 'Val(lbldesc.Caption)
         GsysDial!ScriptID = txtscript.Text
         GsysDial!FlipFactor = 0
         GsysDial!Flags = result
         GsysDial!Comments = txtcomment.Text
         GsysDial.Update
            
        If cmbstatus.ItemData(cmbstatus.ListIndex) = 1 Then
            'insert the delta table (production pop)
            Set GsysDelta = gsyspb.OpenRecordset("Select * from Delta order by DeltaNum", dbOpenDynaset)
    
            If GsysDelta.RecordCount = 0 Then
                deltnum = 1
            Else
                GsysDelta.MoveLast
                deltnum = GsysDelta!deltanum
                If deltnum > 6 Then
                    deltnum = deltnum - 1
                End If
            End If
           
            For i = 1 To deltnum
                deltasql = "Select * from delta where DeltaNum = " & i% & " order by DeltaNum"
                Set GsysDelta = gsyspb.OpenRecordset(deltasql, dbOpenDynaset)
                
                addFound = 0    'initialize delta not found
                Do While GsysDelta.EOF = False
                    If GsysDelta!AccessNumberId = Val(txtid.Text) Then
                        addFound = 1
                        Exit Do
                    Else
                        GsysDelta.MoveNext
                    End If
                Loop
                    
                If addFound = 0 Then
                    GsysDelta.AddNew
                    GsysDelta!deltanum = i%
                    GsysDelta!AccessNumberId = txtid.Text
                Else
                    GsysDelta.Edit
                End If
                GsysDelta!CountryNumber = dbCmbCty.ItemData(dbCmbCty.ListIndex)
                GsysDelta!AreaCode = maskArea.Text
                GsysDelta!AccessNumber = maskAccNo.Text
                If Trim(cmbmin.Text) <> "" Or Val(cmbmin.Text) = 0 Then
                   GsysDelta!MinimumSpeed = Val(cmbmin.Text)
                Else
                   GsysDelta!MinimumSpeed = Null
                End If
                If Trim(cmbmax.Text) <> "" Or Val(cmbmax.Text) = 0 Then
                    GsysDelta!MaximumSpeed = Val(cmbmax.Text)
                Else
                    GsysDelta!MaximumSpeed = Null
                End If
                GsysDelta!RegionID = cmbRegion.ItemData(cmbRegion.ListIndex)
                GsysDelta!CityName = txtcity.Text
                GsysDelta!ScriptID = txtscript.Text
                GsysDelta!FlipFactor = 0
                GsysDelta!Flags = result
                GsysDelta.Update
            Next i%
        End If
         
        Dim itmX As ListItem
        Dim strTemp As String
        frmMain.PopList.Sorted = False
        Set itmX = frmMain.PopList.ListItems.Add()
        With itmX
            .Text = txtcity.Text
            .SubItems(1) = maskArea.Text
            .SubItems(2) = maskAccNo.Text
            .SubItems(3) = dbCmbCty.Text
            .SubItems(4) = cmbRegion.Text
            .SubItems(5) = cmbstatus.Text
            strTemp = "Key:" & txtid.Text
            .Key = strTemp
        End With
                         
        GsysDial.Close
        Set GsysDial = gsyspb.OpenRecordset("Select * from DialUpPort where AccessNumberID = " & txtid.Text, dbOpenSnapshot)
        LogPOPAdd GsysDial
        GsysDelta.Close
        Set GsysDial = Nothing
        Set GsysDelta = Nothing
        
        Screen.MousePointer = 0
        InsertPOP = 1
        
Exit Function

ErrTrap:
    InsertPOP = 0
    Screen.MousePointer = 0
    MsgBox LoadResString(6056) & Chr(13) & Chr(13) & Err.Description, vbExclamation
    Exit Function

End Function

Function LoadPOPRes()

    Dim cRef As Integer
    
    On Error GoTo LoadErr
    cRef = 4000
    Me.Caption = LoadResString(cRef + 58) & " " & gsCurrentPB
    SSTab1.TabCaption(0) = LoadResString(cRef + 38)
    SSTab1.TabCaption(1) = LoadResString(cRef + 39)
    SSTab1.TabCaption(2) = LoadResString(cRef + 45)
    POPLabel.Caption = LoadResString(cRef + 46)
    CountryLabel.Caption = LoadResString(cRef + 47)
    RegionLabel.Caption = LoadResString(cRef + 48)
    AreaLabel.Caption = LoadResString(cRef + 49)
    AccessLabel.Caption = LoadResString(cRef + 50)
    StatusLabel.Caption = LoadResString(cRef + 51)
    ' status list
    With cmbstatus
        .AddItem gStatusText(1)
        .ItemData(.NewIndex) = 1
        .AddItem gStatusText(0)
        .ItemData(.NewIndex) = 0
    End With
    ' region list
    With cmbRegion
        .AddItem gRegionText(0), 0
        .ItemData(.NewIndex) = 0
       ' .AddItem gRegionText(-1), 1
       ' .ItemData(.NewIndex) = -1
    End With

    FlagFrame.Caption = LoadResString(cRef + 52)
    dunLabel.Caption = LoadResString(cRef + 53)
    analogFrame.Caption = LoadResString(cRef + 54)
    MinLabel.Caption = LoadResString(cRef + 55)
    MaxLabel.Caption = LoadResString(cRef + 56)
    For cRef = 4080 To 4087
        FlagCheck(cRef - 4080).Caption = LoadResString(cRef)
    Next
    cmdOK.Caption = LoadResString(1002)
    cmbclose.Caption = LoadResString(1003)
    cmdSave.Caption = LoadResString(1004)
    
    ' set fonts
    SetFonts Me
    SSTab1.Font.Charset = gfnt.Charset
    SSTab1.Font.Name = gfnt.Name
    SSTab1.Font.Size = gfnt.Size

    On Error GoTo 0
    
Exit Function
LoadErr:
    Exit Function

End Function

Private Sub cmbclose_Click()
        
    Screen.MousePointer = 11
    Me.Hide
    Unload Me
    Screen.MousePointer = 0
    
End Sub

Private Sub cmbmax_KeyPress(KeyAscii As Integer)
    
    KeyAscii = FilterNumberKey(KeyAscii)

End Sub


Private Sub cmbmin_KeyPress(KeyAscii As Integer)

    KeyAscii = FilterNumberKey(KeyAscii)
    
End Sub


Private Sub cmbstatus_Change()

    If cmbstatus.Text <> "" Then
        Label8.Caption = Date
    Else
        Label8.Caption = ""
    End If

End Sub

Private Sub cmbstatus_Click()
If cmbstatus.Text <> "" Then
    Label8.Caption = Date
Else
    Label8.Caption = ""
End If
End Sub


Private Sub cmdOK_Click()

    Dim intRC As Integer
    
    On Error Resume Next
    Screen.MousePointer = 11
    If InsertPOP = 1 Then
        Me.Hide
        Unload Me
    End If
    Screen.MousePointer = 0

    
End Sub


Private Sub cmdSave_Click()

    On Error Resume Next
    If InsertPOP = 1 Then
        'good insert
        txtid.Text = Val(txtid.Text) + 1
        txtcity.Text = ""
        maskArea.Text = ""
        maskAccNo.Text = ""
        cmbstatus.ListIndex = -1
        SSTab1.Tab = 0
        txtcity.SetFocus
    End If
    On Error GoTo 0
    
Exit Sub

ErrTrap:
    Exit Sub

End Sub


Private Sub Form_Deactivate()

    Unload Me

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
    CheckChar KeyAscii
End Sub


Sub Form_Load()

    Dim tempnum As Integer, i As Integer
    Dim newnum As Recordset
    Dim rsService As Recordset
    Dim RS As Recordset
    Dim n As Long
    Dim bool As Integer
    Dim mydesc As String
    ReDim bitvaluearray(31) As bitValues
    Dim myPos As Integer

    On Error GoTo LoadErr
    Screen.MousePointer = 11
    LoadPOPRes
    
    SSTab1.Tab = 0
    CenterForm Me, Screen

    Set rsService = gsyspb.OpenRecordset("select * from Configuration", dbOpenSnapshot)
    rsService.MoveLast
    Set newnum = gsyspb.OpenRecordset("select * from DialUpPort order by AccessNumberId", dbOpenSnapshot)
    
    LoadList dbCmbCty, "Country", "CountryName", "CountryNumber"
    LoadList cmbRegion, "Region", "regiondesc", "regionid"
    
    If newnum.RecordCount = 0 Then
        tempnum = 0
        cmbRegion.Text = gRegionText(0)
        n = 0
    Else
        newnum.MoveLast
        tempnum = newnum!AccessNumberId
        
        Set GsysNCty = gsyspb.OpenRecordset("select * from Country where CountryNumber = " & newnum!CountryNumber, dbOpenSnapshot)
        dbCmbCty.Text = GsysNCty!countryname
        Set GsysNRgn = gsyspb.OpenRecordset("select * from Region where RegionId = " & newnum!RegionID, dbOpenSnapshot)
        If GsysNRgn.RecordCount <> 0 Then
            cmbRegion = GsysNRgn!RegionDesc
        Else
            Select Case newnum!RegionID
                Case 0, -1
                    cmbRegion = gRegionText(newnum!RegionID)
                Case Else
                    cmbRegion = gRegionText(0)
            End Select
        End If
        If IsNull(newnum!ScriptID) Then
           txtscript.Text = ""
        Else
           txtscript.Text = newnum!ScriptID
        End If
        If IsNull(newnum!MinimumSpeed) Or newnum!MinimumSpeed = 0 Then
           cmbmin.Text = ""
        Else
           cmbmin.Text = newnum!MinimumSpeed
        End If
        If IsNull(newnum!MaximumSpeed) Or newnum!MaximumSpeed = 0 Then
           cmbmax.Text = ""
        Else
           cmbmax.Text = newnum!MaximumSpeed
        End If
        n = newnum!Flags
    End If
    tempnum = tempnum + 1
    txtid.Text = tempnum
    
    ' make this a function: intRC = SetFlagBoxes(<flagcheck control array>)
    'intRC = SetFlagBoxes(n, FlagCheck)
    
    Set RS = gsyspb.OpenRecordset("select * from bitflag order by bit, value", dbOpenSnapshot)
    RS.MoveFirst
    While Not RS.EOF
        bitvaluearray(RS!Bit).desc(RS!Value) = RS!desc
        RS.MoveNext
    Wend
    For i = 0 To 7
        bool = isBitSet(n, i)
        mydesc = bitvaluearray(i).desc(bool)
        'handle the oddities that i introduced with the old
        '  list format, i.e. some flags are NOT by default.
        Select Case i
            Case 0, 2, 3, 5
                FlagCheck(i).Value = Abs(bool - 1)
            Case Else
                FlagCheck(i).Value = bool
        End Select
    Next i
    
    RS.Close
    rsService.Close
    newnum.Close
    
    Screen.MousePointer = 0

Exit Sub

LoadErr:
    Screen.MousePointer = 0
    Exit Sub
End Sub

Private Sub Form_Unload(Cancel As Integer)

    Set GsysNCty = Nothing
    Set GsysNRgn = Nothing

End Sub



Private Sub maskaccno_GotFocus()

    SelectText maskAccNo
    
End Sub

Private Sub maskaccno_KeyPress(KeyAscii As Integer)

    Select Case KeyAscii
        '0-9 A-Z a-z * # Bkspc Hyphen Space ctrl-C ctrl-V
        Case 48 To 57, 65 To 90, 97 To 122, 42, 35, 8, 45, 32, 3, 22
        Case Else
            KeyAscii = 0
            Beep
    End Select

End Sub


Private Sub maskarea_GotFocus()
    
    SelectText maskArea

End Sub


Private Sub maskarea_KeyPress(KeyAscii As Integer)

    Select Case KeyAscii
        '0-9 A-Z a-z * # Bkspc Hyphen Space ctrl-C ctrl-V
        Case 48 To 57, 65 To 90, 97 To 122, 42, 35, 8, 45, 32, 3, 22
        Case Else
            KeyAscii = 0
            Beep
    End Select

End Sub



Private Sub picContainer_Click(index As Integer)

    picContainer(index).Enabled = True

End Sub

Private Sub SSTab1_Click(PreviousTab As Integer)
    
    picContainer(PreviousTab).Visible = False
    picContainer(SSTab1.Tab).Visible = True
    
End Sub

Private Sub txtcity_GotFocus()
    SelectText txtcity
End Sub

Private Sub txtcity_KeyPress(KeyAscii As Integer)
    
    Select Case KeyAscii
        Case 44 ',
            KeyAscii = 0
            Beep
    End Select

End Sub


Private Sub txtid_KeyDown(KeyCode As Integer, Shift As Integer)
KeyCode = 0
End Sub

Private Sub txtid_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub






Private Sub LoadList(list As Control, sTableName As String, sName As String, sID As String)
    
    Dim RS As Recordset
        
    On Error GoTo LoadErr
    'list.Clear
    Set RS = gsyspb.OpenRecordset("SELECT " & sName & "," & sID & " FROM " & sTableName & " order by " & sName, dbOpenSnapshot)
    While Not RS.EOF
        list.AddItem RS(sName)
        list.ItemData(list.NewIndex) = RS(sID)
        RS.MoveNext
    Wend
    RS.Close
    On Error GoTo 0
    
Exit Sub
LoadErr:
    Exit Sub
End Sub

Private Sub txtscript_GotFocus()
    SelectText txtscript
End Sub

Private Sub txtscript_KeyPress(KeyAscii As Integer)

    Select Case KeyAscii
        Case 44
            KeyAscii = 0
            Beep
    End Select

End Sub