Автор работы: Пользователь скрыл имя, 14 Июня 2013 в 10:41, курсовая работа
Деятельность библиотек по обслуживанию читателей осуществляется в двух основных формах. Библиотечный абонемент предоставляет читателю право получить издание из библиотеки в своё полное распоряжение на определённый срок. В другом случае читатель имеет возможность знакомиться с книгой только в помещении библиотеки (как правило, в специально отведённом читальном зале). В некоторых библиотеках работает только абонемент или только читальный зал, в других эти формы обслуживания сочетаются, хотя не для всех единиц хранения возможны обе.
1. Постановка задачи…………………………………………………………….3
2. Описание предметной области………………………………………………3
3. Проектирование интерфейса…………………………………………………6
3.1. Выбор и назначение визуальных компонентов…………………………6
3.2. Формы проекта…………………………………………………………...7
4. Разработка программного обеспечения……………………………………..11
4.1. Модули, процедуры, функции проекта и их назначение………………11
4.2. Листинг программного кода……..………………………………………11
5. Визуальное представление результатов…………………………………….21
6. Список использованной литературы………………………………………..22
form6.show;
end;
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids;
type
TForm3 = class(TForm)
DBGrid1: TDBGrid;
Edit1: TEdit;
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Unit1,Unit2;
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
begin
if not Form2.AdoTable1.Locate('Инвент
ShowMessage('Запись не найдена');
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids;
type
TForm4 = class(TForm)
DBGrid1: TDBGrid;
Edit1: TEdit;
Label1: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm4.Button1Click(Sender: TObject);
begin
if not Form2.AdoTable1.Locate('Автор'
ShowMessage('Запись не найдена');
end;
end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids;
type
TForm5 = class(TForm)
DBGrid1: TDBGrid;
Edit1: TEdit;
Label1: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm5.Button1Click(Sender: TObject);
begin
if not Form2.AdoTable1.Locate('
ShowMessage('Запись не найдена');
end;
end.
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, TeEngine, TeeFunci, Series, ExtCtrls, TeeProcs, Chart, DbChart;
type
TForm6 = class(TForm)
DBChart1: TDBChart;
Series1: TBarSeries;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
uses Unit1,Unit2;
{$R *.dfm}
end.
5. Визуальное представление результатов
Диаграммы и графики
6. Список использованной литературы
1. Фаронов В.В. Delphi 7. - М.: «Нолидж», 2006.- 880 c.
2. Архангельский А.
3. Пестриков В., Маслобоев А. Delphi на примерах. – СПб.: «БХВ – Петербург», 2005. – 496 с.
4. Шпак Ю.А. Delphi 7 на примерах. – К.: «Юниор», 2003. – 384 с.
5. Культин Н.Б. Delphi в задачах и примерах. – СПб.: «БХВ – Петербург», 2008. – 288с.