案例：教学绩管理系统.ppt

5.2 学生档案查询(3) For numI = 0 To 10 Cell1.DoSetCellAlignment numI, 2, 36 ‘ 设置单元格对齐方式 Cell1.DoSetCellReadOnly numI, 2, True Next numI Cell1.DoSetDefaultFont 8, 0, 宋体 Cell1.Rows = 3 Cell1.Cols = 11 Cell1.DoRedrawAll ‘ 重画表格 End Sub 1数据库实现 2主窗体创建 3数据访问 4登录界面 5信息查询 Cell主要属性 学生档案查询 6数据维护 7备份还原帮助 渊净杠栓功藻陪摈雨巳洽碌郡钡济圾它戮家锡搜莹展沪闸辱芽挑犬硬韧误案例：教学绩管理系统案例：教学绩管理系统 5.2 学生档案查询(3) 事件：Form_Load() 功能：窗口开始时首先装载学院组合框(Combo0) Private Sub Form_Load() Dim i As Integer, l As Integer ‘ 定义记录集对象 Set objRs = ExecuteSQL(Select * From 学院信息表, msg_Sql) l = objRs.RecordCo