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

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

2013-05-12 02:16 a(cboMerchName.ListIndex)  '商品类型Id
    .MerchName = cboMerchName.Text
    .RegDate = dtpRegDate.Value
    .OperatorId = m_Account   '操作者账号
  End With

End Sub

'取消按钮
Private Sub CancelButton_Click()
  Unload Me
End Sub

Private Sub Form_Load()
  Dim opMerch As New clsOpMerch
  opMerch.FillCombo cboMerchName
End Sub

'确定按钮
Private Sub OKButton_Click()
  OK = True
 
  '检测输入有效性
  If Not CheckValid Then Exit Sub
 
  '如果是新增状态，则初始化一个数据对象
  If m_ViewType = vtadd Then Set m_obj = New clsDispose
 
  '保存用户输入
  SaveValue
  Me.Hide
 
End Sub

 

 

3:供应商表:

代码分析:
Option Explicit
Private OK As Boolean             '确定用户按了OK还是CANCEL按钮
Private m_obj As clsProvider           '数据对象，用来存储用户输入数据
Public m_ViewType As gxcViewType  '显示状态，指添加还是修改

'根据是“新增”还是修改，确定显示内容
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   '查看 内容来自www.nseac.com
    CancelButton.Visible = False
    OKButton.Caption = "关闭"

  End Select

End Sub

'打开对话框，并传出用户输入数据
Public Function ShowDlg(ByRef obj As Object, _
                        ByVal eViewType As gxcViewType) As Boolean
  '保存数据
  Set m_obj = obj         '用户输入数据存放于此对象中
  m_ViewType = eViewType  '对话框状态
 
  '根据新增、编辑或查看设置显示内容
  SetStatus
 
  '显示对话框
  OK = False
  Me.Show vbModal
  If OK = False Then
    ShowDlg = False
    Exit Function
  End If
 
  '保存数据
  Set obj = m_obj
 
  '返回并释放对话框
  ShowDlg = True
  Unload Me
 
End Function

'设置控件默认值
Private Sub SetDefaultValue()
  Dim ctl As Control
  Dim i As Integer
 
 
 '如果是新增，则清空所有文本框
 '此处判断 m_obj为空与判断m_ViewType = vtAdd等效，但更安全
  If m_obj Is Nothing Then
    For Each ctl In Controls
      If TypeOf ctl Is TextBox Then
        ctl.Text = ""
      End If
    Next
  Else  '用传入对象的值更新数据
    With m_obj
      txtName.Text = .ProviderName
      txtIntro.Text = .Introduce
      txtRemark.Text = .Remark （科教范文网 Lw.nsEAc.com编辑整理）
     
    End With
  End If
 
End Sub

'检查输入有效性
Private Function CheckValid() As Boolean
  If txtName.Text = "" _