进销存管理系统的密码是多少_百度知道
进销存管理系统的密码是多少
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
重庆深知霖
重庆深知霖
采纳数：145
获赞数：88
每个系统的默认密码不一样，像深知霖进销存默认密码001
额，如果是自己注册的进销存管理系统就只有自己知道密码了。如果是说系统的试用版的话，那么不同软件不同。比如秦丝进销存的体验账号就不需要密码，直接可以登入试试了。
沐小北smile
沐小北smile
采纳数：57
获赞数：58
擅长：暂未定制
你当时申请的是哪家的密码，就去找他家的业务员．
采纳数：18
这个得看你什么软件吧。一般不是都有找回密码功能么
采纳数：291
获赞数：349
看你用的那个进销存软件了 每个都不一样的
lilidongdongd
lilidongdongd
采纳数：243
获赞数：711
连凯软件进销存对密码的管理非常严格。
其他3条回答
为你推荐：
其他类似问题
您可能关注的内容
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。进销存软件锁屏后忘记密码怎么办_百度知道
进销存软件锁屏后忘记密码怎么办
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
采纳数：897
获赞数：597
最后是与进销存软件厂商沟通一下这个问题。也许软件卸载了重新再装一次，就能登录了。但是，软件卸载，软件里面的数据还能不能保留，这个我就不清楚了，所以你一定要与软件厂商沟通后，找到真正的解决方法。一定要注意软件里面的数据不能丢。
为你推荐：
其他类似问题
您可能关注的内容
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。进销存管理系统 密码忘记怎么办_百度知道
进销存管理系统 密码忘记怎么办
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
采纳数：87
获赞数：204
擅长：暂未定制
那要看什么软件，如果是正版软件，一般来说系统管理员的可以修改非系统管理员的密码的，如果是系统管理员的密码忘记了，那就要找软件供应商帮你清空。
采纳数：160
获赞数：226
用这个替换掉 a5ae4a801fc3密码明文是：admin
就这个，学校课程设计，密码忘记了，后台编辑也进不去、、、
为你推荐：
其他类似问题
您可能关注的内容
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。查看: 26052|回复: 144
进销存管理系统2012最新力作 愿和大家共享
源码开放 密码123或321
阅读权限20
在线时间 小时
本帖最后由 小KS 于
22:14 编辑
最近有空 做一个原料进销存管理系统和大家共享& &菜鸟的vBA就是这样炼成的&&用自己了解的一边学习一边自己做一个系统&&这样vBA 就学得差不多入门了
认为做得好就 鼓励一； 你的鼓励我无限的动力&& 也请使用者和高手给意见 并帮忙简化代码
1、一个界面四个按钮让你自由切换进仓单、出仓单、盘盈单和盘亏单
2、一个备份按钮让你的数据更安全
3、一个导入按钮让你的数据能得到最快的修复
4、一个打印按钮让你自由打印各类单据
5、一个混动条让你自由查看数据库中每一张单据，如果需要可以配合删除按钮和修改按钮对单据进行删除或修改，清空按钮可以清空输入界面。
6、透视表中有日报表、月报表和库存表，库存明细账中任一查询都能自动生成透视表。
7、明细账中双击空格更是有各种各样的数据查询。也可以根据自己需要用VBA对代码进行二次开发。
8、在单据录入界面中还有删除行的功能
9、全面起用库位管理，让你不再为寻找物品浪费时间
10、单据录入中双击空格可以快速选择你要的人名和物品。
11、物品品名和型号相同，但供应商不同也应该用不同货号，以便供应商送货查询。
12、单号可以月初自动复位或随时运行单号复位宏进行手动复位。
13、使用方法：先运行&初始化清空&宏清空数据,基础信息表要按格式完善信息.再在期初数据表上填上物品信息和期初数据,有些行是有公式的,当物品比较多时,要记得把有公式的行往下拉复制公式.
14、物料码放超出库容或出仓数量不足都有报警。
15、想要二次开发；数据 初始化；成品进销存管理系统或2003版 ；请留你的邮箱 & & 或加我的QQ&&& && && &做人要厚道，下载要顶贴，你的支持就是我的动力！
下一个版本是excel和ACCESS连接&&2013敬请大家关注
下下一个版本是ACCESS独立进销存管理系统&&2013敬请大家关注
下下下一个版本是ACCESS的ASP网络进销存管理系统&&2013敬请大家关注和鼓励
6.jpg (17.79 KB, 下载次数: 6)
22:05 上传
5.jpg (45.95 KB, 下载次数: 13)
22:05 上传
1.jpg (119.5 KB, 下载次数: 7)
22:05 上传
(49.86 KB, 下载次数: 0)
22:05 上传
(37.68 KB, 下载次数: 0)
22:04 上传
(61.08 KB, 下载次数: 0)
22:04 上传
17:30 上传
点击文件名下载附件
328.82 KB, 下载次数: 2072
22:25 上传
点击文件名下载附件
327.65 KB, 下载次数: 2594
模糊查找改进版
阅读权限20
在线时间 小时
本帖最后由 小KS 于
20:59 编辑
想要二次开发；数据 初始化；成品进销存管理系统或2003版系统&&；请留你的邮箱& & 或加我的QQ
阅读权限30
在线时间 小时
本帖最后由 tianyk 于
18:28 编辑
库存明细帐 做的蛮好& && && &
阅读权限70
在线时间 小时
& & & & & & & &
先做个记号吧，也许以后用得到
阅读权限20
在线时间 小时
本帖最后由 小KS 于
18:44 编辑
tianyk 发表于
库存明细帐 做的蛮好
库存明细帐中的汇总透视表是自动生成的 另外点一下& &单据录入& &表中的&&显&&或&&隐 字 可打开或隐藏所有表格
阅读权限20
在线时间 小时
可以好好学习了！
阅读权限20
在线时间 小时
谢谢分享！！
阅读权限30
在线时间 小时
小KS 发表于
库存明细帐中的汇总透视表是自动生成的 另外点一下& &单据录入& &表中的&&显&&或&&隐 字 可打开或隐藏所有 ...
好象模糊查询窗体的‘tb’宏都不能用？在TextBox1中输入就报错。
阅读权限20
在线时间 小时
本帖最后由 小KS 于
23:04 编辑
tianyk 发表于
好象模糊查询窗体的‘tb’宏都不能用？在TextBox1中输入就报错。
模糊查询窗体中输入的内容必须是弹出窗体的第一列的内容才行的& &请用2007上版本打开
阅读权限30
在线时间 小时
& & & & & & & &
小KS 发表于
模糊查询窗体中输入的内容必须是弹出窗体的第一列的内容才行的& &请用2007上版本打开
把窗体UserForm6代码改成这样的，不管是输入哪行的关键字都可筛选出来。
Option Explicit
Dim strText$, strLen%, i%, ii%, IItext$
Dim Sht1 As Worksheet
Dim ASHEET As String
Dim ITM As ListItem, n%, M%, nn%, n1%
Dim Arrb, Myr%, n2%, n3%, n4%, n5%, n6%, n7%, n8%, n9%, n10%
Private Sub CommandButton1_Click()
& & Unload Me
Private Sub ListView1_DblClick()
'取回列表值
& & Dim CurrIndex As Integer
& & nn = 3
& & CurrIndex = ListView1.SelectedItem.Index
& & If CurrIndex & 0 Then Exit Sub
& &ASHEET = ActiveSheet.Name
& & With Sheets(ASHEET)
& & Range(Selection.Address) = ListView1.ListItems(CurrIndex).Text
& & Range(Selection.Address).Offset(0, 1) = ListView1.ListItems(CurrIndex).SubItems(1)
& & Range(Selection.Address).Offset(0, 2) = ListView1.ListItems(CurrIndex).SubItems(2)
& & Range(Selection.Address).Offset(0, 3) = ListView1.ListItems(CurrIndex).SubItems(3)
& & Range(Selection.Address).Offset(0, 4) = ListView1.ListItems(CurrIndex).SubItems(4)
& & Range(Selection.Address).Offset(0, 5) = ListView1.ListItems(CurrIndex).SubItems(5)
& & Range(Selection.Address).Offset(0, 6) = ListView1.ListItems(CurrIndex).SubItems(6)
& & Range(Selection.Address).Offset(0, 7) = ListView1.ListItems(CurrIndex).SubItems(7)
'& &Range(Selection.Address).Offset(0, 8) = ListView1.ListItems(CurrIndex).SubItems(8)
& &'.Cells(9, nn) = ListView1.ListItems(CurrIndex).Text
& & Range(&C15&).Select
& & End With
& & Unload Me
Private Sub UserForm_Initialize()
Dim ITM As ListItem
Me.Caption = &模糊查询& && && && && && &&&& & &今天是: & & Date & &--& & Format(Date, &[$-804]@&)
Set Sht1 = Sheet3
Myr = Sht1.[A65536].End(xlUp).Row
Arrb = Sht1.Range(&A2:K& & Myr)
For i = 1 To UBound(Arrb)
& & Set ITM = ListView1.ListItems.Add()
& & ITM.Text = Arrb(i, 1)
& & ITM.SubItems(1) = Arrb(i, 2)
& & ITM.SubItems(2) = Arrb(i, 3)
& & ITM.SubItems(3) = Arrb(i, 4)
& & ITM.SubItems(4) = Arrb(i, 5)
& & ITM.SubItems(5) = Arrb(i, 6)
& & ITM.SubItems(6) = Arrb(i, 7)
& & ITM.SubItems(7) = Arrb(i, 8)
& & ITM.SubItems(8) = Arrb(i, 9)
& & ITM.SubItems(9) = Arrb(i, 10)
& & With ListView1
& && &&&.View = lvwReport
& && &&&.FullRowSelect = True
& && &&&.Gridlines = True
& && &&&.LabelEdit = lvwManual
& & End With
& & Set ITM = ListView1.ListItems.Add()
& & ITM.Text = Sht1.Cells(ii, 1)
& & ITM.SubItems(1) = Sht1.Cells(ii, 2)
& & ITM.SubItems(2) = Sht1.Cells(ii, 3)
& & ITM.SubItems(3) = Sht1.Cells(ii, 4)
& & ITM.SubItems(4) = Sht1.Cells(ii, 5)
& & ITM.SubItems(5) = Sht1.Cells(ii, 6)
& & ITM.SubItems(6) = Sht1.Cells(ii, 7)
& & ITM.SubItems(7) = Sht1.Cells(ii, 8)
& & ITM.SubItems(8) = Sht1.Cells(ii, 9)
& & ITM.SubItems(9) = Sht1.Cells(ii, 10)
With ListView1
& & .ColumnHeaders.Clear
& & .ListItems.Clear
& & .ColumnHeaders.Add 1, , &货号&, ListView1.Width * 0.2
& & .ColumnHeaders.Add 2, , &名称&, ListView1.Width * 0.3
& & .ColumnHeaders.Add 3, , &型号&, ListView1.Width * 0.2
& & .ColumnHeaders.Add 4, , &单位&, ListView1.Width * 0.2
& & .ColumnHeaders.Add 5, , &类别&, ListView1.Width * 0.2
& & .ColumnHeaders.Add 6, , &供应商&, ListView1.Width * 0.2
& & .ColumnHeaders.Add 7, , &库位&, ListView1.Width * 0.2
& & .ColumnHeaders.Add 8, , &单价&, ListView1.Width * 0.2
& & .ColumnHeaders.Add 9, , &库存数量&, ListView1.Width * 0.2
& & .ColumnHeaders.Add 10, , &数量&, ListView1.Width * 0.2
& & .View = lvwReport
& & .Gridlines = True
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Application.ScreenUpdating = False
strText = TextBox1
strLen = Len(strText)
If strText = && Then
& & Call zb
& & For ii = 2 To Myr
& && &&&Call tb
& & Next ii
& & Exit Sub
For i = 2 To Myr
& & n1 = InStr(Sht1.Cells(i, 1), TextBox1.Text)
& & n2 = InStr(Sht1.Cells(i, 2), TextBox1.Text)
& & n3 = InStr(Sht1.Cells(i, 3), TextBox1.Text)
& & n4 = InStr(Sht1.Cells(i, 4), TextBox1.Text)
& & n5 = InStr(Sht1.Cells(i, 5), TextBox1.Text)
& & n6 = InStr(Sht1.Cells(i, 6), TextBox1.Text)
& & n7 = InStr(Sht1.Cells(i, 7), TextBox1.Text)
& & n8 = InStr(Sht1.Cells(i, 8), TextBox1.Text)
& & n9 = InStr(Sht1.Cells(i, 9), TextBox1.Text)
& & n10 = InStr(Sht1.Cells(i, 10), TextBox1.Text)
& & If n1 & 0 Or n2 & 0 Or n3 & 0 Or n4 & 0 Or n5 & 0 Or n6 & 0 Or n7 & 0 Or n8 & 0 Or n9 & 0 Or n10 & 0 Then
& && &&&ii = i
& && &&&Call tb
& & End If
Application.ScreenUpdating = True
Private Sub UserForm_Activate()
&&Me.TextBox1.SetFocus
&&UserForm6.StartUpPosition = 0
&&UserForm6.Top = 50
&&UserForm6.Left = 150
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师