3.6.9 国内城市区号邮编查询

3.6.9  国内城市区号邮编查询

国内城市区号邮编查询是客户管理系统中比较有特点的窗体之一，在该窗体中以地图的形式显示全国信息，当用户的鼠标移动到相应的省份时，该省份名称即凹陷，以突出显示，如图3.34所示，在右边的空白处即可显示该省份的资源信息。当用鼠标单击该省份时，即可进入该省份的窗体中，在该省份的窗体中可查询相应的邮编区号信息，如图3.36所示。在该窗体中除了可以以地图的形式显示信息之外，还可以以列表的形式显示全国的区号和邮编信息。

图3.34  全国邮编区号查询窗体

图3.35  吉林省区号邮编查询窗体

1．窗体设计

（1）在工程中新建一个窗体，将窗体的“名称”设置为“Frm_Xxcx_Yb”，“Caption”属性设置为“国内城市邮编区号查询”，“MaxButton”属性设置为“False”。

（2）向窗体中添加一个“PictureBox”控件 ，设置其“Picture”属性为“客户管理系统\Program\Image\地图\全国地图.jpg”。该控件用于显示全国地图信息。

（3）向窗体中添加一个“DataGrid”控件 和一个“ADO”控件 。设置“DataGrid”控件的“名称”属性为“Dgr_Yb”，“DataSource”属性为“Adodc1”；设置“Adodc1”的“RecordSource”属性为“select * from tb_Client_csxx”，“CommandType”属性为“1– adCmdText”，“Visible”属性为“False”。其中，“DataGrid”控件用于显示全国城市的邮编和区号信息，“ADO”用于数据连接。

（4）向窗体中添加一个“Label”控件，设置其“Name”属性为“Lbl_Info”，用于当鼠标移动到相应的省份时显示省份资源信息。

（5）向窗体上添加34个“Label”控件，将其设置为以“Lbl_Province”为名称的控件数组，再将每个“Label”控件都放置在省份名称上，并设置其“BackStyle”为“0 – Transparent”，“Caption”属性为空。

2．代码设计

在程序运行时，当鼠标移动到放置在省份名称上的“Lbl_Province”控件上时，设置“Label”控件的边框形式，并在右边的空白处显示相应的省份资源信息，其实现的代码如下：

//……………………………………………例程3-22……………………………………………………//
Private Sub Lbl_Province_MouseMove(Index As Integer, Button 
As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Index
Case 0
…
Case 14  '吉林
Lbl_Province(14).BorderStyle = 1
rs1.Open "select * from tb_Client_sfzy where sfzy_sfmc='吉林省'", Cnn, adOpenKeyset
If rs1.RecordCount > 0 Then
Lbl_Info.Caption = "           省份资源简介" + Chr(10) + Chr(10) + 
rs1.Fields("sfzy_zyms")
End If
rs1.Close
…
End Select
End Sub

//……………………………………………例程3-23……………………………………………………//
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, 
X As Single, Y As Single)
For i = 0 To 33
Lbl_Province(i).BorderStyle = 0
Lbl_Info.Caption = ""
Next i
End Sub