资源描述：
《delphi图书管理系统课程设计》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、Delphi课程设计图书管理系统姓名：学号：专业班级：指导教师：第14页《Delphi数据库综合设计》课程综合性实验报告实验题目Delphi数据库综合设计一、实验题目：Delphi数据库综合设计二、实验目的：1、学习Delphi数据库可视化控件及应用2、掌握数据库分析与设计3、熟悉Delphi数据库应用程序的开发过程。三、实验设备及环境：1、微型计算机2、Windows操作系统3、Delphi7.0开发环境4、微软Asp软件四、实验内容及要求：实验内容：信息表包含字段名字段类型长度Code文本50Author文本5
2、0Press文本50OutDate日期/时间Memo文本255第14页ReaderID文本10Name文本50Sex文本1IDCardNo文本20流程图：图书管理系统借阅管理读者管理图书管理退出图书查询借阅查询读者查询退出2、分段代码及功能：【新书入库】procedureTBookForm.Button1Click(Sender:TObject);beginifLength(CodeEdit.Text)<>10thenbeginMessageDlg('书号不正确',mtError,[mbok],0);CodeEdi
3、t.SetFocus;Exit;end;withDataModuleADO.ADOQuery1dobegin第14页SQL.Clear;SQL.Add('selectCodefromBookwhereCode=:Code');Parameters.ParamByName('Code').Value:=CodeEdit.Text;Open;ifRecordCount<>0thenbeginMessageDlg('书号<'+CodeEdit.Text+'>已经存在',mtError,[mbok],0);CodeEdit
4、.SetFocus;Exit;end;Close;end;trywithDataModuleADO.ADOQuery1dobeginSQL.Clear;SQL.Add('insertintobook(Code,Name,Author,Press,OutDate,Cost)'+'values(:Code,:Name,:Author,:Press,:OutDate,:Cost)');Parameters.ParamByName('Code').value:=CodeEdit.Text;Parameters.ParamB
5、yName('Name').value:=NameEdit.Text;Parameters.ParamByName('Author').value:=AuthorEdit.Text;Parameters.ParamByName('Press').value:=PressEdit.Text;tryParameters.ParamByName('OutDate').value:=StrToDate(OutTimeEdit.Text);exceptMessageDlg('参数<出版时间>设置错误',mtError,[mb
6、ok],0);Exit;end;tryParameters.ParamByName('Cost').value:=StrToFloat(CostEdit.Text);exceptMessageDlg('参数<价格>设置错误',mtError,[mbok],0);Exit;end;第14页ExecSQL;end;TabSheet1Show(Sender);exceptMessageDlg('入库出错',mtError,[mbok],0);end;end;procedureTBookForm.Button2Click(
7、Sender:TObject);beginClose;end;procedureTBookForm.TabSheet1Show(Sender:TObject);beginCodeEdit.SetFocus;CodeEdit.SelectAll;NameEdit.Text:='';AuthorEdit.Text:='';OutTimeEdit.Text:='';CostEdit.Text:='';PressEdit.Text:='';Memo1.Lines.Clear;end;procedureTBookForm.B
8、utton4Click(Sender:TObject);beginClose;end;procedureTBookForm.Button3Click(Sender:TObject);begintryDataModuleADO.ADOTable1.Post;DataModuleADO.ADOTable1.Active:=False;第14页exceptMess
