- 1、本文档共6页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
实验报告-模板实验报告-模板
中国计量学院
实验报告
实验课程: 数据库应用 实验日期:
实验名称:
班级: 学号: 姓 名:
实验报告成绩: 教师签名:
指导教师评语:
实验目的
掌握Delphi工程总体框架的建立方法,以及工程环境的配置。
熟悉数据库系统开发的完整过程,能够独立开发一个数据库系统,并调试运行。
实验环境
Delphi7+access2003
实验内容和步骤
通过access2003建立MDB数据库如下:
图1 数据库
系统主界面
图2 主界面
登录窗体
图3 登录窗体
核心代码:
procedure TLoginFrm.btnokClick(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.sql.Clear; //该处也可以用参数的
//ADOQuery1.SQL.Add(select * from users where 姓名=+trim(edit1.Text)+ and 密码=+trim(edit2.Text)+);
ADOQuery1.SQL.Add(select * from users where 姓名=:a and 密码=:b);
ADOQuery1.Parameters.ParamByName(a).value:=trim(edit1.Text);
ADOQuery1.Parameters.ParamByName(b).value:=trim(edit2.Text);
//ADOQuery1.ExecSQL;
ADOQuery1.Open;
if ADOQuery1.RecordCount0 then
begin
Form1.statusbar1.Panels[1].Text:=上次登录时间: +adoquery1.fieldbyname(上次登录时间).value;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.add(update users set 上次登录时间=+formatdatetime(yy-mm-dd ,date)+formatdatetime(hh:nn:ss,time)+);
ADOQuery1.execsql;
Form1.statusbar1.Panels[0].Text:=登录用户:+edit1.Text;
edit1.Clear;
edit2.Clear;
LoginFrm.Hide;
Form1.Visible:=true;
Form1.WindowState:=wsMaximized;
end
else
begin
edit1.text:=;
edit2.Text:=;
messagebox(handle,用户名或密码错误!,提示信息,mb_ok or mb_iconwarning);
exit;
end;
基本信息录入
核心代码:
procedure Tfrm_jbxxlr.Button1Click(Sender: TObject);
begin
if Edit1.Text = then
begin
MessageBox(handle,学号不能为空!,警告,MB_OK+MB_ICONWARNING);
Edit1.SetFocus ;
exit;
end;
if Edit2.Text = then
begin
MessageBox(handle,姓名不能为空!,警告,MB_OK+
您可能关注的文档
- 实验一MATLAB操作基础实验报告实验一MATLAB操作基础实验报告.doc
- 实验一、二 Matlab基础 及SIMULINK在控制中的应用实验一、二 Matlab基础 及SIMULINK在控制中的应用.doc
- 实验二 c程序设计基础练习实验二 c程序设计基础练习.doc
- 实验九Linux操作系统的安装及使用实验九Linux操作系统的安装及使用.doc
- 实验二 电荷灵敏放大器实验二 电荷灵敏放大器.doc
- 实验二 含运算放大器电路和戴维南定理的验证实验二 含运算放大器电路和戴维南定理的验证.doc
- 实验一_C_程序设计基础练习实验一_C_程序设计基础练习.doc
- 宝钢奖学金申请材料宝钢奖学金申请材料.doc
- 实验二_常用网络命令实验二_常用网络命令.doc
- 实验二_可编程定时器计数器报告实验二_可编程定时器计数器报告.doc
- 2024年中国钽材市场调查研究报告.docx
- 2024年中国不锈钢清洗车市场调查研究报告.docx
- 2024年中国分类垃圾箱市场调查研究报告.docx
- 2024年中国水气电磁阀市场调查研究报告.docx
- 2024年中国绿藻片市场调查研究报告.docx
- 2010-2023历年初中毕业升学考试(青海西宁卷)数学(带解析).docx
- 2010-2023历年福建厦门高一下学期质量检测地理卷.docx
- 2010-2023历年初中数学单元提优测试卷公式法(带解析).docx
- 2010-2023历年初中毕业升学考试(山东德州卷)化学(带解析).docx
- 2010-2023历年初中毕业升学考试(四川省泸州卷)化学(带解析).docx
文档评论(0)