過去の桐井戸端ＢＢＳ　（桐ver.８）

9342	利用者の使用を制限するためパスワードで編集モードを変更し、パスワードは*で表示したい	M.green	2001/01/15-17:55
あるシステムを開発中です(職場合理化のため)。 全て、フォームとイベントの組み合わせになっています。 まず、利用者の使用を制限するために、パスワードを入力し、利用者の部署は、 更新モードでそれ以外は参照モードで処理したいのですがうまくいきません。 もう一つは、パスワードを入力するときに、他人に見えなくするために１文字入力するごとに＊印に変換したいのですが、 どなたか教えてください。
9344	Re:パスワード入力	Ogo	2001/01/15-21:00
記事番号9342へのコメント http://www.icity.or.jp/usr/ogou/Winfiles.htm#PassWd11 と http://www.icity.or.jp/usr/ogou/Winfiles.htm#ShlEx11 が参考になると思いますが。
9346	Re:パスワード入力	佐田　守弘	2001/01/15-22:46
記事番号9344へのコメント M.greenさん この様に利用者によって更新を許可するか、しないかを分けるには、利用者コードの設定で行うのが良いかと思います。 佐田守弘(KS-00119)
9350	ありがとうございました	M.green	2001/01/16-16:07
記事番号9342へのコメント 編集モードの変更は、イベント処理で利用者コードを変更する事で解決しました。 また、パスワードの目隠しは、白文字で表示することにしました。 今回の問題解決にご協力いただき有り難うございました。
9382	Re:イベント処理で編集モードを変更したい	KAMIYA	2001/01/18-21:32
記事番号9342へのコメント *印に変換するイベントをつくりました。 フォームは入力用のテキストボックスがあればＯＫです。 さらに確認用のテキストボックスをつくるとよくわかります。 確認用のテキストボックスはフォーカス禁止にしてください。 イベントの内容 手続き定義開始　t入力用::編集文字列変更() メソッド呼び出し　@t入力用.編集文字列取得( &WK1 ) メソッド呼び出し　@フォーム.更新モード設定( 0 ) IF　(#文字数(&入力用)>10) 　代入　&入力用=#部分列(&WK1,1,10) 　代入　&WK1　 =&入力用 END * 繰り返し &X1=1,10 　IF　(#部分列(&WK1,&X1,1)<>"*") 　　代入 &PASSWORD=#部分列(&PASSWORD,1,&X1-1) \ 　　　　+#部分列(&WK1,&X1,1)+#部分列(&PASSWORD,&X1+1) 　END 繰り返し終了 * 代入 &入力用=#複写("*",#文字数(&WK1)) メソッド呼び出し　@フォーム.更新モード設定( 2 ) メソッド呼び出し　@t入力用.編集選択位置設定( 1 ，-1 ) メソッド呼び出し　@t入力用.編集選択位置設定( 0 ，0 ) * ****　使用変数はすべて局所変数です *** *　&入力用・・・・・パスワード入力用 *　&WK1 ・・・・・・ワーク用 *　&PASSWORD・・・・入力したパスワードが格納される *　&X1・・・・・・・ループ用の整数変数 **** フォームのオブジェクト等 *** * t入力用・・・・・入力用テキストボックスのオブジェクト名 * ソースは&入力用 手続き定義終了

戻る