Delphi实验报告教程.doc

实验二Delphi6.0常用组件的使用 一、设计实例：颜色与运动控制 二、使用组件：Panel、Shape、Listbox、Combobox、Checckbox、Botton、Timer 三、设计界面 四、各组件属性设置 1.panel的属性 （1）Align：可以选择panel的位置，此处设置为Altop。 （2）Bevelinner和Bevelouter：设置panel的外形。 （3）Color：选择panel的颜色。 （4）Caption：此属性清空。 2.shape的属性 （1）Shape：改变组件的形状，此处设置为stcircle。 3.listbox的属性 （1）Items：点击省略号，出现编辑框，输入红色、蓝色、黑色、黄色。 4.combobox的属性 （1）Text：清空后可消除combobox1的字样。 （2）Items：此处输入圆形、正方形（用于改变shape组件的形状）。 5.checkbox的属性 （1）Caption=’暂停’ 6.button的属性 （1）Caption=’退出’ 五、窗体对应代码 procedure TForm1.ListBox1Click(Sender: TObject); begin if Listbox1.Selected[0] then shape1.Brush.Color:=clred; if Listbox1.Selected[1] then shape1.Brush.Color:=clblue; if Listbox1.Selected[2] then shape1.Brush.Color:=clblack; if Listbox1.Selected[3] then shape1.Brush.Color:=clyellow; end; procedure TForm1.ComboBox1Change(Sender: TObject); begin if combobox1.Text=圆形 then shape1.Shape:=stcircle; if combobox1.Text=正方形 then shape1.Shape:=strectangle; end; procedure TForm1.Timer1Timer(Sender: TObject); begin shape1.Left:=(shape1.Left+10)mod panel1.Width; //此处控制运行速度，改变+10可以改变速度 end; procedure TForm1.CheckBox1Click(Sender: TObject); begin timer1.Enabled:=not checkbox1.Checked; end; procedure TForm1.Button1Click(Sender: TObject); begin close; end; 六、一些组件补充 listbox组件运行后如果要选中多个选项，则将Extendeselect=true，Multiselect=true就可以选中多个；Enable=false，运行后选项为灰色，不能进行选择；Sorted=true，运行后，在属性items中输入的文字会按英文字母顺序排列。 七、遇到的问题 对一些组件使用不熟悉，写代码时没有注意中英文，一些标点使用了中文形式。 八、运行后界面 实验三初始Delphi数据库程序开发 一、实例：以软件自带数据库DBDEMOS中数据表Biolife，建立一个数据库实例。 二、使用组件：Table、DBImage、DBGrid、Button、DBNavigator、Datasource 三、设计界面 四、组件属性设置 1.Table：TTable控件是用来访问数据库中的数据表，是Delphi提供的的对数据库最简单而快速的访问方式。 （1）table1.databasename=DBDEMOS Table1.tablename=biolife.ab Table2.databasename=DBDEMOS Table2.tablename=country.ab 2．Datasource：TDatasource控件在Delphi数据库应用程序中起着关键的作用，它用来把非可视化的数据集控件与可视的数据控制控件连接在一起。这样数据集中的数据就可以在数据控制控件中显示出来，并且通过数据控制控件可以编辑、删除、增加数据集中的数据。 （1）datasource1.dataset=table1 Datasource2.dataset=table