文件名称：手机管理系统
文件大小：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)