1034 lines
32 KiB
Plaintext
1034 lines
32 KiB
Plaintext
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
|
|
|
|
|