新access复习题.doc

一） 新access复习题是考试题型与复习范围二） 考试题型与分数一、 选择题（25题，25 分）二、 填空题（10题，20分）三、 按要求回答下列各题（40分）（包括简答题1道，SQL语句4道，控件代码补全3道）四、 设计题（15分）三） 每章需要说明的问题第一章：1）数据、信息、数据库、数据库管理系统、数据库系统的概念 2）数据处理三个阶段的名称 3） 数据模型以及数据库的分类 4）数据库系统的三级模式 5）关系模型的相关术语以及完整性约束 6）一二三范式 7）ER模型转换为关系模型的规则 8）数据库系统的概念：数据库系统是数据库应用系统的简称，是指计算机系统中引入数据库之后组成的系统，用来组织和存取大量数据的管理系统，由计算机系统、数据库、数据库管理系统，应用程序和用户组成。第二三章：看实验书第五章练习题第四章：1）数据类型 2）表属性的设置与维护 3）创建关联以及编辑关系第五章：看实验书第八章练习题第六章：1)会写创建表 create table(字段名 类型（宽度）)例：create table 交易001 (交易号 char(10), 交易时间 date, 终端 char(2),收银员 char(10), primary key (交易号) )create table 销售001 (商品编号 char(10), 商品单价 float, 商品数量 integer,交易号 char(10), 备注 memo, foreign key (交易号) references 交易001(交易号) ) Add 字段名 类型（宽度） 2）修改表 alter table 表名 alter 字段名 类型（宽度） Drop 字段名例：alter table 交易001 add 总金额 smallintalter table 商品001 drop 备注alter table 交易001 alter 总金额 real 3） 简单查询 select * from 表名 where 条件 连接查询 select * from 表1，表2 where 连接条件 从中涉及排序，分组，聚合函数的使用 例：select 员工编号,姓名 from 员工 where 部门编号=A1SELECT 部门名称, 员工.姓名 FROM 员工, 部门WHERE 员工.部门编号=部门.部门编号第七十章：(第八章可以不看)1）选择、填空题见实验书；2）程序设计能运用顺序、选择、循环三种基本结构以及函数与过程的定义与调用以及参数的传递方式；3）设计窗体如下所示：四） 窗体与编程部分 1）纵横向滚动效果Private Sub Form_Load()Me.TimerInterval = 10End SubPrivate Sub Form_Timer()If Me.Label1.Left 15 ThenMe.Label1.Left = Me.Label1.Left - 15ElseMe.Label1.Left = Me.Width - Me.Label1.WidthEnd IfIf Me.Label2.Top 15 ThenMe.Label2.Top = Me.Label2.Top - 15ElseMe.Label2.Top = 5500End IfEnd Sub2)选项组Private Sub Frame1_Click()Me.Text1 = Me.Frame1.ValueEnd SubPrivate Sub Frame2_Click()Dim n as integern = Me.Frame2.ValueIf n = 1 ThenMe.Text2 = 羽毛球Else If n = 2 Then Me.Text2 = 钢琴 Else Me.Text2 = 水彩画 End If End IfEnd 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 SelectEnd Sub3)登录窗体Private Function login() As BooleanDim rs As New ADODB.RecordsetDim strsql As Stringstrsql = 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 = NothingEnd FunctionPrivate Sub Cmdok_Click()Static n As IntegerIf IsNull(Me.Cbouser) Then MsgBox 请输入您的用户名!, vbCritical Exit SubElse Me.Cbouser.SetFocusEnd IfIf login = True ThenDoCmd.Close DoCmd.OpenForm 主窗体Else n = n + 1 If n = 3 Then MsgBox 您已无权使用!, vbCritical DoCmd.Quit acQuitSaveNone End If MsgBox 您输入密码不正确，请重新输入，仅3次!, vbCritical Exit SubEnd IfEnd SubPrivate Sub Cbouser_NotInList(NewData As String, Response As Integer)Response = acDataErrContinue 必须从组合框中选择用户名End SubPrivate Sub Cmdcancel_Click()DoCmd.Quit acQuitSaveNoneEnd Sub4)删除Text2Command44Command33Text1Private Function Check1() As BooleanIf Me.Text1 And Me.Text2 Then Dim rs As New ADODB.Recordset Dim strsql As String strsql = select * from 用户 where username= & Text1 & and password= & Text2 & rs.Open strsql, CurrentProject.Connection, adOpenStatic, adLockReadOnly If rs.RecordCount 0 Then Check1 = True Else Text1 = Text2 = End If rs.Close Set rs = NothingEnd IfEnd FunctionPrivate Sub Command33_Click() If Check1 = True Then Dim rs As New ADODB.Recordset Dim strsql As String strsql = select * from 用户 where username= & Text1 & and password= & Text2 & rs.Open strsql, CurrentProject.Connection, adOpenDynamic, adLock