编程汇总.docx

1、编程汇总Private Sub Command1_Click() 不得删改本行注释 Dim rs As ADODB.Recordset Dim strSQL As String Set rs = New ADODB.Recordset strSQL = select 课程编号,课程名称,学时,学分 from course where 课程编号= & Text1.Value & 本行需要补充代码 rs.Open strSQL, CurrentProject.Connection, 2, 2 本行需要补充代码 If rs.EOF Then rs.AddNew rs(课程编号) = Text1 rs

2、(课程名称) = Text2 rs(学时) = Text3 rs(学分) = Text4 本行需要补充代码 rs.Update End If rs.Close Set rs = NothingEnd SubPrivate Sub Combo1_Change() 不得删改本行注释 Dim rs As ADODB.Recordset Dim strSQL As String Set rs = New ADODB.Recordset strSQL = select 书名,单价,数量 from book where 书号= & Combo1.Value & 本行需要补充代码 rs.Open strSQ

3、L, CurrentProject.Connection, 2, 2 本行需要补充代码 If Not rs.EOF() Then Text1 = rs(书名) Text2 = rs(单价) Text3 = rs(数量) Text4 = rs(单价) * rs(数量) 本行需要补充代码 End If rs.Close Set rs = NothingEnd SubPrivate Sub Command1_Click() Dim rs As ADODB.Recordset Dim strSQL As String 用于存储SQL语句 strSQL = select 姓名 from examstu

4、where 生源= & Text1.Value & 本行需要补充代码 Set rs = New ADODB.Recordset 本行需要补充代码 rs.Open strSQL, CurrentProject.Connection, 2, 2 Do While Not rs.EOF() 本行需要补充代码 List1.AddItem rs(姓名) rs.MoveNext Loop rs.Close Set rs = NothingEnd SubPrivate Sub Command1_Click() Dim rs As adodb.Recordset Set rs = New adodb.Reco

5、rdset 本行需补充代码 rs.Open select * from Stu, CurrentProject.Connection, 2, 2 Do While Not rs.EOF() 本行需补充代码 Select Case rs(综合分) Case Is = 90 rs(等级) = 优秀 Case Is = 80 rs(等级) = 良好 本行需补充代码 Case Is = 70 rs(等级) = 中等 Case Is = 60 rs(等级) = 及格 Case Else rs(等级) = 不及格 End Select rs.Update rs.MoveNext Loop rs.Close

6、 Set rs = Nothing AFT.Form.RecordSource = select * from Stu End SubPrivate Sub Command1_Click() Dim H_Avg As Single Dim Avg_rs As ADODB.Recordset Set Avg_rs = New ADODB.Recordset 本行需补充代码 Avg_rs.Open select avg(身高) as 平均身高 from stu, CurrentProject.Connection, 2, 2 本行需补充代码 H_Avg = Avg_rs(平均身高) Text1.V

7、alue = H_Avg Avg_rs.Close Set Avg_rs = Nothing 本行需补充代码 End SubPrivate Sub Combo1_Change() 不得删改本行注释Dim rs As ADODB.RecordsetSet rs = New ADODB.Recordset 本行需补充代码,初始化一个Recordset对象Dim sqlstr As Stringsqlstr = select * from score where 课程名称= & Me.Combo1 & rs.Open sqlstr, CurrentProject.Connection, 2, 2 本

8、行需补充代码,和当前数据库创建连接n = 0x = 0y = 0Do While Not rs.EOF()n = n + 1If rs(成绩) = 60 Thenx = x + 1Elsey = y + 1End Ifrs.MoveNextLoopMe.Text1.Value = n 本行需补充代码,将参加人数显示在文本框Text1中Me.Text2.Value = xMe.Text3.Value = yrs.CloseSet rs = NothingEnd SubPrivate Sub Combo1_Change() 不得删改本行注释 Dim rs As ADODB.Recordset Di

9、m strSQL As String Set rs = New ADODB.Recordset strSQL = select 姓名 from player where 组别= & Combo1.Value & 本行需要补充代码，实现构造SQL语句 rs.Open strSQL, CurrentProject.Connection, 2, 2 For i = List1.ListCount - 1 To 0 Step -1 List1.RemoveItem (i) Next i Do While Not rs.EOF() 本行需补充代码，设置循环终止条件 List1.AddItem rs(姓名

10、) rs.MoveNext 本行需补充代码，实现移到下一条记录 Loop rs.Close Set rs = NothingEnd SubPrivate Sub List1_Click() 不得删改本行注释Dim rs As ADODB.Recordset Dim strSQL As String Set rs = New ADODB.Recordset strSQL = select 姓名 from employee where 部门= & List1.Value & 本行需要补充代码，实现构造SQL语句 rs.Open strSQL, CurrentProject.Connection,

11、2, 2 本行需要补充代码，实现打开记录集 i = 0 Do While Not rs.EOF i = i + 1 rs.MoveNext Loop Label2.Caption = 人数： & i rs.Close 本行需要补充代码，实现关闭记录集 Set rs = NothingEnd SubPrivate Sub Combo1_Change() List1.RowSource = Dim rs As ADODB.Recordset Dim strSQL As String strSQL = select 姓名 from Teacher where 职称= & Combo1.Value &

12、 Set rs = New ADODB.Recordset rs.Open strSQL, CurrentProject.Connection, 2, 2 本行需补充代码,和当前数据库创建连接 Do While Not rs.EOF() 本行需补充代码，设置循环终止条件 List1.AddItem rs(姓名) rs.MoveNext 本行需补充代码，实现移到下一条记录 Loop rs.Close Set rs = NothingEnd SubPrivate Sub Combo1_Change() Dim rs As ADODB.Recordset Set rs = New ADODB.Rec

13、ordset Dim strSQL As String strSQL = select 买入价,现价,持有数量 from stock where 股票代码= & Combo1.Value & 本行需要补充代码，实现构造SQL语句 rs.Open strSQL, CurrentProject.Connection, 2, 2 本行需要补充代码，实现打开记录集 If Not rs.EOF() Then Text2 = rs(买入价) Text3 = rs(现价) Text4 = rs(持有数量) Text1 = rs(持有数量) * (rs(现价) - rs(买入价) 本行需要补充代码，将计算出的

14、盈亏金额赋值给text1 End If rs.Close Set rs = Nothing End SubPrivate Sub Combo1_Change() Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Dim strSQL As String strSQL = SELECT Avg(选修.成绩) AS 平均成绩, Count(课程.课程号) AS 总门数 FROM 学生,课程,选修 where 学生.学号 = 选修.学号 and 课程.课程号 = 选修.课程号 and 学生.学号= & Combo1.Value & 本行需要补充代码，实现构造SQL语句 rs.Open strSQL, CurrentProject.Connection, 2, 2 本行需要补充代码，实现打开记录集 If Not rs.EOF() Then 本行需补充代码，设置循环终止条件 Text1 = rs(平均成绩) Text2 = rs(总门数) End If rs.Close Set rs = NothingEnd Sub