纯净水管理系统(三)

 
    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

首页 上一页 1 2 3 4 5 6 下一页 尾页 3/6/6

纯净水管理系统(三)相关范文