下载后可任意编辑 VB 程序设计学生信息管理系统0704 班 李小娇一: VB 设计作业名称 学生信息管理系统二:VB 学生信息管理系统基本结构 下载后可任意编辑三: 每个窗体名称登陆( langing) 进入选项( main) 添加( append) 查询( inquiry) 修改( update) 关于( about) 四:关键代码登陆界面设计的关键代码 Private Sub Command1_Click()Dim mrc As ADODB
Recordsettxtsql = "select username from use where username='" & Trim(Text1
Text) & "'"Set mrc = ExecuteSQL(txtsql)If mrc
EOF = True Then MsgBox " 用户名错误
", vbExclamation + vbOKOnly, "警告" Text1
SetFocus Text1
SelStart = 0 Text1
SelLength = Len(Text1
Text) Exit SubEnd If登陆进入选项查询信息录入修改关于退出下载后可任意编辑username = mrc
Fields(0)txtsql = "select username from use where password='" & Trim(Text2
Text) & "'"Set mrc = ExecuteSQL(txtsql)If mrc
EOF = True Then MsgBox " 密码错误
", vbExclamation + vbOKOnly, "警告" Text2
SetFocus Text2
SelStart = 0 Text2
SelLength = Len(Te