陆对话框,当它为 True 时,无论在 ConnectionString 中是否包含 了用户密码码信息,
程序都将弹出一个
登陆对话框。该组件可以获取数据库的数据表信息,这 需要用到 GetTableNames 方法。 三.判断题(每题 1 分,共 5 分) 1、对象的 Name 属性值可以为空。F 2、TLabel 和 TEdit 组件都可以用于用户输入数据。F 3、TStatusBar 组件一般放置在窗体的底部,可以分成几个窗口,每个窗口可以显示不同的信息 T 4、在窗体的 FormCreate 事件过程中定义的变量是全局变量。F 5、当程序运行时,如果要求窗体中的某个按钮不再显示,只需将该按钮的 Visible 属性设置为 false。T 四. 10 分) ( 声明一个水果类 TFruit , 私有成员为 FName(水果名, string 类型), FColor(颜色,TColor 类型), FTaste(味道,Ttaste 类型), 公共属性为 Color, FColor 里获取属性值, 从 通过 SetColor 方法设置属性值,默认值为 red,公共方法有 Infor 过程,没有参数。 Type TFruit=Class private FName:string; FColor: string; FTaste: Ttaste; public property Color: string read FColor write SetColor default ‘red’; procedure Infor; end; 五. (15 分)数据库 Contact.mdb 中有“公司”表和“联系人”表,结构如下: 公 司:公司编号,公司名称,地址,城市,省区市,邮政编码,地区,国家,网站; 联系人:联系人编号,公司编号,,出生日期,籍贯,电话,电子邮箱; 两表通过“公司编号”关联,在窗体上显示地区为“北京”的公司的所有联系人及其所在 公司名称,如下图所示:
窗体上 ADOConnection1 组件已连接了 Contact.mdb,请对数据库组件的相关属性进行设置: ADOConnection1.LoginPrompt:= false ADOQuery1.Connection:= ADOConnection1 ADOQuery1.SQL.Text:=‘select 联系人.
,公司.公司名称 from 联系人,公司 where 联系人.公司编号=公司.公司编号 and 公司.地区 like ''北京%'' (where 联系人.公司编号=公司.公司编号 and 公司.地区=''北京'')’ ADOQuery1.Active:= true DataSource1.DataSet:= ADOQuery1 DBGrid1.DataSource:= DataSource1 DBNavigator1.DataSource:= DataSource1 窗体上“排序”按钮的功能是对记录以“公司名称”进行升序排列, “过滤”按钮的功能是 只显示姓郑的联系人的信息,请编写代码完成相应功能: procedure TForm1.BtnSortClick(Sender: TObject); //排序 begin ADOQuery1.Sort:=’公司名称 ASC’; end; procedure TForm1.BtnFilterClick(Sender: TObject); //过滤 begin ADOQuery1.Filtered:=false; ADOQuery1.Filter:=’ like ''郑%''’; ADOQuery1.Filtered:=true; end;