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