3、综合应用题

（3）Private Sub Form_Load() '设置窗体标题

'************************* Add4 ************************ Me.Caption = tTitle.Caption

'************************* Add4 ************************ End Sub

（4）

Private Sub cItem_AfterUpdate()

'将Ldetail标签显示内容设置为所选项目名加上\内容:\

'************************* Add1 ************************* Ldetail.Caption = CItem & \内容:\

'************************* Add1 *************************

Private Sub CmdList_Click() '显示全部记录

'************************* Add2 ************************* fDetail.Form.RecordSource = \

'************************* Add2 ************************* End Sub

Private Sub CmdRefer_Click()

If Trim(Me![TxtDetail]) <> \

fDetail.Form.RecordSource = \* from tStud where \LTrim(Me.[CItem]) & \ Else

'设置提示框

'************************* Add3 ************************* MsgBox \查询项目或查询内容不能为空!!!\注意\'************************* Add3 ************************* End If End Sub

Private Sub Form_Load()

& '设置窗体标题

'************************* Add4 ************************ Me.Caption = tTitle.Caption

'************************* Add4 ************************ End Sub

第12套

1、基本操作题

（1）

（2）

（3）选定“照片”字段-删除 （4）查找-删除 （5）默认值：23 （6）