⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 从mdi添加学生数据.frm

📁 用VB写的学生成绩管理系统
💻 FRM
📖 第 1 页 / 共 3 页
字号:
🔍
123 
         EndProperty
         Height          =   210
         Left            =   -72240
         TabIndex        =   27
         Top             =   1920
         Width           =   1050
      End
      Begin VB.Label Label18 
         AutoSize        =   -1  'True
         Caption         =   "课程信息"
         BeginProperty Font 
            Name            =   "隶书"
            Size            =   24
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   480
         Left            =   -69960
         TabIndex        =   26
         Top             =   720
         Width           =   1920
      End
      Begin VB.Label Label19 
         AutoSize        =   -1  'True
         Caption         =   "学年，第"
         Height          =   180
         Left            =   -69720
         TabIndex        =   24
         Top             =   1920
         Width           =   720
      End
      Begin VB.Label Label20 
         AutoSize        =   -1  'True
         Caption         =   "第"
         Height          =   180
         Left            =   -71040
         TabIndex        =   23
         Top             =   1920
         Width           =   180
      End
      Begin VB.Label Label21 
         AutoSize        =   -1  'True
         Caption         =   "学期，第"
         Height          =   180
         Left            =   -67800
         TabIndex        =   22
         Top             =   1920
         Width           =   720
      End
      Begin VB.Label Label22 
         AutoSize        =   -1  'True
         Caption         =   "门课"
         Height          =   180
         Left            =   -65880
         TabIndex        =   21
         Top             =   1920
         Width           =   360
      End
   End
End
Attribute VB_Name = "MDI_TianJia"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim flag As Boolean

Private Sub Command1_Click()    '修改学生信息中的"|<"按纽
rs_XueShengBiao.MoveFirst
Call text_change_XueShengBiao
End Sub

Private Sub Command12_Click()   '修改课程信息中的"删除"按纽
    If Trim(Text14.Text) = "" Then
        MsgBox "请输入课程号！！"
        Exit Sub
    End If
  rs_KeChengBiao.Delete
  rs_KeChengBiao.Update
          MsgBox ("删除成功")
        Call qingkong_1
End Sub

Private Sub Command13_Click()    '修改课程信息中的"修改"按纽
    If Trim(Text14.Text) = "" Then
        MsgBox "请输入课程号！！"
        Exit Sub
    End If
Dim A As String
Dim A_1 As String
Dim A_2 As String
Dim A_3 As String
A_1 = Text14.Text '把分别取好的代号分别对应显示到textbox控件上
A_2 = Text15.Text
A_3 = Text16.Text
A = A_1 + "-" + A_2 + "-" + A_3
rs_KeChengBiao.Fields(0).Value = A
rs_KeChengBiao.Fields(1).Value = Text17.Text
rs_KeChengBiao.Fields(2).Value = Text18.Text
        rs_KeChengBiao.Update
          MsgBox ("修改成功")
        Call qingkong_1
End Sub

Private Sub Command14_Click()   '修改课程信息中的"添加"按纽
    If Trim(Text14.Text) = "" Then
        MsgBox "请输入课程号！！"
        Exit Sub
    End If
Dim A As String
Dim A_1 As String
Dim A_2 As String
Dim A_3 As String
A_1 = Text14.Text '把分别取好的代号分别对应显示到textbox控件上
A_2 = Text15.Text
A_3 = Text16.Text
A = A_1 + "-" + A_2 + "-" + A_3
rs_KeChengBiao.AddNew
rs_KeChengBiao.Fields(0).Value = A
rs_KeChengBiao.Fields(1).Value = Text17.Text
rs_KeChengBiao.Fields(2).Value = Text18.Text
        rs_KeChengBiao.Update
        If MsgBox("添加成功！是否添加下一个用户？", vbYesNo, "完成...") = vbYes Then
            Call qingkong_1
        Else
            Unload Me
        End If
End Sub

Private Sub Command2_Click()    '修改学生信息中的"<"按纽
rs_XueShengBiao.MovePrevious
If rs_XueShengBiao.BOF Then
    rs_XueShengBiao.MoveFirst
End If
Call text_change_XueShengBiao
End Sub

Private Sub Command21_Click()   '修改成绩信息中的"删除"按纽
    If Trim(Text13.Text) = "" Then
        MsgBox "请输入成绩！！"
        Exit Sub
    End If
   rs_ChengJiBiao.Delete
  rs_ChengJiBiao.Update
  MsgBox ("删除成功")
  Call qingkong_1
End Sub


Private Sub Command22_Click()   '修改成绩信息中的"修改"按纽
    If Trim(Text13.Text) = "" Then
        MsgBox "请输入成绩！！"
        Exit Sub
    End If
Dim A As String
Dim A_1 As String
Dim A_2 As String
Dim A_3 As String
A_1 = Text9.Text '把分别取好的代号分别对应显示到textbox控件上
A_2 = Text10.Text
A_3 = Text11.Text
A = A_1 + "-" + A_2 + "-" + A_3
rs_ChengJiBiao.Fields(1).Value = A
rs_ChengJiBiao.Fields(0).Value = Text12.Text
rs_ChengJiBiao.Fields(2).Value = Text13.Text
        rs_ChengJiBiao.Update
  MsgBox ("修改成功")
  Call qingkong_1
End Sub

Private Sub Command23_Click()    '修改成绩信息中的"添加"按纽
    If Trim(Text13.Text) = "" Then
        MsgBox "请输入成绩！！"
        Exit Sub
    End If
Dim A As String
Dim A_1 As String
Dim A_2 As String
Dim A_3 As String
A_1 = Text9.Text '把分别取好的代号分别对应显示到textbox控件上
A_2 = Text10.Text
A_3 = Text11.Text
A = A_1 + "-" + A_2 + "-" + A_3
rs_ChengJiBiao.AddNew
rs_ChengJiBiao.Fields(1).Value = A
rs_ChengJiBiao.Fields(0).Value = Text12.Text
rs_ChengJiBiao.Fields(2).Value = Text13.Text
        rs_ChengJiBiao.Update
        If MsgBox("添加成功！是否添加下一个用户？", vbYesNo, "完成...") = vbYes Then
            Call qingkong_1
        Else
            Unload Me
        End If
End Sub


Private Sub Command3_Click()    '修改学生信息中的">"按纽
If rs_XueShengBiao.EOF = False Then
rs_XueShengBiao.MoveNext
If rs_XueShengBiao.EOF Then
    rs_XueShengBiao.MoveLast
End If
End If
Call text_change_XueShengBiao
End Sub

Private Sub Command4_Click()    '修改学生信息中的">|"按纽
rs_XueShengBiao.MoveLast
Call text_change_XueShengBiao
End Sub

Private Sub Command15_Click()   '修改课程信息中的"|<"按纽
rs_KeChengBiao.MoveFirst
Call text_change_KeChengBiao
End Sub

Private Sub Command16_Click()   '修改课程信息中的">|"按纽
rs_KeChengBiao.MoveLast
Call text_change_KeChengBiao
End Sub

Private Sub Command17_Click()   '修改课程信息中的">"按纽
rs_KeChengBiao.MoveNext
If rs_KeChengBiao.EOF Then
    rs_KeChengBiao.MoveLast
End If
Call text_change_KeChengBiao
End Sub

Private Sub Command18_Click()   '修改课程信息中的"<"按纽
rs_KeChengBiao.MovePrevious
If rs_KeChengBiao.BOF Then
    rs_KeChengBiao.MoveFirst
End If
Call text_change_KeChengBiao
End Sub

Private Sub Command24_Click()   '修改成绩信息中的"|<"按纽
rs_ChengJiBiao.MoveFirst
Call text_change_ChengJiBiao
End Sub

Private Sub Command25_Click()   '修改成绩信息中的"<"按纽
rs_ChengJiBiao.MoveLast
Call text_change_ChengJiBiao
End Sub

Private Sub Command26_Click()   '修改成绩信息中的">"按纽
If rs_ChengJiBiao.EOF = False Then
  rs_ChengJiBiao.MoveNext
  If rs_ChengJiBiao.EOF Then
    rs_ChengJiBiao.MoveLast
  End If
  End If
Call text_change_ChengJiBiao
End Sub

Private Sub Command27_Click()   '修改成绩信息中的">|"按纽
rs_ChengJiBiao.MovePrevious
If rs_ChengJiBiao.BOF Then
    rs_ChengJiBiao.MoveFirst
End If
Call text_change_ChengJiBiao
End Sub
Private Sub Command5_Click()     '总修改界面中的"取消"按钮
Unload Me
End Sub

Private Sub Command7_Click()     '修改学生信息中的"添加"按纽
    If Trim(Text1.Text) = "" Then
        MsgBox "请输入学号！！"
        Exit Sub
    End If
        rs_XueShengBiao.AddNew
        rs_XueShengBiao.Fields(0).Value = Text1.Text
        rs_XueShengBiao.Fields(1).Value = Text2.Text
        rs_XueShengBiao.Fields(2).Value = Text3.Text
        rs_XueShengBiao.Fields(3).Value = Text4.Text
        rs_XueShengBiao.Fields(4).Value = Text5.Text
        rs_XueShengBiao.Fields(5).Value = Text6.Text
        rs_XueShengBiao.Fields(6).Value = Text7.Text
        rs_XueShengBiao.Fields(7).Value = Text8.Text
        rs_XueShengBiao.Update
        If MsgBox("添加成功！是否添加下一个用户？", vbYesNo, "完成...") = vbYes Then
            Call qingkong_1
        Else
            Unload Me
        End If
End Sub

Private Sub Command8_Click()          '修改学生信息中的"修改"按纽
    If Trim(Text1.Text) = "" Then
        MsgBox "请输入学号！！"
        Exit Sub
    End If
        rs_XueShengBiao.Fields(0).Value = Text1.Text
        rs_XueShengBiao.Fields(1).Value = Text2.Text
        rs_XueShengBiao.Fields(2).Value = Text3.Text
        rs_XueShengBiao.Fields(3).Value = Text4.Text
        rs_XueShengBiao.Fields(4).Value = Text5.Text
        rs_XueShengBiao.Fields(5).Value = Text6.Text
        rs_XueShengBiao.Fields(6).Value = Text7.Text
        rs_XueShengBiao.Fields(7).Value = Text8.Text
        rs_XueShengBiao.Update
        MsgBox ("修改成功")
        Call qingkong_1
End Sub

Private Sub Command9_Click()      '修改学生信息中的"删除"按纽
    If Trim(Text1.Text) = "" Then
        MsgBox "请输入学号！！"
        Exit Sub
    End If
  rs_XueShengBiao.Delete
  rs_XueShengBiao.Update
  MsgBox ("删除成功")
  Call qingkong_1
End Sub

Private Sub Form_Load()
    flag = False
    '设置几个只显示一个数字的textbox控件显示文本居中
    Text9.Alignment = vbCenter
    Text10.Alignment = vbCenter
    Text11.Alignment = vbCenter
    Text14.Alignment = vbCenter
    Text15.Alignment = vbCenter
    Text16.Alignment = vbCenter
End Sub
Sub text_change_XueShengBiao()  '设置显示学生表的textbox控件
Text1.Text = rs_XueShengBiao.Fields(0).Value
Text2.Text = rs_XueShengBiao.Fields(1).Value
Text3.Text = rs_XueShengBiao.Fields(2).Value
Text4.Text = rs_XueShengBiao.Fields(3).Value
Text5.Text = rs_XueShengBiao.Fields(4).Value
Text6.Text = rs_XueShengBiao.Fields(5).Value
Text7.Text = rs_XueShengBiao.Fields(6).Value
Text8.Text = rs_XueShengBiao.Fields(7).Value
End Sub
Sub text_change_ChengJiBiao()   '设置显示学生表的textbox控件
Dim A As String '定义的4个Sub内的局部变量
Dim A_1 As String
Dim A_2 As String
Dim A_3 As String
A = rs_ChengJiBiao.Fields(1).Value  '分别取如“1-1-1”中的三个数字
A_1 = Right(Left(A, 1), 1)
A_2 = Right(Left(A, 3), 1)
A_3 = Right(Left(A, 5), 1)
Text12.Text = rs_ChengJiBiao.Fields(0).Value
Text13.Text = rs_ChengJiBiao.Fields(2).Value
Text9.Text = A_1    '把分别取好的代号分别对应显示到textbox控件上
Text10.Text = A_2
Text11.Text = A_3
End Sub
Sub text_change_KeChengBiao()
Dim A As String
Dim A_1 As String
Dim A_2 As String
Dim A_3 As String
A = rs_KeChengBiao.Fields(0).Value  '分别取如“1-1-1”中的三个数字
A_1 = Right(Left(A, 1), 1)
A_2 = Right(Left(A, 3), 1)
A_3 = Right(Left(A, 5), 1)
Text14.Text = A_1    '把分别取好的代号分别对应显示到textbox控件上
Text15.Text = A_2
Text16.Text = A_3
Text17.Text = rs_KeChengBiao.Fields(1).Value
Text18.Text = rs_KeChengBiao.Fields(2).Value
End Sub
Sub qingkong_1()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
Text15.Text = ""
Text16.Text = ""
Text17.Text = ""
Text18.Text = ""
End Sub
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -