📄 fzygladd.frm
字号:
Top = 240
Width = 540
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "学历："
Height = 180
Left = 2400
TabIndex = 29
Top = 600
Width = 540
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "专业："
Height = 180
Left = 4320
TabIndex = 28
Top = 600
Width = 540
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "特长："
Height = 180
Left = 4320
TabIndex = 27
Top = 960
Width = 540
End
Begin VB.Label Label11
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "小灵通或电话："
Height = 195
Left = 6720
TabIndex = 26
Top = 960
Width = 1260
End
Begin VB.Label Label13
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "手机："
Height = 195
Left = 480
TabIndex = 25
Top = 960
Width = 540
End
Begin VB.Label Label14
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "入司前职业："
Height = 180
Left = 8640
TabIndex = 24
Top = 600
Width = 1080
End
Begin VB.Label Label15
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "入司时间："
Height = 180
Left = 120
TabIndex = 23
Top = 600
Width = 900
End
Begin VB.Label Label16
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "E-MAIL："
Height = 180
Left = 9000
TabIndex = 22
Top = 240
Width = 720
End
Begin VB.Label Label18
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "业绩："
Height = 195
Left = 2400
TabIndex = 21
Top = 960
Width = 540
End
Begin VB.Label Label19
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "万"
Height = 195
Left = 3960
TabIndex = 20
Top = 960
Width = 180
End
End
Begin VB.TextBox Tmark
Appearance = 0 'Flat
Height = 3015
Left = 120
TabIndex = 2
Top = 2280
Width = 11055
End
Begin 保险秘书.isButton isBOk
Height = 375
Left = 8160
TabIndex = 1
Top = 5400
Width = 1215
_ExtentX = 2143
_ExtentY = 661
Icon = "FzyglAdd.frx":1194
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 保险秘书.isButton isButton1
Height = 375
Left = 9600
TabIndex = 36
Top = 5400
Width = 1215
_ExtentX = 2143
_ExtentY = 661
Icon = "FzyglAdd.frx":1A6E
Style = 5
Caption = " 取 消"
IconAlign = 1
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 VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "家庭住址："
Height = 180
Left = 120
TabIndex = 39
Top = 1680
Width = 900
End
Begin VB.Label Label12
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "备注："
Height = 195
Left = 480
TabIndex = 37
Top = 2040
Width = 540
End
End
End
Attribute VB_Name = "FzyglAdd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
FzyglAdd.Move (fZyglnew.ScaleWidth - Me.Width) / 2, (fZyglnew.ScaleHeight - Me.Height) / 2
Call ExplodeForm(Me, 1500)
With Osex
.AddItem "男"
.AddItem "女"
.ListIndex = 0
End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call ImplodeForm(Me, 1500, 800, 800)
End Sub
Private Sub isBOk_Click()
If Trim$(Tzy(0).Text) = "" Or Trim$(Tzy(1).Text) = "" Then
MsgBox "信息填写不完整！"
Exit Sub
End If
Call sqlinsert
fZyglnew.Timer1.Enabled = True
End Sub
Private Sub isButton1_Click()
Unload Me
End Sub
Private Sub sqlinsert()
Dim sql As String
Dim vdb As Boolean
Dim vnum As Integer
Dim age As Integer
Dim vda, vda1 As String
If Trim$(Tzy(2).Text) = "" Then
age = 0
Else
age = Trim$(Tzy(2).Text)
End If
If Trim$(Osr.Text) = "" Then
vda = Date
Else
vda = Trim$(Osr.Text)
End If
If Trim$(Osb.Text) = "" Then
vda1 = Date
Else
vda1 = Trim$(Osb.Text)
End If
vdb = ExcSql
If vdb = True Then
sql = "select count(*) from member where 代号='" & Tzy(0).Text & "'"
vnum = conn.Execute(sql)(0)
End If
If vnum = 0 Then
fZyglnew.Timer1.Enabled = True
sql = "insert into member values('" & Trim$(Tzy(0).Text) & "','" & Trim$(Tzy(1).Text) & "','" & Trim$(Tzy(10).Text) & "'," & _
" '" & Trim$(Osex.Text) & "'," & age & ",'" & Trim$(Tzy(3).Text) & "',''," & _
"'" & Trim$(Tzy(4).Text) & " ','" & Trim$(Tzy(5).Text) & "','" & Trim$(Tzy(11).Text) & "',#" & vda & "#," & _
"#" & vda1 & "#,'" & Trim$(Tzy(8).Text) & "','" & Trim$(Tzy(6).Text) & "','" & Trim$(Tzy(12).Text) & "','" & Trim$(Tmark.Text) & "','" & Trim$(Tzy(7).Text) & "','" & Trim$(Tzy(8).Text) & "')"
'MsgBox sql
'Exit Sub
Call exsql(sql)
Unload Me
Else
MsgBox Tzy(0).Text & "组员代号已经存在"
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -