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

VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmupdate 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "edit pop -"
   ClientHeight    =   4230
   ClientLeft      =   540
   ClientTop       =   1590
   ClientWidth     =   7305
   Icon            =   "popupd.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   4230
   ScaleWidth      =   7305
   ShowInTaskbar   =   0   'False
   WhatsThisButton =   -1  'True
   WhatsThisHelp   =   -1  'True
   Begin VB.CommandButton cmbUpclose 
      Cancel          =   -1  'True
      Caption         =   "cancel"
      Height          =   375
      Left            =   6135
      TabIndex        =   35
      Top             =   3780
      WhatsThisHelpID =   10040
      Width           =   1035
   End
   Begin VB.CommandButton cbupdate 
      Caption         =   "ok"
      Default         =   -1  'True
      Height          =   375
      Left            =   4890
      TabIndex        =   34
      Top             =   3780
      WhatsThisHelpID =   10030
      Width           =   1035
   End
   Begin TabDlg.SSTab SSTab1 
      Height          =   3570
      HelpContextID   =   10060
      Left            =   90
      TabIndex        =   36
      Top             =   105
      WhatsThisHelpID =   10060
      Width           =   7095
      _ExtentX        =   12515
      _ExtentY        =   6297
      _Version        =   393216
      Style           =   1
      Tab             =   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)   =   "popupd.frx":000C
      Tab(0).ControlEnabled=   0   'False
      Tab(0).Control(0)=   "picContainer(0)"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).ControlCount=   1
      TabCaption(1)   =   "set"
      TabPicture(1)   =   "popupd.frx":0028
      Tab(1).ControlEnabled=   -1  'True
      Tab(1).Control(0)=   "picContainer(1)"
      Tab(1).Control(0).Enabled=   0   'False
      Tab(1).ControlCount=   1
      TabCaption(2)   =   "com"
      TabPicture(2)   =   "popupd.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          =   2940
         Index           =   2
         Left            =   -74835
         ScaleHeight     =   2940
         ScaleWidth      =   6690
         TabIndex        =   33
         TabStop         =   0   'False
         Top             =   510
         Visible         =   0   'False
         Width           =   6690
         Begin VB.TextBox txtcomment 
            ForeColor       =   &H00000000&
            Height          =   2670
            Left            =   210
            MaxLength       =   256
            MultiLine       =   -1  'True
            ScrollBars      =   2  'Vertical
            TabIndex        =   0
            Top             =   120
            WhatsThisHelpID =   50000
            Width           =   6330
         End
      End
      Begin VB.PictureBox picContainer 
         BorderStyle     =   0  'None
         Height          =   3060
         Index           =   0
         Left            =   -74880
         ScaleHeight     =   3060
         ScaleWidth      =   6855
         TabIndex        =   30
         TabStop         =   0   'False
         Top             =   375
         Width           =   6855
         Begin VB.TextBox maskAccNo 
            Height          =   300
            Left            =   4860
            MaxLength       =   40
            TabIndex        =   25
            Top             =   1995
            WhatsThisHelpID =   30050
            Width           =   1710
         End
         Begin VB.TextBox maskArea 
            Height          =   300
            Left            =   1560
            MaxLength       =   10
            TabIndex        =   23
            Top             =   1995
            WhatsThisHelpID =   30060
            Width           =   1290
         End
         Begin VB.ComboBox dbCmbCty 
            Height          =   315
            Left            =   1560
            Style           =   2  'Dropdown List
            TabIndex        =   19
            Top             =   750
            WhatsThisHelpID =   30020
            Width           =   3015
         End
         Begin VB.ComboBox cmbRegion 
            Height          =   315
            Left            =   1560
            Style           =   2  'Dropdown List
            TabIndex        =   21
            Top             =   1320
            WhatsThisHelpID =   30040
            Width           =   3015
         End
         Begin VB.TextBox txtid 
            BackColor       =   &H8000000F&
            ForeColor       =   &H00000000&
            Height          =   285
            HelpContextID   =   3000
            Left            =   4725
            MaxLength       =   25
            TabIndex        =   31
            TabStop         =   0   'False
            Top             =   195
            Visible         =   0   'False
            Width           =   510
         End
         Begin VB.TextBox txtcity 
            ForeColor       =   &H00000000&
            Height          =   300
            Left            =   1545
            MaxLength       =   30
            TabIndex        =   17
            Top             =   180
            WhatsThisHelpID =   30010
            Width           =   3000
         End
         Begin VB.ComboBox cmbstatus 
            ForeColor       =   &H00000000&
            Height          =   315
            ItemData        =   "popupd.frx":0060
            Left            =   1560
            List            =   "popupd.frx":0062
            Style           =   2  'Dropdown List
            TabIndex        =   27
            Top             =   2535
            WhatsThisHelpID =   30070
            Width           =   1545
         End
         Begin VB.Label CountryLabel 
            Alignment       =   1  'Right Justify
            BackStyle       =   0  'Transparent
            Caption         =   "&Country/ Dependency:"
            Height          =   495
            Left            =   45
            TabIndex        =   18
            Top             =   720
            WhatsThisHelpID =   30020
            Width           =   1440
         End
         Begin VB.Label POPLabel 
            Alignment       =   1  'Right Justify
            BackStyle       =   0  'Transparent
            Caption         =   "&POP name:"
            Height          =   255
            Left            =   0
            TabIndex        =   16
            Top             =   180
            WhatsThisHelpID =   30010
            Width           =   1455
         End
         Begin VB.Label RegionLabel 
            Alignment       =   1  'Right Justify
            BackStyle       =   0  'Transparent
            Caption         =   "&Region:"
            Height          =   255
            Left            =   15
            TabIndex        =   20
            Top             =   1335
            WhatsThisHelpID =   30040
            Width           =   1440
         End
         Begin VB.Label AreaLabel 
            Alignment       =   1  'Right Justify
            BackStyle       =   0  'Transparent
            Caption         =   "&Area code:"
            Height          =   255
            Left            =   30
            TabIndex        =   22
            Top             =   2055
            WhatsThisHelpID =   30060
            Width           =   1455
         End
         Begin VB.Label AccessLabel 
            Alignment       =   1  'Right Justify
            BackStyle       =   0  'Transparent
            Caption         =   "access num"
            Height          =   255
            Left            =   3180
            TabIndex        =   24
            Top             =   2055
            WhatsThisHelpID =   30050
            Width           =   1590
         End
         Begin VB.Label StatusLabel 
            Alignment       =   1  'Right Justify
            BackStyle       =   0  'Transparent
            Caption         =   "status"
            Height          =   255
            Left            =   30
            TabIndex        =   26
            Top             =   2595
            WhatsThisHelpID =   30070
            Width           =   1440
         End
         Begin VB.Label Label3 
            ForeColor       =   &H000000C0&
            Height          =   255
            Left            =   5265
            TabIndex        =   32
            Top             =   585
            Visible         =   0   'False
            Width           =   855
         End
      End
      Begin VB.PictureBox picContainer 
         BorderStyle     =   0  'None
         Height          =   3045
         Index           =   1
         Left            =   120
         ScaleHeight     =   3045
         ScaleWidth      =   6855
         TabIndex        =   29
         TabStop         =   0   'False
         Top             =   435
         Visible         =   0   'False
         Width           =   6855
         Begin VB.Frame FlagFrame 
            Caption         =   "Service settings"
            Height          =   3015
            Left            =   165
            TabIndex        =   15
            Top             =   0
            WhatsThisHelpID =   40030
            Width           =   2595
            Begin VB.CheckBox FlagCheck 
               Caption         =   "cust 2"
               Height          =   255
               Index           =   7
               Left            =   225
               TabIndex        =   8
               Top             =   2670
               WhatsThisHelpID =   40090
               Width           =   2280
            End
            Begin VB.CheckBox FlagCheck 
               Caption         =   "Sign on"
               Height          =   255
               Index           =   0
               Left            =   240
               TabIndex        =   1
               Top             =   255
               WhatsThisHelpID =   40040
               Width           =   2280
            End
            Begin VB.CheckBox FlagCheck 
               Caption         =   "Sign up"
               Height          =   255
               Index           =   1
               Left            =   240
               TabIndex        =   2
               Top             =   600
               WhatsThisHelpID =   40050
               Width           =   2280
            End
            Begin VB.CheckBox FlagCheck 
               Caption         =   "Modem"
               Height          =   255
               Index           =   2
               Left            =   240
               TabIndex        =   4
               Top             =   1290
               WhatsThisHelpID =   40070
               Width           =   2280
            End
            Begin VB.CheckBox FlagCheck 
               Caption         =   "ISDN"
               Height          =   255
               Index           =   3
               Left            =   240
               TabIndex        =   5
               Top             =   1635
               WhatsThisHelpID =   40080
               Width           =   2280
            End
            Begin VB.CheckBox FlagCheck 
               Caption         =   "cust 1"
               Height          =   255
               Index           =   4
               Left            =   225
               TabIndex        =   7
               Top             =   2325
               WhatsThisHelpID =   40090
               Width           =   2280
            End
            Begin VB.CheckBox FlagCheck 
               Caption         =   "multi"
               Height          =   255
               Index           =   5
               Left            =   240
               TabIndex        =   6
               Top             =   1980
               WhatsThisHelpID =   40100
               Width           =   2280
            End
            Begin VB.CheckBox FlagCheck 
               Caption         =   "surcrg"
               Height          =   255
               Index           =   6
               Left            =   240
               TabIndex        =   3
               Top             =   945
               WhatsThisHelpID =   40060
               Width           =   2280
            End
         End
         Begin VB.Frame AnalogFrame 
            Caption         =   "Analog speed"
            Height          =   1590
            Left            =   3570
            TabIndex        =   28
            Top             =   1395
            Width           =   3135
            Begin VB.ComboBox cmbmax 
               ForeColor       =   &H00000000&
               Height          =   315
               ItemData        =   "popupd.frx":0064
               Left            =   1380
               List            =   "popupd.frx":0080
               TabIndex        =   14
               Top             =   1035
               WhatsThisHelpID =   40020
               Width           =   1095
            End
            Begin VB.ComboBox cmbmin 
               ForeColor       =   &H00000000&
               Height          =   315
               ItemData        =   "popupd.frx":00BC
               Left            =   1365
               List            =   "popupd.frx":00D8
               TabIndex        =   12
               Top             =   525
               WhatsThisHelpID =   40010
               Width           =   1095
            End
            Begin VB.Label MaxLabel 
               Alignment       =   1  'Right Justify
               Caption         =   "M&ax:"
               Height          =   255
               Left            =   105
               TabIndex        =   13
               Top             =   1065
               WhatsThisHelpID =   40020
               Width           =   1200
            End
            Begin VB.Label MinLabel 
               Alignment       =   1  'Right Justify
               Caption         =   "&Min:"
               Height          =   255
               Left            =   135
               TabIndex        =   11
               Top             =   555
               WhatsThisHelpID =   40010
               Width           =   1155
            End
         End
         Begin VB.TextBox txtscript 
            ForeColor       =   &H00000000&
            Height          =   285
            Left            =   3525
            MaxLength       =   50
            TabIndex        =   10
            Top             =   630
            WhatsThisHelpID =   40000
            Width           =   3135
         End
         Begin VB.Label DunLabel 
            Caption         =   "&Dial-up networking script:"
            Height          =   255
            Left            =   3525
            TabIndex        =   9
            Top             =   345
            WhatsThisHelpID =   40000
            Width           =   3165
         End
      End
   End
End
Attribute VB_Name = "frmupdate"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public ID As String
Public status As String

Private Sub cbupdate_Click()
    'main POP save routine

    Dim response As Integer, deltnum As Integer, deltafind As Integer
    Dim Message As String, dialogtype As Long, title As String
    Dim i As Integer, deltasql As String
    Dim m As Integer
    Dim v As Long
    Dim n As Long
    Dim bool As Integer
    Dim mydesc As String
    ReDim bitvaluearray(10) As bitValues
    Dim sqlstm, countryname As String
    Dim itmX As ListItem
    Dim strTemp As String
    Dim strOldPOPName As String
    Dim bOutOfService As Boolean

    On Error GoTo ErrTrap

    If dbCmbCty.Text = "" Then
        MsgBox LoadResString(6044)
        SSTab1.Tab = 0
        dbCmbCty.SetFocus
        Exit Sub
    ElseIf txtcity.Text = "" Then
        MsgBox LoadResString(6045)
        SSTab1.Tab = 0
        txtcity.SetFocus
        Exit Sub
    ElseIf maskArea.Text = "" Then
        MsgBox LoadResString(6046)
        SSTab1.Tab = 0
        maskArea.SetFocus
        Exit Sub
    ElseIf maskAccNo.Text = "" Then
        MsgBox LoadResString(6047)
        SSTab1.Tab = 0
        maskAccNo.SetFocus
        Exit Sub
    End If

    Screen.MousePointer = 11

    If GsysDial!AccessNumberId = updateFound Then
        result = 0
        For m = 0 To 7
            Select Case m
                Case 0, 2, 3, 5  'handle idosyncrocies of flags
                    result = result + (2 ^ m) * Abs(FlagCheck(m).Value - 1)
                Case Else
                    result = result + (2 ^ m) * FlagCheck(m).Value
            End Select
        Next m
        bOutOfService = False
        If GsysDial!status = "1" And _
            cmbstatus.ItemData(cmbstatus.ListIndex) <> "1" Then _
            bOutOfService = True
            
        strOldPOPName = GsysDial!CityName
        GsysDial.Edit
        GsysDial!CityName = txtcity.Text
        GsysDial!CountryNumber = dbCmbCty.ItemData(dbCmbCty.ListIndex)
        GsysDial!RegionID = cmbRegion.ItemData(cmbRegion.ListIndex)
        GsysDial!AreaCode = maskArea.Text
        GsysDial!AccessNumber = maskAccNo.Text
        GsysDial!status = cmbstatus.ItemData(cmbstatus.ListIndex)
        'If Label8.Caption <> "" Then GsysDial!StatusDate = Label8.Caption
        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!ScriptID = txtscript.Text
        GsysDial!FlipFactor = 0
        GsysDial!Flags = result
        GsysDial!Comments = txtcomment.Text
        GsysDial.Update
                
        If cmbstatus.ItemData(cmbstatus.ListIndex) = "1" Or bOutOfService Then
            'insert the delta table
            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% & _
                    " AND AccessNumberId = '" & updateFound & "' " & _
                    " order by DeltaNum"
                Set GsysDelta = gsyspb.OpenRecordset(deltasql, dbOpenDynaset)
                If Not (GsysDelta.BOF And GsysDelta.EOF) Then
                    GsysDelta.Edit
                Else
                    GsysDelta.AddNew
                    GsysDelta!deltanum = i%
                    GsysDelta!AccessNumberId = updateFound
                End If
                If Not bOutOfService Then
                    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!Flags = result
                    GsysDelta.Update
                Else  ' insert a delete for the pop
                     GsysDelta!CountryNumber = 0
                     GsysDelta!AreaCode = 0
                     GsysDelta!AccessNumber = 0
                     GsysDelta!MinimumSpeed = 0
                     GsysDelta!MaximumSpeed = 0
                     GsysDelta!RegionID = 0
                     GsysDelta!CityName = "0"
                     GsysDelta!ScriptID = "0"
                     GsysDelta!Flags = 0
                     GsysDelta.Update
                End If
            Next i%
        End If
        
        Me.Hide
        
        frmMain.PopList.Sorted = False
        Set itmX = frmMain.PopList.SelectedItem
        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
        End With
        frmMain.PopList.SelectedItem.EnsureVisible
        frmMain.PopList.SetFocus
    End If
    
    LogPOPEdit strOldPOPName, GsysDial
    GsysDial.Close
    GsysDelta.Close
    Set GsysDial = Nothing
    Set GsysDelta = Nothing

    Me.Hide
    Unload Me
    Screen.MousePointer = 0
    On Error GoTo 0

Exit Sub

ErrTrap:
    Screen.MousePointer = 0
    MsgBox LoadResString(6056) & Chr(13) & Chr(13) & Err.Description, vbExclamation
    Exit Sub
    
       'If Err.Number = 3201 Then
       '     MsgBox "You must select country name, region description before save.  Cannot continue.", 48
       '     Screen.MousePointer = 0
       '     Exit Sub
       'ElseIf Err.Number = 3317 Then
        '   MsgBox "You must enter the area code and access number."
        '   Screen.MousePointer = 0
        ''   Exit Sub
       'End If
       
                       'Do While GsysDelta.EOF = False
                '    If GsysDelta!AccessNumberId = updateFound Then
                '        deltafind = 1
                '        Exit Do
                '    Else
                '        GsysDelta.MoveNext
                '    End If
                'Loop

                           '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!Flags = result
                    'GsysDelta.Update

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 cmbUpclose_Click()

    On Error Resume Next
    Screen.MousePointer = 11
    
    Me.Hide
    Unload Me
    GsysDial.Close
    GsysDelta.Close
    Set GsysDial = Nothing
    Set GsysDelta = Nothing
    frmMain.PopList.SetFocus
    
    Screen.MousePointer = 0
    On Error GoTo 0

End Sub


Private Sub Form_Deactivate()
    Unload Me
End Sub

Function LoadPOPRes()

    Dim cRef As Integer
    
    On Error GoTo LoadErr
    cRef = 4000
    Me.Caption = LoadResString(cRef + 59) & " " & 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

    'EditLabel.Caption = LoadResString(cRef + 57)
    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
    cbupdate.Caption = LoadResString(1002)
    cmbUpclose.Caption = LoadResString(1003)
    ' 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 Form_KeyPress(KeyAscii As Integer)
    CheckChar KeyAscii
End Sub

Private Sub Form_Load()
    
    Dim DBName As Variant
    Dim i As Integer
    Dim intX, intRegion As Integer
    Dim check As Integer
    Dim ID As Integer
    Dim n As Long
    Dim RS As Recordset
    Dim bool As Integer
    Dim mydesc As String
    Dim strTemp As String
    ReDim bitvaluearray(31) As bitValues

    On Error GoTo LoadErr
    Screen.MousePointer = 11
    LoadPOPRes

    check = 0       'Initialization
    Set GsysDial = gsyspb.OpenRecordset("Select * from DialUpPort where AccessNumberId=" & updateFound, dbOpenDynaset)
    Set GsysDelta = gsyspb.OpenRecordset("Select * from Delta order by DeltaNum", dbOpenDynaset)
    
    LoadList dbCmbCty, "Country", "CountryName", "CountryNumber"
    LoadList cmbRegion, "Region", "regiondesc", "regionid"

    ID = updateFound  ' check this out - problems dbl clicking a pop
    'strTemp = frmMain.PopList.SelectedItem.key
    'ID = Val(Right$(strTemp, Len(strTemp) - 4))
    
    If GsysDial.RecordCount <> 0 Then
        GsysDial.MoveFirst
        'Do While GsysDial.EOF = False
        '    If GsysDial!AccessNumberId = ID Then
                check = 1
        '        Exit Do
        '    Else
        '        GsysDial.MoveNext
        '    End If
        'Loop
    End If

    If check = 1 Then
        txtid.Text = GsysDial!AccessNumberId
        Label3.Caption = GsysDial!CountryNumber
        maskArea.Text = GsysDial!AreaCode
        
        status = GsysDial!status
        'Label8.Caption = GsysDial!StatusDate
        Select Case status
            Case 0
                cmbstatus = gStatusText(status)
            Case 1
                cmbstatus = gStatusText(status)
            Case Else
                cmbstatus = ""
                'Label8.Caption = ""
        End Select
        
        maskAccNo = GsysDial!AccessNumber
        If IsNull(GsysDial!MinimumSpeed) Or GsysDial!MinimumSpeed = 0 Then
            cmbmin.Text = ""
        Else
            cmbmin.Text = GsysDial!MinimumSpeed
        End If
        If IsNull(GsysDial!MaximumSpeed) Or GsysDial!MaximumSpeed = 0 Then
            cmbmax.Text = ""
        Else
            cmbmax.Text = GsysDial!MaximumSpeed
        End If
        intRegion = GsysDial!RegionID
        If intRegion <> 0 Then
            For intX = 0 To cmbRegion.ListCount - 1
                If cmbRegion.ItemData(intX) = intRegion Then
                    cmbRegion.ListIndex = intX
                End If
            Next
        Else
            cmbRegion.ListIndex = 0
        End If
        If IsNull(GsysDial!ScriptID) Then
            txtscript.Text = ""
        Else
            txtscript.Text = GsysDial!ScriptID
        End If
        If IsNull(GsysDial!Comments) Then
            txtcomment.Text = ""
        Else
            txtcomment.Text = GsysDial!Comments
        End If
        If IsNull(GsysDial!CityName) Then
            txtcity.Text = ""
        Else
            txtcity.Text = GsysDial!CityName
        End If
        
        n = GsysDial!Flags
    
        Set RS = gsyspb.OpenRecordset("select * from bitflag order by bit, value")

        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
    End If

    If check = 0 Then
        Screen.MousePointer = 0
        Exit Sub
    End If

    SSTab1.Tab = 0
    CenterForm Me, Screen
    Screen.MousePointer = 0
    
Exit Sub
LoadErr:
    Exit Sub
End Sub

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

End Sub




Private Sub Label3_Change()

    Dim temp
    Dim sqlstm As String
    Dim countryid As Long
    
    If Label3.Caption <> "" Then
        countryid = Val(Label3.Caption)
        sqlstm = "Select CountryName from Country where CountryNumber = " & countryid
        Set temp = gsyspb.OpenRecordset(sqlstm, dbOpenSnapshot)
        dbCmbCty.Text = temp!countryname
    End If
    
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 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 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