Call disprecord
End Sub
Private Sub Command2_Click()
Rs.MovePrevious
Call disprecord
End Sub
Private Sub Command3_Click()
Rs.MoveNext
Call disprecord
End Sub
Private Sub Command4_Click()
Rs.moveLast
Call disprecord
End Sub
Private Sub Command5_Click()
If checkdata = ture Then
Rs.Addnew
Rs.fields("Name") = Trim(Text1.Text2)
Rs.Update
MsgBox "新增数据成功！"
End If
End Sub
Private Sub Command6_Click()
Rs.Delete
Rs.MoveNext
MsgBox "删除数据成功!"
End Sub
Private Sub Command7_Click()
Rs.fields("Name") = Trim(Text1.Text)
Rs.fields("password") = Trim(Text2.Text)
Rs.Update
MsgBox "数据更新成功!"
Call disprecord
End Sub
Private Sub Command8_Click()
Unload Me
End Sub
Private Sub Form_load()
Set Rs = New adodb.Recordset
Rs.locktype = adlockoptimistic
sqlconnection = "provider=microsoft.jet.oledb.4.0;data source" & App.Path & "\cjs.mdb"
Rs.open "select*form[user]", sqlconnection, adopendynamic
Call disprecord
End Sub
Private Sub disprecord()
If Rs.EOF Then Rs.moveLast
If Rs.BOF Then Rs.moveFirst
Text1.Text = Rs.fields("name")
Text2.Text = Rs.fields("password")
End Sub
Private Function checkdata() As Boolean
If Len(Trim(Text1.Text)) <= 0 Or Len(Trim(Text2.Text)) <= 0 Then
MsgBox "输入用户名称和密码!"
checkdata = False
Else
checkdata = ture
End If
End Function
4.2“登陆系统”模块
登陆系统模块主要接收和校验登陆的用户信息在用户信息表中是否存在。如果包含该用户，弹出主窗体；否则，提示重新输入用户信息。窗体如图13。
图13 登陆系统窗体
Fig13 Login system form
程序代码如下：
Private Sub command1_click()
If checkdata = ture Then
suser = Trim(Text1.Text)
spassword = Trim(Text2.Text)
If checkuser = ture Then
frmmain.Show
Me.Hide
Else
MsgBox "用户名称和密码错误！重新输入！"
Text1.SetFocus
End If
End If
End Sub
Private Function checkdata() As Boolean
If Len(Trim(Text1.Text)) <= 0 Or Len(Trim(Text2.Text)) <= 0 Then
MsgBox "用户名称和密码不能为空！"
Text1.SetFocus
checkdata = False
Else
checkdata = True
End If
End Function
Private Function checkuser() As Boolean
Dim rs As adodb.Recordset
Set rs = New adodb.Recordset
rs.cursortype = adopenkeyset
rs.locktype = adlockoptimistic
sqlconnection = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\cjs.mdb"
rs.open "select*from [user] where name='" & Trim(suser) & "'and password='" & Trim(spassword) & "'", sqlconnection
If rs.recordcount = 1 Then
checkuser = ture
Else
checkuser = False
End If
End Function
4.3 “主窗体”模块
主窗体模块包括一个菜单栏、一个状态栏和2个CommandButton控件。主窗体如图14。
图14 主窗体模块图
Fig14 Main form module chart
程序代码如下：
Private Sub Command15_Click()
Call reg_Click
End Sub
Private Sub Form_Load()
StatusBar1.Panels(3).Text = "用户名称：" & suser
End Sub
Private Sub Command1_Click()
Call user_Click
End Sub
Private Sub Command10_Click()
Call incardsearch_Click
End Sub
Private Sub Command11_Click()
Call showtip_Click
End Sub
Private Sub Command12_Click()
Call outcard_Click
End Sub
Private Sub Command13_Click()
Call cardsearch_Click
End Sub
Private Sub Command14_Click()
Call incard_Click
End Sub
Private Sub Command2_Click()
Call customer_Click
End Sub
Private Sub Command3_Click()
Call instore_Click
End Sub
Private Sub Command4_Click()
Call storesearch_Click
End Sub
Private Sub Command5_Click()
Call outstore_Click
End Sub
Private Sub Command6_Click()
Call insearch_Click
