发廊管理系统 ，sql+vb

VERSION 5.00 Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "Msadodc.OCX" Begin VB.Form FrmLogin BackColor = &H00FFFFFF& BorderStyle = 0 'None Caption = "学生信息管理系统" ClientHeight = 10005 ClientLeft = 1575 ClientTop = 1290 ClientWidth = 12045 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False Picture = "login.frx":0000 ScaleHeight = 10005 ScaleWidth = 12045 ShowInTaskbar = 0 'False Begin VB.CommandButton Command3 BackColor = &H00C0FFFF& Caption = "新会员注册" BeginProperty Font Name = "隶书" Size = 15.75 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 855 Left = 2040 MaskColor = &H00FFFFFF& Style = 1 'Graphical TabIndex = 9 Top = 6120 Width = 1215 End Begin MSAdodcLib.Adodc Adodc1 Height = 735 Left = 1200 Top = 7680 Visible = 0 'False Width = 3255 _ExtentX = 5741 _ExtentY = 1296 ConnectMode = 0 CursorLocation = 3 IsolationLevel = -1 ConnectionTimeout= 15 CommandTimeout = 30 CursorType = 2 LockType = 3 CommandType = 2 CursorOptions = 0 CacheSize = 50 MaxRecords = 0 BOFAction = 0 EOFAction = 0 ConnectStringType= 1 Appearance = 1 BackColor = -2147483643 ForeColor = -2147483640 Orientation = 0 Enabled = -1 Connect = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=发廊会员表;Data Source=." OLEDBString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=发廊会员表;Data Source=." OLEDBFile = "" DataSourceName = "" OtherAttributes = "" UserName = "" Password = "" RecordSource = "发廊会员表" Caption = "Adodc1" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "宋体" Size = 9 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty _Version = 393216 End Begin VB.Timer Timer1 Interval = 100 Left = 6240 Top = 4800 End Begin VB.Frame Frame1 BackColor = &H00C0FFFF& Caption = "用户信息" BeginProperty Font Name = "宋体" Size = 14.25 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 1695 Left = 480 TabIndex = 3 Top = 2760 Width = 4575 Begin VB.TextBox Text1 BackColor = &H0080FFFF& DataSource = "Adodc1" BeginProperty Font Name = "宋体" Size = 14.25 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF8080& Height = 495 Left = 1920 TabIndex = 5 Top = 360 Width = 1815 End Begin VB.TextBox Text2 BackColor = &H0080FFFF& DataSource = "Adodc1" BeginProperty Font Name = "宋体" Size = 14.25 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF8080& Height = 495 IMEMode = 3 'DISABLE Left = 1920 PasswordChar = "*" TabIndex = 4 Top = 960 Width = 1815 End Begin VB.Label Label2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "用户名" BeginProperty Font Name = "宋体" Size = 14.25 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF00FF& Height = 285 Left = 840 TabIndex = 7 Top = 480 Width = 855 End Begin VB.Label Label3 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "密 码" BeginProperty Font Name = "宋体" Size = 14.25 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF00FF& Height = 285 Left = 840 TabIndex = 6 Top = 960 Width = 870 End End Begin VB.CommandButton Command2 BackColor = &H00C0FFFF& Caption = "退出" BeginProperty Font Name = "隶书" Size = 15.75 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 3000 Style = 1 'Graphical TabIndex = 2 Top = 5280 Width = 1215 End Begin VB.CommandButton Command1 BackColor = &H00C0FFFF& Caption = "登录" BeginProperty Font Name = "隶书" Size = 15.75 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 1080 Style = 1 'Graphical TabIndex = 1 Top = 5280 Width = 1215 End Begin VB.Label Label4 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "欢迎使用唯美发廊系统" BeginProperty Font Name = "宋体" Size = 10.5 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF00FF& Height = 210 Left = 7200 TabIndex = 8 Top = 240 Width = 2100 End Begin VB.Label Label1 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "发廊系统" BeginProperty Font Name = "宋体" Size = 36 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 720 Left = 1200 TabIndex = 0 Top = 1320 Width = 2880 End End Attribute VB_Name = "FrmLogin" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Public a As String Private Sub Command1_Click() Adodc1.Recordset.MoveFirst Do Until Adodc1.Recordset.EOF If Text1.Text <> Adodc1.Recordset.Fields(0) Then Adodc1.Recordset.MoveNext ElseIf Text2.Text <> Adodc1.Recordset.Fields(5) Then MsgBox "密码错误" Text2.Text = "" Text2.SetFocus Exit Sub Else: a = Text1.Text Unload Me Form2.Show Exit Sub End If Loop MsgBox "用户名错误", vbOKOnly, "消息" Text1.Text = "" Text2.Text = "" Text1.SetFocus End Sub Private Sub Command2_Click() End End Sub Private Sub Command3_Click() Adodc1.Recordset.Update Adodc1.Refresh Unload Me Form6.Show End Sub Private Sub Form_Load() Text1.Text = "" Text2.Text = "" End Sub Private Sub Timer1_Timer() Label4.Left = Label4.Left - 50 If Label4.Left + Label4.Width <= 0 Then Label4.Left = FrmLogin.Width End Sub