答案

1.数据库应用程序体系结构在逻辑上通常由哪两部分组成？ (1) 数据库访问链路 (2) 用户界面

2.什么是异常处理？Try…except语句和try…finally语句有什么区别？当一个错误或其他一些事件中止了程序的正常运行，系统就会抛出一个异常。 Try … except 结构用于捕获异常，然后有选择地对捕获到的异常进行“处理”，Try…except结构将释放异常对象实例，并继续正常的程序处理。扩展语法，判断所发生的异常的类型on…do。

Try … Finally用于在全局的异常处理程序或下一级的错误检查处理异常前，执行一些清除操作。不释放异常对象实例，并不处理错误。都要进行finally部分的操作。

3. 数据集组件负责与BDE的联系,是能与数据库连接的组件。 数据源组件，它是连接数据集合组件和用户界面的桥梁。 数据控制组件是为用户提供浏览、编辑数据接口的组件。 关系：通过连接，建立好Delphi应用程序中的数据访问链路。 4.使用Goto方式进行数据查找使用的方法有SetKey方法、 GotoKey方法(或GotoNearest方法)。其实际步骤如何？ (1) 确保要查找的字段是关键字段或辅助索引字段。

2) 调用SetKey方法把与表对应的TTable组件置成查找状态。 (3) 把查找值赋给相应的字段。 (4) 调用GotoKey方法，并测试它的返回值 ，检验查找是否成功。

5..动态SQL语句中的参数可以在程序运行过程中，通过程序为其赋值。两种为参数赋值的方法分别是什么？

.① 利用ParamByName 方法，依照参数的名字给参数赋值； Query1.ParamByName(′Capital′).AsString := Edit1.Text; ② 利用Params属性，依照参数在SQL语句中的顺序位置给参数赋值；

Query1.Params[0].AsString := Edit1.Text; Query1.Params[1].AsString := Edit2.Text; 6、数据控制（浏览）组件的共同属性有哪些？

（1）Datasource属性: 说明数据浏览控件连接的数据源控件TDataSource，数据浏览控件是从TDataSource控件中获取数据的。 （2）DataField属性: 说明数据浏览控件对应数据库表中实际的字段名称。

（3）Enabled属性:当数据浏览组件连接到数据集组件时，它的Enabled属性决定了数据浏览组件能否接受来自鼠标、键盘和定时器事件的消息。 （4）ReadOnly属性: 该属性用来控制是否可以在数据浏览中编辑修改字段的值。

如果数据库表是SQL数据库服务器中的数据库表，用户必须要具有读写数据库的权限等。 7、用户要想通过数据浏览控件编辑修改数据库表中的记录字段时，要受到哪些因素的制约?

数据浏览控件本身的ReadOnly属性设置为False

其相应的字段控件和数据集控件的CanModify属性为True； TDataSource控件的AutoEdit属性为True。

8.数据统计组件有哪些?分别什么作用?之间关系如何?

TDecisionQuery 与Tquery类似,查询相关数据,以便选定数据源

TDecisionCube 分析表格中字段,

TDecisionSource 连接数据集和数据控制组件 TDecisionPivot 导航不同组的统计图

TDecisionGrid以表格形式对数据进行统计显示 TDecisionGraph显示与数据相对应的图形

判断用户输入的用户名(Edit1组件)和密码(Edit2组件)是不是预设的值，三次不符则退出，假设用户名为“abc”，密码为“123”。如果用户名或密码输入为空，程序将出现相关提示。 Procedure TForm1.Button1Click(Sender: TObject); begin

if novalue(edit1) or novalue(edit2) then exit;

if(edit1.text='abc') and (edit2.text='123') then

showmessage('注册成功') else

if (count>=3) then close else begin

showmessage('用户名与密码不符,请重新输入'); count:=count+1; end; end;

function novalue(aneditbox:tedit):boolean; begin if aneditbox.text='' then begin

aneditbox.Color:=clred; aneditbox.Text:='请输入'; result:=true; end else begin

aneditbox.Color:=clwindow; result:=false; end; end;

**Procedure

Tform1.Button1Click(Sender:TObject); Begin

With Query1 do Begin

Close; //关闭 SQL.Clear; //清除

SQL.Add(‘select * from country.db’); SQL.Add(‘where population>:low and population<:high’);

ParamByName(‘low’).AsInteger:=StrToInt(Edit1.Text); ParamByName(‘high’).AsInteger:=StrToInt(Edit2.Text);

Open;//打开 End; End;

·procedure TForm1.Button1Click(Sender: TObject);

begin

with table1 do begin

setkey; try

Table1.Fields[0].AsString:=edit1.Text;

if gotokey then showmessage('查找成功！')

else if messagedlg('设有该记录，是否查找最近记录?', mtconfirmation,[mbYes,mbNo],0)=mrYes then gotonearest else first； except

messagedlg('输入错误，请输入整数!',mtwarning,[mbok],0); end; end; end;

procedure TForm1.FindClick(Sender: TObject); var seekvalue:string;

begin

with table1 do begin

indexfieldnames:=‘姓名'; seekvalue:=edit2.text; try if findkey([seekvalue]) then showmessage( '查找成功！')

else first; except

messagedlg(‘输入错误，请输入字符！',mtwarning,[mbok],0);

end; end; end;