下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
第六次上机实验要求主题:Delphi数据库编程2(典型数据库程序架构知识点,TQuery的SQL动态语言编程)1.启动屏①新建一个窗体,可以取名为SplashForm(窗体名字),保存则可存为Splash.pas(单元文件命,保存时.pas可省略),窗体的BorderStyle属性设置为bsNone②在工程文件(.dpr)中输入以下代码:Application.Initialize;SplashForm:=TSplashForm.Create(Application);//启动屏创建SplashForm.Show;SplashForm.Update;Application.CreateForm(TMainForm,MainForm);//创建主窗体SplashForm.ProgressBar1.Position:=10;Sleep(500);Application.CreateForm(TLoginForm,LoginForm);//创建用户验证窗体SplashForm.ProgressBar1.Position:=20;Sleep(500);tryMainForm.ADOConnection1.Connected:=true;exceptMessageBox(Application.Handle,'网络数据库连接不上'+#13+'请检查网络连接状况','数据库连接出错',MB_OK+MB_ICONERROR);Application.Terminate;end;SplashForm.Close;//关闭启动屏窗体SplashForm.Free;//释放启动屏窗体所占的内存Application.Run;注意:如果启动屏一闪而过,可在主窗体MainForm的OnCreate事件中加入Sleep(3000);来进行延迟2.用户登陆窗体①新建一个窗体,取名为LoginForm②在主窗体的OnShow事件中输入以下代码LoginForm.ShowModal;ifLoginForm.ModalResult=mrCancelthenApplication.Terminate;③在LoginForm中防置两个按钮,一个写LoginForm.ModalResult:=mrOK;(确定按钮,如果验证密码成功,自己用if语句来写)一个写LoginForm.ModalResult:=mrCancel;(取消按钮)3.数据库配置①配置ODBC数据源(以access数据库为例)“控制面板”->”管理工具”->”数据源ODBC”->点击“添加”->选择“DrivertoMicrosoftAccess(*.mdb)”,输入数据源名称,选择数据库所在的路径并确定.②进行BDE配置“开始”->“程序”->“BorlandDelphi7”->“BDEAdministrator”->找到你建立的数据源别名,点击它,出现”SQLQRYMODE”选择”LOCAL”,点击”关闭”并保存③在程序主窗体MainForm上放置一个Database1,其DatabaseName属性设置为ODBC中的数据库别名,LoginPrompt设置为false,Connected属性设为true小窍门:可以在工程文件的SplashForm.Close前面输入tryMainForm.Database1.Connected:=true;exceptMessageBox(Application.Handle,'数据库连接不上'+#13+'请检查','数据库连接出错',MB_OK+MB_ICONERROR);Application.Terminate;end;作用是预先检查数据库连接状况,如果出错,则退出程序!4.在主窗体上画出相应的界面,如果需要打开更多窗口,则新建相应的窗体,并输入代码Form1.ShowModal;(以Form1为例,具体名字可以不同)注意:在implementation后面应该添加需引用的单元文件名如usesUnit1;(Form1窗体保存为Unit1.pas)5.充分利用Table、Query、DBGrid、DataSource等控件和SQL标准语言进行对数据库的操作.以下是Delphi中的SQL语言对数据库的操作(ODBC)添加Query1.SQL.Clear;Query1.SQL.Add('InsertIntoScore(Num,Name,WU,SX)');Query1.SQL.Add('Values(:sNum,:sName,:sWU,:sSX)');Query1.ParamByName('sNum').AsString:=Edit1.Text;Query1.ParamByName('sName').AsString:=Edit2.Text;Query1.ParamByName('sWU').AsString:=Edit3.Text;Query1.ParamByName('sSX').AsString:=Edit4.Text;Query1.ExecSQL;删除Query1.SQL.Clear;Query1.SQL.Add('DeleteFromScoreWherenum=:snum');Query1.ParamByName('snum').AsString:=Edit1.Text;Query1.ExecSQL;修改Query1.SQL.Clear;Query1.SQL.Add('UpdateScore');Query1.SQL.Add('SetNum=:sNum,Name=:sName,WU=:sWU,SX=:sSX');Query1.SQL.Add('WhereNum=:sNum2');Query1.ParamByName('sNum').AsString:=Edit1.Text;Query1.ParamByName('sName').AsString:=Edit2.Text;Query1.ParamByName('sWU').AsString:=Edit3.Text;Query1.ParamByName('sSX').AsString:=Edit4.Text;Query1.ParamByName('sNum2').AsString:=Edit5.Text;Query1.ExecSQL;查询Query2.Close;Query2.SQL.Clear;Query2.SQL.Add('Select*FromScoreWherenum=:snum');Query2.ParamByName('snum').AsString:=Edit1.Text;Query2.Open以下是Delphi中的SQL语言对数据库的操作(ADO)添加ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('InsertIntoTable1(Num,Name,WU,SX)');ADOQuery1.SQL.Add('Values(:sNum,:sName,:sWU,:sSX)');ADOQuery1.Parameters.ParamByName('sNum').Value:=Edit1.Text;ADOQuery1.Parameters.ParamByName('sName').Value:=Edit2.Text;ADOQuery1.Parameters.ParamByName('sWU').Value:=StrToFloat(Edit3.Text);ADOQuery1.Parameters.ParamByName('sSX').Value:=StrToFloat(Edit4.Text);ADOQuery1.ExecSQL;showmessage('ok');删除ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('DeleteFromTable1Wherenum=:snum');ADOQuery1.Parameters.ParamByName('sNum').Value:=Edit1.Text;ADOQuery1.ExecSQL;showmessage('ok');修改ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('UpdateTable1');ADOQuery1.SQL.Add('SetNum=:sNum,Name=:sName,WU=:sWU,SX=:sSX');ADOQuery1.SQL.Add('WhereNum=:sNum2');ADOQuery1.Parameters.ParamByName('sNum').Value:=Edit1.Text;ADOQuery1.Parameters.ParamByName('sName').Value:=Edit2.Text;ADOQuery1.Parameters.ParamByName('sWU').Value:=StrToFloat(Edit3.Text);ADOQuery1.Parameters.ParamByName('sSX').Value:=StrToFloat(Edit4.Text);ADOQuery1.Parameters.ParamByName('sNum2').Value:=Edit5.Text;ADOQuery1.ExecSQL;showmessage('ok');查询ADOQuery2.Close;ADOQuery2.SQL.Clear;//ADOQuery2.SQL.Add('Select*FromTa
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 成品保护措施
- Starter Unit 1 Hello Section B 1a - 1b 教案 2024-2025学年人教版(2024)七年级英语上册
- 农产品购销员职业技能竞赛理论考试复习题库(浓缩500题)
- 第20章 第48课时 数据的集中趋势习题课2023-2024学年八年级下册数学课时分层作业教学设计( 人教版)
- 8 比尾巴(第一课时)教学设计-2024-2025学年语文一年级上册统编版
- 五年级语文楚才杯寻找自我获奖作文
- 2024-2025学年新教材高中地理第三单元产业区位选择3服务业的区位选择练习含解析鲁教版必修2
- 2024年高考地理一轮复习第2部分人文地理第11章第2讲交通运输方式和布局教案新人教版
- 制冷空调系统安装维修工职业技能竞赛考试题库(含答案)
- 初级餐厅服务员(5级)职业鉴定理论考试复习题库(含答案)
- 2024-2025学年新教材高中英语 Unit 5 What an adventure表达 作文巧升格教案 外研版必修第三册
- 运输居间费合同模板
- 降低消化内镜故障发生率
- 使用单位特种设备日管控、周排查、月调度记录
- 全国计算机等级考试二级Python复习备考题库(含答案)
- 中国抗癌协会胰腺癌患者科普指南2024(完整版)
- 囊性纤维化病例分析
- 一例登革热合并凝血功能障碍患者的个案护理20190-7
- 2024人员派驻合同模板
- 2024停薪留职范本
- 2024年公需课枣庄市继续教育人社局题库及答案18套题合集
评论
0/150
提交评论