Form2.frm
资源名称:WebSite1.rar [点击查看]
上传用户:vtryaojia
上传日期:2020-04-18
资源大小:1214k
文件大小:8k
源码类别:
SCSI/ASPI
开发平台:
Others
- VERSION 5.00
- Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
- Begin VB.Form login
- Caption = "管理员登陆"
- ClientHeight = 4845
- ClientLeft = 60
- ClientTop = 450
- ClientWidth = 8385
- LinkTopic = "Form2"
- ScaleHeight = 4845
- ScaleWidth = 8385
- StartUpPosition = 3 '窗口缺省
- Begin MSAdodcLib.Adodc Adodc1
- Height = 375
- Left = 6000
- Top = 4200
- Visible = 0 'False
- Width = 1695
- _ExtentX = 2990
- _ExtentY = 661
- ConnectMode = 0
- CursorLocation = 3
- IsolationLevel = -1
- ConnectionTimeout= 15
- CommandTimeout = 30
- CursorType = 3
- LockType = 3
- CommandType = 8
- CursorOptions = 0
- CacheSize = 50
- MaxRecords = 0
- BOFAction = 0
- EOFAction = 0
- ConnectStringType= 1
- Appearance = 1
- BackColor = -2147483643
- ForeColor = -2147483640
- Orientation = 0
- Enabled = -1
- Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=zzu.mdb;Persist Security Info=False"
- OLEDBString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=zzu.mdb;Persist Security Info=False"
- 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.CommandButton Command1
- Caption = "LOGIN SYSTEM"
- BeginProperty Font
- Name = "幼圆"
- Size = 10.5
- Charset = 134
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 495
- Left = 6000
- TabIndex = 7
- Top = 2640
- Width = 1575
- End
- Begin VB.TextBox Text2
- BeginProperty Font
- Name = "宋体"
- Size = 9
- Charset = 134
- Weight = 700
- Underline = 0 'False
- Italic = -1 'True
- Strikethrough = 0 'False
- EndProperty
- Height = 495
- IMEMode = 3 'DISABLE
- Left = 2760
- PasswordChar = "*"
- TabIndex = 6
- Top = 3120
- Width = 2175
- End
- Begin VB.TextBox Text1
- Height = 495
- Left = 2760
- TabIndex = 4
- Top = 2280
- Width = 2175
- End
- Begin VB.Label Label9
- Caption = "EXIT"
- BeginProperty Font
- Name = "幼圆"
- Size = 7.5
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = -1 'True
- Strikethrough = 0 'False
- EndProperty
- Height = 255
- Left = 6840
- TabIndex = 11
- Top = 600
- Width = 495
- End
- Begin VB.Label Label8
- Caption = "HELP"
- BeginProperty Font
- Name = "幼圆"
- Size = 7.5
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = -1 'True
- Strikethrough = 0 'False
- EndProperty
- Height = 255
- Left = 6360
- TabIndex = 10
- Top = 600
- Width = 495
- End
- Begin VB.Label Label7
- Caption = "退出"
- Height = 255
- Left = 6840
- TabIndex = 9
- Top = 360
- Width = 375
- End
- Begin VB.Label Label6
- Caption = "帮助"
- Height = 255
- Left = 6360
- TabIndex = 8
- Top = 360
- Width = 495
- End
- Begin VB.Label Label5
- Caption = "PASSWORD"
- BeginProperty Font
- Name = "幼圆"
- Size = 10.5
- Charset = 134
- Weight = 700
- Underline = 0 'False
- Italic = -1 'True
- Strikethrough = 0 'False
- EndProperty
- Height = 375
- Left = 1560
- TabIndex = 5
- Top = 3240
- Width = 1095
- End
- Begin VB.Label Label4
- Caption = "Name"
- BeginProperty Font
- Name = "幼圆"
- Size = 10.5
- Charset = 134
- Weight = 700
- Underline = 0 'False
- Italic = -1 'True
- Strikethrough = 0 'False
- EndProperty
- Height = 375
- Left = 1560
- TabIndex = 3
- Top = 2400
- Width = 1095
- End
- Begin VB.Label Label3
- Caption = $"Form2.frx":0000
- BeginProperty Font
- Name = "幼圆"
- Size = 9
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = -1 'True
- Strikethrough = 0 'False
- EndProperty
- Height = 255
- Left = 2880
- TabIndex = 2
- Top = 1440
- Width = 2415
- End
- Begin VB.Label Label2
- Caption = "后台管理系统"
- BeginProperty Font
- Name = "隶书"
- Size = 14.25
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 375
- Left = 3000
- TabIndex = 1
- Top = 840
- Width = 2175
- End
- Begin VB.Label Label1
- Caption = "Computer Sale "
- BeginProperty Font
- Name = "隶书"
- Size = 12
- Charset = 134
- Weight = 700
- Underline = 0 'False
- Italic = -1 'True
- Strikethrough = 0 'False
- EndProperty
- Height = 375
- Left = 840
- TabIndex = 0
- Top = 840
- Width = 1815
- End
- End
- Attribute VB_Name = "login"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Private Sub Command1_Click()
- Adodc1.RecordSource = "select * from Admin where name='" + Trim(Text1.Text) + "' and password='" + Trim(Text2.Text) + "'"
- Adodc1.Refresh
- If Adodc1.Recordset.EOF Then
- MsgBox (" 错误的用户名或密码")
- Text1.Text = ""
- Text2.Text = ""
- Else
- main.Show
- Unload login
- End If
- End Sub
- Private Sub Label7_Click()
- End
- End Sub