📄 jsjtj.frm

📁 本系统以记录学生信息
💻 FRM
📖 第 1 页 / 共 2 页
字号:
上一页 12
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFC0C0&
      Height          =   285
      Left            =   360
      TabIndex        =   20
      Top             =   240
      Width           =   2565
   End
   Begin VB.Label Label10 
      AutoSize        =   -1  'True
      BackColor       =   &H00800000&
      Caption         =   "VB 开 发"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFC0C0&
      Height          =   210
      Left            =   240
      TabIndex        =   9
      Top             =   5280
      Width           =   840
   End
   Begin VB.Label Label9 
      AutoSize        =   -1  'True
      BackColor       =   &H00800000&
      Caption         =   "汇编语言"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFC0C0&
      Height          =   210
      Left            =   240
      TabIndex        =   8
      Top             =   4800
      Width           =   840
   End
   Begin VB.Label Label8 
      AutoSize        =   -1  'True
      BackColor       =   &H00800000&
      Caption         =   "数据结构"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFC0C0&
      Height          =   210
      Left            =   240
      TabIndex        =   7
      Top             =   4320
      Width           =   840
   End
   Begin VB.Label Label7 
      AutoSize        =   -1  'True
      BackColor       =   &H00800000&
      Caption         =   "专业外语"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFC0C0&
      Height          =   210
      Left            =   240
      TabIndex        =   6
      Top             =   3840
      Width           =   840
   End
   Begin VB.Label Label6 
      AutoSize        =   -1  'True
      BackColor       =   &H00800000&
      Caption         =   "数据库"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFC0C0&
      Height          =   210
      Left            =   240
      TabIndex        =   5
      Top             =   3360
      Width           =   630
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      BackColor       =   &H00800000&
      Caption         =   "计算机导论"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFC0C0&
      Height          =   210
      Left            =   240
      TabIndex        =   4
      Top             =   2880
      Width           =   1050
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      BackColor       =   &H00800000&
      Caption         =   "高等数学"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFC0C0&
      Height          =   210
      Left            =   240
      TabIndex        =   3
      Top             =   2400
      Width           =   840
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      BackColor       =   &H00800000&
      Caption         =   "大学英语"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFC0C0&
      Height          =   210
      Left            =   240
      TabIndex        =   2
      Top             =   1920
      Width           =   840
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackColor       =   &H00800000&
      Caption         =   "姓   名"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFC0C0&
      Height          =   210
      Left            =   240
      TabIndex        =   1
      Top             =   1440
      Width           =   735
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackColor       =   &H00800000&
      Caption         =   "学   号"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFC0C0&
      Height          =   210
      Left            =   240
      TabIndex        =   0
      Top             =   960
      Width           =   735
   End
End
Attribute VB_Name = "jsjtj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
jsjchj.Data1.Recordset.AddNew
jsjchj.Data1.Recordset.Fields("学号") = Text1.Text
jsjchj.Data1.Recordset.Fields("姓名") = Text2.Text
jsjchj.Data1.Recordset.Fields("大学英语") = Text3.Text
jsjchj.Data1.Recordset.Fields("高等数学") = Text4.Text
jsjchj.Data1.Recordset.Fields("计算机导论") = Text5.Text
jsjchj.Data1.Recordset.Fields("数据库") = Text6.Text
jsjchj.Data1.Recordset.Fields("专业外语") = Text7.Text
jsjchj.Data1.Recordset.Fields("数据结构") = Text8.Text
jsjchj.Data1.Recordset.Fields("汇编语言") = Text9.Text
jsjchj.Data1.Recordset.Fields("VB开发") = Text10.Text
jsjchj.Data1.Recordset.Update
Unload Me
jsjchj.DBGrid1.Refresh
jsjchj.Show
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
jsjchj.Data1.Recordset.Edit
jsjchj.Data1.Recordset.Fields("学号") = Text1.Text
jsjchj.Data1.Recordset.Fields("姓名") = Text2.Text
jsjchj.Data1.Recordset.Fields("大学英语") = Text3.Text
jsjchj.Data1.Recordset.Fields("高等数学") = Text4.Text
jsjchj.Data1.Recordset.Fields("计算机导论") = Text5.Text
jsjchj.Data1.Recordset.Fields("数据库") = Text6.Text
jsjchj.Data1.Recordset.Fields("专业外语") = Text7.Text
jsjchj.Data1.Recordset.Fields("数据结构") = Text8.Text
jsjchj.Data1.Recordset.Fields("汇编语言") = Text9.Text
jsjchj.Data1.Recordset.Fields("VB开发") = Text10.Text
jsjchj.Data1.Recordset.Update
Unload Me
jsjchj.DBGrid1.Refresh
jsjchj.Show
End Sub

Private Sub Command4_Click()
kjchj.Data1.Recordset.Edit
kjchj.Data1.Recordset.Fields("学号") = Text1.Text
kjchj.Data1.Recordset.Fields("姓名") = Text2.Text
kjchj.Data1.Recordset.Fields("大学英语") = Text3.Text
kjchj.Data1.Recordset.Fields("专业英语") = Text4.Text
kjchj.Data1.Recordset.Fields("高等数学") = Text5.Text
kjchj.Data1.Recordset.Fields("会计学原理") = Text6.Text
kjchj.Data1.Recordset.Fields("成本会计") = Text7.Text
kjchj.Data1.Recordset.Fields("管理会计") = Text8.Text
kjchj.Data1.Recordset.Fields("财务分析") = Text9.Text
kjchj.Data1.Recordset.Fields("国际金融") = Text10.Text
kjchj.Data1.Recordset.Update
Unload Me
jsjchj.DBGrid1.Refresh
kjchj.Show
End Sub

Private Sub Command5_Click()
kjchj.Data1.Recordset.AddNew
kjchj.Data1.Recordset.Fields("学号") = Text1.Text
kjchj.Data1.Recordset.Fields("姓名") = Text2.Text
kjchj.Data1.Recordset.Fields("大学英语") = Text3.Text
kjchj.Data1.Recordset.Fields("专业英语") = Text4.Text
kjchj.Data1.Recordset.Fields("高等数学") = Text5.Text
kjchj.Data1.Recordset.Fields("会计学原理") = Text6.Text
kjchj.Data1.Recordset.Fields("成本会计") = Text7.Text
kjchj.Data1.Recordset.Fields("管理会计") = Text8.Text
kjchj.Data1.Recordset.Fields("财务分析") = Text9.Text
kjchj.Data1.Recordset.Fields("国际金融") = Text10.Text
kjchj.Data1.Recordset.Update
Unload Me
kjchj.DBGrid1.Refresh
kjchj.Show
End Sub
上一页 12
⌨️ 快捷键说明

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