«Алгоритмические языки и программирование»

Объект Form2. Справка о программе (Unit 3).

Объект Form3. Справка об авторе (Unit 4).

3.4 Используемые технические средства

      Необходимый объём свободной оперативной  памяти для работы программы не более 5 Mb, свободного места на диске для установки программы до 12 Mb, процессор Р400. 

3.5 Вызов и загрузка

      Для загрузки программы следует  запускать файл Project1.exe и работать с программой в соответствии с указаниями написанными в данной пояснительной записке и согласно подсказок появляющихся во время работы программы. 
 
 
 
 
 
 
 

4. Программа и методика испытаний    (согласно ГОСТ 19.301 – 79)

4.1 Объект испытаний

      Объектом  испытаний является программа, реализующая  хранение данных о жильцах и оплате коммунальных услуг, написанная в среде программирования Delphi 7.0.  

4.2 Цель испытаний

      Целью испытаний является проверка работоспособности программы. 

4.3 Требования к программе

      Программа должна обеспечить хранение данных о жильцах и оплате коммунальных услуг.

      Разработанная программа должна производить сортировку данных и поиск по фамилии и  расчётному месяцу.

      Должен  быть организован удобный пользовательский интерфейс, включающий справку по работе с программным средством. 

4.4 Средства и порядок испытаний 

      Разработка  и испытание программы производились  на компьютерах со следующими характеристиками:

          P4-3000/512RAM , Windows XP;

          Celeron-700/128RAM , Windows XP;

1.Запустить программу.

2.Произвести  сортировку по фамилии или  расчётному месяцу.

3.Осуществить поиск по фамилии и имени.

4.Добавить  в таблицу фамилию и имя, адрес, расчётный месяц, количество потребляемой холодной воды, количество потребляемой горячей воды.

5.Удалить эту запись.

6.Справка.

7.Сведения  о программе.

8.Сведения  об авторе.

4.5 Методы испытаний

      Испытания проводятся по следующему алгоритму:

      1.После запуска программы появилось окно, на котором расположена таблица данных и меню .

      2. Произвели сортировку по фамилии и расчётному месяцу .

      3.Осуществили поиск по фамилии и имени .

      4.Добавили в таблицу еще одно поле, выбрав на навигаторе «+» . В этом поле указали: Фамилию,Имя, Адрес, Расчётный месяц, Количество потребляемой холодной воды, Количество потребляемой горячей воды.

      5.Удалили эту запись, выбрав на навигаторе «-» .

      6.Выбрали в меню «Файл – Редактировать запись» .

      7.Выбрали в меню «Справка – Об авторе» и «Справка – О программе» . 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

    5.  Описание применения    (согласно ГОСТ 19.502 – 78)

    После запуска программы на выполнение на экране появляется главное окно приложения, в котором отображена таблица с данными.

    Под таблицей находится навигатор, позволяющий  перемещаться по записям базы данных, осуществлять их добавление, редактирование и удаление. Чтобы перейти к первой записи таблицы, нужно щёлкнуть по его самой левой кнопке First record (активная запись выделяется синим цветом). Щелчок по второй кнопке Prior record (счёт ведётся слева) перемещает курсор на следующую строку таблицы, щелчок по третьей (Next record) – на предыдущую строку. Щелчок по четвёртой кнопке переводит курсор на самую последнюю строку таблицы. Кнопка со знаком “+” (Insert record) добавляет новую запись в таблицу, со знаком “-“ (Delete record) – удаляет запись из таблицы. Кнопка с треугольником вверх (Edit record) переводит строку в режим редактирования (щёлкнув по ней можно сразу редактировать выбранную ячейку таблицы). Кнопка с галочкой (Post edit) подтверждает произведённые над таблицей действия. Кнопка крестиком (Cancel edit) отменяет произведённые над таблицей операции. Кнопки навигатора дублируются в пункте «Файл» главного меню  приложения.

    Для сортировки данных таблицы по фамилии или расчётному месяцу служит пункт главного меню «Сортировка». Выбираем этот пункт меню и один из двух подпунктов, отвечающих за сортировку.

    Приложение  позволяет осуществлять поиск данных по фамилии и имени ответственного квартиросъёмщика. Для поиска наведите курсор в поле ввода и введите фамилию и имя, нажмите кнопку «Поиск».

    Пункт меню «Справка» позволяет вывести  сведения о программе и ее разработчике.

    Чтобы выйти из программы нужно в меню «Файл» выбрать пункт  “Выход” или просто закрыть окно с таблицей. 

 

       Заключение

 

      В результате проведенной работы была разработана база данных о жильцах и оплате коммунальных услуг, разработан алгоритм решения задачи, составлена и отлажена программа, позволяющая удобно работать с данными, оформлена документация на программу. Проведенные испытания показали, что программа работает правильно.

      За  время работы над курсовым проектом был значительно повышен уровень  практических навыков программирования в среде Delphi, освоен процесс разработки приложений баз данных. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Список  использованных источников 

1. А.Я. Архангельский  «Программирование в Delphi 7», Москва «Бином», 2004г.
2. П. Дарахвелидзе, Е. Маркова «Учебник по Delphi 7 для начинающих»
3. П. Дарахвелидзе, Е. Маркова «Учебник для продвинутых по Delphi 7»
4. Электронные материалы (учебники, справочники, статьи)

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

      ТЕКСТ ПРОГРАММЫ

      Приложение  А 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Menus;

type

  TForm1 = class(TForm)

    DBNavigator1: TDBNavigator;

    DataSource1: TDataSource;

    Table1: TTable;

    RadioGroup1: TRadioGroup;

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    N4: TMenuItem;

    N5: TMenuItem;

    N6: TMenuItem;

    N7: TMenuItem;

    N8: TMenuItem;

    Edit1: TEdit;

    Button1: TButton;

    DBGrid1: TDBGrid;

    N9: TMenuItem;

    N10: TMenuItem;

    N11: TMenuItem;

    Table1Fio: TStringField;

    Table1Adr: TStringField;

    Table1Rm: TSmallintField;

    Table1Kphv: TFloatField;

    Table1Kpgv: TFloatField;

    Table1Vsego: TFloatField;

    Table1Koplate: TFloatField;

    procedure RadioGroup1Click(Sender: TObject);

    procedure N4Click(Sender: TObject);

    procedure N5Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Table1CalcFields(DataSet: TDataSet);

    procedure N9Click(Sender: TObject);

    procedure N10Click(Sender: TObject);

    procedure N11Click(Sender: TObject);

    procedure N2Click(Sender: TObject);

    procedure N7Click(Sender: TObject);

    procedure N8Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

uses Unit3, Unit4; 

{$R *.dfm} 

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

Case RadioGroup1.ItemIndex of

0: Table1.IndexName:= 'indF';

1: Table1.IndexName:= 'indRm';

end;

end; 

procedure TForm1.N4Click(Sender: TObject);

begin

Table1.IndexName:= 'indF';

end; 

procedure TForm1.N5Click(Sender: TObject);

begin

Table1.IndexName:= 'indRm';

end; 

procedure TForm1.Button1Click(Sender: TObject);

begin

Table1.IndexFieldNames:='FIO';

Table1.SetKey;

Table1.FieldByName('FIO').AsString:=Edit1.Text;

Table1.GotoKey;

end; 

procedure TForm1.Table1CalcFields(DataSet: TDataSet);

begin

Table1Vsego.Value := Table1Kphv.Value + Table1Kpgv.Value;

Table1Koplate.Value := Table1Vsego.Value * 14.52;

end; 

procedure TForm1.N9Click(Sender: TObject);

begin

DBNavigator1.BtnClick(nbInsert);

end; 

procedure TForm1.N10Click(Sender: TObject);

begin

DBNavigator1.BtnClick(nbDelete);

end; 

procedure TForm1.N11Click(Sender: TObject);

begin

DBNavigator1.BtnClick(nbEdit);

end; 

procedure TForm1.N2Click(Sender: TObject);

begin

form1.Close;

end; 

procedure TForm1.N7Click(Sender: TObject);

begin

spravka.show;

end; 

procedure TForm1.N8Click(Sender: TObject);