📄 fsys.frm
字号:
LabelWrap = -1 'True
HideSelection = -1 'True
AllowReorder = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = 12771569
BorderStyle = 1
Appearance = 0
NumItems = 0
End
Begin VB.Frame Frame4
BackColor = &H00A5A252&
Height = 735
Left = 120
TabIndex = 18
Top = 4320
Width = 12015
Begin VB.TextBox Tupws
Appearance = 0 'Flat
Height = 315
IMEMode = 3 'DISABLE
Left = 4320
PasswordChar = "*"
TabIndex = 22
Text = "******"
Top = 240
Width = 7455
End
Begin VB.TextBox Tuname
Appearance = 0 'Flat
Height = 315
Left = 1320
TabIndex = 20
Top = 240
Width = 1455
End
Begin VB.Label Lpws
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "密 码："
Height = 180
Left = 3360
TabIndex = 21
Top = 360
Width = 720
End
Begin VB.Label Lname
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "用户名："
Height = 180
Left = 120
TabIndex = 19
Top = 360
Width = 720
End
End
End
Begin VB.Frame Fmail
BackColor = &H00A5A252&
Caption = "邮件服务设置"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2295
Left = 5880
TabIndex = 2
Top = 6600
Width = 6975
Begin VB.TextBox Tname
Appearance = 0 'Flat
Height = 375
Left = 5160
TabIndex = 14
Top = 1560
Width = 1695
End
Begin VB.TextBox Tmymail
Appearance = 0 'Flat
Height = 375
Left = 1080
TabIndex = 12
Top = 1560
Width = 2655
End
Begin VB.TextBox Tpws
Appearance = 0 'Flat
Height = 375
Left = 5160
TabIndex = 10
Top = 960
Width = 1695
End
Begin VB.TextBox Tuser
Appearance = 0 'Flat
Height = 375
Left = 1080
TabIndex = 8
Top = 960
Width = 2655
End
Begin VB.TextBox Tport
Appearance = 0 'Flat
Height = 375
Left = 6000
TabIndex = 6
Top = 240
Width = 855
End
Begin VB.TextBox Taddr
Appearance = 0 'Flat
Height = 375
Left = 2160
TabIndex = 4
Top = 240
Width = 3135
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "姓 名："
Height = 180
Left = 4390
TabIndex = 13
Top = 1680
Width = 720
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "邮件地址："
Height = 180
Left = 120
TabIndex = 11
Top = 1680
Width = 900
End
Begin VB.Line Line4
BorderColor = &H80000005&
BorderStyle = 6 'Inside Solid
X1 = 120
X2 = 6840
Y1 = 1450
Y2 = 1450
End
Begin VB.Line Line3
BorderColor = &H80000005&
BorderStyle = 6 'Inside Solid
X1 = 120
X2 = 6840
Y1 = 860
Y2 = 860
End
Begin VB.Line Line2
BorderStyle = 6 'Inside Solid
X1 = 120
X2 = 6840
Y1 = 1440
Y2 = 1440
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "发送邮件密码："
Height = 180
Left = 3840
TabIndex = 9
Top = 1080
Width = 1260
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "邮件帐号："
Height = 180
Left = 120
TabIndex = 7
Top = 1080
Width = 900
End
Begin VB.Line Line1
BorderStyle = 6 'Inside Solid
X1 = 120
X2 = 6840
Y1 = 840
Y2 = 840
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "端口："
Height = 180
Left = 5400
TabIndex = 5
Top = 360
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "发送邮件服务器(SMTP)："
Height = 180
Left = 120
TabIndex = 3
Top = 360
Width = 1980
End
End
End
Attribute VB_Name = "Fsys"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
Dim i As Integer
Dim mRow As ListItem
With Osel
.AddItem "用户管理"
.AddItem "承保公司设置"
.AddItem "车辆颜色设置"
.AddItem "车辆使用性质设置"
.AddItem "业务量设置"
.AddItem "险种设置"
.AddItem "邮件服务设置"
.AddItem "个人佣金密码设置"
.ListIndex = 0
End With
With Oyear
.AddItem "2004"
.AddItem "2005"
.AddItem "2006"
.AddItem "2007"
.AddItem "2008"
.AddItem "2009"
.AddItem "2010"
.AddItem "2011"
.AddItem "2012"
.AddItem "2013"
.AddItem "2014"
.AddItem "2015"
.ListIndex = 1
End With
With Omonth
For i = 1 To 12
.AddItem i
Next i
.ListIndex = 0
End With
Call Fresize
Call sqlshow("用户管理")
Call sqlshow("业务量设置")
End Sub
Private Sub Fresize()
Me.Width = Fmain.Width
Me.Height = Fmain.Height
Me.Left = 0
Me.Top = Fmain.Top
Frame1.Left = 0
Frame2.Left = 0
Frame3.Width = Me.ScaleWidth
Frame2.Width = Me.ScaleWidth / 2
Frame2.Top = Me.ScaleHeight - Frame2.Height
Fmail.Left = Frame2.Width + 100
Fmail.Width = Frame2.Width - 100
Fmail.Top = Frame2.Top
Frame1.Width = Me.ScaleWidth
Frame1.Height = Me.ScaleHeight - Frame2.Height - Frame3.Height - 300
Lv1.Width = Frame2.Width - 200
Lv1.Height = Frame2.Height - 350
lvuser.Width = Frame1.Width - 200
lvuser.Height = Frame1.Height - 400
Frame5.Width = Frame2.Width - 200
Frame5.Visible = False
Frame5.Enabled = False
Frame4.Width = Frame1.Width - 200
Frame4.Visible = False
Frame4.Enabled = False
End Sub
Private Sub showlv()
lvuser.ListItems.Clear
End Sub
Private Sub isButton12_Click()
Unload Me
End Sub
Private Sub isButton3_Click()
Select Case Osel.Text
Case "用户管理"
Frame4.Enabled = True
Frame4.Visible = True
lvuser.Height = Frame1.Height - Frame4.Height - 100
Frame4.Top = Frame1.Height - Frame4.Height - 100
Lname.Caption = "用户名："
Lpws.Caption = "密码："
Tupws.PasswordChar = "*"
Case "承保公司设置"
Frame4.Enabled = True
Frame4.Visible = True
lvuser.Height = Frame1.Height - Frame4.Height - 100
Frame4.Top = Frame1.Height - Frame4.Height - 100
Lname.Caption = "承保公司名称："
Lpws.Caption = "说明："
Case "车辆颜色设置"
Frame4.Enabled = True
Frame4.Visible = True
lvuser.Height = Frame1.Height - Frame4.Height - 100
Frame4.Top = Frame1.Height - Frame4.Height - 100
Lname.Caption = "车辆颜色："
Lpws.Caption = "说明："
Case "车辆使用性质设置"
Frame4.Enabled = True
Frame4.Visible = True
lvuser.Height = Frame1.Height - Frame4.Height - 100
Frame4.Top = Frame1.Height - Frame4.Height - 100
Lname.Caption = "车辆使用性质："
Lpws.Caption = "说明："
Case "业务量设置"
Frame5.Enabled = True
Frame5.Visible = True
Lv1.Height = Frame2.Height - Frame5.Height - 100
Frame5.Top = Frame2.Height - Frame5.Height - 100
Case "险种设置"
Frame4.Enabled = True
Frame4.Visible = True
lvuser.Height = Frame1.Height - Frame4.Height - 100
Frame4.Top = Frame1.Height - Frame4.Height - 100
Lname.Caption = "险种名称："
Lpws.Caption = "说明："
Case "个人佣金密码设置"
Frame4.Enabled = True
Frame4.Visible = True
lvuser.Height = Frame1.Height - Frame4.Height - 100
Frame4.Top = Frame1.Height - Frame4.Height - 100
Lname.Caption = "用户名："
Lpws.Caption = "密码："
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -