Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
SQLServer2008とVB2010でログイン画面を作りたい
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=15554#CommentId41904
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
社会人
 (社会人)
投稿日時
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