投稿者 社会人  (社会人) 投稿日時 2014/3/19 13:56:34

Hideさん
・FMLoginはどうするのですか?
ログインに成功した後のFMLoginのみ終了して、FmMainはそのまま作業が出来る仕組みにしたいです。

・btnClearの場所
ログイン成功後のFMLoginの操作は不可として、指摘通りIDとPASSのTextboxをクリアするだけの仕組みです。

・検索について
自分のイメージとしては、b)の検索方法を考えています。

Kikuさん
anさん

説明有難うございます。
試しに、教わったプログラムコードを(複数条件検索のプログラム)ベースに作ってみましたが、正しいIDとPASSを入力しなくてもコードが不十分のせいでFmMainに移動しています。
後、ログイン成功後にFmLoginを隠すコードを入力しましたがFmMainの画面で右上にある「最小化、最大化、閉じる」ボタンの閉じるボタンを押すとFmMainは消されますが、VBのソフト上ではプログラムの実行中になったままになっています。


Imports System.Data.SqlClient

Public Class fmLogin
    Private Sub fmLogin_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        TextBox3.Text = "※ココにメッセージが表示されます"
    End Sub

    Private Sub btnGO_Click(sender As System.Object, e As System.EventArgs) Handles BtnGO.Click
        Dim DB As String = "Data Source=user;Initial Catalog=データベースシステム;Integrated Security=True"
        Dim sql As String
        sql = "SELECT * "
        sql += "FROM T確定ユーザー情報"
        If txtID.Text.Length > 0 And txtPASS.Text.Length > 0 Then
            sql += " WHERE (ユーザー名 Like '" & txtID.Text & "%')"
            sql += " AND (パスワード Like '" & txtPASS.Text & "%')"
            fmBase.Show()
            Me.Hide()
        Else
            TextBox3.Text = "ユーザー名とパスワードは必ず記入して下さい"

        End If
    End Sub
End Class