超市进销存管理系统+VB(四)

最新活动：微信集50个赞就可获取任意一篇钻石会员文档。详情见微信集赞换文档

超市进销存管理系统+VB(四) 0与微软的access作为数据库,技术上开发难度一般.
经济上:本系统服务于超市管理人员,提高了工作人员办事效率,节省了开支.所以具有经济上的可行性.
社会上:本系统同时也方便了广大顾客,.所以具有社会可行性.

第三章系统的设计

系统的功能结构设计

3．2 系统的数据库设计

1:用户登陆表:

2:购入商品表:

3:商品保损表:

4:商品信息表:

5:供应商表:

6:销售表:

3.3 界面设计与代码设计

登陆界面设计:

代码分析:
Option Explicit

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long

Public OK As Boolean
Dim m_Admin As New clsAdmin
Dim m_nErrCount As Integer

Private Sub Form_Load()
m_nErrCount = 0
End Sub

Private Sub cmdCancel_Click()
OK = False
Me.Hide
End Sub

Private Sub cmdOK_Click()
'ToDo: 创建测试密码是否正确
'检查正确密码
Dim Account As String
Dim Pwd As String
Account = RealString(txtUserName.Text)
Pwd = RealString(txtPassword.Text)
'判断密码是否正确
If Not m_Admin.CheckPwd(Account, Pwd) Then
    m_nErrCount = m_nErrCount + 1
    If m_nErrCount >= 3 Then
      MsgBox "输入密码错误次数太多，请稍后重试", vbExclamation
      End
    End If
    MsgBox "密码错误，再试一次！还有 " & 3 - m_nErrCount & " 次机会，注意密码区分大小写", vbCritical, "登录"
    txtPassword.SetFocus
    txtPassword.SelStart = 0
    txtPassword.SelLength = Len(txtPassword.Text)
Else
    OK = True
    g_Account = Account
    Me.Hide
End If

End Sub

2:报损信息表:

代码分析:
Option Explicit
Private OK As Boolean             '确定用户按了OK还是CANCEL按钮
Private m_obj As clsDispose         '数据对象，用来存储用户输入数据
Public m_ViewType As gxcViewType '显示状态，指添加还是修改
Private m_TypeId As Long
Private m_Account As String       '调用此对话框的操作员

'根据是“新增”还是修改，确定显示内容
Private Sub SetStatus()

'设置控件默认值
Call SetDefaultValue

'设置状态
Select Case m_ViewType
Case vtadd    '添加
    CancelButton.Visible = True
    OKButton.Caption = "确定"
Case vtModify '修改
    CancelButton.Visible = True
    OKButton.Caption = "保存"
Case vtInfo   '查看
    CancelButton.Visible = False
    OKButton.Caption = "关闭"

End Select

End Sub

'打开对话框，并传出用户输入数据
Public Function ShowDlg(ByRef obj As Object, _
                        ByVal eViewType As gxcViewType, _
                        Optional nTypeId As Long = -1, _
                        Optional strUser As S

首页上一页 1 2 3 4 5 6 7 下一页尾页 4/11/11

超市进销存管理系统+VB(四)由毕业论文网（www.huoyuandh.com）会员上传。