数据库基础与应用——SQLServer2005第2版教学作者成先海第12章节使用课件幻灯片.ppt

子窗口打开时的初始化处理代码 Private Sub Form_Load() Set cnscan = New Connection cnscan.CursorLocation = adUseClient cnscan.Open PROVIDER=MSDASQL;DSN=student;uid=sa;pwd= Set rsscan = New Recordset rsscan.CursorType = adOpenStatic rsscan.Open 学生基本情况表, cnscan, , , adCmdTable Set Text1.DataSource = rsscan Set Text2.DataSource = rsscan Set Text3.DataSource = rsscan Set Text4.DataSource = rsscan Set Text5.DataSource = rsscan Set Text6.DataSource = rsscan Set Text7.DataSource = rsscan End Sub 点击“最后一条”按钮时将显示表中的最后一条记录。 Private Sub end_Click() rsscan.MoveLast ‘将指针移到最后一条记录。 End Sub 点击“第一条”按钮时将显示表中的第一条记录 Private Sub first_Click() rsscan.MoveFirst ‘将指针移到第一条记录。 End Sub 点击“下一条”按钮时记录会下移一条。 Private Sub next_Click() rsscan.MoveNext ‘指针下移一条记录。 If rsscan.EOF Then rsscan.MoveLast ‘如果指针目前已经到了最后面，则指针移到最后一条记录。 End Sub 点击“上一条”按钮时记录会上移一条。 Private Sub last_Click() rsscan.MovePrevious ‘将指针上移一条记录。 If rsscan.BOF Then rsscan.MoveFirst ‘如果指针目前已经到了最前面，则指针移到第一条记录。 End Sub 关闭子窗口时关闭相关数据源代码 Private Sub Form_unLoad(cancel As Integer) rsscan.Close cnscan.Close End Sub 点击“添加”按钮时向表中添加一条记录代码 PPrivate Sub add_Click() Set cmd = New Command With cmd .ActiveConnection = cn ‘连接数据源。 .CommandText = insert into 学生基本情况表 values(?,?,?,?,?,?,?) End With Set p1 = cmd.CreateParameter(p1, adInteger, adParamInput) ‘定义输入参数。 Set p2 = cmd.CreateParameter(p2, adChar, adParamInput, 8) Set p3 = cmd.CreateParameter(p3, adChar, adParamInput, 2) Set p4 = cmd.CreateParameter(p4, adInteger, adParamInput, 4) Set p5 = cmd.CreateParameter(p5, adChar, adParamInput, 20) Set p6 = cmd.CreateParameter(p6, adChar, adParamInput, 20) Set p7 = cmd.CreateParameter(p7, adChar, adParamInput, 50) 点击“添加”按钮时向表中添加一条记录代码 cmd.Parameters.Append p1 ‘对应括弧中的参数。 cmd.Parameters.Append p2 cmd.Parameters.Append p3 cmd.Parameters.Append p4 cmd.Parameters.Append p5 cmd.Parameters.Append p6