资源描述：
《数据库delphi7实验报告册》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、实验五实验题目：使用Ttable组件进行简单程序设计实验目的：Ttable组件的属性设计；数据库连接设置；数据控制方法，数据定位功能设计，编程设计。实验类型：验证性实验内容：编写使用BDE的一个应用程序实现表中纪录的插入、编辑、更新以及记录指针，如下图所示：点击浏览数据，界面如图所示：实验步骤简介：1．建立表格books，字段有bookno,bookname,author,publishment,buytimeyear,byetimemonth,buytimedate,buytime,ordered,borrowed。并
2、在BDEAdministration中建立数据库别名books。2．使用pagecontrol控件，右键单击弹出快捷键，使用newpage方法产生浏览记录和浏览数据的两个页面。修改两个tabsheet的caption属性，命名为浏览记录和浏览数据。3．在tabsheet1页面下，放置table1，datasource1和DBNavigator1控件，并设置属性。设置table的databasename和tablename属性。Datasource1只需设置dataset属性。DBNavigator1设置datasourc
3、e属性。1．在tabsheet1页面下，放置相关控件，如，dbedit,dbcombobox,dbradiogroup.分别设置它们的datasource和datafield属性。2．Form1中添加close按钮，在tabsheet1中添加两个按钮。3．在button下编程，实现程序功能。procedureTForm1.FormCreate(Sender:TObject);beginwithDBRadioGroup1dobeginItems.Add('是');Items.Add('否');Values.Add('Tru
4、e');Values.Add('False');end;end;1．在tabsheet2页面下，放置DBGrid1和DBNavigator2控件。并按照上面第三步的方式设置属性。在DBGrid1中实现当具体点击某一行的数据时，页面切换到tabsheet2界面下。在DBGrid1的事件中oncellclick中编程。Pagecontrol1.activepage:=tabsheet1;9.”添加”按钮BitBtn1的点击事件代码：procedureTForm1.BitBtn1Click(Sender:TObject);be
5、gintable1.Insert;end;10.”确定”按钮BitBtn2的点击事件代码：procedureTForm1.BitBtn2Click(Sender:TObject);begintable1.Post;end;总代码：unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ExtCtrls,DBCtrls,Mask,DB,DBTables,ComCtrl
6、s,Buttons,Grids,DBGrids;typeTForm1=class(TForm)PageControl1:TPageControl;TabSheet1:TTabSheet;TabSheet2:TTabSheet;DataSource1:TDataSource;DBNavigator1:TDBNavigator;Table1:TTable;DBEdit1:TDBEdit;Label1:TLabel;Label2:TLabel;Label3:TLabel;Label4:TLabel;Label5:TLabel;
7、Label6:TLabel;Label7:TLabel;DBEdit2:TDBEdit;DBEdit3:TDBEdit;DBComboBox1:TDBComboBox;DBEdit4:TDBEdit;DBRadioGroup1:TDBRadioGroup;DBRadioGroup2:TDBRadioGroup;BitBtn1:TBitBtn;BitBtn2:TBitBtn;Label8:TLabel;BitBtn3:TBitBtn;DBGrid1:TDBGrid;DBNavigator2:TDBNavigator;pro
8、cedureDBGrid1CellClick(Column:TColumn);procedureBitBtn3Click(Sender:TObject);procedureBitBtn1Click(Sender:TObject);procedureBitBtn2Click(Sender:TObject);privat
