form1.frm

请运行setup.exe 对软件进行安装

      Height          =   195
      Left            =   3000
      TabIndex        =   23
      Top             =   9960
      Width           =   375
   End
   Begin VB.Label Label23 
      Caption         =   "邮政编码："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   480
      TabIndex        =   22
      Top             =   9960
      Width           =   975
   End
   Begin VB.Label Label22 
      Caption         =   " 保险人联系地址："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   360
      TabIndex        =   21
      Top             =   9600
      Width           =   1815
   End
   Begin VB.Label Label21 
      Caption         =   "签 定 日 期         年       月    　  日"
      Height          =   195
      Left            =   480
      TabIndex        =   20
      Top             =   8565
      Width           =   4815
   End
   Begin VB.Label Label20 
      Caption         =   "特 别 约 定"
      Height          =   195
      Left            =   480
      TabIndex        =   19
      Top             =   8160
      Width           =   1215
   End
   Begin VB.Label Label19 
      Caption         =   "保险合同争议解决方式"
      Height          =   555
      Left            =   480
      TabIndex        =   18
      Top             =   7485
      Width           =   1215
   End
   Begin VB.Label Label18 
      Caption         =   "保 险 期 间　 　　　　月，自　　   年   　月   　日零时起，至 　　　 年 　　 月  　　日二十四时止"
      Height          =   195
      Left            =   480
      TabIndex        =   17
      Top             =   7005
      Width           =   10335
   End
   Begin VB.Label Label17 
      Caption         =   "保险费　 　       　　　　　　　　　　　　￥"
      Height          =   195
      Left            =   480
      TabIndex        =   16
      Top             =   6480
      Width           =   7575
   End
   Begin VB.Label Label16 
      Caption         =   "基准保险费(元)"
      Height          =   195
      Left            =   6120
      TabIndex        =   15
      Top             =   6000
      Width           =   1455
   End
   Begin VB.Label Label15 
      Caption         =   "累计责任限额(元)"
      Height          =   195
      Left            =   3240
      TabIndex        =   14
      Top             =   6000
      Width           =   1455
   End
   Begin VB.Label Label14 
      Caption         =   "每人责任限额(元)"
      Height          =   195
      Left            =   480
      TabIndex        =   13
      Top             =   6000
      Width           =   1455
   End
   Begin VB.Label Label13 
      Caption         =   "防火设施状况"
      Height          =   195
      Left            =   480
      TabIndex        =   12
      Top             =   5400
      Width           =   1215
   End
   Begin VB.Label Label12 
      Caption         =   "建筑结构"
      Height          =   195
      Left            =   6720
      TabIndex        =   11
      Top             =   4920
      Width           =   855
   End
   Begin VB.Label Label11 
      Caption         =   "有无（半）地下部分"
      Height          =   195
      Left            =   3000
      TabIndex        =   10
      Top             =   4920
      Width           =   1695
   End
   Begin VB.Label Label10 
      Caption         =   "营业面积"
      Height          =   195
      Left            =   480
      TabIndex        =   9
      Top             =   4920
      Width           =   855
   End
   Begin VB.Label Label9 
      Caption         =   "场 所 内 宿 舍 或 住 宅"
      Height          =   435
      Left            =   480
      TabIndex        =   8
      Top             =   4320
      Width           =   1215
   End
   Begin VB.Label Label8 
      Caption         =   "场所行业类别"
      Height          =   195
      Left            =   480
      TabIndex        =   7
      Top             =   3720
      Width           =   1215
   End
   Begin VB.Label Label7 
      Caption         =   "地      址"
      Height          =   195
      Left            =   480
      TabIndex        =   6
      Top             =   3120
      Width           =   1095
   End
   Begin VB.Label Label6 
      Caption         =   "投保场所名称"
      Height          =   195
      Left            =   480
      TabIndex        =   5
      Top             =   2520
      Width           =   1215
   End
   Begin VB.Label Label5 
      Caption         =   "经 营 范 围："
      Height          =   195
      Left            =   480
      TabIndex        =   4
      Top             =   1920
      Width           =   1215
   End
   Begin VB.Label Label4 
      Caption         =   "邮政编码："
      Height          =   195
      Left            =   5280
      TabIndex        =   3
      Top             =   1440
      Width           =   1215
   End
   Begin VB.Label Label3 
      Caption         =   "被保险人地址："
      Height          =   195
      Left            =   480
      TabIndex        =   2
      Top             =   1440
      Width           =   1575
   End
   Begin VB.Label Label2 
      Caption         =   "电话／传真："
      Height          =   195
      Left            =   5280
      TabIndex        =   1
      Top             =   960
      Width           =   1215
   End
   Begin VB.Label Label1 
      Caption         =   "被保险人名称："
      Height          =   195
      Left            =   480
      TabIndex        =   0
      Top             =   960
      Width           =   1455
   End
End
Attribute VB_Name = "form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
    
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Dim cn As New ADODB.Connection
  Dim AdoRs As New ADODB.Recordset
  Dim savepath1 As String
  Const LB_SETHORIZONTALEXTENT = &H194
  Private shlShell As Shell32.Shell
Private shlFolder As Shell32.Folder
Private Const BIF_RETURNONLYFSDIRS = &H1
Dim p1 As String

Private Sub address1_GotFocus()
On Error Resume Next
AutoSelect address1
End Sub

Private Sub address1_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
If KeyCode = 13 Or KeyCode = 10 Then SendKeys ((vbTab))

End Sub

Private Sub bxdh1_GotFocus()
On Error Resume Next
AutoSelect bxdh1
End Sub

Private Sub bxdh1_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
If KeyCode = 13 Or KeyCode = 10 Then SendKeys ((vbTab))
End Sub

Private Sub bxdh1_KeyPress(KeyAscii As Integer)
On Error Resume Next
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub

Private Sub bxf2_Change()
On Error Resume Next
'bxf2.Text = Format(bxf2.Text, "####0.00")
Label38.Caption = daxie(bxf2.Text)
bxf1.Text = Label38.Caption
End Sub

Private Sub bxf2_GotFocus()
On Error Resume Next
AutoSelect bxf2
End Sub

Private Sub bxf2_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
If KeyCode = 13 Or KeyCode = 10 Then SendKeys ((vbTab))
End Sub

Private Sub bxf2_KeyPress(KeyAscii As Integer)
On Error Resume Next
If KeyAscii = 46 Then If InStr(1, bxf2.Text, ".", vbTextCompare) <> 0 Then KeyAscii = 0
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 46 And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub

Private Sub bxf2_LostFocus()
On Error Resume Next
bxf2.Text = Format(bxf2.Text, "####0.00")
Label38.Caption = daxie(bxf2.Text)
bxf1.Text = Label38.Caption
End Sub



Private Sub bxhtzyjjfs1_GotFocus()
On Error Resume Next
AutoSelect bxhtzyjjfs1
End Sub

Private Sub bxhtzyjjfs1_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
If KeyCode = 13 Or KeyCode = 10 Then SendKeys ((vbTab))
End Sub

Private Sub bxqjdn1_Change()
On Error Resume Next
If Len(bxqjdn1.Text) = 4 Then SendKeys ((vbTab))
End Sub

Private Sub bxqjdn1_GotFocus()
On Error Resume Next
AutoSelect bxqjdn1
End Sub

Private Sub bxqjdn1_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
If KeyCode = 13 Or KeyCode = 10 Then SendKeys ((vbTab))
End Sub

Private Sub bxqjdr1_Change()
On Error Resume Next
If Len(bxqjdr1.Text) = 2 Then SendKeys ((vbTab))
bxqjdr1.Text = Format(bxqjdr1.Text, 0)
End Sub

Private Sub bxqjdr1_GotFocus()
On Error Resume Next
AutoSelect bxqjdr1
End Sub

Private Sub bxqjdr1_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
If KeyCode = 13 Or KeyCode = 10 Then SendKeys ((vbTab))
End Sub

Private Sub bxqjdy1_Change()
On Error Resume Next
If Len(bxqjdy1.Text) = 2 Then SendKeys ((vbTab))
bxqjdy1.Text = Format(bxqjdy1.Text, 0)
End Sub

Private Sub bxqjdy1_GotFocus()
On Error Resume Next
AutoSelect bxqjdy1
End Sub

Private Sub bxqjdy1_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
If KeyCode = 13 Or KeyCode = 10 Then SendKeys ((vbTab))
End Sub

Private Sub bxqjy1_GotFocus()
On Error Resume Next
AutoSelect bxqjy1
End Sub

Private Sub bxqjy1_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
If KeyCode = 13 Or KeyCode = 10 Then SendKeys ((vbTab))
End Sub

Private Sub bxqjzn1_Change()
On Error Resume Next
If Len(bxqjzn1.Text) = 4 Then SendKeys ((vbTab))
End Sub

Private Sub bxqjzn1_GotFocus()
On Error Resume Next
AutoSelect bxqjzn1
End Sub

Private Sub bxqjzn1_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
If KeyCode = 13 Or KeyCode = 10 Then SendKeys ((vbTab))
End Sub

Private Sub bxqjzr1_Change()
On Error Resume Next
If Len(bxqjzr1.Text) = 2 Then SendKeys ((vbTab))
bxqjzr1.Text = Format(bxqjzr1.Text, 0)
End Sub

Private Sub bxqjzr1_GotFocus()
On Error Resume Next
AutoSelect bxqjzr1
End Sub

Private Sub bxqjzr1_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
If KeyCode = 13 Or KeyCode = 10 Then SendKeys ((vbTab))
End Sub

Private Sub bxqjzy1_Change()
On Error Resume Next
If Len(bxqjzy1.Text) = 2 Then SendKeys ((vbTab))
bxqjzy1.Text = Format(bxqjzy1.Text, 0)
End Sub

Private Sub bxqjzy1_GotFocus()
On Error Resume Next
AutoSelect bxqjzy1
End Sub

Private Sub bxqjzy1_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
If KeyCode = 13 Or KeyCode = 10 Then SendKeys ((vbTab))
End Sub

Private Sub bxrlxdz1_GotFocus()
On Error Resume Next
AutoSelect bxrlxdz1
End Sub

Private Sub bxrlxdz1_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
If KeyCode = 13 Or KeyCode = 10 Then SendKeys ((vbTab))
End Sub

Private Sub Command10_Click()
On Error Resume Next


 If List4.ListIndex <> -1 Then
 cn.Execute "delete   from bxd    where bh=" + List4.List(List4.ListIndex)
  MsgBox "删除成功！"
  List1.Clear
  List2.Clear
  List3.Clear
  List4.Clear
  List5.Clear
     Dim strSQl As String
   Dim AdoRs1 As New ADODB.Recordset
  strSQl = "select * from bxd order by bxdh1"
  AdoRs1.Open strSQl, cn, adOpenKeyset, adLockReadOnly
  Do While Not AdoRs1.EOF
  List1.AddItem AdoRs1!username1
  List2.AddItem AdoRs1!address1
  List3.AddItem AdoRs1!phone1
  List4.AddItem AdoRs1!bh
  List5.AddItem AdoRs1!bxdh1
  AdoRs1.MoveNext
  Loop
  AdoRs1.Close
  
Else
MsgBox "请选择记录"
End If
End Sub

Private Sub Command11_Click()
On Error Resume Next
 If List4.ListIndex <> -1 Then
 Frame2.Visible = False
Dim strSQl As String
   strSQl = "select * from bxd where bh=" + List4.List(List4.ListIndex)

  AdoRs.Open strSQl, cn, adOpenKeyset, adLockOptimistic
If AdoRs!bxdh1 <> "" Then
bxdh1.Text = AdoRs!bxdh1
Else
bxdh1.Text = ""
End If
If AdoRs!username1 <> "" Then
username1.Text = AdoRs!username1
Else
username1.Text = ""
End If

If AdoRs!phone1 <> "" Then
phone1.Text = AdoRs!phone1
Else
phone1.Text = ""
End If
If AdoRs!address1 <> "" Then
address1.Text = AdoRs!address1