-1

Oracle データベースに接続された VB.Net のログイン フォームで.If ステートメントを挿入して、さまざまなユーザーをさまざまなフォームに誘導する方法はありますか..たとえば、会計ホームページへの会計士またはドライバー ホームページへのドライバーただし、すべての ID とパスワードはデータベース内の 1 つのテーブルにあります。

データベース内には POSITION フィールドがあり、これを使用してさまざまなユーザーのアクセス レベルを区別したいと考えています。

これまでのコードは次のとおりです。

Dim conn As New OleDb.OleDbConnection

conn.ConnectionString = _
"Provider=msdaora;Data Source=orabis;User Id=112221800;Password=112221800;"


conn.Open()

Dim parmuser As New OleDb.OleDbParameter

parmuser.OleDbType = OleDb.OleDbType.Char

parmuser.Value = txtStaffNo.Text

Dim parmpass As New OleDb.OleDbParameter

parmpass.OleDbType = OleDb.OleDbType.Char

parmpass.Value = txtPassword.Text



Dim cmd As New OleDbCommand

cmd.Connection = conn

cmd = New OleDbCommand("select STAFFID,PASSWORD from STAFF where STAFFID ='" & txtStaffNo.Text & "' and PASSWORD ='" & txtPassword.Text & "'", conn)

cmd.CommandType = CommandType.Text

Dim dr As OleDb.OleDbDataReader



dr = cmd.ExecuteReader()


If txtStaffNo.Text = "" Or txtPassword.Text = "" Then

    MessageBox.Show("You have not entered any values!", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)

ElseIf dr.Read() Then

    txtStaffNo.Text = dr("STAFFID")

    txtPassword.Text = dr("PASSWORD")

    MsgBox("Access Allowed")



    CustOption.Show()
    Me.Hide()

Else

    'MessageBox.Show("Wrong Username and Password", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    'intCount = intCount + 1



End If
4

2 に答える 2

0

Webサイト/アプリの使用

switch (position){
case "Admin":
    Server.Transfer("AdminHomePage.aspx";
    brea;
case "blabla":
//and so on
default:
    Server.Transfer("Home.aspx"

}

Windowsフォームの場合、答えは似ています。しかし、あなたはフォームを選ぶ必要があります。つまりnew FormAdminHome().ShowDialog()

于 2013-02-20T15:57:36.787 に答える