Delphi 课程设计图书管理系统姓 名： 学 号： 专业班级： 指导老师： 下载后可任意编辑《Delphi 数据库综合设计》课程综合性实验报告 实验题目Delphi 数据库综合设计一、 实验题目：Delphi 数据库综合设计二、 实验目的：1、学习 Delphi 数据库可视化控件及应用2、掌握数据库分析与设计3、熟悉 Delphi 数据库应用程序的开发过程。三、 实验设备及环境：1、微型计算机2、Windows 操作系统3、Delphi7.0 开发环境4、微软 Asp 软件四、 实验内容及要求：实验内容：信息表包含字段名字段类型长度Code文本50Author文本50Press文本50OutDate日期/时间Memo文本255ReaderID文本10Name文本50第 1 页下载后可任意编辑Sex文本1IDCardNo文本20流程图：2、分段代码及功能：【新书入库】procedure TBookForm.Button1Click(Sender: TObject);begin if Length(CodeEdit.Text)<> 10 then begin MessageDlg('书号不正确',mtError,[mbok],0); CodeEdit.SetFocus; Exit; end; with DataModuleADO.ADOQuery1 do begin第 2 页图书管理系统借阅管理读者管理图书管理退出图书查询借阅查询读者查询退出下载后可任意编辑 SQL.Clear; SQL.Add('select Code from Book where Code =:Code'); Parameters.ParamByName('Code').Value :=CodeEdit.Text; Open; if RecordCount <> 0 then begin MessageDlg('书号<'+CodeEdit.Text+'>已经存在',mtError,[mbok],0); CodeEdit.SetFocus; Exit; end; Close; end; try with DataModuleADO.ADOQuery1 do begin SQL.Clear; SQL.Add('insert into book(Code,Name,Author,Press,OutDate,Cost)'+ ' values (:Code,:Name,:Author,:Press,:OutDate,:Cost)'); Parameters.ParamByName('Code').value := CodeEdit.Text; Parameters.ParamByName('Name').value := NameEdit.Text; Parameters.ParamByName('Author').value := AuthorEdit.Text; Parameters.ParamByName('Press').value := PressEdit.Text; try Parameters.ParamByName('OutDate').value := StrToDate(OutTimeEdit.Text); except MessageDlg('参数<出版时间>设置错误',mtError,[mbok],0); Exit; end; try Parameters.ParamByName('Cost').value := StrToFloat(CostEdit.Text); except第 3 页下载后可任意编辑 MessageDlg('参数<价格>设置错误',mtError,[mbok],0); Exit; e...
