import java.awt.*; import java.awt.event.*; import javax.swing.*; import java.sql.*; public class system extends JFrame { JDesktopPane deskpane = new JDesktopPane();//在窗体里建立虚拟桌 JPanel p = new JPanel();//创建一个面板并实例化 public system(){//构造函数 setTitle("订单
'定义一个数据访问类的对象 Dim Password As String Dim db As New databases Dim rs As ADODB.Recordset '根据输入的用户名进行查询 Set rs = db.RunSelectSQL _ ("select 密码,姓名,权限,编号 from 用户清单 where 姓名 = '" _ + Me.txtUserName.Text + "'") '判断用户名是否存在 If rs.RecordCount = 0 Then '用户名不存在
