3.6.10 区号邮编查询

3.6.10  区号邮编查询

吉林省区号邮编查询窗体是全国省份区号查询窗体中的一个，现在就以吉林省为例，简单介绍一下该窗体的设计和代码编写思路。图3.35即为运行结果。

1．窗体设计

（1）在工程中新建一个窗体，将窗体的名称设置为“Frm_Province_Jilin”，“Caption”属性设置为“吉林省”，“MaxButton”属性设置为“False”。

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

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

（4）向窗体中添加“Label”控件，设置其“名称”属性为“Lbl_Info”，用于当鼠标移动到相应的位置上时显示该城市的邮编和区号信息。

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

（6）向窗体上添加两个“OptionButton”控件 ，分别设置其“名称”属性为“Otn_Dt”和“Otn_Lb”，设置其“Caption”属性为“地图显示”和“列表显示”。

（7）向窗体上添加其他控件。

2．代码设计

在程序运行时，当鼠标移动到放置在城市名称上的“Lbl_JiLin”控件上时，“Lbl_JiLin”出现边框，并在右边的“Lb1_Info”控件中显示该城市的邮编和区号信息；当鼠标离开时，设置“Lbl_JiLin”控件为无边框。其设计思路和代码实现与全国城市区号邮编查询窗体的实现方式基本相同，在这里就不再赘述了。

当用户选中“列表显示”时，系统将图片隐藏，并显示相应的列表信息，用户可以在下面的文本框中输入要查询的城市名称，即可查询出相应城市的邮编和区号信息，其实现界面如图3.36所示。

图3.36  吉林省邮编区号查询的列表显示

 //……………………………………………例程3-24………………………
……………………………//
Private Sub Otn_Lb_Click()   '列表显示
If Otn_Lb.Value = True Then
Picture1.Visible = False
Dgr_Yb.Visible = True
Frame2.Visible = True
Dgr_Yb.Top = 300: Dgr_Yb.Left = 200: Dgr_Yb.Height = 4000
Txt_Key.Text = ""
Call Dgr_Title  '调用自定义过程
End If
End Sub

//……………………………………………例程3-25……………………
………………………………//
Private Sub Txt_Key_GotFocus()  '文本框获得焦点
Txt_Key.BackColor = &HFFFF80
End Sub
Private Sub Txt_Key_LostFocus()   '文本框失去焦点
Txt_Key.BackColor = &HFFFFFF
End Sub