新access复习题.docVIP

新access复习题是考试题型与复习范围 ) create table 销售001 (商品编号 char(10), 商品单价 float, 商品数量 integer, 交易号 char(10), 备注 memo, foreign key (交易号) references 交易001(交易号) ) Add 字段名 类型（宽度） 2）修改表 alter table 表名 alter 字段名 类型（宽度） Drop 字段名 例：alter table 交易001 add 总金额 smallint alter table 商品001 drop 备注 alter table 交易001 alter 总金额 real 3） 简单查询 select * from 表名 where 条件 连接查询 select * from 表1，表2 … where 连接条件 从中涉及排序，分组，聚合函数的使用 例：select 员工编号,姓名 from 员工 where 部门编号=A1 SELECT 部门名称, 员工.姓名 FROM 员工, 部门WHERE 员工.部门编号=部门.部门编号 第七~十章：(第八章可以不看) 1）选择、填空题见实验书； 2）程序设计能运用顺序、选择、循环三种基本结构以及函数与过程的定义与调用以及参数的传递方式； 3）设计窗体如下所示： 窗体与编程部分 1）纵横向滚动效果 Private Sub Form_Load() Me.TimerInterval = 10 End Sub Private Sub Form_Timer() If Me.Label1.Left 15 Then Me.Label1.Left = Me.Label1.Left - 15 Else Me.Label1.Left = Me.Width - Me.Label1.Width End If If Me.Label2.Top 15 Then Me.Label2.Top = Me.Label2.Top - 15 Else Me.Label2.Top = 5500 End If End Sub 2)选项组 Private Sub Frame1_Click() Me.Text1 = Me.Frame1.Value End Sub Private Sub Frame2_Click() Dim n as integer n = Me.Frame2.Value If n = 1 Then Me.Text2 = 羽毛球 Else If n = 2 Then Me.Text2 = 钢琴 Else Me.Text2 = 水彩画 End If End If End Sub 或 Private Sub Frame2_Click() Dim n As Integer n = Me.Frame2.Value Select Case n Case 1 Me.Text2 = 羽毛球 Case 2 Me.Text2 = 钢琴 Case Else Me.Text2 = 水彩画 End Select End Sub 3)登录窗体 Private Function login() As Boolean Dim rs As New ADODB.Recordset Dim strsql As String strsql = select * from 用户表 where 用户名= Me.Cbouser rs.Open strsql, CurrentProject.Connection, adOpenStatic, adLockReadOnly If rs.RecordCount 0 Then If rs!密码 = Me.Txtpwd Then login = True End If End If rs.Close Set rs = Nothing End Function Private Sub Cmdok_Click() Static n As Integer If IsNull(Me.Cbouser) Then MsgBox 请输入您的用户名!, vbCritical Exit Sub Else Me.Cbouser.SetFocus End If If login =