frmstlnfo.frm

登陆系统 基于vb 开发 本系统需要的功能有： a.首页展示：各个模块的链接

      Begin VB.Label Label10 
         Caption         =   "所在学院:"
         Height          =   375
         Left            =   360
         TabIndex        =   28
         Top             =   3025
         Width           =   855
      End
      Begin VB.Label Label11 
         Caption         =   "民族:"
         Height          =   375
         Left            =   360
         TabIndex        =   27
         Top             =   1959
         Width           =   855
      End
      Begin VB.Label Label12 
         Caption         =   "性别:"
         Height          =   375
         Left            =   360
         TabIndex        =   26
         Top             =   1426
         Width           =   855
      End
      Begin VB.Label Label8 
         Caption         =   "所在专业:"
         Height          =   375
         Left            =   3840
         TabIndex        =   25
         Top             =   3025
         Width           =   855
      End
      Begin VB.Label Label17 
         Caption         =   "年"
         Height          =   255
         Left            =   2260
         TabIndex        =   24
         Top             =   4560
         Width           =   255
      End
      Begin VB.Label Label16 
         Caption         =   "月"
         Height          =   255
         Left            =   3540
         TabIndex        =   23
         Top             =   4560
         Width           =   255
      End
      Begin VB.Label Label15 
         Caption         =   "日"
         Height          =   255
         Left            =   4820
         TabIndex        =   22
         Top             =   4560
         Width           =   255
      End
      Begin VB.Label Label14 
         Caption         =   "日"
         Height          =   255
         Left            =   4680
         TabIndex        =   21
         Top             =   3480
         Width           =   255
      End
      Begin VB.Label Label13 
         Caption         =   "月"
         Height          =   255
         Left            =   3456
         TabIndex        =   20
         Top             =   3480
         Width           =   255
      End
      Begin VB.Label Label3 
         Caption         =   "年"
         Height          =   255
         Left            =   2232
         TabIndex        =   19
         Top             =   3480
         Width           =   255
      End
   End
   Begin VB.Menu Filemenu1 
      Caption         =   "文件(&F)"
      Begin VB.Menu file1 
         Caption         =   "打开(&O)"
      End
      Begin VB.Menu file2 
         Caption         =   "关闭(&C)"
      End
      Begin VB.Menu file3 
         Caption         =   "-"
         Index           =   1
      End
      Begin VB.Menu file4 
         Caption         =   "退出(&X)"
         Index           =   1
      End
   End
   Begin VB.Menu Filemenu2 
      Caption         =   "记录(&R)"
      Index           =   1
      Begin VB.Menu record1 
         Caption         =   "增加(&A)"
         Index           =   1
      End
      Begin VB.Menu record2 
         Caption         =   "删除(&D)"
         Index           =   1
      End
      Begin VB.Menu record3 
         Caption         =   "保存(&S)"
         Index           =   1
      End
      Begin VB.Menu record4 
         Caption         =   "-"
         Index           =   1
      End
      Begin VB.Menu record5 
         Caption         =   "筛选(&F)"
         Index           =   1
      End
   End
   Begin VB.Menu Filemenu3 
      Caption         =   "帮助(&H)"
      Index           =   1
      Begin VB.Menu help1 
         Caption         =   "帮助(&H)"
         Index           =   1
      End
      Begin VB.Menu help2 
         Caption         =   "-"
         Index           =   1
      End
      Begin VB.Menu help3 
         Caption         =   "关于...(&A)"
         Index           =   1
      End
   End
   Begin VB.Menu Filemenu4 
      Caption         =   "另外"
      Visible         =   0   'False
      Begin VB.Menu a1 
         Caption         =   "打开"
      End
      Begin VB.Menu a2 
         Caption         =   "关闭"
         Enabled         =   0   'False
      End
      Begin VB.Menu a3 
         Caption         =   "-"
      End
      Begin VB.Menu a4 
         Caption         =   "颜色"
      End
      Begin VB.Menu a5 
         Caption         =   "字体"
      End
      Begin VB.Menu a6 
         Caption         =   "-"
      End
      Begin VB.Menu a7 
         Caption         =   "帮助"
      End
   End
End
Attribute VB_Name = "frmStlnfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Check1_Click()
If Check1 = False Then
Combo7.Enabled = False
Combo6.Enabled = False
Combo5.Enabled = False
Else
Combo7.Enabled = True
Combo6.Enabled = True
Combo5.Enabled = True
End If
End Sub

Private Sub Combo1_Change()
frmStlnfo.Tag = 1
End Sub

Private Sub Command4_Click()
frmStScore.Show 0
Unload frmStlnfo
End Sub

Private Sub Command6_Click()
Unload Me

End Sub



Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu Filemenu4
End If
End Sub

Private Sub Text1_Change()
frmStlnfo.Tag = 1
End Sub

Private Sub Text10_Change()
frmStlnfo.Tag = 1
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8 Then
Else: KeyAscii = 0
End If
End Sub

Private Sub Text3_LostFocus()
If Len(Text3.Text) < 18 Then
MsgBox ("身份证未够18位")
Text3.SetFocus
End If
End Sub
Private Sub form_load()
Dim i As Integer
Dim race(56) As String
race(0) = "汉族": race(1) = "蒙古族": race(2) = "满族": race(3) = "维吾尔族": race(4) = "藏族": race(5) = "朝鲜族"
'民族值存放于一个数组中

For i = 0 To 55
 Combo1.List(i) = race(i)
 Next i
 
End Sub
Private Sub Command2_Click()
If Text1.Text = "" Or Text10.Text = "" Or Text3.Text = "" Or Combo8.Text = "" Then
MsgBox "学号，姓名，学院，身分证号不能为空"
ElseIf a >= 10 Then MsgBox "人数已满，请显示信息", vbExclamation, "提示信息框"
Else
    arrstlnfo(a, 0) = Text1.Text
    arrstlnfo(a, 1) = Text10.Text
    If Option1.Value = True Then
        arrstlnfo(a, 2) = "男"
    Else: arrstlnfo(a, 2) = "女"
    End If
    arrstlnfo(a, 3) = Combo1.Text
    arrstlnfo(a, 4) = Text7.Text
    arrstlnfo(a, 5) = Combo8.Text
    arrstlnfo(a, 6) = Combo9.Text
    arrstlnfo(a, 7) = Combo2.Text + "年" + Combo3.Text + "月" + Combo4.Text + "日"
    arrstlnfo(a, 8) = Text3.Text
    If Check1.Value = 1 Then
        arrstlnfo(a, 9) = "true"
        arrstlnfo(a, 10) = Combo7.Text + "年" + Combo6.Text + "月" + Combo7.Text + "日"
    Else
        arrstlnfo(a, 9) = "False"
    End If
    arrstlnfo(a, 11) = Text2.Text
    For b = 0 To 11
    Debug.Print arrstlnfo(a, b)
    Next b
    a = a + 1
    End If
End Sub


Private Sub Text7_Change()
frmStlnfo.Tag = 1
End Sub
Private Sub Form_Unload(cancel As Integer)
If frmStlnfo.Tag = 1 Then
ii = MsgBox("当前记录未保存，确认要退出？", vbYesNo, "警告")
If ii = vbYes Then
cancel = False
Else
cancel = True
End If
End If

End Sub