form4.frm

学生学籍管理系统用VB实现权限设计,密码登陆,成绩管理等功能.

VERSION 5.00
Begin VB.Form Form4 
   Caption         =   "信息录入"
   ClientHeight    =   5205
   ClientLeft      =   5100
   ClientTop       =   3375
   ClientWidth     =   9195
   LinkTopic       =   "Form4"
   ScaleHeight     =   5205
   ScaleWidth      =   9195
   Begin VB.TextBox Text1 
      Height          =   495
      Index           =   0
      Left            =   2160
      MaxLength       =   3
      TabIndex        =   0
      Text            =   "Text1"
      Top             =   360
      Width           =   1695
   End
   Begin VB.TextBox Text1 
      Height          =   495
      Index           =   1
      Left            =   2160
      TabIndex        =   10
      Text            =   "Text1"
      Top             =   1080
      Width           =   2535
   End
   Begin VB.TextBox Text1 
      Height          =   495
      Index           =   2
      Left            =   2160
      TabIndex        =   9
      Text            =   "Text1"
      Top             =   1680
      Width           =   2535
   End
   Begin VB.TextBox Text1 
      Height          =   495
      Index           =   3
      Left            =   2160
      TabIndex        =   8
      Text            =   "Text1"
      Top             =   2400
      Width           =   4455
   End
   Begin VB.TextBox Text1 
      Height          =   495
      Index           =   4
      Left            =   2160
      TabIndex        =   7
      Text            =   "Text1"
      Top             =   3120
      Width           =   4455
   End
   Begin VB.Frame Frame1 
      Caption         =   "Frame1"
      Height          =   855
      Left            =   4800
      TabIndex        =   4
      Top             =   1200
      Width           =   2055
      Begin VB.OptionButton Option1 
         Caption         =   "Option1"
         Height          =   255
         Left            =   240
         TabIndex        =   6
         Top             =   360
         Width           =   495
      End
      Begin VB.OptionButton Option2 
         Caption         =   "Option2"
         Height          =   255
         Left            =   1200
         TabIndex        =   5
         Top             =   360
         Width           =   615
      End
   End
   Begin VB.TextBox Text1 
      Height          =   495
      Index           =   5
      Left            =   2160
      TabIndex        =   3
      Text            =   "Text1"
      Top             =   3840
      Width           =   6855
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   615
      Left            =   7080
      TabIndex        =   2
      Top             =   1680
      Width           =   1815
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Command2"
      Height          =   615
      Left            =   7080
      TabIndex        =   1
      Top             =   2760
      Width           =   1815
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "Label1"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   18
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   360
      Index           =   6
      Left            =   4080
      TabIndex        =   17
      Top             =   480
      Width           =   1080
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   375
      Index           =   0
      Left            =   240
      TabIndex        =   16
      Top             =   360
      Width           =   1455
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   375
      Index           =   1
      Left            =   240
      TabIndex        =   15
      Top             =   1080
      Width           =   1455
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   255
      Index           =   2
      Left            =   240
      TabIndex        =   14
      Top             =   1800
      Width           =   1455
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   375
      Index           =   3
      Left            =   240
      TabIndex        =   13
      Top             =   2520
      Width           =   1455
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   375
      Index           =   4
      Left            =   240
      TabIndex        =   12
      Top             =   3240
      Width           =   1455
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   375
      Index           =   5
      Left            =   240
      TabIndex        =   11
      Top             =   3840
      Width           =   1455
   End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Type cj
a As String * 3
b As String * 8
c As String * 10
d As String * 15
e As String * 30
f As String * 30
g As Boolean
h As Boolean
End Type
Dim you As Integer
Private da As cj

Private Sub Command2_Click()
 For n = 0 To 5
  Text1(n).Text = ""
  Next n
Option1.Value = False
Option2.Value = False
Form4.Hide

End Sub

Private Sub Form_Load()
 Option1.Value = False
 Option2.Value = False
Form1.Caption = "添加学生信息"
Label1(0).Caption = "学号"
Label1(1).Caption = "姓名"
Label1(2).Caption = "年龄"
Label1(3).Caption = "出生年月"
Label1(4).Caption = "联系电话"
Label1(5).Caption = "家庭住址"
Label1(6).Caption = "请输入3位学号"
Dim n As Integer
For n = 0 To 5
Label1(n).FontSize = 16
Label1(n).Font = "隶书"
Next
Dim m As Integer
For m = 0 To 5
Text1(m).Text = ""
Text1(m).FontSize = 16
Text1(m).Font = "隶书"
Next m
With Frame1
.Caption = "性别"
.FontSize = 16
.Font = "隶书"
End With
With Option1
.Caption = "男"
.FontSize = 12
.Font = "隶书"
End With
With Option2
.Caption = "女"
.FontSize = 12
.Font = "隶书"
End With
With Command1
.Caption = "确定 (&Q)"
.FontSize = 16
.Font = "隶书"
End With
With Command2
.Caption = "取消 (&C)"
.FontSize = 16
.Font = "隶书"
End With
End Sub
Private Sub Command1_Click()

With da
.a = Text1(0).Text
.b = Text1(1).Text
.c = Text1(2).Text
.d = Text1(3).Text
.e = Text1(4).Text
.f = Text1(5).Text
.g = Option1.Value
.h = Option2.Value
End With
Open App.Path & "\456.dat" For Random As #1 Len = Len(da)
you = LOF(1) / Len(da)
Put #1, you + 1, da
Close #1
MsgBox "添加成功,请输入下一纪录", 0 + 48, "提示"
Dim y As Integer
For y = 0 To 5
Text1(y).Text = ""
Next
 Option1.Value = False
 Option2.Value = False
End Sub