第9节 ADO编程.pptVIP

* Private Sub cmdDel_Click() rst.Delete rst.MoveNext If rst.EOF Then rst.MoveLast Call RefreshForm End Sub Private Sub cmdClose_Click() Unload Me End Sub * 图9-6 登录窗体 例9-3 在例9-2工程中，设计一个登录窗体，用ADO编程实现登录窗体的功能。 （1）设计窗体 在例9-2工程中添加窗体作为登录窗体：执行菜单 [工程]\[添加窗体] 设置该窗体属性 Name：frmPassword MaxButton：False (无最大化按钮) Caption：登录 MinButton： False (无最小化按钮) 添加控件如图9-6 * * （3）设计代码 Dim cn As New ADODB.Connection Dim rst As New ADODB.Recordset Private Sub Form_Load() Dim s As String s = DSN=cjgl;uid=sa;pwd=sa cn.Open s 打开连接 cn.CursorLocation = adUseClient End Sub * Private Sub cmdOK_Click() rst.Open Select * From 密码表 where 用户名= Text1.Text , cn 打开记录集 If rst.BOF And rst.EOF Then MsgBox 无效用户名，请重新输入。, vbCritical, 错误 Text1 = Text1.SetFocus ElseIf Text2 = rst.Fields(密码) Then 检测密码 MsgBox 登录成功！, vbInformation Form1.Show Me.Hide * Else MsgBox 密码错误，请重新输入, vbCritical, 错误 Text2.Text = 清空密码输入框 Text2.SetFocus End If rst.Close 关闭记录集 End Sub Private Sub cmdCancel_Click() Unload Me End Sub * 例9-4 用MSFlexGrid控件显示教师信息表的所有记录。 （1）设计界面 MSFlexGrid控件属于ActiveX控件，不在标准工具箱中。 执行菜单[工程]\[部件]命令，选择：Microsoft FlexGrid Control 6.0，将MSFlexGrid控件添加到工具箱中。 在窗体上添加一个MSFlexGrid控件，属性： 名称：MSG1, Font：五号、粗体 添加一个按钮，属性如下： 名称：CmdDisplay , Caption ：显示 * 图9-7 MSFlexGrid控件显示教师信息表 * （2）设计代码 定义一个通用Sub过程，名为ShowGrid，实现将记录集的内容显示到MSFlexGrid控件中。过程的头部定义为： Sub ShowGrid(Rs As ADODB.Recordset, MS As MSFlexGrid) ShowGrid过程有两个形参，其中Rs为Recordset对象变量，MS为MSFlexGrid控件类型变量，因此在调用该过程时，应注意实参的类型要与形参类型匹配，即传递给形参Rs的实参应该是Recordset对象变量，传递给形参MS的实参应该是MSFlexGrid控件的名称。以下是ShowGrid过程的代码。 * Sub ShowGrid(Rs As ADODB.Recordset, MS As MSFlexGrid) Dim j As Integer RowNum = 1 MS.Rows = RowNum 设置MS控件的行数 MS.Cols = Rs.Fields.Count 用记录集的字段数设置MSFlexGrid控件的列数 For j = 0 To Rs.Fields.Count - 1 MS.TextMatrix(0, j) = Rs.Fields(j).Name ‘ 将记录集的各字段名显示到网格控件的第1行 Next j * Do While Not Rs.EOF 当没有到记录集尾时 RowNum = RowNum + 1 MS.Rows = RowNum 设置网格控件的行数 For j = 0 To Rs.Fields.Count – 1