Министерство образования Российской Федерации.
Сибирский межрегиональный колледж строительства и предпринимательства.
Курсовой проект
По дисциплине:
«Технология разработки программных продуктов»
Студента заочного отделения
Группы ПОВТ 63-02
Ахматова Константина Ивановича
г. Иркутск
2008 г.
Содержание
Введение.
1. ТЕХНИЧЕСКОЕ ЗАДАНИЕ. ГОСТ 19.201-78
2. ПОЯСНИТЕЛЬНАЯ ЗАПИСКА. ГОСТ 19.404-79
3. ТЕКСТ ПРОГРАММЫ. ГОСТ 19.401-78
4. ОПИСАНИЕ ПРОГРАММЫ. ГОСТ 19.402-78
5. ПРОГРАММА И МЕТОДИКА ИСПЫТАНИЙ. ГОСТ 19.301-79
6. ОПИСАНИЕ ПРИМЕНЕНИЯ. ГОСТ 19.502-78
7. РУКОВОДСТВА СИСТЕМНОГО ПРОГРАММИСТА ГОСТ 19.503-79.
8. РУКОВОДСТВО ОПЕРАТОРА. ГОСТ 19.505-79
Список использованной литературы
Введение
Целью курсового проекта является:
· Разработка системы управления базами данных и удобного быстрого доступа к информации.
· Разработка программного продукта с использованием объектно-ориентированной методологии;
· Разработка программной и эксплуатационной документации в соответствии с ГОСТ-19 ЕСПД.
· Для достижения цели необходимо было изучить основные понятия баз данных.
· Наименования программы-База данных предприятий.
1. ТЕХНИЧЕСКОЕ ЗАДАНИЕ.
ГОСТ 19.201-78
1.1 Наименование программы
База данных для службы быта (справочник потребителя). Программный продукт создан с применением языка программирования Delphi в среде компилятора Borland Delphi 7.0.
База данных позволяет:
получить информацию о предприятиях города;
подготовить отчет о предприятиях города.
1.2 Цель разработки
Разработать базу данных для службы быта.
Эта база должна содержать следующую информацию:
· название предприятия;
· разряд;
· адрес;
· телефоны;
· специализацию;
· перечень оказываемых услуг;
· часы и дни работы.
Тема разработки: база данных для службы быта.
1.3 Назначение разработки
Данная программа применима в деятельности Службы быта, справочного бюро.
1.4 Порядок контроля и приемки
Программный продукт тестировался на работоспособность на компьютере с необходимым, установленным программным обеспечением (Borland Delphi 7.0.).
Для полноценной работы базы данных необходимо наличие всех компонентов данного программного продукта: модули и таблицы с данными.
2. ПОЯСНИТЕЛЬНАЯ ЗАПИСКА.
ГОСТ 19.404-79
Настоящий стандарт устанавливает требования к содержанию и оформлению программного документа «Пояснительная записка», определённого ГОСТ 19.101-77, входящего в состав документации на стадиях разработки эскизного и технического проекта программы.
2.1 Введение
Программное обеспечение - «База данных для службы быта»
2.2Основание разработки для разработки:
Программа разрабатывается для курсового проекта по предмету «Технология Разработки Программного Продукта» Сибирский Государственный Межрегиональный колледж строительства и предпринимательства, начало разработки 07.10.2008
Тема разработки База данных для службы быта
2.3 Назначения и область применения
2.4 Технические характеристики
Программа написана на языке программирования Delphi в среде компилятора Borland Delphi 7.0. Кроме того необходимо наличие Microsoft ActiveX Data Objects (ADO) - машина баз данных Borland. Представляет собой набор DLL -библиотек, обеспечивающих низкоуровневый доступ к локальным и клиент-северным БД. Должна устанавливаться на каждом компьютере, который использует приложения для работы с БД, написанные для Delphi.
3. ТЕКСТ ПРОГРАММЫ.
ГОСТ 19.401-78
3.1 Код основного модуля программы Unit1
unit Unit1; форма «справочник потребителя»
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, Menus, ToolWin, ComCtrls, comobj,
Buttons, ExtCtrls;
type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
Label1: TLabel;
FindEdit: TEdit;
Label2: TLabel;
Edit1: TEdit;
Label3: TLabel;
FindTelephoneEdit: TEdit;
Button1: TButton;
ToolBar1: TToolBar;
Excel1: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
Panel1: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure FindEditChange(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Excel1Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses DataModuleUnit, TownBookUnit, EditFormunit, FindResultUnit,
AboutFormUnit;
{$R *.dfm}
procedure TForm1.N5Click(Sender: TObject);
begin
TownBookForm.ShowModal;
procedure TForm1.N6Click(Sender: TObject);
DataModule2.BookTable.Insert;
EditRecordForm.ShowModal;
procedure TForm1.N7Click(Sender: TObject);
procedure TForm1.N8Click(Sender: TObject);
If Application.MessageBox(PChar('Вы действительно хотите удалить'
+DataModule2.BookTableDSDesigner.AsString), 'Внимание!!!' ,
MB_OKCANCEL)=id_OK then
DataModule2.BookTable.Delete;
procedure TForm1.N9Click(Sender: TObject);
DataModule2.BookTable.IndexFieldNames:= '[Название предприятия]';
procedure TForm1.N10Click(Sender: TObject);
DataModule2.BookTable.IndexFieldNames:= 'Город';
procedure TForm1.FindEditChange(Sender: TObject);
If Length (FindEdit.Text)>0 then
DataModule2.BookTable.Filtered:=true
else
DataModule2.BookTable.Filtered:=false;
DataModule2.BookTable.Filter:='[Название предприятия]>'''+FindEdit.Text+'''';
procedure TForm1.Button1Click(Sender: TObject);
DataModule2.FindQuery.Active:=false;
DataModule2.FindQuery.Parameters.ParamByName('Telephone').Value:=
FindTelephoneEdit.Text;
DataModule2.FindQuery.Active:=true;
FindResultForm.ShowModal;
procedure TForm1.Excel1Click(Sender: TObject);
XLApp,Sheet,Colum:Variant;
index,i:Integer;
Страницы: 1, 2, 3
