addxi.frm

是我应我们学校学工部做的软件,其主要是解决想我们学校这样的条件--各个办公室之间还没有建立联网,而且学校分为两个校区（又不在一个城市). 因此

VERSION 5.00
Begin VB.Form addxi 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "欢迎使用幻梦学分评测软件"
   ClientHeight    =   3120
   ClientLeft      =   45
   ClientTop       =   270
   ClientWidth     =   4770
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3120
   ScaleWidth      =   4770
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Begin VB.PictureBox Picture1 
      BackColor       =   &H00FFE09E&
      Height          =   3135
      Left            =   0
      Picture         =   "addxi.frx":0000
      ScaleHeight     =   3075
      ScaleWidth      =   1275
      TabIndex        =   4
      TabStop         =   0   'False
      Top             =   0
      Width           =   1335
      Begin VB.Image Image1 
         Height          =   720
         Left            =   240
         Picture         =   "addxi.frx":3A064
         Stretch         =   -1  'True
         Top             =   120
         Width           =   720
      End
   End
   Begin VB.TextBox Text1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1560
      TabIndex        =   1
      Top             =   2160
      Width           =   3135
   End
   Begin VB.CommandButton Command4 
      Cancel          =   -1  'True
      Caption         =   "取  消(&C)"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3120
      TabIndex        =   3
      Top             =   2640
      Width           =   1575
   End
   Begin VB.CommandButton Command2 
      Caption         =   "确  定(&Y)"
      Default         =   -1  'True
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1440
      TabIndex        =   2
      Top             =   2640
      Width           =   1575
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "  欢迎您使用本软件，您是第一次启动本程序，清在这里输入您所管理的系的名称,并在安全管理功能里建立新的用户。"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   975
      Left            =   1560
      TabIndex        =   5
      Top             =   120
      Width           =   3015
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "  注意：只有一次机会,以后无法修改，请您务必仔细。在您输入的名字里不用输入系字（如：您是计算机系，您只用写入""计算机""三个字)(&N)"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   975
      Left            =   1560
      TabIndex        =   0
      Top             =   1080
      Width           =   3015
   End
End
Attribute VB_Name = "addxi"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public kk As String
Public yesno As Boolean

Private Sub Command2_Click()
    b$ = Trim(Text1.Text)
    If Len(b$) > 25 Then
        MsgBox "您输入的系部名称太长，请缩短", vbOKOnly Or vbExclamation, "提示"
        Text1.SetFocus
        Exit Sub
    End If
    kk = b$
    yesno = True
    Unload Me
End Sub

Private Sub Command4_Click()
    yesno = False
    Unload Me
End Sub

Private Sub Form_Load()
    yesno = False
End Sub