Vbsql.pptVIP

Vb+sql 学生管理系统 VB+SQLSERVER 启动vb，建立如下界面 工程——》部件 选中 misrosoft ado data control 6.0,按确定按钮 在form中拖动 选中adodc1,右键打开属性页 选中“使用连接字符串”，并按“生成”按钮 选中Microsoft OLE DB provider for SQL Server，点击“下一步”按钮 点击“测试连接” 在服务器上选取数据库，按“确定”按钮 在记录源页面进行相应设置 在VB窗体中对各个控件进行相应设置 可隐藏adodc按钮的显示效果，将其visible 属性设为false，运行结果如图： 运行，点击左右箭头可预览 各按钮代码如下 下一条 Private Sub Cmdnext_Click() Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF = True Then Adodc1.Recordset.MoveLast End If End Sub 上一条 Private Sub Cmdprevious_Click() Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF = True Then Adodc1.Recordset.MoveFirst End If End Sub 第一条 Private Sub Cmdfirst_Click() Adodc1.Recordset.MoveFirst End Sub 末一条 Private Sub Cmdlast_Click() Adodc1.Recordset.MoveLast End Sub 添加： Private Sub Cmdadd_Click() Adodc1.Recordset.AddNew Cmdadd.Enabled = False Cmddel.Enabled = False Cmdupdate.Enabled = True Cmdcancel.Enabled = True End Sub 删除 Private Sub Cmddel_Click() Dim res As Integer res = MsgBox(确实要删除此记录吗?, vbExclamation + vbYesNo + vbDefaultButton2) If res = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF = True Then Adodc1.Recordset.MoveLast End If End If End Sub 修改 Private Sub Cmdupdate_Click() Adodc1.Recordset.Fields(sno) = Trim(no.Text) Adodc1.Recordset.Fields(sname) = Trim(textname.Text) Adodc1.Recordset.Fields(sdept) = Trim(dept.Text) Adodc1.Recordset.Fields(sage) = Trim(age.Text) Adodc1.Recordset.Fields(ssex) = Trim(sex.Text) Adodc1.Recordset.Update Cmdadd.Enabled = True Cmddel.Enabled = True Cmdcancel.Enabled = False End Sub 取消 Private Sub Cmdcancel_Click() Adodc1.Recordset.CancelUpdate Cmdadd.Enabled = True Cmddel.Enabled = True Cmdcancel.Enabled = False End Sub 退出 Private Sub Cmdexit_Click() End End Sub 查找 单击“查找”按钮，弹出一个界面（find)，要求输入需要查找的关键字（学号） 单击“确定”按钮，弹出一个界面(form2)，显示查找的最终结果，界面如图 代码 窗体初始化 Private Sub Form_Load() Txt_sno = End Sub 退出按钮 Private Sub Cmdexitclick_Click() End End Sub 确定按钮 Private Sub Cmdok_Click() If Len(Txt_sno.Text) 0 Then Form2.Show Else MsgBox (请输入要查找的学