仓库管理系统—课程设计任务书.pptVIP

仓库管理系统黑盒测试 制作人：马晓庆 （a）代码 Option Explicit Dim cnt As Integer 记录确定次数 Private Sub Form_Load() cnt = 3 Dim connectionstring As String connectionstring = provider=Microsoft.Jet.oledb.4.0; _ Data Source= + App.Path + \user.mdb + conn1.Open connectionstring Label5.Caption = 您还有 cnt 次输入密码机会！ End Sub Private Sub label7_mouseup(Button As Integer, Shift As Integer, X As Single, Y As Single) Label7.BorderStyle = 0 Dim sql As String Dim rs_login As New ADODB.Recordset 1： If Trim(txtuser.Text) = Then 判断输入的用户名是否为空 2: MsgBox 用户名或密码错误，请重新输入！, vbOK