📄 fkhgl.frm
字号:
Tooltiptitle = ""
ToolTipIcon = 0
ToolTipType = 0
ttForeColor = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin 保险秘书.isButton isButton10
Height = 495
Left = 1665
TabIndex = 32
Top = 0
Width = 495
_ExtentX = 873
_ExtentY = 873
Icon = "FKhgl.frx":0EB9
Style = 2
IconAlign = 4
iNonThemeStyle = 0
USeCustomColors = -1 'True
BackColor = 10658385
HighlightColor = 10658385
Tooltiptitle = ""
ToolTipIcon = 0
ToolTipType = 0
ttForeColor = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin 保险秘书.isButton isButton11
Height = 495
Left = 2190
TabIndex = 33
Top = 0
Width = 495
_ExtentX = 873
_ExtentY = 873
Icon = "FKhgl.frx":1253
Style = 2
IconAlign = 4
iNonThemeStyle = 0
USeCustomColors = -1 'True
BackColor = 10658385
HighlightColor = 10658385
Tooltiptitle = ""
ToolTipIcon = 0
ToolTipType = 0
ttForeColor = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin 保险秘书.isButton isButton12
Height = 495
Left = 2730
TabIndex = 34
Top = 0
Width = 495
_ExtentX = 873
_ExtentY = 873
Icon = "FKhgl.frx":15ED
Style = 2
IconAlign = 4
iNonThemeStyle = 0
USeCustomColors = -1 'True
BackColor = 10658385
HighlightColor = 10658385
Tooltiptitle = ""
ToolTipIcon = 0
ToolTipType = 0
ttForeColor = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin 保险秘书.isButton isButton8
Height = 375
Left = 10680
TabIndex = 36
Top = 60
Width = 975
_ExtentX = 1720
_ExtentY = 661
Icon = "FKhgl.frx":1987
Style = 5
Caption = " 查询"
IconAlign = 1
Tooltiptitle = ""
ToolTipIcon = 0
ToolTipType = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label Label53
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "车牌号："
Height = 195
Left = 8520
TabIndex = 41
Top = 240
Width = 720
End
Begin VB.Label Label52
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "客户或保单列表 投保人："
Height = 195
Left = 5040
TabIndex = 39
Top = 240
Width = 2205
End
Begin VB.Label Label51
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "查询条件："
Height = 180
Left = 3360
TabIndex = 37
Top = 180
Width = 900
End
End
Begin MSComctlLib.ImageList ilsIcons
Left = 10320
Top = 360
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 393216
End
Begin vbalDTab6X.vbalDTabControlX vTab
Align = 2 'Align Bottom
Height = 615
Left = 0
TabIndex = 22
Top = 8265
Width = 12045
_ExtentX = 21246
_ExtentY = 1085
TabAlign = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty SelectedFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
DrawStyle = 1
End
Begin VB.Menu mp
Caption = "popmenu"
Visible = 0 'False
Begin VB.Menu madd
Caption = "添加家庭成员或朋友"
End
Begin VB.Menu mchange
Caption = "修改家庭成员或朋友"
End
Begin VB.Menu mdel
Caption = "删除家庭成员或朋友"
End
End
End
Attribute VB_Name = "FKhgl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
Dim c As cTab
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
Call Fresize
With vTab
' .ImageList = ilsIcons
Set c = .Tabs.Add("SOLUTION", , "客户列表")
c.IconIndex = 0
c.Panel = Pickl
Set c = .Tabs.Add("CLASS", , "客户详细资料")
c.IconIndex = 1
c.Panel = ismsg
'Set c = .Tabs.Add("SHOWBA", , "保单列表")
'c.IconIndex = 2
'c.Panel = Pickl1
'Set c = .Tabs.Add("SHOWBAO", , "保单详细资料")
'c.IconIndex = 3
'c.Panel = imsg1
End With
vTab.ShowCloseButton = False
Call ssqlshow
End Sub
Private Sub Fresize()
Me.Width = Fmain.Width
Me.Height = Fmain.Height
Me.Left = 0
Me.Top = Fmain.Top
Frame1.Width = Me.ScaleWidth
vTab.Height = Me.ScaleHeight - Frame1.Height
Pickl.Width = vTab.Width
Pickl.Height = vTab.Height
ismsg.Width = vTab.Width
ismsg.Height = vTab.Height
Fpeo.Width = Pickl.Width - 100
Fpeo.Height = Pickl.Height - Fjp.Height - Fjk.Height - 600
Fjk.Top = Fpeo.Height + 200
Fjp.Top = Fpeo.Height + Fjk.Height + 200
Fjk.Width = Pickl.Width - 100
Fjp.Width = Pickl.Width - 100
ListViewzl.Height = Fpeo.Height - 250
ListViewzl.Width = Fpeo.Width - 80
Tjg.Width = Fjk.Width - 40
ListViewjt.Width = Fjp.Width - 80
Fkhzl.Width = ismsg.Width - 100
Fkhzl.Height = ismsg.Height - 450
Fmiddle.Left = (Fkhzl.Width - Fmiddle.Width) / 2
Fmiddle.Top = (Fkhzl.Height - Fmiddle.Height) / 2
Exit Sub
End Sub
Private Sub isButton10_Click()
Call ssqlshow
End Sub
Private Sub isButton11_Click()
If ListViewzl.ListItems.Count > 0 Then
gPrintListView ListViewzl, "客户资料"
Else
MsgBox "没有需要打印的内容"
End If
End Sub
Private Sub isButton12_Click()
Unload Me
End Sub
Private Sub isButton3_Click()
Dim i As Long
FbdNew.Show
FbdNew.SetFocus
FbdNew.Tnew.Text = "add"
FbdNew.vTab.Tabs.Item(2).Selected = True
FbdNew.Thead.Text = ""
For i = 0 To 15
FbdNew.Tname(i).Text = ""
Next i
For i = 0 To 8
FbdNew.Tcar(i).Text = ""
Next i
FbdNew.a1.Text = 0
FbdNew.b1.Text = 0
'FbdNew.a2.Text = 0
FbdNew.b2.Text = 0
FbdNew.a3.Text = 0
FbdNew.b3.Text = 0
'FbdNew.a4.Text = 0
FbdNew.b4.Text = 0
FbdNew.a5.Text = 0
FbdNew.b5.Text = 0
FbdNew.a6.Text = 0
FbdNew.b6.Text = 0
FbdNew.a7.Text = 0
FbdNew.b7.Text = 0
FbdNew.a8.Text = 0
FbdNew.b8.Text = 0
FbdNew.a9.Text = 0
FbdNew.b9.Text = 0
FbdNew.a10.Text = 0
FbdNew.b10.Text = 0
FbdNew.b11.Text = 0
FbdNew.b12.Text = 0
FbdNew.Otb.Text = Date
FbdNew.Otbd.Text = Date
FbdNew.Tyd.Text = ""
FbdNew.Tbz.Text = ""
FbdNew.Thead.Enabled = True
End Sub
Private Sub isButton4_Click()
Dim sql As String
If ListViewzl.ListItems.Count > 0 Then
If MsgBox("你确定将" & Trim$(ListViewzl.SelectedItem.Text) & "的所有信息都删除么？", vbYesNo, "确认提示") = vbYes Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -