Or txtRemark.Text = "" Then
MsgBox "请填写完毕以上各项内容"
CheckValid = False
Exit Function
End If
CheckValid = True
End Function
'保存数据
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