Delphi图书管理系统课程设计.docVIP

PAGE 第 PAGE 1 页 Delphi课程设计 图书管理系统 姓 名： 学 号： 专业班级： 指导教师： 《Delphi数据库综合设计》课程综合性实验报告 实验题目 Delphi数据库综合设计 实验题目： Delphi数据库综合设计 实验目的： 学习Delphi数据库可视化控件及应用 掌握数据库分析与设计 熟悉Delphi数据库应用程序的开发过程。 实验设备及环境： 微型计算机 Windows操作系统 Delphi7.0开发环境 微软Asp软件 实验内容及要求： 实验内容： 信息表包含 字段名 字段类型 长度 Code 文本 50 Author 文本 50 Press 文本 50 OutDate 日期/时间 Memo 文本 255 ReaderID 文本 10 Name 文本 50 Sex 文本 1 IDCardNo 文本 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 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 MessageDlg(参数价格设置错误,mtError,[mbok],0); Exit; end; ExecSQL; end; TabSheet1Show(Sender); except MessageDlg(入库出错,mtError,[mbok],0); end; end; procedure TBookForm.Button2Click(Sender: TObject); begin Close; end; procedure TBo