Автоматизация системы ведения учета товара в автосалоне

4.4. Условия эксплуатации.

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

4.5 Требования к составу и параметрам технических средств.

Минимальные системные требования:

 Процессор  1000 МГц

 128 МБ ОЗУ

 15 Мб свободного места на жестком диске.

 Монитор и видеоадаптер SVGA с разрешением 800 X 600.

 CD ROM

 Клавиатура и мышь

Требования к программным средствам:

1) Операционная система – Windows® 2000 и выше;

2) Microsoft Office® 2003;

3) Borland Delphi 7.0;

4.6. Требования к информационной и программной совместимости.

ПО разработано на языке программирования Borland® Delphi 7.0. Все системные программные средства, используемые программой, должны быть представлены лицензионными локализованными версиями.

4.7. Требования к транспортированию и хранению

Условия транспортировки и хранения ПО обусловлены требованиями к транспортировке и хранению носителя, на котором распространяется ПО.

5. Требования к программной документации

Состав программной документации должен включать в себя:

 техническое задание;

 программу и методики испытаний;

 руководство пользователя;

6. Стадии и этапы разработки

   Разработка технического задания

   Рабочее проектирование;

      разработка программы;

      разработка программной документации;

      испытания программы.

   Внедрение

7. Порядок контроля и приемки

Приемо-сдаточные испытания должны проводиться на объекте Заказчика в оговоренные сроки. Ход проведения приемо-сдаточных испытаний Заказчик и Исполнитель документируют в протоколе проведения испытаний. Любые претензии, предъявленные по окончании приемо-сдаточных испытаний, удовлетворяются по усмотрению Исполнителя.

СОСТАВИЛИ

СОГЛАСОВАНО

Приложение В.

      (Листинг программы)

unit Unit1;

interface

uses

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

  Dialogs, DB,  OleServer, comobj, ADODB, jpeg, ExtCtrls, Menus, ComCtrls,

  WordXP, StdCtrls;

type

  TForm1 = class(TForm)

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    N4: TMenuItem;

    N5: TMenuItem;

    N6: TMenuItem;

    N7: TMenuItem;

    N8: TMenuItem;

    N10: TMenuItem;

    N11: TMenuItem;

    N12: TMenuItem;

    N13: TMenuItem;

    N20: TMenuItem;

    N21: TMenuItem;

    N22: TMenuItem;

    N23: TMenuItem;

    N24: TMenuItem;

    N25: TMenuItem;

    ADOConnection1: TADOConnection;

    Avto: TADOTable;

    DataSource1: TDataSource;

    Harakter: TADOTable;

    DataSource2: TDataSource;

    Postavka: TADOTable;

    DataSource3: TDataSource;

    Sotrudnik: TADOTable;

    DataSource4: TDataSource;

    DogPokup: TADOTable;

    DataSource5: TDataSource;

    StatusBar1: TStatusBar;

    N27: TMenuItem;

    N28: TMenuItem;

    N15: TMenuItem;

    N30: TMenuItem;

    N33: TMenuItem;

    Image1: TImage;

    Label1: TLabel;

    procedure FormCreate(Sender: TObject);

    procedure N2Click(Sender: TObject);

    procedure N7Click(Sender: TObject);

    procedure N8Click(Sender: TObject);

    procedure N9Click(Sender: TObject);

    procedure N11Click(Sender: TObject);

    procedure N13Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

    procedure N25Click(Sender: TObject);

    procedure N4Click(Sender: TObject);

    procedure N27Click(Sender: TObject);

    procedure N21Click(Sender: TObject);

    procedure N30Click(Sender: TObject);

    procedure N22Click(Sender: TObject);

    procedure N15Click(Sender: TObject);

    procedure N33Click(Sender: TObject);

  private

    { Private declarations }

  public

   Key:boolean;

    { Public declarations }

  end;

var

  Form1: TForm1;

   XLApp,Sheet,Colum:Variant;

   index,i:Integer;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit9,

  Unit8,Unit15, Unit16, Unit17;

{$R *.dfm}

procedure activ(b:boolean);

begin

{активация пунктов меню}

Form1.N7.Enabled:=b;

Form1.N8.Enabled:=b;

Form1.N10.Enabled:=b;

Form1.N11.Enabled:=b;

Form1.N13.Enabled:=b;

Form1.N20.Enabled:=b;

Form1.N23.Enabled:=b;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

key:=false;

activ(key);

StatusBar1.Panels[0].Text:=DateToStr(Date);

end;

procedure TForm1.N2Click(Sender: TObject);

{Подключение базы,активирование таблиц,проверка логина и пароля}

begin

form2.showmodal;

if Key then begin

ADOConnection1.Connected:=true;

activ(key);

Avto.Active:=true;

Harakter.Active:=true;

Postavka.Active:=true;

Sotrudnik.Active:=true;

DogPokup.Active:=true;

end

else ShowMessage('Пароль');

end;

procedure TForm1.N7Click(Sender: TObject);

{Вывод форм при нажатии пунктов меню}

begin

form3.DBGrid1.DataSource:=DataSource1;

form3.show;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

form4.DBGrid1.DataSource:=DataSource2;

form4.show;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

form5.show;

end;

procedure TForm1.N11Click(Sender: TObject);

begin

form7.DBGrid1.DataSource:=DataSource4;

form7.show;

end;

procedure TForm1.N13Click(Sender: TObject);

begin

form9.DBGrid1.DataSource:=DataSource5;

form9.show;

end;

procedure TForm1.N3Click(Sender: TObject);

{Отключение базы}

var f:boolean;

begin

f:=false;

ADOConnection1.Connected:=f;

activ(f);

end;

procedure TForm1.N25Click(Sender: TObject);

begin

form8.show;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

close;

end;

procedure TForm1.N27Click(Sender: TObject);

{Добавление записей в таблицу характеристик авто}

begin

Avto.Insert;

Harakter.Insert;

Form15.Caption:='Добавление ';

Form15.Showmodal;

end;

procedure TForm1.N21Click(Sender: TObject);

{Формирование отчета по списку автомобилей}

begin

XLApp:= CreateOleObject('Excel.Application');

XLApp.Visible:=true;

XLApp.Workbooks.Add(-4167);

XLApp.Workbooks[1].WorkSheets[1].Name:='Автомобили';

Colum:=XLApp.Workbooks[1].WorkSheets['Автомобили'].Columns;

Colum.Columns[1].ColumnWidth:=20;

Colum.Columns[2].ColumnWidth:=20;

Colum.Columns[3].ColumnWidth:=20;

Colum.Columns[4].ColumnWidth:=20;

Colum.Columns[5].ColumnWidth:=20;

Colum.Columns[6].ColumnWidth:=20;

Colum:=XLApp.Workbooks[1].WorkSheets['Автомобили'].Rows;

Colum.Rows[3].Font.Bold:=true;

Colum.Rows[1].Font.Bold:=true;

Colum.Rows[1].Font.Color:=clRed;

Colum.Rows[1].Font.Size:=14;

Sheet:=XLApp.Workbooks[1].WorkSheets['Автомобили'];

Sheet.Cells[1,2]:='Автомобили ';

Sheet.Cells[3,1]:='';

Sheet.Cells[3,2]:='Марка';

Sheet.Cells[3,3]:='Страна';

Sheet.Cells[3,4]:='Год выпуска';

Sheet.Cells[3,5]:='Фирма';

Sheet.Cells[3,6]:='Дата привоза';

index:=6;

form1.Avto.First;

for i:=0 to form1.Avto.RecordCount-1 do

begin

Sheet.Cells[index,1]:=form1.Avto.Fields[0].AsString;

Sheet.Cells[index,2]:=form1.Avto.Fields.Fields[1].AsString;

Sheet.Cells[index,3]:=form1.Avto.Fields.Fields[2].AsString;

Sheet.Cells[index,4]:=form1.Avto.Fields[3].AsString;

Sheet.Cells[index,5]:=form1.Avto.Fields[4].AsString;

Sheet.Cells[index,6]:=form1.Avto.Fields[5].AsString;

Inc(index);

form1.Avto.Next;

end;

end;

procedure TForm1.N30Click(Sender: TObject);

{Формирование отчета по договорам купли продажи}

begin

XLApp:= CreateOleObject('Excel.Application');

XLApp.Visible:=true;

XLApp.Workbooks.Add(-4167);

XLApp.Workbooks[1].WorkSheets[1].Name:='Договоры купли продажи';

Colum:=XLApp.Workbooks[1].WorkSheets['Договоры купли продажи'].Columns;

Colum.Columns[1].ColumnWidth:=20;

Colum.Columns[2].ColumnWidth:=20;

Colum.Columns[3].ColumnWidth:=20;

Colum.Columns[4].ColumnWidth:=20;

Colum.Columns[5].ColumnWidth:=20;

Colum.Columns[6].ColumnWidth:=20;

Colum.Columns[7].ColumnWidth:=20;

Colum:=XLApp.Workbooks[1].WorkSheets['Договоры купли продажи'].Rows;

Colum.Rows[3].Font.Bold:=true;

Colum.Rows[1].Font.Bold:=true;