<code>
Imports System.Data
Imports System.Data.SqlServerCe

Public Class LoginPage
    Dim ssceconn As New SqlCeConnection("Data Source = \My Documents\test.sdf")

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If System.IO.File.Exists("\My Documents\test.sdf") Then
            System.IO.File.Delete("\My Documents\test.sdf")
        End If
        Dim engine As New SqlCeEngine("Data Source = \My Documents\test.sdf")
        engine.CreateDatabase()

        Dim sqlCreateTable As SqlCeCommand = ssceconn.CreateCommand()
        sqlCreateTable.CommandText = _
        "CREATE TABLE Client(username nvarchar(20), password nvarchar(20))"

        ssceconn.Open()
        sqlCreateTable.ExecuteNonQuery()
        ssceconn.Close()

        Dim sqlCreateTable1 As SqlCeCommand = ssceconn.CreateCommand()
        sqlCreateTable1.CommandText = _
        "CREATE TABLE Client_Details(datefrom nvarchar(10), datetill nvarchar(10), premium integer, salutation nvarchar(5), f_name nvarchar(20), l_name nvarchar(20), gender nvarchar(6), NRIC nvarchar(10), DOB nvarchar(10), race nvarchar(10), marital_status nvarchar(15), occupation nvarchar(30), address nvarchar(100), home integer, hp integer, off1 integer, email nvarchar(60))"

        ssceconn.Open()
        sqlCreateTable1.ExecuteNonQuery()
        ssceconn.Close()

        Dim sqlCreateTable2 As SqlCeCommand = ssceconn.CreateCommand()
        sqlCreateTable2.CommandText = _
        "CREATE TABLE Home_Details(address nvarchar(60), postal integer, typeOfProp nvarchar(20), valuables nvarchar(20), material nvarchar(20), occOfHome nvarchar(20), additional nvarchar(20))"

        ssceconn.Open()
        sqlCreateTable2.ExecuteNonQuery()
        ssceconn.Close()

    End Sub

    Private Sub btnReg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReg.Click
        RegistrationPage.Show()
        Me.Hide()
    End Sub

    Private Sub TxtPw_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtPw.TextChanged
        TxtPw.PasswordChar = "*"
    End Sub

    Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
        btnLogin.Enabled = False

        Dim selectCommand As SqlCeCommand = ssceconn.CreateCommand()

        selectCommand.CommandText = "SELECT * FROM Client Where username = '" & TxtUser.Text & "'"

        ssceconn.Open()
        Dim myReader As SqlCeDataReader = selectCommand.ExecuteReader

        While myReader.Read()
            If (TxtPw.Text = myReader("password")) Then
                MsgBox(TxtUser.Text)
                MsgBox(" has logged in!")
            ElseIf (TxtPw.Text = myReader("password")) Then
                MsgBox("Invalid account")
                MsgBox("Please enter your password or username")
            End If
        End While

        myReader.Close()

        If ssceconn.State = ConnectionState.Open Then
            ssceconn.Close()
        End If

        btnLogin.Enabled = True

        MenuPage.Show()
        Me.Hide()

    End Sub
End Class

</code>

macosxnerd101, on 14 February 2012 - 06:32 AM, said:

class MyFrame extends JFrame implements ActionListener{

     private JComboBox months, days;

     MyFrame(){
        months = new JComboBox(new String[]{"m1","m2", ... , "m12"});
        days = new JComboBox(new String[]{"1","2","3",...,"30"});

        months.addActionListener(this):
        days.addActionListener(this);
     
     }

     public void actionPerformed(ActionEvent e){
         //hande the actions for months and days here
     }
  
}

pbl, on 12 February 2012 - 06:55 PM, said: