皮皮网

1.��¼����Դ��
2.VB登陆窗体代码。登录登录数据库呢是窗口窗口access的 数据库名为data 有一个登陆表 有两个字段名 用户名 密码

��¼����Դ��

       import java.awt.BorderLayout;

       import java.awt.event.ActionEvent;

       import java.awt.event.ActionListener;

       import javax.swing.JButton;

       import javax.swing.JFrame;

       public class TestFrame {

        public static JFrame loginFrame;

        public static JFrame mainfFrame;

        public static void main(String[] args) {

        loginFrame=new JFrame("登陆");

        loginFrame.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);

        loginFrame.setSize(, );

        JButton loginButton=new JButton("登陆");

        loginFrame.getContentPane().add(loginButton,BorderLayout.NORTH);

        loginFrame.setVisible(true);

        loginButton.addActionListener(new ActionListener() {

        public void actionPerformed(ActionEvent e) {

        mainfFrame=new JFrame("程序主界面");

        mainfFrame.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);

        mainfFrame.setSize(, );

        mainfFrame.setVisible(true);//设置新窗口可见

        loginFrame.dispose();//销毁登陆窗口

        }

        });

        }

       }

VB登陆窗体代码。数据库呢是源码源码whmcs支付接口源码access的 数据库名为data 有一个登陆表 有两个字段名 用户名 密码

       Microsoft Data Environment Instance 1.0

       Microsoft ActiveX Objects 2.5 Library

       因为你要用Access数据库，窗口窗口php源码投稿所以需要在工程中添加控件。源码源码hadoop源码网址

       建立Access数据库，登录登录在这个vb工程文件夹新建一个文件夹，窗口窗口命名为table，源码源码然后将这个Access数据库文件放入table文件夹中。登录登录

       源代码：

       Private Con_Access As Connections

       Private Sub Form_Load()

           Set Con_Access = New Connection

           With Con_Access

               .Provider = "microsoft.jet.oledb.4.0"

               .ConnectionString = App.Path & "\table\ship.mdb"

               .Open

           End With

       End Sub

       Private Sub cmdOK_Click()

           Dim cmd As New Command

           Dim rd As New Recordset

           cmd.ActiveConnection = Con_Access

           cmd.CommandText = "select username,窗口窗口userpassword from usertable where username='" & Text1.Text & "'"

           On Error GoTo db_error

           Set rd = cmd.Execute

           On Error GoTo 0

           If rd.EOF Then

               MsgBox "用户名不存在。",源码源码 vbOKOnly + vbInformation, "错误"

               Exit Sub

           End If

       db_error:

           MsgBox Err.Description, vbOKOnly + vbInformation, "错误"

       End Sub

       Private Sub cmdCancel_Click()

           End

       End Sub

       已经附上截图了，如果还有疑问，登录登录源码讲解视频发电邮给我rearguard_zero@hotmail.com