📄 fzygl.frm
字号:
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "从"
ForeColor = &H80000008&
Height = 180
Left = 1560
TabIndex = 20
Top = 240
Visible = 0 'False
Width = 180
End
End
End
Begin vbalDTab6X.vbalDTabControlX vTab
Align = 2 'Align Bottom
Height = 2055
Left = 0
TabIndex = 0
Top = 7260
Width = 12840
_ExtentX = 22648
_ExtentY = 3625
TabAlign = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty SelectedFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
DrawStyle = 1
End
Begin VB.Frame Frame1
BackColor = &H00A2A251&
BorderStyle = 0 'None
ForeColor = &H00A2A251&
Height = 495
Left = 0
TabIndex = 12
Top = 0
Width = 11295
Begin VB.TextBox Tsel
Appearance = 0 'Flat
Height = 375
Left = 3840
TabIndex = 5
Top = 60
Width = 1455
End
Begin 保险秘书.isButton isButton3
Height = 495
Left = 90
TabIndex = 13
Top = 0
Width = 495
_ExtentX = 873
_ExtentY = 873
Icon = "Fzygl.frx":29C0
Style = 2
IconAlign = 4
iNonThemeStyle = 0
USeCustomColors = -1 'True
BackColor = 10658385
HighlightColor = 10854994
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 isButton4
Height = 495
Left = 615
TabIndex = 14
Top = 0
Width = 495
_ExtentX = 873
_ExtentY = 873
Icon = "Fzygl.frx":2F5A
Style = 2
IconAlign = 4
iNonThemeStyle = 0
USeCustomColors = -1 'True
BackColor = 10658385
HighlightColor = 10854994
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 isButton5
Height = 495
Left = 1140
TabIndex = 15
Top = 0
Width = 495
_ExtentX = 873
_ExtentY = 873
Icon = "Fzygl.frx":34F4
Style = 2
IconAlign = 4
iNonThemeStyle = 0
USeCustomColors = -1 'True
BackColor = 10658385
HighlightColor = 10854994
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 = 16
Top = 0
Width = 495
_ExtentX = 873
_ExtentY = 873
Icon = "Fzygl.frx":380E
Style = 2
IconAlign = 4
iNonThemeStyle = 0
USeCustomColors = -1 'True
BackColor = 10658385
HighlightColor = 10854994
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 = 2190
TabIndex = 6
Top = 0
Width = 495
_ExtentX = 873
_ExtentY = 873
Icon = "Fzygl.frx":3BA8
Style = 2
IconAlign = 4
iNonThemeStyle = 0
USeCustomColors = -1 'True
BackColor = 10658385
HighlightColor = 10854994
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 = 5400
TabIndex = 7
Top = 60
Width = 1695
_ExtentX = 2990
_ExtentY = 661
Icon = "Fzygl.frx":3F42
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 Label51
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "查询条件："
Height = 180
Left = 3000
TabIndex = 8
Top = 240
Width = 900
End
End
End
Attribute VB_Name = "Fzygl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Values() As String
Private NumPoints As Integer
Private Sub Form_Load()
Dim c As cTab
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
With vTab
Set c = .Tabs.Add("SOLUTION", , "组员资料")
c.IconIndex = 0
c.Panel = Pickl
Set c = .Tabs.Add("CLASS", , "业绩统计分析图")
c.IconIndex = 1
c.Panel = ismsg
End With
With Osex
.AddItem "男"
.AddItem "女"
.ListIndex = 0
End With
With Ohun
.AddItem "已婚"
.AddItem "未婚"
.ListIndex = 0
End With
Call Fresize
vTab.ShowCloseButton = False
Call sqlsel
End Sub
Private Sub Fresize()
Me.Width = Fmain.Width
Me.Height = Fmain.Height
Me.Left = 0
Me.Top = Fmain.Top
vTab.Height = Me.ScaleHeight - Frame1.Height
Frame1.Width = Pickl.Width
Frame2.Width = Me.ScaleWidth
Fname.Width = Pickl.Width
Fname.Top = Pickl.Height - Fname.Height - 100
Fmark.Width = Fname.Width - 200
Tmark.Width = Fmark.Width
Fshow.Width = Pickl.Width - 600
Fshow.Height = Pickl.Height - Fname.Height - 400
ListView1.Width = Fshow.Width
ListView1.Height = Fshow.Height - 200
McScore.Width = Me.ScaleWidth - 2600
McScore.Left = (Me.ScaleWidth - McScore.Width) - 1300
McScore.Height = Me.ScaleHeight - Frame2.Height - 1000
' McScore.Top = Me.ScaleHeight - Frame2.Height
Frame3.Left = (Fname.Width - Frame3.Width) / 2
End Sub
Private Sub isButton10_Click()
Call sqlsel
End Sub
Private Sub isButton12_Click()
Unload Me
End Sub
Private Sub isButton8_Click()
Dim sql As String
Dim rs As Recordset
Dim vdb As Boolean
Dim c As ListItem
ListView1.ListItems.Clear
sql = "select * from member where 姓名='" & Trim$(Tsel.Text) & "'"
vdb = ExcSql
If vdb = True Then
Set rs = conn.Execute(sql)
If Not rs.EOF Then
GoTo showmsg
Exit Sub
End If
sql = "select * from member where 手机号码='" & Trim$(Tsel.Text) & "'"
Set rs = conn.Execute(sql)
If Not rs.EOF Then
GoTo showmsg
Exit Sub
Else
MsgBox "您搜寻的信息不存在！"
Call sqlsel
End If
End If
Exit Sub
showmsg:
Do While Not rs.EOF
Set c = ListView1.ListItems.Add(, , rs("代号") & "")
c.SubItems(1) = rs("代号") & ""
c.SubItems(2) = rs("姓名") & ""
c.SubItems(3) = rs("性别") & ""
c.SubItems(4) = rs("年龄") & ""
c.SubItems(5) = rs("业绩") & "万"
c.SubItems(6) = rs("生日") & ""
c.SubItems(7) = rs("手机号码") & ""
c.SubItems(8) = rs("婚姻状况") & ""
c.SubItems(9) = rs("籍贯") & ""
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -