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.商品管理模块主要实现对商品信息的新增修改删除等操作，其界面如下图所示：