【文件属性】:
文件名称:手机管理系统
文件大小:3.3MB
文件格式:RAR
更新时间:2015-02-28 04:15:45
vb手机管理系统
操作简单,适合小型手机店铺。Dim rs1 As New ADODB.Recordset
Private Sub cmdexit_Click()
frmmain.Visible = True
Unload Me
End Sub
Private Sub cmdOK_Click()
If txtuserid.Text = "" Then
MsgBox "请输入操作员编号!", vbOKOnly + vbInformation, "修改密码"
txtuserid.Text = ""
txtuserid.SetFocus
Exit Sub
Else
rs1.Open "select * from 密码 where 操作员编号= '" & Trim(txtuserid.Text) & "'", cnn, adOpenKeyset, adLockOptimistic
If rs1.RecordCount > 0 Then
txtusername.Text = Trim(rs1.Fields("操作员名称"))
End If
rs1.Close
End If
If txtusername.Text = "" Then
MsgBox "操作员编号不存在!", vbOKOnly + vbInformation, "修改密码"
txtuserid.Text = ""
txtuserid.SetFocus
Exit Sub
End If
If txtoldpass.Text = "" Then
MsgBox "请输入旧密码!", vbOKOnly + vbInformation, "修改密码"
txtoldpass.SetFocus
Exit Sub
End If
If txtnewpass.Text = "" Then
MsgBox "请输入新密码!", vbOKOnly + vbInformation, "修改密码"
txtnewpass.SetFocus
Exit Sub
End If
If txtnewpass1.Text = "" Then
MsgBox "请再次输入新密码!", vbOKOnly + vbInformation, "修改密码"
txtnewpass1.SetFocus
Exit Sub
End If
rs1.Open "select * from 密码 where 操作员编号= '" & Trim(txtuserid.Text) & "'", cnn, adOpenKeyset, adLockOptimistic
If rs1.RecordCount > 0 Then
If txtoldpass.Text <> Trim(rs1.Fields("密码")) Then
MsgBox "旧密码不正确!", vbOKOnly + vbInformation, "修改密码"
txtoldpass.Text = ""
txtoldpass.SetFocus
Else
If txtnewpass.Text = txtnewpass1.Text Then
rs1.Fields("密码") = txtnewpass.Text
rs1.Update
MsgBox "密码修改成功!", vbOKOnly + vbInformation, "修改密码"
rs1.Update
txtuserid.SetFocus
Else
MsgBox "两次输入的密码不一致,请重新输入!", vbOKOnly + vbInformation, "修改密码"
txtnewpass.Text = ""
txtnewpass1.Text = ""
txtnewpass.SetFocus
End If
End If
End If
rs1.Close
End Sub
Private Sub Form_Activate()
txtuserid.SetFocus
End Sub
Private Sub txtNewPass_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnewpass1.SetFocus
End If
End Sub
Private Sub txtNewPass1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmdok.SetFocus
End If
End Sub
Private Sub txtOldPass_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnewpass.SetFocus
End If
End Sub
Private Sub txtUserId_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtoldpass.SetFocus
End If
End Sub
Private Sub txtUserId_Change()
txtusername.Text = ""
txtoldpass.Text = ""
txtnewpass.Text = ""
txtnewpass1.Text = ""
End Sub
Private Sub txtuserid_LostFocus()
rs1.Open "select * from 密码 where 操作员编号= '" & Trim(txtuserid.Text) & "'", cnn, adOpenKeyset, adLockOptimistic
If rs1.RecordCount > 0 Then
If rs1.RecordCount > 0 Then
txtusername.Text = Trim(rs1.Fields("操作员名称"))
If txtusername.Text = "" Then
MsgBox "操作员编号不存在!", vbOKOnly + vbInformation, "修改密码"
txtuserid.Text = ""
txtuserid.SetFocus
Exit Sub
End If
End If
End If
rs1.Close
End Sub
【文件预览】:
手机销售管理系统6班25,27
----手机销售管理系统.exe(3.84MB)
----手机销售管理 备份(1.02MB)
----手机销售管理.frm()
--------frmsellfind.frx(11KB)
--------frm_modipass33.frx(11KB)
--------frmmain.frm(14KB)
--------frm_sell.frx(1KB)
--------frm_rk.frm(20KB)
--------frmsellfind.frm(16KB)
--------手机销售管理系统.vbw(864B)
--------Module1.bas(249B)
--------frmbasiccustomer.frx(11KB)
--------frm_sell.frm(20KB)
--------DBGRID32.OCX(513KB)
--------Frm_splash.frm(5KB)
--------Frm_adduser.frx(3KB)
--------frmbasicphone.frm(24KB)
--------DBGRID32.oca(60KB)
--------frm_about.frm(5KB)
--------frmcustomerfind.frm(6KB)
--------frm_delete.frm(6KB)
--------手机销售管理系统.vbp(2KB)
--------frmaddfind.frm(20KB)
--------frm_modipass33.frm(9KB)
--------frm_delete.log(2KB)
--------frmbasicphone.frx(11KB)
--------Frm_adduser.frm(15KB)
--------frm_about.frx(1KB)
--------MSSCCPRJ.SCC(201B)
--------frmaddfind.frx(11KB)
--------Frmlogin.frm(10KB)
--------frm_delete.frx(1KB)
--------frmmain.frx(3.52MB)
--------Frmlogin.frx(16KB)
--------frmcustomerfind.frx(11KB)
--------frmphonefind.frx(11KB)
--------frmbasiccustomer.frm(24KB)
--------frmphonefind.frm(11KB)
--------frm_rk.frx(1KB)
--------Frm_splash.frx(4KB)
网友评论
- 这资源总体不错啊