Приведенные выше требования не распространяются на компоненты системы, разработанные третьими сторонами и действительны только при соблюдении правил эксплуатации этих компонентов, включая своевременную установку обновлений, рекомендованных производителями покупного программного обеспечения.
А.4.1.10 Требования к патентной чистоте
Установка системы в целом, как и установка отдельных частей системы не должна предъявлять дополнительных требований к покупке лицензий на программное обеспечение сторонних производителей.
А.4.1.11 Требования по стандартизации и унификации
Экранные формы должны проектироваться с учетом требований унификации:
- все экранные формы пользовательского интерфейса должны быть осуществлены в едином графическом дизайне, с одинаковым расположением
главных элементов управления и навигации;
- для обозначения сходных операций должны использоваться сходные графические значки, кнопки и другие управляющие элементы;
Продолжение приложения А
- термины, применяемые для обозначения типовых операций а также последовательности действий пользователя при их выполнении, должны быть унифицированы;
- внешнее поведение сходных элементов интерфейса (реакция на наведение указателя "мыши", переключение фокуса, нажатие кнопки) должны реализовываться одинаково для однотипных элементов.
А.4.2 Требования к видам обеспечения
А.4.2.1 Требования к математическому обеспечению системы
Математические методы и алгоритмы, применяемые для автоматизации расчетов автозапчастей должны быть сертифицированы уполномоченными организациями.
А.4.2.2 Требования к информационному обеспечению системы
Состав, структура и способы организации данных в системе должны
быть определены на этапе технического проектирования.
Хранение данных должно осуществляться на основе нынешних реляционных или СУБД. Для обеспечения целостности данных должны использоваться встроенные механизмы СУБД.
Средства СУБД, а также средства употребляемых операционных систем обязаны снабжать документирование и протоколирование отшлифовываемой в системе информации.
Структура базы данных обязана поддерживать кодирование хранимой и обрабатываемой информации в соответствии с общепринятыми классификаторами (там, где они применимы).
Доступ к данным должен быть дан только авторизованным пользователям с учетом их служебных полномочий, а также с учетом категории запрашиваемой информации.
Структура базы данных должна быть организована рациональным способом, исключающим единовременную полную выгрузку информации, содержащейся в базе данных системы.
Технические средства, обеспечивающие сохранение информации, обязаны применить нынешние технологии, разрешающие обеспечить увеличенную безопасность сохранения данных и оперативную подмену оборудования (распределенная избыточная запись/считывание данных; зеркалирование).
В состав системы должна входить специализированная подсистема резервного копирования данных.
А.4.2.3 Требования к лингвистическому обеспечению системы
Все прикладное программное обеспечение системы для организации взаимодействия с пользователем должно применить русский язык.
А.4.2.4 Требования к программному обеспечению системы
При проектировании и разработке системы необходимо максимально эффективным образом применить ранее закупленное программное обеспечение.
А.4.2.5 Требования к техническому обеспечению
Техническое обеспечение системы должно предельно и наиболее результативным образом применить существующие в органах федерального агентства технические средства.
В состав комплекса должны следующие технические средства:
ПК пользователя;
А.4.2.6 Требования к организационному обеспечению
Организационное обеспечение системы следует быть правильным для результативного выполнения персоналом положенных на него обязанностей при реализации автоматизированных и связанных с ними неавтоматизированных функций системы.
Заказчиком должны быть определены должностные лица, ответственные за:
- обработку информации АС;
- администрирование АС;
- управление работой персонала по обслуживанию АС.
К работе с системой должны допускаться сотрудники, обладающие навыками работы на персональном компьютере, ознакомленные с правилами эксплуатации и прошедшие обучение работе с системой.
А.4.2.7 Требования к методическому обеспечению
В состав методического обеспечения системы должны входить законодательные акты, стандарты, нормативы, инструкции.
А.5 Порядок контроля и приемки системы
А.5.1 Виды, состав, объем и методы испытаний системы
Виды, состав, объем, и методы испытаний подсистемы должны быть изложены в программе и методике испытаний
БД «Автозапчасти», разрабатываемой в составе рабочей документации.
А.5.2 Общие требования к приемке работ по стадиям
Сдача-приёмка работ изготовляется поэтапно, в соответствии с рабочей программой и календарным планом.
Сдача-приемка исполняется комиссией, в состав которой входят представители Заказчика и Исполнителя.
Все создаваемые в рамках настоящей работы программные изделия (за исключением покупных) передаются Заказчику, как в виде готовых модулей, так и в виде исходных кодов, показываемых в электронной варианте на стандартном носителе (например, на флэш карте).
А.5.3 Статус приемочной комиссии
Статус приемочной комиссии определяется Заказчиком до проведения испытаний.
А.6 Требования к составу и содержанию работ по подготовке объекта автоматизации к вводу системы в действие
В ходе выполнения проекта на объекте автоматизации нужно реализовать работы по подготовке к вводу системы в воздействие. При подготовке к вводу в эксплуатацию БД «Автозапчасти» Заказчик должен выполнить следующие работы:
Назначить ответственных должностных лиц, ответственных за внедрение и проведение эксплуатации БД «Автозапчасти»;
Обеспечить присутствие пользователей на обучении работе с системой, проводимом Исполнителем;
Совместно с Исполнителем подготовить план развертывания системы на технических средствах Заказчика;
Провести опытную эксплуатацию БД «Автозапчасти».
А.7 Требования к документированию
Данный проект сопутствуется ТЗ и документацией на технический проект.
В техническом задании описываться:
- главные цели, задачи, сроки и периоды разработки;
- список важнейших функций и требований;
- список функций интерфейса.
Документация на технический проект является инструкцией по употреблению данного ПО. В данной документации будут описываться:
- условия работы ПО;
- установка ПО;
- применение ПО, по пунктом изображение важнейших функций и функций интерфейса;
- ликвидация проблем при переходе в аварийный режим.
Для системы на различных стадиях создания должны быть выпущены следующие документы из числа предусмотренных в ГОСТ 34.201 - «Информационная технология. Комплекс стандартов на автоматизированные системы».
А.8 Источники разработки
Документы и информационные материалы (технико - экономическое обоснование, отчеты о законченных научно - исследовательских работах, информационные материалы на отечественные, зарубежные системы - аналоги и др.), на создании которых разрабатывалось ТЗ и которые обязаны быть применены при основании системы.
Технико - экономическое обоснование. Этот документ хранит, финансовое отображение системы, в котором хранится перечень применяемых ресурсов и показывается их цена. Цена системы, подсчет рентабельности. Минимизация употребляемых ресурсов для того чтобы получать наибольшей прибыли.
Данная система должна разрабатываться на основании ТК 34 по стандартизации Информационные технологии. Номер приказа и дата утверждения: от 27.07.01 г. № 274.
Листинг программы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ShellAPI;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Edit1: TEdit;
Button2: TButton;
Button3: TButton;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
procedure Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit3, Uchet_metodi4ek;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text = '' then
begin
Button2.Enabled:=True;
Button3.Enabled:=True;
Label2.Enabled:=True;
Продолжение приложения В
Label2.Visible:=True;
Label1.Visible:=False;
Button1.Visible:=False;
Edit1.Visible:=False;
end
else
begin
ShowMessage ('Неправильный пароль!');
Edit1.Clear;
end;
end;
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If key=13
then
begin
key:=0;
Button1.click;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.CreateHandle;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form3.Showmodal;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Form4.Showmodal;
end;
end.
unit Unit3;
Продолжение приложения В
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, DBTables,
ShellAPI,
Menus, ComCtrls, Uchet_metodi4ek, Buttons, ToolWin, QRCtrls,
Printers,ComObj;
type
TForm3 = class(TForm)
DataSource1: TDataSource;
ADOConnection2: TADOConnection;
ADOQuery1: TADOQuery;
ADOQuery2: TADOQuery;
ADOConnection1: TADOConnection;
MainMenu1: TMainMenu;
N21: TMenuItem;
ADOQuery3: TADOQuery;
MainMenu2: TMainMenu;
N11: TMenuItem;
w1: TMenuItem;
OpenDialog1: TOpenDialog;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N6: TMenuItem;
SaveDialog1: TSaveDialog;
Panel3: TPanel;
ScrollBox1: TScrollBox;
CheckBox1: TCheckBox;
CheckBox10: TCheckBox;
CheckBox11: TCheckBox;
CheckBox12: TCheckBox;
CheckBox13: TCheckBox;
CheckBox14: TCheckBox;
CheckBox15: TCheckBox;
CheckBox16: TCheckBox;
CheckBox17: TCheckBox;
CheckBox18: TCheckBox;
CheckBox20: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
CheckBox6: TCheckBox;
CheckBox7: TCheckBox;
CheckBox8: TCheckBox;
CheckBox9: TCheckBox;
Panel4: TPanel;
ToolBar1: TToolBar;
ImportButton: TBitBtn;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
BitBtn3: TBitBtn;
BitBtn8: TBitBtn;
ProgressBar1: TProgressBar;
TabControl1: TTabControl;
DBGrid1: TDBGrid;
Panel2: TPanel;
Button4: TButton;
Memo9: TMemo;
Memo1: TMemo;
Memo8: TMemo;
Memo7: TMemo;
Memo6: TMemo;
Memo5: TMemo;
Memo4: TMemo;
Memo3: TMemo;
Memo2: TMemo;
Memo14: TMemo;
Memo13: TMemo;
Memo12: TMemo;
Memo11: TMemo;
Memo10: TMemo;
Label3: TLabel;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
Excel1: TMenuItem;
Excel2: TMenuItem;
Продолжение приложения В
N10: TMenuItem;
N5: TMenuItem;
N12: TMenuItem;
Word1: TMenuItem;
ExportButton: TBitBtn;
Label6: TLabel;
Label2: TLabel;
ComboBox2: TComboBox;
Button2: TButton;
Button5: TButton;
Label7: TLabel;
Label1: TLabel;
ComboBox1: TComboBox;
Button3: TButton;
BitBtn6: TBitBtn;
BitBtn7: TBitBtn;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button3Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Button7Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure w1Click(Sender: TObject);
procedure TabControl1Change(Sender: TObject);
procedure Button2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ComboBox2Select(Sender: TObject);
procedure ComboBox2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ComboBox2Exit(Sender: TObject);
procedure ComboBox2Change(Sender: TObject);
procedure ImportButtonClick(Sender: TObject);
procedure ADOQuery1AfterPost(DataSet: TDataSet);
procedure BitBtn2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure N1Click(Sender: TObject);
Продолжение приложения В
procedure N2Click(Sender: TObject);
procedure CheckBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure BitBtn1Click(Sender: TObject);
procedure ExportButtonClick(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure Word1Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure ADOQuery1AfterOpen(DataSet: TDataSet);
procedure BitBtn8Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
bfromstr,fromstr,afromstr,qsbi,csbi,CurrentDBName:string;
viscolcount:integer;
implementation
uses Unit1, Unit5;
{$R *.dfm}
Function GetYears:string;
begin
if StrToInt(copy(DateToStr(Date),4,2))<9 then
GetYears:=IntToStr(StrToInt(copy(DateToStr(Date),length(DateToStr(Date))-3,4))- 1)+
'-'+IntToStr(StrToInt(copy(DateToStr(Date),length(DateToStr(Date))-3,4))) else
GetYears:=IntToStr(StrToInt(copy(DateToStr(Date),length(DateToStr(Date))-
3,4)))+
'-'+IntToStr(StrToInt(copy(DateToStr(Date),length(DateToStr(Date))-3,4))+1);
end;
Procedure ImportFromExcel;
var i,j,ToAll:integer;
var s,ss,f,k:string;
var DlgResult:Word;
var cncl:Boolean;
begin
cncl:=FALSE;
CopyFile(PChar(ExtractFilePath(ParamStr(0))+CurrentDBName+'.mdb'),PChar(Ex
tractFilePath(ParamStr(0))+CurrentDBName+'.tmp'),FALSE);
ToAll:=0;
Uchet_metodi4ek.Form4.OpenDialog1.Title:='Выберите
расположение файла';
Uchet_metodi4ek.Form4.OpenDialog1.Execute;
Uchet_metodi4ek.Form4.OpenDialog1.Title:='';
s:=Uchet_metodi4ek.Form4.OpenDialog1.FileName;
ss:=ExtractFileName(Uchet_metodi4ek.Form4.OpenDialog1.FileName);
if s='' then
begin
ShowMessage('Файл для импорта не указан или указан неверно.
Импорт отменён.');
exit;
end;
f:=''; k:=''; j:=0;
for i:=1 to length(ss) do
begin
if ss[i]='_' then
begin
j:=j+1;
continue;
end;