数据库delphi7实验56报告册.docx

1、数据库delphi7实验56报告册科技学院数据库技术 B实验报告20122013学年第一学期 专业： 信息管理与信息系统 班级： KT 1073-1 _ 学号： 20109730122_ 姓名： 王 鼎 家 授课教师：_薛昌春_实验教师：_薛昌春_实验学时：_30_实验项目个数： 12 实验地点：信息工程实验室经济管理学院实验五实验题目：使用Ttable组件进行简单程序设计实验目的：Ttable组件的属性设计；数据库连接设置；数据控制方法，数据定位功能设计，编程设计。实验类型：验证性实验内容：编写使用BDE的一个应用程序实现表中纪录的插入、编辑、更新以及记录指针，如下图所示：点击浏览数据，界面

2、如图所示：实验步骤简介：1 建立表格books，字段有bookno, bookname, author, publishment, buytimeyear, byetimemonth, buytimedate, buytime, ordered, borrowed。并在BDE Administration中建立数据库别名books。2 使用page control控件，右键单击弹出快捷键，使用new page方法产生浏览记录和浏览数据的两个页面。修改两个tab sheet的caption属性，命名为浏览记录和浏览数据。3 在tabsheet1页面下，放置table1， datasource1和

3、DBNavigator1控件，并设置属性。设置table的databasename和tablename属性。Datasource1只需设置dataset属性。DBNavigator1设置datasource属性。4 在tabsheet1页面下，放置相关控件，如，dbedit, dbcombobox, dbradiogroup.分别设置它们的datasource和datafield属性。5 Form1中添加close按钮，在tabsheet1中添加两个按钮。6 在button下编程，实现程序功能。procedure TForm1.FormCreate(Sender: TObject);begin

4、 with DBRadioGroup1 do begin Items.Add(是); Items.Add(否); Values.Add(True); Values.Add(False); end;end;7 在tabsheet2页面下，放置DBGrid1和DBNavigator2控件。并按照上面第三步的方式设置属性。在DBGrid1中实现当具体点击某一行的数据时，页面切换到tabsheet2界面下。在DBGrid1的事件中oncellclick中编程。相关代码为：Pagecontrol1.activepage:=tabsheet1;9.”添加”按钮BitBtn1的点击事件代码：table1.I

5、nsert;10.”确定”按钮BitBtn2的点击事件代码：table1.Post ;所有代码：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, DBCtrls, Mask, DB, DBTables, ComCtrls, Buttons, Grids, DBGrids;type TForm1 = class(TForm) PageControl1: TPageControl; TabSh

6、eet1: TTabSheet; TabSheet2: TTabSheet; DataSource1: TDataSource; DBNavigator1: TDBNavigator; Table1: TTable; DBEdit1: TDBEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; DBEdit2: TDBEdit; DBEdit3: TDBEdit; DBComboBox1: TDBComboBox;

7、 DBEdit4: TDBEdit; DBRadioGroup1: TDBRadioGroup; DBRadioGroup2: TDBRadioGroup; BitBtn1: TBitBtn; BitBtn2: TBitBtn; Label8: TLabel; BitBtn3: TBitBtn; DBGrid1: TDBGrid; DBNavigator2: TDBNavigator; procedure DBGrid1CellClick(Column: TColumn); procedure BitBtn3Click(Sender: TObject); procedure BitBtn1Cl

8、ick(Sender: TObject); procedure BitBtn2Click(Sender: TObject); private Private declarations public Public declarations end;var Form1: TForm1;implementation$R *.dfmprocedure TForm1.DBGrid1CellClick(Column: TColumn);begin Pagecontrol1.activepage:=tabsheet1;end;procedure TForm1.BitBtn3Click(Sender: TOb

9、ject);beginclose;end;procedure TForm1.BitBtn1Click(Sender: TObject);begintable1.Insert;end;procedure TForm1.BitBtn2Click(Sender: TObject);begintable1.Post ;end;end.实验总结及感想：实验六实验题目：使用Ttable组件和数据控制组件进行程序设计。实验目的：掌握Ttable组件查询功能实现方法；查询条件设计；查询结果显示。实验类型：验证性实验内容：一程序总体功能介绍：用户选择数据库名后，在该数据库名下的所有表格就显示在其下方的Listb

10、ox中，点击表格名称，表格对应的字段名就显示在右方的Listbox中。同时，用户可以根据该表格的第一个字段进行查询具体的记录。在edit框中输入查询信息，点击“查询”按钮，若查找到相关记录，dbgrid自动会把指针指向那条记录并显示“查询成功”。否则显示“查询失败”。按钮上一条记录，下一条记录用来实现数据指针的移动。二步骤简介：1建立新的应用程序项目。2设计窗体。Label1,label2,label3分别显示“请选择数据库名”，“请选择表格”已经“显示字段名”。Label4和label5分别用来显示“请输入要查询的【】字段值”其中。【】的内容是随着所选择表格的第一个字段名而确定的，是随着表格

11、的名称而发生改变的。Label5的内容是来显示查询的结果的。若存在则显示查询成功，否则查询失败。它也是改变的。 所以先设置其一些属性，具体如下： 窗体主要组件的属性值主要组件 属性值Label4 Left=251Top=104Width=110Height=33AutoSize=FalseWordWrap=TrueLabel5Left=379Top=152Width=94Height=25AutoSize=False Dbgrid1DataSourse= DataSourse1 DataSourse1DataSet=Table13 编写程序代码：定义两个全局变量，str1和str2, 字符串类

12、型。a. 选择数据库名。当程序一启动就会自动在显示数据库名的combobox中把当前的数据库 别名显示出来。因此需要在Form的oncreate事件中编写程序代码，代码如下： procedure TForm1.FormCreate(Sender: TObject);begin with ComboBox1 do begin items.Clear; session.GetAliasNames(items); text:=items0; end;end;c. 选择的数据库名后，数据库中所包含的所有表格就显示在Listbox中，程序实现如下： procedure TForm1.ComboBox1C

13、lick(Sender: TObject);begin str1:=ComboBox1.Items.StringsComboBox1.Itemindex; with listbox1 do begin items.clear; session.GetTableNames(str1,true,true,listbox1.Items); end;end;d单击listbox中的表格后，它所有的字段就会在右边的listbox中显示： procedure TForm1.ListBox1Click(Sender: TObject);begin with table1 do begin close; da

14、tabasename:=str1; tablename:=listbox1.Items.Stringslistbox1.itemindex; open; end; with listbox2 do begin items.Clear; items:=table1.FieldList; str2:=items.Strings0; label4.Caption:=请输入要查询的+str2+字段值:; end;end;e在EDIT中查询，显示查询结果。procedure TForm1.Button5Click(Sender: TObject);begin with table1 do begin c

15、lose; indexfieldnames:=str2; open; if findkey(edit1.Text) then begin label5.Caption:=查询成功！; end else begin label5.Caption:=查找失败！; end; end;end;所有代码：unit Unit2;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids, DBC

16、trls;type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; ComboBox1: TComboBox; Button1: TButton; Button2: TButton; Button3: TButton; ListBox1: TListBox; Edit1: TEdit; ListBox2: TListBox; Button4: TButton; DataSource1: TDataSource; Table1: TTable

17、; DBGrid1: TDBGrid; procedure FormCreate(Sender: TObject); procedure ComboBox1Change(Sender: TObject); procedure ListBox1Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button4Click(Sender: T

18、Object); private Private declarations public Public declarations end;var Form1: TForm1; str1,str2:string;implementation$R *.dfmprocedure TForm1.FormCreate(Sender: TObject);beginwith ComboBox1 do begin items.Clear; session.GetAliasNames(items); text:=items0; end;end;procedure TForm1.ComboBox1Change(S

19、ender: TObject);begin str1:=ComboBox1.Items.StringsComboBox1.Itemindex; with listbox1 do begin items.clear; session.GetTableNames(str1,true,true,listbox1.Items); end;end;procedure TForm1.ListBox1Click(Sender: TObject);begin with table1 do begin close; databasename:=str1; tablename:=listbox1.Items.St

20、ringslistbox1.itemindex; open; end; with listbox2 do begin items.Clear; items:=table1.FieldList; str2:=items.Strings0; label4.Caption:=请输入要查询的+str2+字段值:; end;end;procedure TForm1.Button1Click(Sender: TObject);begin table1.Prior ;end;procedure TForm1.Button3Click(Sender: TObject);begin application.Te

21、rminate;end;procedure TForm1.Button2Click(Sender: TObject);begintable1.Next ;end;procedure TForm1.Button4Click(Sender: TObject);begin with table1 do begin close; indexfieldnames:=str2; open; if findkey(edit1.Text) then begin label5.Caption:=查询成功！; end else begin label5.Caption:=查找失败！; end; end;end;end.实验总结及感想：