frm_xxcx_yb.frm

本系统为客户管理系统 (1)本系统的数据库为SQL Server 2000

Adodc1.RecordSource = "select * from tb_Client_csxx where csxx_sfmc  like +'%'+'" + Txt_Sf + "'+'%'"
Adodc1.Refresh
Set Dgr_Yb.DataSource = Adodc1
Call Dgr_Title
End Sub

Private Sub Txt_Xs_Change()  '按城市查询
If Txt_Sf.Text = "" Then
  Adodc1.RecordSource = "select * from tb_Client_csxx where csxx_csmc like +'%'+'" + Txt_Xs + "'+'%' "
  Adodc1.Refresh
  Set Dgr_Yb.DataSource = Adodc1
  Call Dgr_Title
Else
  Adodc1.RecordSource = "select * from tb_Client_csxx where csxx_sfmc like + '%'+'" + Txt_Sf + "'+'%' and csxx_csmc like +'%'+'" + Txt_Xs + "'+'%'"
  Adodc1.Refresh
  Set Dgr_Yb.DataSource = Adodc1
  Call Dgr_Title
End If
End Sub

Private Sub Txt_Xs_GotFocus()
Txt_Xs.BackColor = &HFFFF80
End Sub


Private Sub Txt_Xs_LostFocus()
Txt_Xs.BackColor = &HFFFFFF
End Sub

Private Sub Cmd_Dt_Click()
'地图显示
Dgr_Yb.Visible = False
Picture1.Visible = True
Frame2.Visible = False
End Sub

Private Sub Cmd_Lb_Click()  '列表显示
'设置控件可用
Picture1.Visible = False
Frame2.Visible = True
Dgr_Yb.Visible = True
'设置控件位置
Dgr_Yb.Top = 200
Dgr_Yb.Left = 100
'刷新
Adodc1.RecordSource = "select * from tb_Client_csxx "
Adodc1.Refresh
Set Dgr_Yb.DataSource = Adodc1
Call Dgr_Title   '调用过程
'清空控件内容
Txt_Sf.Text = ""
Txt_Xs.Text = ""
Txt_Sf.SetFocus   '设置焦点
End Sub

Private Sub Form_Load()
'设置控件状态
Adodc1.ConnectionString = PublicStr
Picture1.Visible = True
Dgr_Yb.Visible = False
Frame2.Visible = False
Adodc1.RecordSource = "select * from tb_Client_csxx"
Adodc1.Refresh
Set Dgr_Yb.DataSource = Adodc1
Call Dgr_Title
End Sub

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
   '安徽省
  Lbl_Province(0).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
Case 1
   '澳门
  Lbl_Province(1).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
Case 2
   '北京
  Lbl_Province(2).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
Case 3
   '福建
  Lbl_Province(3).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
Case 4
   '甘肃
  Lbl_Province(4).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
Case 5
   '广东
  Lbl_Province(5).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
Case 6
  '广西
  Lbl_Province(6).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
Case 7
  '贵州
  Lbl_Province(7).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
Case 8
   '海南
  Lbl_Province(8).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
Case 9
  '河北
  Lbl_Province(9).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
Case 10
  '河南
  Lbl_Province(10).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
Case 11
  '黑龙江
  Lbl_Province(11).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
Case 12
  '湖北
  Lbl_Province(12).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
Case 13
  '湖南
  Lbl_Province(13).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
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
Case 15
  '江苏
  Lbl_Province(15).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
Case 16
  '江西
  Lbl_Province(16).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
Case 17
  '辽宁
  Lbl_Province(17).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
Case 18
 '内蒙古
  Lbl_Province(18).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
Case 19
  '宁夏
  Lbl_Province(19).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
Case 20
  '青海
  Lbl_Province(20).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
Case 21
 '山东
  Lbl_Province(21).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
Case 22
  '山西
  Lbl_Province(22).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
Case 23
  '陕西
  Lbl_Province(23).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
Case 24
  '上海
  Lbl_Province(24).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
Case 25
  '四川
  Lbl_Province(25).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
Case 26
  '台湾
  Lbl_Province(26).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
Case 27
  '天津
  Lbl_Province(27).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
Case 28
  '西藏
  Lbl_Province(28).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
Case 29
  '香港
  Lbl_Province(29).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
Case 30
 '新疆
  Lbl_Province(30).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
Case 31
 '云南
  Lbl_Province(31).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
Case 32
  '浙江
  Lbl_Province(32).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
Case 33
 '重庆
  Lbl_Province(33).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

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