【文件属性】：
文件名称：vb车站售票管理系统
文件大小：255KB
文件格式：DOC
更新时间：2012-06-30 16:46:53
vb 6.0
1.启动VB程序，双击文件夹，便可看见如图2.1所示的系统。该模块为用户提供当前登录用户的信息。
图2.1 登陆界面
此时为开始登入界面
Private Sub Command1_Click()
If Trim(Me.cboName.Text) <> "" Then
Sql = "select 密码 from 用户表 where 用户名='" & Trim(Me.cboName.Text)
Sql = Sql & "' and 类型='" & Trim(Me.cboType.Text) & "'"
Set RS = dbSelect(Sql)
If RS.EOF Then
MsgBox "库中无此用户！"
Else
Sql = "delete from 用户表 where 用户名='" & Trim(Me.cboName.Text)
Sql = Sql & "' and 类型='" & Trim(Me.cboType.Text) & "'"
dbOperate Sql
End If
Else
MsgBox "主键不能为空!"
End If
End Sub