📄 frm_xxcx_yb.frm
字号:
Width = 480
End
Begin VB.Label Lbl_Province
BackStyle = 0 'Transparent
Height = 450
Index = 9
Left = 5760
TabIndex = 18
Top = 2775
Width = 240
End
Begin VB.Label Lbl_Province
BackStyle = 0 'Transparent
Height = 210
Index = 27
Left = 6165
TabIndex = 17
Top = 2625
Width = 375
End
Begin VB.Label Lbl_Province
BackStyle = 0 'Transparent
Height = 465
Index = 2
Left = 5940
TabIndex = 16
Top = 2355
Width = 180
End
Begin VB.Label Lbl_Province
BackStyle = 0 'Transparent
Height = 240
Index = 17
Left = 6555
TabIndex = 15
Top = 2070
Width = 600
End
Begin VB.Label Lbl_Province
BackStyle = 0 'Transparent
Height = 240
Index = 14
Left = 6945
TabIndex = 14
Top = 1635
Width = 675
End
Begin VB.Label Lbl_Province
BackStyle = 0 'Transparent
Height = 300
Index = 11
Left = 6855
TabIndex = 13
Top = 900
Width = 990
End
Begin VB.Label Lbl_Province
BackStyle = 0 'Transparent
Height = 660
Index = 22
Left = 5385
TabIndex = 12
Top = 2730
Width = 255
End
Begin VB.Label Lbl_Province
BackStyle = 0 'Transparent
Height = 585
Index = 23
Left = 4965
TabIndex = 11
Top = 3075
Width = 285
End
Begin VB.Label Lbl_Province
BackStyle = 0 'Transparent
Height = 435
Index = 8
Left = 5025
TabIndex = 10
Top = 6195
Width = 405
End
Begin VB.Label Lbl_Province
BackStyle = 0 'Transparent
Height = 450
Index = 6
Left = 4845
TabIndex = 9
Top = 5400
Width = 735
End
Begin VB.Label Lbl_Province
BackStyle = 0 'Transparent
Height = 285
Index = 31
Left = 3525
TabIndex = 8
Top = 5385
Width = 840
End
Begin VB.Label Lbl_Province
BackStyle = 0 'Transparent
Height = 1005
Index = 25
Left = 3885
TabIndex = 7
Top = 4065
Width = 360
End
Begin VB.Label Lbl_Province
BackStyle = 0 'Transparent
Height = 720
Index = 19
Left = 4485
TabIndex = 6
Top = 2790
Width = 225
End
Begin VB.Label Lbl_Province
BackStyle = 0 'Transparent
Height = 210
Index = 18
Left = 4035
TabIndex = 5
Top = 2460
Width = 1200
End
Begin VB.Label Lbl_Province
BackStyle = 0 'Transparent
Height = 285
Index = 4
Left = 2970
TabIndex = 4
Top = 2460
Width = 585
End
Begin VB.Label Lbl_Province
BackStyle = 0 'Transparent
Height = 465
Index = 20
Left = 2625
TabIndex = 3
Top = 3105
Width = 1275
End
Begin VB.Label Lbl_Province
BackStyle = 0 'Transparent
Height = 555
Index = 28
Left = 1410
TabIndex = 2
Top = 4020
Width = 1680
End
Begin VB.Label Lbl_Province
BackStyle = 0 'Transparent
Height = 720
Index = 30
Left = 375
TabIndex = 1
Top = 2220
Width = 2055
End
End
Begin VB.Label Lbl_info
Caption = "Lbl_info"
Height = 7350
Left = 8295
TabIndex = 35
Top = 30
Width = 3465
End
End
Attribute VB_Name = "Frm_Xxcx_Yb"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs1 As New ADODB.Recordset
Sub Dgr_Title() '设置DataGrid控件的标题信息
Dgr_Yb.Columns(0).Caption = "省份简称"
Dgr_Yb.Columns(1).Caption = "省份名称"
Dgr_Yb.Columns(2).Caption = "城市名称"
Dgr_Yb.Columns(3).Caption = "邮政编码"
Dgr_Yb.Columns(4).Caption = "电话区号"
End Sub
Private Sub Cmd_Exit_Click() '退出
Unload Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
Frm_Main.Enabled = True
End Sub
Private Sub Lbl_Province_Click(Index As Integer)
Select Case Index
Case 0
'安徽省
Load Frm_Province_Anhui
Frm_Province_Anhui.Show 1
'Case 1
' '澳门
' Load Frm_Province_Aomen
' Frm_Province_Aomen.Show 1
Case 2
'北京市
Load Frm_Province_Beijing
Frm_Province_Beijing.Show 1
Case 3
'福建
Load Frm_Province_Fujian
Frm_Province_Fujian.Show 1
Case 4
'甘肃
Load Frm_Province_Gansu
Frm_Province_Gansu.Show 1
Case 5
'广东
Load Frm_Province_Guangdong
Frm_Province_Guangdong.Show 1
Case 6
'广西
Load Frm_Province_Guangxi
Frm_Province_Guangxi.Show 1
Case 7
'贵州
Load Frm_Province_Guizhou
Frm_Province_Guizhou.Show 1
Case 8
'海南
Load Frm_Province_Hainan
Frm_Province_Hainan.Show 1
Case 9
'河北
Load Frm_Province_Hebei
Frm_Province_Hebei.Show 1
Case 10
'河南
Load Frm_Province_Henan
Frm_Province_Henan.Show 1
Case 11
'黑龙江
Load Frm_Province_Heilongjiang
Frm_Province_Heilongjiang.Show 1
Case 12
'湖北
Load Frm_Province_Hubei
Frm_Province_Hubei.Show 1
Case 13
'湖南
Load Frm_Province_Hunan
Frm_Province_Hunan.Show 1
Case 14
'吉林
Load Frm_Province_Jilin
Frm_Province_Jilin.Show 1
Case 15
'江苏
Load Frm_Province_Jiangsu
Frm_Province_Jiangsu.Show 1
Case 16
'江西
Load Frm_Province_Jiangxi
Frm_Province_Jiangxi.Show 1
Case 17
'辽宁
Load Frm_Province_Liaoning
Frm_Province_Liaoning.Show 1
Case 18
'内蒙古
Load Frm_Province_Neimenggu
Frm_Province_Neimenggu.Show 1
Case 19
'宁夏
Load Frm_Province_Ningxia
Frm_Province_Ningxia.Show 1
Case 20
'青海
Load Frm_Province_Qinghai
Frm_Province_Qinghai.Show 1
Case 21
'山东
Load Frm_Province_Shandong
Frm_Province_Shandong.Show 1
Case 22
'山西
Load Frm_Province_Shanxi1
Frm_Province_Shanxi1.Show 1
Case 23
'陕西
Load Frm_Province_Shanxi3
Frm_Province_Shanxi3.Show 1
Case 24
'上海
Load Frm_Province_Shanghai
Frm_Province_Shanghai.Show 1
Case 25
'四川
Load Frm_Province_Sichuan
Frm_Province_Sichuan.Show 1
Case 26
'台湾
Load Frm_Province_Taiwan
Frm_Province_Taiwan.Show 1
Case 27
'天津
Load Frm_Province_Tianjin
Frm_Province_Tianjin.Show 1
Case 28
'西藏
Load Frm_Province_Xizang
Frm_Province_Xizang.Show 1
'Case 29
' '香港
' Load Frm_Province_Xianggang
' Frm_Province_Xianggang.Show 1
Case 30
'新疆
Load Frm_Province_Xinjiang
Frm_Province_Xinjiang.Show 1
Case 31
'云南
Load Frm_Province_YunNan
Frm_Province_YunNan.Show 1
Case 32
'浙江
Load Frm_Province_Zhejiang
Frm_Province_Zhejiang.Show 1
Case 33
'重庆
Load Frm_Province_Chongqing
Frm_Province_Chongqing.Show 1
End Select
End Sub
Private Sub Txt_Sf_GotFocus()
Txt_Sf.BackColor = &HFFFF80
End Sub
Private Sub Txt_Sf_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Txt_Xs.SetFocus
End Sub
Private Sub Txt_Sf_LostFocus()
Txt_Sf.BackColor = &HFFFFFF
End Sub
Private Sub Txt_Sf_Change() '按省份查询
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -