评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

超市进销存管理系统+VB(一)毕业论文(4)

2013-05-12 02:16 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, "登录" （科教范文网 lw.nSeAc.com编辑发布）
    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