数据库管理系统实验报告
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
实验报告
实验课程：数据库应用实验日期：
实验名称：综合实验
班级：学号：姓名：
实验报告成绩：教师签名：
指导教师评语：
一. 实验目的
掌握Delphi工程总体框架的建立方法，以及工程环境的配置。
熟悉数据库系统开发的完整过程，能够独立开发一个数据库系统，并调试运行。
二. 实验环境
Delphi7+access2003
三. 实验内容和步骤
1、通过access2003建立MDB数据库如下：
图1 数据库
2、系统主界面
图2 主界面2、登录窗体
图3 登录窗体核心代码：
procedure TForm2.Button1Click(Sender: TObject);
begin
adotable1.Active:=true;
if Adotable1.Locate('姓名',edit1.Text,[]) then
if adotable1.FieldByName('密码').AsString=edit2.Text then
begin
showmessage('登录成功！');
// adotable2.Append;
// adotable2.FieldByName('登录时间').Value:=datetimetostr(now);
// adotable2.FieldByName('用户编号').Value:=adotable1.Fields[0].AsString; //adotable2.Post;
// i:=adotable2.FieldByName('操作ID').asstring;
close;
form1.show
end
else
showmessage('用户名或口令错误！')
else
showmessage('用户名或口令错误！');
adotable1.Active:=false;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
close;
form1.Close;
end;
3、基本信息录入
图三基本信息录入
核心代码：
procedure TForm3.Button1Click(Sender: TObject);
begin
button2.Enabled:=true;
panel2.Enabled:=true;
adotable1.Append;
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
button2.Enabled:=false;
adotable1.Post;
panel2.Enabled:=false;
end;
procedure TForm3.Button3Click(Sender: TObject);
begin
if Application.MessageBox('您正在删除一条记录!','删除',MB_YESNO)=6 then adotable1.Delete;
end;
procedure TForm3.Button4Click(Sender: TObject);
begin
button2.Enabled:=false;
adotable1.Cancel;
end;
procedure TForm3.Button5Click(Sender: TObject);
begin
close;
end;
procedure TForm3.Button6Click(Sender: TObject);
begin
button2.Enabled:=true;
panel2.Enabled:=true;
adotable1.Edit;
end;
end.
4.pagecontrol控件应用
图四 pagecontrol控件应用
四. 实验结论
通过本次实验，我基本上了解了通过delphi语言编写数据库应用程序的方法和步骤，熟悉了ADO组件的用法，了解了SQL语句在控制数据输入输出中的用法，这次实验为日后编写较大一点的数据库应用程序奠定了基础。