vb车站售票管理系统

【文件属性】：

文件名称：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