超市销售系统设计思路.pptx

班级：12电信2班 小组成员： 曾昭鹏 4号 何双飞 12号 黄经伟 16号;1.用户信息（用户编号，名称，密码，用户类型） 2.销售员信息（员工编号，姓名，性别，身份证号码，职务， 电话） 3.销售信息（销售单编号，商品名称，商品编号，销售数 量，销售日期，销售单价） 4.会员信息（会员编号，姓名，性别，身份证号码，电话 ，注册时间） 5.库存信息（库存商品名称，商品库存编号，商品库存数量） 6.入库信息（进货单编号，商品编号，商品名称，商品数量， 入库日期，商品进价） 7.供货商信息（供货商编号,供货商名称，供应商地址，供应商 电话）;属性名;属性;属性;属性;属性;属性;Private Sub Command1_Click() Dim i% If Text1(0).Text = Or Text1(1).Text = Then MsgBox 用户或密码不允许为空, vbOKOnly + vbCritical, 信息提示 用户或密码为空的情况 Text1(0).Text = Text1(1).Text = Text1(0).SetFocus Else 用户或密码不为空的情况 With Adodc1.Recordset .MoveFirst For i = 0 To .RecordCount - 1 遍历数组 If Trim(.Fields(name)) = Trim(Text1(0).Text) And _ Trim(.Fields(password)) = Trim(Text1(1).Text) Then MsgBox 登录成功, vbOKOnly, 信息提示 信息提示 ; Unload Me interform.Show Exit For 退出循环 Else .MoveNext End If Next i If i = .RecordCount Then MsgBox 账号或密码不正确！请重新输入, vbOKOnly + vbCritical, 信息提示 Text1(0).Text = Text1(1).Text = 清空文本框 Text1(0).SetFocus 设置焦点位置 End If End With End If; Private Sub Command1_Click() With Adodc1.Recordset .AddNew s = Trim(InputBox(“请输入名称：”, “名称)) .Fields(“名称) = s Text1(0).Text = s s = Trim(InputBox(“请输入名称：”, “名称)) .Fields(职员编号) = s Text1(1).Text = s 。。。。。。。。。。。 。。。。。。。。。。。 s = Trim(InputBox(“请输入名称”, “名称)) .Fields(“名称) = s Text1(n).Text = s .Update End With If Text1(0) = “” And Text1(1) = “” And Text1(2) = “” 。。。。。。And Text1(n) = Then MsgBox 您未输入任何信息！, vbOKOnly, 信息提示 End If End Sub ;谢谢！