vb语法.txt

来自「用vb开发设计得学生信息管理系统。。实现基本得信息查询 和统计」· 文本 代码 · 共 21 行

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 = "确 定"