数据库delphi7实验56报告册Word文件下载.docx

1、实验目的：Ttable组件的属性设计；数据库连接设置；数据控制方法，数据定位功能设计，编程设计。实验类型：验证性实验内容：编写使用BDE的一个应用程序实现表中纪录的插入、编辑、更新以及记录指针，如下图所示：点击浏览数据，界面如图所示：实验步骤简介：1 建立表格books，字段有bookno, bookname, author, publishment, buytimeyear, byetimemonth, buytimedate, buytime, ordered, borrowed。并在BDE Administration中建立数据库别名books。2 使用page control控件，右键

2、单击弹出快捷键，使用new page方法产生浏览记录和浏览数据的两个页面。修改两个tab sheet的caption属性，命名为浏览记录和浏览数据。3 在tabsheet1页面下，放置table1， datasource1和DBNavigator1控件，并设置属性。设置table的databasename和tablename属性。Datasource1只需设置dataset属性。DBNavigator1设置datasource属性。4 在tabsheet1页面下，放置相关控件，如，dbedit, dbcombobox, dbradiogroup.分别设置它们的datasource和datafi

3、eld属性。5 Form1中添加close按钮，在tabsheet1中添加两个按钮。6 在button下编程，实现程序功能。procedure TForm1.FormCreate（Sender: TObject）;begin with DBRadioGroup1 do begin Items.Add（是）;否 Values.Add（TrueFalse end;end;7 在tabsheet2页面下，放置DBGrid1和DBNavigator2控件。并按照上面第三步的方式设置属性。在DBGrid1中实现当具体点击某一行的数据时，页面切换到tabsheet2界面下。在DBGrid1的事件中once

4、llclick中编程。相关代码为：Pagecontrol1.activepage:=tabsheet1;9.”添加”按钮BitBtn1的点击事件代码：table1.Insert;10.”确定”按钮BitBtn2的点击事件代码：table1.Post ;所有代码：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, DBCtrls, Mask, DB, DBTables, ComCtrls, B

5、uttons, Grids, DBGrids;type TForm1 = class（TForm） PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: DataSource1: TDataSource; DBNavigator1: TDBNavigator; Table1: TTable; DBEdit1: TDBEdit; Label1: TLabel; Label2: Label3: Label4: Label5: Label6: Label7: DBEdit2: DBEdit3: DBComboBox1: TDBCom

6、boBox; DBEdit4: DBRadioGroup1: TDBRadioGroup; DBRadioGroup2: BitBtn1: TBitBtn; BitBtn2: Label8: BitBtn3: DBGrid1: TDBGrid; DBNavigator2: procedure DBGrid1CellClick（Column: TColumn）; procedure BitBtn3Click（Sender: procedure BitBtn1Click（Sender: procedure BitBtn2Click（Sender: private Private declarati

7、ons public Public declarations var Form1: TForm1;implementation$R *.dfmprocedure TForm1.DBGrid1CellClick（Column: Pagecontrol1.activepage:procedure TForm1.BitBtn3Click（Sender:close;procedure TForm1.BitBtn1Click（Sender:procedure TForm1.BitBtn2Click（Sender:end.实验总结及感想：实验六使用Ttable组件和数据控制组件进行程序设计。掌握Ttabl

8、e组件查询功能实现方法；查询条件设计；查询结果显示。一程序总体功能介绍：用户选择数据库名后，在该数据库名下的所有表格就显示在其下方的Listbox中，点击表格名称，表格对应的字段名就显示在右方的Listbox中。同时，用户可以根据该表格的第一个字段进行查询具体的记录。在edit框中输入查询信息，点击“查询”按钮，若查找到相关记录，dbgrid自动会把指针指向那条记录并显示“查询成功”。否则显示“查询失败”。按钮上一条记录，下一条记录用来实现数据指针的移动。二步骤简介：1建立新的应用程序项目。2设计窗体。Label1,label2,label3分别显示“请选择数据库名”，“请选择表格”已经“显示

9、字段名”。Label4和label5分别用来显示“请输入要查询的【】字段值”其中。【】的内容是随着所选择表格的第一个字段名而确定的，是随着表格的名称而发生改变的。Label5的内容是来显示查询的结果的。若存在则显示查询成功，否则查询失败。它也是改变的。 所以先设置其一些属性，具体如下： 窗体主要组件的属性值主要组件 属性值Label4 Left=251Top=104Width=110Height=33AutoSize=FalseWordWrap=TrueLabel5Left=379Top=152Width=94Height=25 Dbgrid1DataSourse= DataSourse1 D

10、ataSourse1DataSet=Table13 编写程序代码：定义两个全局变量，str1和str2, 字符串类型。a. 选择数据库名。当程序一启动就会自动在显示数据库名的combobox中把当前的数据库 别名显示出来。因此需要在Form的oncreate事件中编写程序代码，代码如下： procedure TForm1.FormCreate（Sender: with ComboBox1 do items.Clear; session.GetAliasNames（items）; text:=items0;c. 选择的数据库名后，数据库中所包含的所有表格就显示在Listbox中，程序实现如下：

11、procedure TForm1.ComboBox1Click（Sender: str1:=ComboBox1.Items.StringsComboBox1.Itemindex; with listbox1 do items.clear; session.GetTableNames（str1,true,true,listbox1.Items）;d单击listbox中的表格后，它所有的字段就会在右边的listbox中显示： procedure TForm1.ListBox1Click（Sender: with table1 do close; databasename:=str1; tablen

12、ame:=listbox1.Items.Stringslistbox1.itemindex; open; with listbox2 do items:=table1.FieldList; str2:=items.Strings0; label4.Caption:=请输入要查询的+str2+字段值:;e在EDIT中查询，显示查询结果。procedure TForm1.Button5Click（Sender: indexfieldnames:=str2; if findkey（edit1.Text） then label5.Caption:查询成功！ end else查找失败！unit Unit

13、2; Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids, DBCtrls; ComboBox1: TComboBox; Button1: TButton; Button2: Button3: ListBox1: TListBox; Edit1: TEdit; ListBox2: Button4: procedure FormCreate（Sender: procedure ComboBox1Change（Sender: procedure ListBox1Click（Sender: procedure Button1Click（Sender: pr

14、ocedure Button3Click（Sender: procedure Button2Click（Sender: procedure Button4Click（Sender: str1,str2:string;with ComboBox1 doprocedure TForm1.ComboBox1Change（Sender:procedure TForm1.ListBox1Click（Sender:procedure TForm1.Button1Click（Sender: table1.Prior ;procedure TForm1.Button3Click（Sender: application.Terminate;procedure TForm1.Button2Click（Sender:table1.Next ;procedure TForm1.Button4Click（Sender: