Программа учета заказов МБОУ «Новоархангельская ООШ»

г) выходное тестирование – это завершающий этап тестирования, на котором проверяется готовность ПП к постановке заказчику;

д) приёмочное тестирование – это вид тестирования проводится организацией, отвечающий за инсоляцию, сопровождение программной системы и обучение конечного пользователя.

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

В программе были предусмотрены такие проверки:

- на наличие необходимых файлов для работы программы;

- на правильные  и последовательные выполнения  действий в работе с программой.

 

3. 3. 2 Сообщение системному программисту

 

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

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

Сбои в работе программы могут происходить  из-за нехватки памяти или отсутствия других необходимых системных ресурсов.

У каждой программы  свои пределы, программа может не справляться с повышенными нагрузками, например со слишком большими объёмами данных.  

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

       4 Руководство оператора (с нов стр.)

 

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

 

4. 1 Выполнение  программы

 

Во время выполнения программы основные операции ввода снабжены сообщениями и предупреждениями. Большинство  элементов имеют всплывающие подсказки.

 

 

4. 2 Сообщение  оператору

 

В программе  реализованы сообщения оператору

 

 

Рисунок 10 – Сообщение заполнение не всех полей

 

 

Рисунок 11 – Сообщение о поиске данных

 

 

Рисунок 12 – Сообщение об успешном выполнении поиска

 

 

Заключение

 

Результатом курсового  проекта является программа, выполненная в среде Delphi, с использованием дополнительных компонентов.

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

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

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

 

 

1) Флёнов М. Е. Delphi в шутку и всерьёз: что умеют хакеры. – СПб.: Питер, 2006 – 271 с.: ил.

2) Хомоненко А., Гофман В., Мещеряков  Е., Никифоров В.,Delphi 7 в подлиннике. – Санкт-Петербург: БХВ-Петербург, 2006.

3) Шпак Ю.Ф. Программирование в Turbo Pascal. Переход к Delphi,2006.

4) Александровский А.Д. Delphi7. Разработка приложений - для программистов,2003.

5) Понамарев В.А. База данных  в Delphi 7.Самоучитель.

6) Флёнов М. Е. Программирование в Delphi глазами хакера. - СПб.: БХВ-Петербург, 2003. - 368 с: ил.

       7) Нил Дж. Рубенкинг. Язык программирования Delphi для «чайников». Введение в Borland Delphi 2006. — М.: Диалектика, 2007. — 336 с.

 

Неверно составлен  список (см. стандарт, как правильно  оформить)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Приложение Б

 

Входные данные

 

Входными документами  являются:

- данные о  работниках школы;

- заказы на спортивное оборудование и книги;

- список работников  школы;

- база данных.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Приложение В

 

Текст программы

 

program Project1; Почему модули здесь не переименованы!!!!

uses

  Forms,

  Unit1 in 'Unit1.pas' {Form1},

  Unit2 in 'Unit2.pas' {Form2},

  Unit3 in 'Unit3.pas' {Form3},

  Unit4 in 'Unit4.pas' {Form4},

  Unit5 in 'Unit5.pas' {Form5},

  Unit6 in 'Unit6.pas' {Form6},

  Unit7 in 'Unit7.pas' {Form7},

  Unit8 in 'Unit8.pas' {Form8},

  Unit9 in 'Unit9.pas' {Form9},

  Unit10 in 'Unit10.pas' {Form10},

  Unit11 in 'Unit11.pas' {Form11},

  Unit12 in 'Unit12.pas' {Form12},

  Unit13 in 'Unit13.pas' {Form13},

  Unit14 in 'Unit14.pas' {Form14},

  Unit15 in 'Unit15.pas' {Form15},

  Unit16 in 'Unit16.pas' {Form16},

  Unit17 in 'Unit17.pas' {Form17},

  Unit18 in 'Unit18.pas' {Form18},

  Unit19 in 'Unit19.pas' {Form19},

  Unit20 in 'Unit20.pas' {Form20},

  Unit21 in 'Unit21.pas' {Form21},

{$R *.res}

begin

  Application.Initialize;

  Application.CreateForm(TForm1, Form1);

  Application.CreateForm(TForm2, Form2);

  Application.CreateForm(TForm3, Form3);

  Application.CreateForm(TForm4, Form4);

  Application.CreateForm(TForm5, Form5);

  Application.CreateForm(TForm6, Form6);

  Application.CreateForm(TForm7, Form7);

  Application.CreateForm(TForm8, Form8);

  Application.CreateForm(TForm9, Form9);

  Application.CreateForm(TForm10, Form10);

  Application.CreateForm(TForm11, Form11);

  Application.CreateForm(TForm12, Form12);

  Application.CreateForm(TForm13, Form13);

  Application.CreateForm(TForm14, Form14);

  Application.CreateForm(TForm15, Form15);

  Application.CreateForm(TForm16, Form16);

  Application.CreateForm(TForm17, Form17);

  Application.CreateForm(TForm18, Form18);

  Application.CreateForm(TForm19, Form19);

  Application.CreateForm(TForm20, Form20);

  Application.CreateForm(TForm21, Form21);

  Application.Run;

end.

unit Glavnya;

interface

uses

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

  Dialogs, Menus, XPMan, jpeg, ExtCtrls;

  type

  TForm1 = class(TForm)

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    Office1: TMenuItem;

    N4: TMenuItem;

    N5: TMenuItem;

    N6: TMenuItem;

    N7: TMenuItem;

    N8: TMenuItem;

  N9: TMenuItem;

  XPManifest1: TXPManifest;

  N10: TMenuItem;

  N11: TMenuItem;

  Image1: TImage;

  procedure N2Click(Sender: TObject);

  procedure N3Click(Sender: TObject);

  procedure Office1Click(Sender: TObject);

  procedure N5Click(Sender: TObject);

  procedure N6Click(Sender: TObject);

  procedure N7Click(Sender: TObject);

  procedure N10Click(Sender: TObject);

  procedure N11Click(Sender: TObject);

  procedure N9Click(Sender: TObject);

  private

  { Private declarations }

  public

  { Public declarations }

  end;

  var

  Form1: TForm1;

 

implementation

uses;

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);

begin

form2.show;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

form5.show;

end;

procedure TForm1.Office1Click(Sender: TObject);

begin

form16.show;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

form17.show;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

form18.show;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

form20.show;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

form21.show;

end;

procedure TForm1.N11Click(Sender: TObject);

begin

form22.show;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

close;

end;

end.

 

 

unit Prosmotr;

interface

uses

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

  Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls;

  type

  TForm2 = class(TForm)

   GroupBox1: TGroupBox;

   RadioButton1: TRadioButton;

   RadioButton2: TRadioButton;

   Label1: TLabel;

   BitBtn1: TBitBtn;

   procedure RadioButton1Click(Sender: TObject);

   procedure RadioButton2Click(Sender: TObject);

  private

  { Private declarations }

  Public

{ Public declarations }

  end;

  var

  Form2: TForm2;

implementation

uses Unit3, Unit4;

{$R *.dfm}

procedure TForm2.RadioButton1Click(Sender: TObject);

begin

form3.show;

end;

procedure TForm2.RadioButton2Click(Sender: TObject);

begin

form4.show;

end;

end.

 

unit Pros_knig;

interface

uses

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

Dialogs, StdCtrls, Buttons, Grids, DBGrids, DB, ADODB, ComCtrls, jpeg,

ExtCtrls, DBCtrls;

type

  TForm3 = class(TForm)

  StatusBar1: TStatusBar;

  Image1: TImage;

  Label1: TLabel;

  Label2: TLabel;

  Label3: TLabel;

  DBGrid1: TDBGrid;

    BitBtn1: TBitBtn;

    Button1: TButton;

    BitBtn2: TBitBtn;

    Edit1: TEdit;

    BitBtn3: TBitBtn;

    ADOConnection1: TADOConnection;

    ADOTable1: TADOTable;

    ADOQuery1: TADOQuery;

    DataSource1: TDataSource;

    DBNavigator1: TDBNavigator;

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

private

{ Private declarations }

 public

 { Public declarations }

 end;

var

  Form3: TForm3;

implementation

uses Unit6;

{$R *.dfm}

procedure TForm3.FormCreate(Sender: TObject);

var

i:integer;

begin

for i := 0 to DBGrid1.Columns.Count - 1 do

DBGrid1.Columns.Items[i].Width := 100;

StatusBar1.Panels[0].Text:='Время: '+TimeToStr(Time);

StatusBar1.Panels[1].Text:='Дата: '+DateToStr(Date);

end;

procedure TForm3.Button1Click(Sender: TObject);

begin

adotable1.Delete;

end;

procedure TForm3.BitBtn2Click(Sender: TObject);

begin

if not ADOTable1.Locate('Наименование', Edit1.Text,                       [loCaseInsensitive,loPartialKey]) then

ShowMessage('Запись не найдена');

end;

procedure TForm3.BitBtn3Click(Sender: TObject);

begin

edit1.Text:='';

      label2.visible:=false;

      label3.visible:=false;

end;

end.

 

unit Pros_sport;

interface

uses

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

Dialogs, StdCtrls, Buttons, DB, Grids, DBGrids, ADODB, ComCtrls, jpeg,

ExtCtrls, DBCtrls;

type

    TForm4 = class(TForm)

    StatusBar1: TStatusBar;

    Image1: TImage;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    DBGrid1: TDBGrid;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    BitBtn3: TBitBtn;

    Edit1: TEdit;

    BitBtn4: TBitBtn;

    ADOConnection1: TADOConnection;

    ADOTable1: TADOTable;

    ADOQuery1: TADOQuery;

    DataSource1: TDataSource;

    DBNavigator1: TDBNavigator;

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure BitBtn4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

 Form4: TForm4;

implementation

uses Unit6;

{$R *.dfm}

procedure TForm4.BitBtn2Click(Sender: TObject);

begin

adotable1.Delete;

end;

procedure TForm4.BitBtn3Click(Sender: TObject);

begin

if not ADOTable1.Locate('Наименование', Edit1.Text, [loCaseInsensitive,loPartialKey]) then

ShowMessage('Запись не найдена');

end;

procedure TForm4.FormCreate(Sender: TObject);

var i:integer;

begin

for i := 0 to DBGrid1.Columns.Count - 1 do

DBGrid1.Columns.Items[i].Width := 100;

StatusBar1.Panels[0].Text:='Время: '+TimeToStr(Time);

StatusBar1.Panels[1].Text:='Дата: '+DateToStr(Date);

end;

procedure TForm4.BitBtn4Click(Sender: TObject);

begin

edit1.Text:='';

label2.visible:=false;

label3.visible:=false;

end;

end.

 

unit Vibor_z;

interface

uses

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

Dialogs, StdCtrls, Buttons;

type

TForm5 = class(TForm)

GroupBox1: TGroupBox;

Label1: TLabel;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

BitBtn1: TBitBtn;

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

 Form5: TForm5;

implementation

uses Unit6, Unit7, Unit11;

{$R *.dfm}

procedure TForm5.RadioButton1Click(Sender: TObject);

begin

form6.show;

end;

procedure TForm5.RadioButton2Click(Sender: TObject);

begin

form11.show;

end;

end.

 

unit Knigi;

interface

uses

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

  Dialogs, StdCtrls, Buttons, ComCtrls, DB, ADODB, Grids, DBGrids,

  ExtCtrls, DBCtrls, jpeg;

type

  TForm6 = class(TForm)

    StatusBar1: TStatusBar;

    Image1: TImage;

    Label1: TLabel;

    DBGrid1: TDBGrid;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    Button1: TButton;

    Button2: TButton;

    BitBtn3: TBitBtn;

    ADOConnection1: TADOConnection;

    ADOTable1: TADOTable;

    ADOQuery1: TADOQuery;

    DataSource1: TDataSource;

    DBNavigator1: TDBNavigator;

    BitBtn4: TBitBtn;

    procedure BitBtn1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure BitBtn4Click(Sender: TObject);

  private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit7, Unit8, Unit9, Unit10;

{$R *.dfm}

procedure TForm6.BitBtn1Click(Sender: TObject);

begin

form7.show;

end;

procedure TForm6.FormCreate(Sender: TObject);

var

i:integer;

begin

for i := 0 to DBGrid1.Columns.Count - 1 do

DBGrid1.Columns.Items[i].Width := 100;

StatusBar1.Panels[0].Text:='Время: '+TimeToStr(Time);

StatusBar1.Panels[1].Text:='Дата: '+DateToStr(Date);

end;

procedure TForm6.BitBtn2Click(Sender: TObject);

begin

form8.show;

end;

procedure TForm6.Button1Click(Sender: TObject);

begin

form9.show;

end;

procedure TForm6.Button2Click(Sender: TObject);

begin

form10.show;

end;

procedure TForm6.BitBtn4Click(Sender: TObject);

begin

adotable1.Delete;

end;

end.

 

unit Dobavit_k;

interface

uses

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

Dialogs, StdCtrls, ComCtrls, Buttons, jpeg, ExtCtrls;

type

TForm7 = class(TForm)

    StatusBar1: TStatusBar;

    Image1: TImage;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    ComboBox1: TComboBox;

    Edit1: TEdit;

    Edit2: TEdit;

    DateTimePicker1: TDateTimePicker;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    BitBtn3: TBitBtn;

    BitBtn4: TBitBtn;

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure Edit1KeyPress(Sender: TObject; var Key: Char);

    procedure Edit2KeyPress(Sender: TObject; var Key: Char);

    procedure FormCreate(Sender: TObject);

    procedure BitBtn4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

 end;

 var

 Form7: TForm7;

implementation

uses Unit6, Unit3;

{$R *.dfm}

procedure TForm7.BitBtn1Click(Sender: TObject);

var

i:integer;

begin

if (Edit2.Text<>'') and (Edit1.Text<>'') and (ComboBox1.Text<>'') then begin

for i:=0 to form6.dbgrid1.Columns.count-1 do

form6.dbgrid1.Columns.Items[i].Width:=100;

form6.DBGrid1.DataSource.DataSet.Close;

form6.ADOQuery1.SQL.Text :=

'INSERT INTO qqq(' +

      'Название, '+

      'Номер, ' +