📄 inter_net_connections.frm
字号:
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 2
BCOL = 14737632
FCOL = 0
FCOLO = 0
EMBOSSM = 12632256
EMBOSSS = 16777215
MPTR = 0
MICON = "INTER_NET_CONNECTIONS.frx":0E46
ALIGN = 1
IMGLST = "(None)"
IMGICON = "(None)"
ICONAlign = 0
ORIENT = 0
STYLE = 0
IconSize = 2
SHOWF = -1 'True
BSTYLE = 0
End
Begin Crystal.CrystalReport CrystalReport1
Left = 7800
Top = 4680
_ExtentX = 741
_ExtentY = 741
_Version = 348160
WindowControlBox= -1 'True
WindowMaxButton = -1 'True
WindowMinButton = -1 'True
WindowState = 2
PrintFileLinesPerPage= 60
End
Begin LVbuttons.LaVolpeButton LaVolpeButton1
Height = 315
Left = 7680
TabIndex = 2
Top = 600
Width = 615
_ExtentX = 1085
_ExtentY = 556
BTYPE = 3
TX = "&New"
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 2
BCOL = 14737632
FCOL = 0
FCOLO = 0
EMBOSSM = 12632256
EMBOSSS = 16777215
MPTR = 0
MICON = "INTER_NET_CONNECTIONS.frx":0E62
ALIGN = 1
IMGLST = "(None)"
IMGICON = "(None)"
ICONAlign = 0
ORIENT = 0
STYLE = 0
IconSize = 2
SHOWF = -1 'True
BSTYLE = 0
End
Begin LVbuttons.LaVolpeButton LaVolpeButton2
Height = 315
Left = 6240
TabIndex = 3
Top = 960
Width = 1335
_ExtentX = 2355
_ExtentY = 556
BTYPE = 3
TX = "&Verify"
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 2
BCOL = 14737632
FCOL = 0
FCOLO = 0
EMBOSSM = 12632256
EMBOSSS = 16777215
MPTR = 0
MICON = "INTER_NET_CONNECTIONS.frx":0E7E
ALIGN = 1
IMGLST = "(None)"
IMGICON = "(None)"
ICONAlign = 0
ORIENT = 0
STYLE = 0
IconSize = 2
SHOWF = -1 'True
BSTYLE = 0
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 375
Index = 0
Left = 4320
TabIndex = 9
Top = 4800
Width = 1695
_ExtentX = 2990
_ExtentY = 661
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
CustomFormat = "dd-MMM-yyyy"
Format = 22740995
CurrentDate = 37463
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 375
Index = 1
Left = 4320
TabIndex = 10
Top = 5280
Width = 1695
_ExtentX = 2990
_ExtentY = 661
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
CustomFormat = "dd-MMM-yyyy"
Format = 22740995
CurrentDate = 37463
End
Begin VB.Image Image1
Height = 2280
Left = 0
Picture = "INTER_NET_CONNECTIONS.frx":0E9A
Top = 0
Width = 1785
End
Begin VB.Label Label1
BackColor = &H00FFFFFF&
Caption = "Registered Date"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 4
Left = 2040
TabIndex = 22
Top = 4800
Width = 2175
End
Begin VB.Label Label1
BackColor = &H00FFFFFF&
Caption = "User Name"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 6
Left = 2040
TabIndex = 21
Top = 4440
Width = 2175
End
Begin VB.Label Label1
BackColor = &H00FFFFFF&
Caption = "Billing Price"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 7
Left = 2040
TabIndex = 20
Top = 5640
Width = 2175
End
Begin VB.Label Label1
BackColor = &H00FFFFFF&
Caption = "Expire Date"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 8
Left = 2040
TabIndex = 19
Top = 5280
Width = 2175
End
Begin VB.Label Label1
BackColor = &H00FFFFFF&
Caption = "Serial Number"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 9
Left = 2040
TabIndex = 18
Top = 4080
Width = 2175
End
Begin VB.Label Label1
BackColor = &H00FFFFFF&
Caption = "Package Detail"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 2
Left = 2040
TabIndex = 17
Top = 1560
Width = 2175
End
Begin VB.Label Label1
BackColor = &H00FFFFFF&
Caption = "Purchased Price"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 5
Left = 2040
TabIndex = 16
Top = 3720
Width = 2175
End
Begin VB.Label Label1
BackColor = &H00FFFFFF&
Caption = "Purchased From"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 3
Left = 2040
TabIndex = 15
Top = 1920
Width = 2175
End
Begin VB.Label Label1
BackColor = &H00FFFFFF&
Caption = "Customer Name"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 2040
TabIndex = 14
Top = 600
Width = 2175
End
Begin VB.Label Label1
BackColor = &H00FFFFFF&
Caption = "Customer ID"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 1
Left = 2040
TabIndex = 13
Top = 240
Width = 2175
End
End
Attribute VB_Name = "INTER_NET_CONNECTIONS"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim cust_names As New ADODB.Recordset
Public Status As Boolean
Public FNAME As String
Dim R As New ADODB.Recordset
Dim RS_PR As New ADODB.Recordset
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -