📄 vb语法.txt
字号:
If add.Caption = "添 加" Then
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("学号") = number.Text
Adodc1.Recordset.Fields("姓名") = name.Text
Adodc1.Recordset.Fields("性别") = sex.Text
Adodc1.Recordset.Fields("班级") = grade.Text
Adodc1.Recordset.Fields("专业") = major.Text
Adodc1.Recordset.Fields("电话") = tel.Text
Adodc1.Recordset.Fields("邮件") = mail.Text
Adodc1.Recordset.Fields("备注") = beizhu.Text
Adodc1.Recordset.Update
Adodc1.Refresh
number.Text = ""
name.Text = ""
sex.Text = ""
grade.Text = ""
major.Text = ""
tel.Text = ""
beizhu.Text = ""
mail.Text = ""
add.Caption = "确 定"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -