Text3.Text = \特级会员\End If End Sub
Private Sub Toolbar1_ButtonClick(ByVal button As MSComctlLib.button) Select Case button Case \新增\
For i = 0 To 4 Text1(i) = \ Next i
Text1(0).SetFocus
Command1.Enabled = True Command2.Enabled = True yf = 1 Case \刷新\
Adodc1.Refresh Case \退出\ Unload Me Case \修改\
If Text1(0) = \
MsgBox \请选择要修改的会员\警告\ Else
Command1.Enabled = True Command2.Enabled = True Text1(0).SetFocus yf = 2 End If Case \删除\
If yf <> 0 Then
MsgBox \现在正在执行其他操作，不能进行删除！\提示\Exit Sub End If
On Error Resume Next rst.Open \* From huiyuan where 会员编号='\+ Trim(Text1(0)) + \Cnn, adOpenKeyset, adLockOptimistic If Text1(0) = \
MsgBox \请选择要删除的会员\警告\ Else
i = MsgBox(\是否确定删除会员编号为“\”的会员\vbYesNo, \提示\
If i = vbYes Then rst.Delete Adodc1.Refresh For i = 0 To 4 Text1(i) = \
Next i Else
Exit Sub End If End If rst.Close End Select End Sub
6.5员工考勤管理模块设计
1.员工考勤管理模块主要实现对员工考勤信息的新增修改删除等操作，其界面如下图所示：
图6-5 基本器材管理界面
2 实现代码
Private Sub Command1_Click() If Text1(0) = \
MsgBox \请先选择员工！\提示\ Exit Sub End If
rst.Open \员工编号='\'\
If Text1(0) = \
MsgBox \请先选择员工编号！\提示\ Exit Sub End If
rst.AddNew
rst.Fields(\员工编号\
rst.Fields(\员工姓名\ rst.Fields(\到达时间\ rst.Fields(\性质\到达\ rst.Update
MsgBox \签到成功！\提示\rst.Close
Adodc1.Refresh End Sub
Private Sub Command2_Click() If Text1(0) = \
MsgBox \请先选择员工！\提示\ Exit Sub End If
rst.Open \员工编号='\ rst.AddNew
rst.Fields(\员工编号\ rst.Fields(\员工姓名\ rst.Fields(\离开时间\ rst.Fields(\性质\离开\ rst.Update
MsgBox \签到成功！\提示\rst.Close
Adodc1.Refresh End Sub
Private Sub Command3_Click() On Error Resume Next If Combo1.Text = \
MsgBox \请选择要查询的字段！\提示\ Combo1.SetFocus Exit Sub End If
If Text2.Text = \
MsgBox \请输入要查询的条件！\提示\ Text2.SetFocus Exit Sub End If
If Combo1.Text = \员工编号\
rst.Open \员工编号='\+ \
If rst.RecordCount = 0 Then
MsgBox \没有要查询的记录！\提示\ End If
For i = 0 To 5
Text1(i) = rst.Fields(i) Next i
Combo3.Text = rst.Fields(\性别\ For i = 0 To 5
Text1(i) = rst.Fields(i) Next i
Combo3.Text = rst.Fields(\性别\ rst.Close
ElseIf Combo1.Text = \员工姓名\
rst.Open \姓名='\'\
If rst.RecordCount = 0 Then
MsgBox \没有要查询的记录！\提示\ End If
For i = 0 To 5
Text1(i) = rst.Fields(i) Next i
Combo3.Text = rst.Fields(\性别\ rst.Close Else
MsgBox \请选择要查询的正确字段！\提示\End If End Sub
Private Sub Form_Load() Adodc1.ConnectionString = \Server};server=(local);database=mry\
Adodc1.RecordSource = \ Adodc1.Refresh Label5.Caption = Now End Sub
Private Sub Timer1_Timer() Label5.Caption = Now End Sub
6.6 商品管理功能
1.商品管理模块主要实现对商品信息的新增修改删除等操作，其界面如下图所示：