1.启动VB程序，双击文件夹，便可看见如图2.1所示的系统。该模块为用户提供当前登录用户的信息。 图2.1登陆界面 此时为开始登入界面 PrivateSubCommand1_Click() IfTrim(Me.cboName.Text)""Then Sql="select密码from用户表where用户名='"&Trim(Me.cboName.Text) Sql=Sql&"'and类型='"&Trim(Me.cboType.Text)&"'" SetRS=dbSelect(Sql) IfRS.EOFThen M