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

PAGE

第PAGE1页

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、分段代码及功能：

【新书入库】

procedureTBookForm.Button1Click(Sender:TObject);

begin

ifLength(CodeEdit.Text)10then

begin

MessageDlg(书号不正确,mtError,[mbok],0);

CodeEdit.SetFocus;

Exit;

end;

withDataModuleADO.ADOQuery1do

begin

SQL.Clear;

SQL.Add(selectCodefromBookwhereCode=:Code);

Parameters.ParamByName(Code).Value:=CodeEdit.Text;

Open;

ifRecordCount0then

begin

MessageDlg(书号+CodeEdit.Text+已经存在,mtError,[mbok],0);

CodeEdit.SetFocus;

Exit;

end;

Close;

end;

try

withDataModuleADO.ADOQuery1do

begin

SQL.Clear;

SQL.Add(insertintobook(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;

procedureTBookForm.Button2Click(Sender:TObject);

begin

Close;

end;

procedureTBo