📄 fbwt_form_yewuyuan.frm
字号:
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Begin VB.Form fbwt_Form_YeWuYuan
Caption = "业务员资料"
ClientHeight = 3165
ClientLeft = 60
ClientTop = 345
ClientWidth = 6615
Icon = "fbwt_Form_YeWuYuan.frx":0000
LinkTopic = "Form2"
LockControls = -1 'True
ScaleHeight = 3165
ScaleWidth = 6615
StartUpPosition = 3 '窗口缺省
Begin VB.Frame Frame1
Height = 3105
Left = 45
TabIndex = 0
Top = -15
Width = 6480
Begin VB.CommandButton Command6
Caption = "所有业务员"
Height = 255
Left = 330
TabIndex = 24
Top = 2595
Width = 1215
End
Begin VB.TextBox Text6
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
DataField = "邮编"
DataSource = "Adodc1"
Height = 270
IMEMode = 3 'DISABLE
Left = 1410
PasswordChar = "*"
TabIndex = 22
Top = 1260
Width = 1545
End
Begin MSAdodcLib.Adodc Adodc1
Height = 330
Left = 555
Top = 2820
Visible = 0 'False
Width = 1665
_ExtentX = 2937
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin VB.TextBox Text2
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
DataField = "职工编号"
DataSource = "Adodc1"
Height = 270
Left = 1110
TabIndex = 21
Top = 465
Width = 1845
End
Begin VB.CommandButton Command5
Caption = "查找"
Height = 270
Left = 2505
TabIndex = 19
Top = 2595
Width = 960
End
Begin VB.ComboBox Combo1
BackColor = &H00FFFFFF&
DataField = "性别"
DataSource = "Adodc1"
Height = 300
ItemData = "fbwt_Form_YeWuYuan.frx":0442
Left = 4140
List = "fbwt_Form_YeWuYuan.frx":044C
TabIndex = 18
Top = 435
Width = 1815
End
Begin VB.TextBox Text9
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
DataField = "备注"
DataSource = "Adodc1"
Height = 270
Left = 4425
MultiLine = -1 'True
TabIndex = 17
Text = "fbwt_Form_YeWuYuan.frx":0458
Top = 1740
Width = 1560
End
Begin VB.TextBox Text7
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
DataField = "联系地址"
DataSource = "Adodc1"
Height = 270
Left = 1440
TabIndex = 16
Top = 2115
Width = 4485
End
Begin VB.TextBox Text5
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
DataField = "手机号码"
DataSource = "Adodc1"
Height = 270
Left = 4410
TabIndex = 15
Top = 900
Width = 1515
End
Begin VB.TextBox Text4
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
DataField = "拷机号码"
DataSource = "Adodc1"
Height = 270
Left = 1455
TabIndex = 14
Top = 1695
Width = 1515
End
Begin VB.TextBox Text3
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
DataField = "家庭电话"
DataSource = "Adodc1"
Height = 270
Left = 4425
TabIndex = 13
Top = 1350
Width = 1515
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
DataField = "姓名"
DataSource = "Adodc1"
Height = 270
Left = 1110
TabIndex = 12
Top = 885
Width = 1845
End
Begin VB.CommandButton Command4
Caption = "退出"
Default = -1 'True
Height = 270
Left = 5400
TabIndex = 4
Top = 2595
Width = 960
End
Begin VB.CommandButton Command3
Caption = "添加"
Height = 270
Left = 1545
TabIndex = 3
Top = 2595
Width = 960
End
Begin VB.CommandButton Command2
Caption = "删除"
Height = 270
Left = 3480
TabIndex = 2
Top = 2595
Width = 960
End
Begin VB.CommandButton Command1
Caption = "修改"
Height = 270
Left = 4440
TabIndex = 1
Top = 2595
Width = 960
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "登录密码："
Height = 180
Left = 555
TabIndex = 23
Top = 1320
Width = 900
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "编号："
Height = 180
Left = 570
TabIndex = 20
Top = 510
Width = 540
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "备注："
Height = 180
Left = 3540
TabIndex = 11
Top = 1785
Width = 540
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "联系地址："
Height = 180
Left = 540
TabIndex = 10
Top = 2145
Width = 900
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "手机号码："
Height = 180
Left = 3495
TabIndex = 9
Top = 960
Width = 900
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "拷机号码："
Height = 180
Left = 555
TabIndex = 8
Top = 1740
Width = 900
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "家庭电话："
Height = 180
Left = 3525
TabIndex = 7
Top = 1380
Width = 900
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "性别："
Height = 180
Left = 3555
TabIndex = 6
Top = 510
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "姓名："
Height = 180
Left = 585
TabIndex = 5
Top = 930
Width = 540
End
End
End
Attribute VB_Name = "fbwt_Form_YeWuYuan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
On Error Resume Next
Dim fbwt_Rs As Recordset
If Combo1.Text = "" Or Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or Text9.Text = "" Then
MsgBox ("请输入完整！！"), vbExclamation, "提示"
Exit Sub
End If
Set fbwt_Rs = New Recordset
Set fbwt_Db = New Connection
Call fbwt_DataConnect
fbwt_Db.CursorLocation = adUseClient
fbwt_Db.Open fbwt_ConnectData
fbwt_Rs.Open "select * from 业务员 where 职工编号='" & Text2.Text & "'", fbwt_Db, adOpenStatic
If fbwt_Rs.EOF And fbwt_Rs.BOF Then
MsgBox ("没有这个业务员或你修改了编号！！"), vbExclamation, ""
Else
fbwt_Db.Execute "update 业务员 set 职工编号='" & Text2.Text & "',姓名='" & Text1.Text & "',性别='" & Combo1.Text & "',家庭电话='" & Text4.Text & "',拷机号码='" & Text3.Text & "',手机号码='" & Text5.Text & "',邮编='" & Text6.Text & "',联系地址='" & Text7.Text & "',备注='" & Text9.Text & "' where 职工编号='" & Text2.Text & "'"
MsgBox ("修改成功！"), vbExclamation, "OK"
End If
End Sub
Private Sub Command2_Click()
On Error Resume Next
If Text2.Text = "" Then
MsgBox ("请输入职工编号!!")
Exit Sub
End If
Dim fbwt_Rs As Recordset
If MsgBox("你确信要删除这个业务员吗！！！", vbYesNo, "提示") = vbYes Then
Set fbwt_Rs = New Recordset
Set fbwt_Db = New Connection
Call fbwt_DataConnect
fbwt_Db.CursorLocation = adUseClient
fbwt_Db.Open fbwt_ConnectData
fbwt_Rs.Open "select * from 业务员 where 职工编号='" & Text2.Text & "'", fbwt_Db, adOpenStatic
If fbwt_Rs.EOF And fbwt_Rs.BOF Then
MsgBox ("没有这个业务员！！"), vbExclamation, ""
Else
fbwt_Db.Execute "delete * from 业务员 where 职工编号='" & Text2.Text & "'"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text9.Text = ""
End If
Else
Exit Sub
End If
End Sub
Private Sub Command3_Click()
'On Error Resume Next
Dim fbwt_Rs As Recordset
If Text1.Text = "" Or Text2.Text = "" Or Text6.Text = "" Or Combo1.Text = "" Then
MsgBox ("请输入完整！！"), vbExclamation, "提示"
Exit Sub
End If
Set fbwt_Rs = New Recordset
Set fbwt_Db = New Connection
Call fbwt_DataConnect
fbwt_Db.CursorLocation = adUseClient
fbwt_Db.Open fbwt_ConnectData
fbwt_Rs.Open "select * from 业务员 where 职工编号='" & Text2.Text & "'", fbwt_Db, adOpenStatic
If fbwt_Rs.BOF And fbwt_Rs.EOF Then
fbwt_Db.Execute "insert into 业务员(职工编号,姓名,性别,家庭电话,拷机号码,手机号码,邮编,联系地址,备注) values('" & Text2.Text & "','" & Text1.Text & "','" & Combo1.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text5.Text & "','" & Text6.Text & "','" & Text7.Text & "','" & Text9.Text & "')"
MsgBox ("成功！！"), vbInformation, "OK"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text9.Text = ""
Else
MsgBox ("这个编号已有！！！"), vbExclamation, "出错"
Exit Sub
End If
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Command5_Click()
On Error Resume Next
Dim fbwt_Input
fbwt_Input = InputBox("请输入你的查找的姓名：", "输入", "输入姓名：")
If fbwt_Input = "" Then
Exit Sub
Else
'MsgBox (fbwt_Input)
Call fbwt_DataConnect
Adodc1.ConnectionString = fbwt_ConnectData
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from 业务员 where 姓名='" & fbwt_Input & "'"
Adodc1.Refresh
End If
End Sub
Private Sub Command6_Click()
On Error Resume Next
Dim fbwt_Rs As Recordset
Set fbwt_Rs = New Recordset
Set fbwt_Db = New Connection
Call fbwt_DataConnect
fbwt_Db.CursorLocation = adUseClient
fbwt_Db.Open fbwt_ConnectData
fbwt_Rs.Open "select * from 业务员 order by 职工编号", fbwt_Db, adOpenStatic
Set fbwt_DataChuLi.DataGrid1.DataSource = fbwt_Rs
fbwt_DataChuLi.Caption = "所有业务员"
fbwt_DataChuLi.Show
End Sub
Private Sub Form_Load()
On Error Resume Next
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
Call KeyA(KeyAscii)
End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)
Call KeyA(KeyAscii)
End Sub
Private Sub Text5_KeyPress(KeyAscii As Integer)
Call KeyA(KeyAscii)
End Sub
Private Sub Text6_KeyPress(KeyAscii As Integer)
Call KeyA(KeyAscii)
End Sub
Private Sub Text7_KeyPress(KeyAscii As Integer)
If Len(Text7.Text) > 49 Then
MsgBox ("数据不能大于50位！"), vbExclamation
KeyAscii = 0
Exit Sub
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -