NEXT STEP...

登入
Imports System.Data.SqlClient 'ADO.NET for SQL Server'

Public Class Form1

    Private Sub userlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles userlogin.Click

        Try
            Dim msg As String = ""
            Dim ConnString As String = ""
            ConnString = "Data Source =REX-PC;Initial catalog =EX;" & _
            "User id=sa;Password=123"

            'Step 1：開啟資料庫連接，準備與資料庫進行溝通和存取          
            Dim conn As SqlConnection = New SqlConnection(ConnString)
            conn.Open()

            Dim selectCmd As String = "SELECT * FROM nlogin WHERE userid='" & _
            userid.Text & "' And Password='" & password.Text & _
            "' And Isvaid=1"

            'Step 2：透過Connection連接物件來送出SQL敘述
            Dim cmd As SqlCommand = New SqlCommand(selectCmd, conn)

            'Step 3：由DataReader讀取SQL敘述的執行結果集
            Dim dr As SqlDataReader = cmd.ExecuteReader()

            'Step 4：資料錄讀取
            If (dr.Read()) Then
                EX.SetUser(userid.Text)→預存登入資訊(userid欄位)
                EX.Show()

            Else
                msg = "可能[密碼]或[帳號]有誤或是[帳號無效]，請重新輸入。"
                MessageBox.Show(msg, "登入失敗")

 

            End If
            'Step 5：關閉連接物件與資料讀取器
            conn.Close()
            dr.Close()
        Catch ex As Exception
            MessageBox.Show(Me, ex.Message, "例外資訊")
        End Try
    End Sub

    Private Sub clean_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles clean.Click
        Me.userid.Text = ""
        Me.password.Text = ""
    End Sub
End Class

Public Class EX  案新增後開起輸入試窗fnew

    

 Dim da As SqlDataAdapter
    Dim ds As DataSet
    Dim user As String

    Public Sub SetUser(ByVal ur As String)
        user = ur                 沿用登入帳號

Private Sub ToolStripButton１_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton１.Click
        Dim f2 As FNEW
        f2 = New FNEW()
        f2.SetUser(user)
        f2.Show()

    End Sub

新增資料視窗中  

 

public class fnew中

dim user as string 

Public Sub SetUser(ByVal ur As String)
        user = ur

下拉式的form中 

 Public Sub SetUser(ByVal ur As String)
        user = ur
        Me.ComboBox2.Items.Add(user)
        Me.ComboBox2.Text = user

Private Sub 新增_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

讀入系統時間

   Dim str As String
        str = DateString
        Me.TextBox2.Text = str