frmmsg.frm

用VB 和SQL SERVER 2000做的存取检验系统

VERSION 5.00
Begin VB.Form frmMsg 
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "系统简介"
   ClientHeight    =   3705
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   11910
   FillColor       =   &H00FFFFFF&
   ForeColor       =   &H000000FF&
   Icon            =   "frmMsg.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3705
   ScaleWidth      =   11910
   Begin VB.PictureBox Picture1 
      BackColor       =   &H00FFFFFF&
      FillColor       =   &H00FF0000&
      Height          =   3735
      Left            =   7200
      Picture         =   "frmMsg.frx":27A2
      ScaleHeight     =   3675
      ScaleWidth      =   4635
      TabIndex        =   2
      Top             =   0
      Width           =   4695
   End
   Begin VB.TextBox txtFirstShow 
      BackColor       =   &H0080FF80&
      ForeColor       =   &H000000FF&
      Height          =   1575
      Left            =   120
      MultiLine       =   -1  'True
      TabIndex        =   1
      Top             =   0
      Width           =   7095
   End
   Begin VB.TextBox txtMsgShow 
      BackColor       =   &H00FFFFC0&
      Enabled         =   0   'False
      ForeColor       =   &H000000FF&
      Height          =   2175
      Left            =   120
      MultiLine       =   -1  'True
      TabIndex        =   0
      Top             =   1560
      Width           =   7095
   End
End
Attribute VB_Name = "frmMsg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub Form_Load()
   txtFirstShow.Text = "存取检验演示系统的演示内容 " & vbCrLf & _
                        "    某统计局的资料已输入计算机，其所有文件分为6类：" & _
                        "A，B，C，D，E，F，对每一个用户，由管理员告诉其一个通行字" & _
                        "（假定是4位的字符串）。每一个通行字对每类文件有不同的访问权限，" & _
                        "访问权限分为三级：（1）无权访问，（2）可以查询，（3）可以更新修改（可以查询）。" & _
                        "每一个用户先输入自己的通行字（不应该在屏幕上显示出来），欲访问的文件类别" & _
                        "和操作要求（查询或更新修改），由程序检查为合法后才能进行下一步的操作。" & _
                       "试模拟这一过程，设计访问控制表并编程实现对访问的控制。如访问是合法的，" & _
                       "在程序出口处显示“通过！”，反之则显示“未通过！”。"

   
   txtMsgShow.Text = "提示信息： " & vbCrLf & "用户名：F1" _
                       & "    口令：AAAA    无权访问：D" _
                       & "        可以查询：A,E,F    可以更新修改：B,C"
                       
   txtMsgShow.Text = txtMsgShow.Text & vbCrLf & "用户名：F2" _
                       & "    口令：CCCC    无权访问：A,B,E" _
                       & "    可以查询：C,D      可以更新修改：F"
                       
   txtMsgShow.Text = txtMsgShow.Text & vbCrLf & "用户名：F3" _
                       & "    口令：DDDD    无权访问：F" _
                       & "        可以查询：D,A,B    可以更新修改：C,E"
   
   txtMsgShow.Text = txtMsgShow.Text & vbCrLf & "用户名：F4" _
                       & "    口令：EEEE    无权访问：D,F" _
                       & "      可以查询：E,B      可以更新修改：A,C"
                     
   txtMsgShow.Text = txtMsgShow.Text & vbCrLf & "用户名：F5" _
                       & "    口令：FFFF    无权访问：D,A,E" _
                       & "    可以查询：F        可以更新修改：B,C"
'   If Not gMsgShow Then
'      txtMsgShow.Visible = False
      Picture1.Visible = False
'      txtFirstShow.Visible = True
'   Else
'      txtFirstShow.Visible = False
      Picture1.Visible = True
      txtMsgShow.Visible = True
'   End If
   Me.Show
End Sub