📄 fyjgl.frm
字号:
Top = 180
Width = 1440
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "至"
Height = 180
Left = 2760
TabIndex = 22
Top = 180
Width = 180
End
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 500
Left = 11400
Top = 0
End
Begin 保险秘书.isButton isButton10
Height = 495
Left = 1800
TabIndex = 1
Top = 0
Visible = 0 'False
Width = 495
_ExtentX = 873
_ExtentY = 873
Icon = "Fyjgl.frx":0B34
Style = 2
IconAlign = 4
iNonThemeStyle = 0
Enabled = 0 'False
USeCustomColors = -1 'True
BackColor = 10854994
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 isButton11
Height = 495
Left = 120
TabIndex = 2
Top = 0
Width = 495
_ExtentX = 873
_ExtentY = 873
Icon = "Fyjgl.frx":0ECE
Style = 2
IconAlign = 4
iNonThemeStyle = 0
USeCustomColors = -1 'True
BackColor = 10854994
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 = 720
TabIndex = 3
Top = 0
Width = 495
_ExtentX = 873
_ExtentY = 873
Icon = "Fyjgl.frx":1268
Style = 2
IconAlign = 4
iNonThemeStyle = 0
USeCustomColors = -1 'True
BackColor = 10854994
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 isButton1
Height = 375
Left = 8040
TabIndex = 4
Top = 60
Width = 1455
_ExtentX = 2566
_ExtentY = 661
Icon = "Fyjgl.frx":1602
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
Value = -1 'True
End
End
Begin vbalDTab6X.vbalDTabControlX vTab
Align = 2 'Align Bottom
Height = 615
Left = 0
TabIndex = 9
Top = 9150
Width = 14445
_ExtentX = 25479
_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 pu1
Caption = "pu1"
Visible = 0 'False
Begin VB.Menu m1_add
Caption = "添加"
End
Begin VB.Menu m1_change
Caption = "修改"
End
Begin VB.Menu m1_del
Caption = "删除"
End
End
Begin VB.Menu pu2
Caption = "pu2"
Visible = 0 'False
Begin VB.Menu m2_add
Caption = "添加"
End
Begin VB.Menu m2_change
Caption = "修改"
End
Begin VB.Menu m2_del
Caption = "删除"
End
End
End
Attribute VB_Name = "Fyjgl"
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
Dim i As Integer
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
Call Form_Resize
With vTab
Set c = .Tabs.Add("SOLUTION", , "业绩管理")
c.IconIndex = 0
c.Panel = Pickl
Set c = .Tabs.Add("CLSS", , "团队业绩管理")
c.IconIndex = 1
c.Panel = Pickl1
Set c = .Tabs.Add("CLSE", , "组员业绩管理")
c.IconIndex = 2
c.Panel = Pickl2
End With
With Obr
For i = 1 To 12
.AddItem i
Next
.ListIndex = 0
End With
vTab.ShowCloseButton = False
Call showTital
Oend.Text = Date
Ostart.Text = DateAdd("m", -1, Date)
Call ssqlshow
Call ssqlgroup
Call ssqlgroupPeo
End Sub
Private Sub showTital()
MSFzy.Cols = 7
InitSingleCol Fyjgl.MSFzy, "年 月", 0, 0, 1300
InitSingleCol Fyjgl.MSFzy, "投保日期", 1, 0, 1500
InitSingleCol Fyjgl.MSFzy, "客户姓名", 2, 0, 1840
InitSingleCol Fyjgl.MSFzy, "保险合同编号", 3, 0, 2000
InitSingleCol Fyjgl.MSFzy, "联系电话", 4, 0, 1800
InitSingleCol Fyjgl.MSFzy, "保险费", 5, 0, 1482
InitSingleCol Fyjgl.MSFzy, "地址", 6, 0, 3200
MSFzy.Rows = 1
End Sub
Private Sub ShowTital1()
MSFzy1.Cols = 10
InitSingleCol Fyjgl.MSFzy1, "编号", 0, 0, 0
InitSingleCol Fyjgl.MSFzy1, "经办人", 1, 0, 1000
InitSingleCol Fyjgl.MSFzy1, "险种", 2, 0, 1500
InitSingleCol Fyjgl.MSFzy1, "被保险人", 3, 0, 1200
InitSingleCol Fyjgl.MSFzy1, "行驶证车主", 4, 0, 1200
InitSingleCol Fyjgl.MSFzy1, "保险单编号", 5, 0, 1800
InitSingleCol Fyjgl.MSFzy1, "发票号", 6, 0, 2000
InitSingleCol Fyjgl.MSFzy1, "登记日期", 7, 0, 1200
InitSingleCol Fyjgl.MSFzy1, "到帐情况", 8, 0, 1000
InitSingleCol Fyjgl.MSFzy1, "保费", 9, 0, 1000
MSFzy1.Rows = 1
End Sub
Private Sub ShowTital2()
MSFzy2.Cols = 5
InitSingleCol Fyjgl.MSFzy2, "编号", 0, 0, 0
InitSingleCol Fyjgl.MSFzy2, "组员代码", 1, 0, 1000
InitSingleCol Fyjgl.MSFzy2, "姓名", 2, 0, 1500
InitSingleCol Fyjgl.MSFzy2, "业绩", 3, 0, 1200
InitSingleCol Fyjgl.MSFzy2, "应收保费", 4, 0, 1200
MSFzy2.Rows = 1
End Sub
Private Sub Form_Resize()
Me.Width = Fmain.Width
Me.Height = Fmain.Height
Me.Left = 0
Me.Top = Fmain.Top
vTab.Height = Me.ScaleHeight - Frame1.Height
Pickl.Width = Me.Width
Pickl.Height = vTab.Height - 400
Pickl1.Width = Me.Width
Pickl1.Height = vTab.Height - 400
Pickl2.Height = vTab.Height - 400
Frame1.Width = Me.Width
MSFzy.Width = Pickl.Width
MSFzy.Height = Pickl.Height
MSFzy1.Width = Pickl1.Width
MSFzy1.Height = Pickl1.Height
MSFzy2.Width = Pickl2.Width
MSFzy2.Height = Pickl2.Height
End Sub
Private Sub isButton1_Click()
'Fsms.SetFocus
' Fsms.Show
money.SetFocus
money.Show
End Sub
Private Sub isButton10_Click()
'Call ssqlshow
End Sub
Private Sub isButton11_Click()
If vTab.Tabs.Item(1).Selected Then
Call printDate(Fyjgl.MSFzy)
End If
If vTab.Tabs.Item(2).Selected Then
Call printDate(Fyjgl.MSFzy1)
End If
If vTab.Tabs.Item(3).Selected Then
Call printDate(Fyjgl.MSFzy2)
End If
End Sub
Private Sub isButton12_Click()
Unload Me
End Sub
Private Sub ssqlshow()
Dim sql As String
Dim rs As Recordset
Dim vdb As Boolean
Dim c As ListItem
Dim vy, vm, vtime, vy1, vm1, vstring As String
vy = ""
vm = ""
vy1 = ""
vm1 = ""
MSFzy.Clear
Call showTital
sql = "select startdate,tbr,serial,telno,bfee,addr,do_time from insurance_info where ( year(do_time)>= '" & Year(Ostart.Text) & "' and month(do_time)>='" & Month(Ostart.Text) & "') or ( year(do_time)<= '" & Year(Oend.Text) & "' and month(do_time)<='" & Month(Oend.Text) & "') order by do_time desc"
vdb = ExcSql
If vdb = True Then
'MsgBox sql
Set rs = conn.Execute(sql)
If Not rs.EOF Then
Do While Not rs.EOF
vtime = rs("do_time")
vy = Year(vtime)
vm = Month(vtime)
If vy = "" And vm = "" Then
vy1 = vy
vm1 = vm
vstring = vy & "年" & vm & "月" & "◆◆◆◆◆◆◆◆◆◆◆◆◆◆"
'MsgBox vstring
Call AddRowInFlex(Fyjgl.MSFzy, vstring)
GoTo showmsg
Else
If vy = vy1 And vm = vm1 Then
GoTo showmsg
Else
vy1 = vy
vm1 = vm
vstring = vy & "年" & vm & "月" & "◆◆◆◆◆◆◆◆◆◆◆◆◆◆"
'MsgBox vstring
Call AddRowInFlex(Fyjgl.MSFzy, vstring)
GoTo showmsg
End If
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -