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

'保存数据
Private Sub SaveValue()
  '给“成员变量”对象赋值
  With m_obj
    '注意以下利用RealString函数替换去除输入中的单引号
    .ProviderName = RealString(txtName.Text)
    .Introduce = RealString(txtIntro.Text)
    .Remark = RealString(txtRemark.Text)
  End With

End Sub

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

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

5:管理员列表:

代码分析:
Option Explicit
Dim opAdmin As New clsOpAdmin

Private Sub CancelButton_Click()
  Unload Me
End Sub

Private Sub cmdAdd_Click()
  opAdmin.Add lvAdmin
End Sub

Private Sub cmdDel_Click()
  opAdmin.Delete lvAdmin
End Sub

Private Sub cmdModify_Click()
  opAdmin.Modify lvAdmin
End Sub

Private Sub Form_Load()
  opAdmin.FillListView lvAdmin
End Sub

6:主界面设计:

代码分析:
Option Explicit
Const NAME_COLUMN = 0
Const TYPE_COLUMN = 1
Const SIZE_COLUMN = 2
Const DATE_COLUMN = 3
 
Dim mbMoving As Boolean
Const sglSplitLimit = 500

Private Sub Form_Load()
  LoadResStrings Me
  Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
  Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
  Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
  Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)
 
  lvMerch.View = Val(GetSetting(App.Title, "Settings", "ViewMode", "0"))
 
  '初始化数据
  Call InitMain
End Sub

Private Sub Form_Unload(Cancel As Integer)
  Dim i As Integer

  'close all sub forms
  For i = Forms.Count - 1 To 1 Step -1
    Unload Forms(i)
  Next
  If Me.WindowState <> vbMinimized Then
    SaveSetting App.Title, "Settings", "MainLeft", Me.Left
    SaveSetting App.Title, "Settings", "MainTop", Me.Top
    SaveSetting App.Title, "Settings", "MainWidth", Me.Width
    SaveSetting App.Title, "Settings", "MainHeight", Me.Height
  End If
  SaveSetting App.Title, "Settings", "ViewMode", lvMerch.View
End Sub

Private Sub Form_Resize()
  On Error Resume Next
  If Me.Width < 3000 Then Me.Width = 3000
  SizeControls imgSplitter.Left
End Sub

Private Sub imgSplitter_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  With imgSplitter
    picSplitter.Move .Left, .Top, .Width \ 2, .Height - 20
  End With
  picSplitter.Visible = True
  mbMoving = True
End Sub

Private Sub imgSplitter_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  Dim sglPos As Single
 
  If mbMo

首页 上一页 4 5 6 7 8 9 10 下一页 尾页 7/11/11