【文件属性】:
文件名称:发廊管理系统 ,sql+vb
文件大小:1.79MB
文件格式:RAR
更新时间:2013-07-02 09:27:53
唯美发廊管理系统
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
【文件预览】:
唯美发廊管理系统-
----e1288a449d9c7b246a63e5f3.jpg(194KB)
----2.jpg(16KB)
----发廊系统--组长(朱李)()
--------Formp.frx(16KB)
--------新用户(朱李).frm(12KB)
--------工程1.vbp(1KB)
--------MSSCCPRJ.SCC(190B)
--------Form3.frx(71KB)
--------Form3.log(62B)
--------主菜单(潘涛).frm(10KB)
--------修改密码(朱李).frm(10KB)
--------Form6.frx(194KB)
--------登录(夏坤).frm(10KB)
--------Formp.log(1KB)
--------login.frx(1.37MB)
--------工程1.vbw(265B)
--------消费(潘涛).frm(20KB)
--------Form2.frx(365KB)
--------Form4.frx(1.37MB)
--------充值(朱杰).frm(7KB)
----bg.bmp(1.37MB)
----发廊会员表(979KB)
----1.jpg(71KB)
----Thumbs.db(58KB)
----工程1.exe(3.46MB)
----未命名.bmp(365KB)
网友评论
- 实在是简单得不能再简单了,只有“登录”、"修改密码"、"新用户"、"充值"、"修改密码"、"主菜单"六个窗口,无法实际应用。
- 还好吧 随带的那个表不知道怎么搞 不知道什么格式 借鉴一下