Разработка автоматизированной информационной системы БУ Редакция газеты "К новым рубежам"

end;

end;

end;

Главная форма (Договора) - Кнопка «Помощь»

procedure TForm3.BtnHelpClick(Sender: TObject);

begin

ShellExecute(0,'open',pchar(ExtractFilePath(ParamStr(0))+'Аис.chm'),nil,'c:\',sw_shownormal);

end;

Форма «Клиенты» содержит информацию о клиентах компании, так же на форме имеется функция добавления, удаления и поиск информации. На (Рис. 17) представлена функция «Новый клиент».

Рис. 17 - Поиск нового клиента



Форма после проведения операции добавление информации о клиенте.

Рис. 18 - Форма «Клиенты» - результат добавления

Форма «Доставка + Услуги» объединяет в себе две формы. Объединение данных форм было сделано для удобства добавления и поиска информации, так как информация о доставках и информация о услугах являются близкими по значению. На форме применены специальные панели «RzSplitter» на которых расположены поля для ввода информации. Также на форме представлены все необходимые функции, кнопки которых расположены на панели инструментов.

Создание и вывод счет-фактуры (связь с 1С)

Создаём глобальные переменные для работы с объектами 1С с типом OleVariant: 

var frmMain: TfrmMain; Ole1C: OleVariant; Contrag, BankSch, RaschSch, Nomenkl, VidNomenkl : OleVariant; VariantNalog, StavkaNDS, StavkaNP, EdIzm: OleVariant; Schet, Usluga, SchetFact : OleVariant; BuhSchet: OleVariant; Version1C: OleVariant; IsOper, BoolYes: OleVariant; ... implementation ...

Описание:

Ole1C - глобальный контекст системы 1С.

Contrag - справочник Контрагенты. BankSch - справочник Банковские счета. RaschSch - справочник Расчетные счета. Nomenkl - справочник Номенклатура. VidNomenkl - справочник Виды номенклатуры. VariantNalog - справочник Варианты расчета налогов. StavkaNDS и StavkaNP - справочники Ставки НДС и Ставки НП. EdIzm - справочник Единицы измерения.

Schet - документы Счет. Usluga - документы Оказание услуг. SchetFact - документы Счет-фактура.

BuhSchet - счет Основной. Version1C - константа Номер Релиза. IsOper - константа Все Документы В Журнал Операций. BoolYes - перечисление Булево ДА.

Подключимся к 1С, выполним инициализацию, создадим объекты для дальнейшей их обработки

procedure TfrmMain.FormShow(Sender: TObject); var ResOpen: Integer; path1c: string; begin path1c:='C:\1C-Config\MyConfig'; Ole1C := CreateOleObject('V77.Application'); ResOpen := Ole1C.Initialize(Ole1C.RMTrade, '/D'+ path1c, ''); if ResOpen = -1 then begin Contrag:= Ole1C.CreateObject('Справочник.Контрагенты'); BankSch:= Ole1C.CreateObject('Справочник.БанковскиеСчета'); RaschSch:= Ole1C.CreateObject('Справочник.РасчетныеСчета'); VariantNalog:= Ole1C.CreateObject('Справочник.ВариантыРасчетаНалогов'); Nomenkl:= Ole1C.CreateObject('Справочник.Номенклатура'); VidNomenkl:= Ole1C.CreateObject('Справочник.ВидыНоменклатуры'); StavkaNDS:= Ole1C.CreateObject('Справочник.СтавкиНДС'); StavkaNP:= Ole1C.CreateObject('Справочник.СтавкиНП'); EdIzm:= Ole1C.CreateObject('Справочник.ЕдиницыИзмерений'); Schet:= Ole1C.CreateObject('Документ.Счет'); Usluga:= Ole1C.CreateObject('Документ.ОказаниеУслуг'); SchetFact:= Ole1C.CreateObject('Документ.СчетФактура'); BuhSchet:= Ole1C.CreateObject('Счет.Основной'); Version1C:= Ole1C.Const.GetAttrib('НомерРелиза'); IsOper:=Ole1C.Const.GetAttrib('ВсеДокументыВЖурналОпераций'); BoolYes:=Ole1C.Enum.GetAttrib('Булево').ValueByIdentifier('Да'); end else begin ShowMessage(' Ошибка соединения!'); Ole1C:=Unassigned; frmMain.Close; Exit; end; end; 

Описание:

ResOpen - переменная, принимающая результат выполнения Инициализации глобального контекста 1С. Напоминаю, что, удачная инициализация вернет

число -1 (минус единица), неудачная - иное число.

path1C - путь к базе 1С:Предприятия, как он задан в стартовой странице 1С при выборе конфигурации.

Ole1C := CreateOleObject('V77.Application'); - создаем подключение к 1С. В качестве параметра указывается версия 1С (в моем случае версия 7.7).

Возможные варианты: V1CEnterprise.Application - версия независимый ключ; V77.Appication - версия зависимый ключ; V77S.Application - SQL-версия, зависимый ключ; V77L.Application - локальная версия, зависимый ключ; V77M.Application - сетевая версия, зависимый ключ. Для версий 8.0 и старше смотрите документацию, раздел "Связь с внешними приложениями.

ResOpen := Ole1C.Initialize(Ole1C.RMTrade, '/D'+ path1c, ''); - выполняем инициализацию системы 1С:Предприятие. Первый параметр - ссылка на Идентификатор созданного OLE объекта. Второй параметр - командная строка запуска 1С. Некоторые возможные значения ключей: /D Папка - путь к базе данных (конфигурации) 1С; /M - открыть 1С в монопольном режиме; /N Имя Пользователя и /P Пароль - эти ключи позволяют пропустить окно ввода логина и пароля. Третий параметр - чаще всего пустая строка, но может принимать значение 'NO_SPLASH_SHOW', что означает отключить заставку при запуске 1С в режиме OLE сервера.

Contrag:= Ole1C.CreateObject('Справочник. Контрагенты'); - Создаем объект Справочника. Соответствует методу в 1С: Контрагент = СоздатьОбъект("Справочник. Контрагенты"); Аналогичным способом создаются и объекты Документов, объекты Счетов.

Version1C:= Ole1C.Const.GetAttrib('НомерРелиза'); - В переменную сохраняем константу "Номер Релиза", в которой хранится версия обновления 1С. Номер релиза сохраняется в Документе и важен для его дальнейшего перепроведения пользователем 1С (если конечно перепроведение понадобится). Соответствует методу Констант в 1С: Версия1С = Константа. Номер Релиза;

BoolYes:=Ole1C.Enum.GetAttrib('Булево').ValueByIdentifier('Да'); - В переменную сохраняем значение Перечисления, соответствующее значению "да" в 1С. В дальнейшем она нам понадобится для реализации конструкций if..then..else. Соответствует методу Перечислений в 1С: ОтвДа = Перечисление. Булево. Да; 

Начало процедуры. Общие для всех документов данные

procedure TfrmMain.btnConvertZayavkaClick(Sender: TObject); var schet_num, nomenkl_name, full_nomenkl_name: string; usluga_doc_osn, schetfact_doc_osn: string; resultat: integer; client, rschet, dogovor, var_nalog, nomenkl_group: OleVariant; begin BankSch.FindByDescr('Сбербанк'); rschet:=BankSch.CurrentItem; Contrag.FindByCode(dm.tabZayavkaClient_Buh.Value); client:=Contrag.CurrentItem; dogovor:=client.GetAttrib('ОсновнойДоговор'); VariantNalog.FindByCode(3); var_nalog:=VariantNalog.CurrentItem; Nomenkl.FindByCode(dm.tabZayavkaClient_Buh_Group.Value); nomenkl_group:=Nomenkl.CurrentItem; Nomenkl.UseParent(nomenkl_group); nomenkl_name:=IntToStr(dm.tabZayavkaZayavka_Num.Value); if dm.tabZayavkaZayavka_SubNum.Value > 0 then nomenkl_name:=nomenkl_name+'/'+IntToStr(dm.tabZayavkaZayavka_SubNum.Value);



Описание:

BankSch.FindByDescr('Сбербанк'); - делаем текущим элементом в справочнике

БанковскиеСчета элемент с наименованием «Сбербанк». Соответствует методу Справочников: БанкСчет.НайтиПоНаименованию(«Сбербанк»); rschet:=BankSch.CurrentItem; - сохранить этот элемент в переменной. Соответствует методу Справочников: ПеремРСчет = БанкСчет.ТекущийЭлемент();

Contrag.FindByCode(dm.tabZayavkaClient_Buh.Value); - делаем текущим элементом в справочнике Контрагенты элемент с кодом, взятым из программы Delphi. Соответствует методу Справочников: Контраг.НайтиПоКоду(«000056»); Далее сохраняем этот элемент в переменной client.

dogovor:=client.GetAttrib('ОсновнойДоговор'); - присваиваем переменной значение Основного договора Контрагента, выбранного нами из справочника ранее.

VariantNalog.FindByCode(3); - делаем текущим элементом в справочнике ВариантыНалогов элемент с кодом «3» (в нашей базе это НДС в Сумме). Далее сохраняем этот элемент в переменной var_nalog.

Nomenkl.UseParent(nomenkl_group); - Установить выбранную группу номенклатуры группой по умолчанию. Теперь при создании новой номенклатуры (услуги в нашем случае), она будет записываться в эту группу. Соответствует методу Справочников: Номенклатура.ИспользоватьРодителя(«ИмяГруппы»);

nomenkl_name:=IntToStr(dm.tabZayavkaZayavka_Num.Value); - Сформировать Наименование номенклатуры. Как и указывалось ранее, Наименование номенклатуры (услуги) на предприятии идентично номеру заявки Zayavka_Num. Если есть субномер, то он далее добавляется к номеру заявки через слэш.



Счет-фактура. Конец процедуры

schetfact_doc_osn:='Оказание услуг № ' + schet_num + ' от ' +SetDateFormat(dm.tabZayavkaExecution_Date.Value); SchetFact.New; SchetFact.DocNum:=schet_num; SchetFact.DocDate:=dm.tabZayavkaExecution_Date.Value; SchetFact.SetAttrib('ВерсияОбъекта', Version1C); SchetFact.SetAttrib('ДокументОснование', Usluga.CurrentDocument); SchetFact.SetAttrib('Контрагент', client); SchetFact.SetAttrib('Договор', dogovor); SchetFact.SetAttrib('Грузополучатель', client); SchetFact.SetAttrib('ВариантОтправки', 1); SchetFact.SetAttrib('СчетНДС', 1); SchetFact.SetAttrib('СчетАкциза', 1); SchetFact.SetAttrib('ВключатьВКнигуПродаж', 1); SchetFact.SetAttrib('ВидОперации', Ole1C.Enum.GetAttrib('ВидыОперацийСчетаФактурыВыданного').ValueByIdentifier('Реализация')); SchetFact.SetAttrib('Комментарий', 'Введен на основании: ' + schetfact_doc_osn); SchetFact.NewLine; SchetFact.SetType('Товар', 'Справочник.Номенклатура'); SchetFact.SetAttrib('Товар', Nomenkl.CurrentItem); SchetFact.SetAttrib('Количество', 1); SchetFact.SetAttrib('Цена', dm.tabZayavkaCharter_Cost.Value); SchetFact.SetAttrib('Сумма', dm.tabZayavkaCharter_Cost.Value); SchetFact.SetAttrib('СтавкаНДС', StavkaNDS.CurrentItem); SchetFact.SetAttrib('НДС', dm.tabZayavkaCharter_Cost.Value/118*18); SchetFact.SetAttrib('СтавкаНП', StavkaNP.CurrentItem); SchetFact.SetAttrib('Всего', dm.tabZayavkaCharter_Cost.Value); SchetFact.SetAttrib('Счет', Ole1C.EvalExpr('СчетПоКоду("90.3")')); SchetFact.SetType('Субконто1', 'Справочник.ВидыНоменклатуры'); SchetFact.SetAttrib('Субконто1', VidNomenkl.CurrentItem); SchetFact.SetType('Субконто2', 'Справочник.СтавкиНДС'); SchetFact.SetAttrib('Субконто2', StavkaNDS.CurrentItem); SchetFact.Operation.Description:='Сч.-факт. покупателю: '+client.getattrib('Наименование'); SchetFact.Operation.OperSum:=dm.tabZayavkaCharter_Cost.Value; SchetFact.Write; SchetFact.MakeActions; memResultZayavka.Lines.Add(DateTimeToStr(Now) + ' - Создан Счет-фактура выданный № ' + schet_num + ' - ' + client.getattrib('Наименование') + ' - ' + dogovor.getattrib('Наименование')); end;

Описание:

SchetFact.SetType('Товар', 'Справочник. Номенклатура'); - в структуре документа Счет-фактура поле Товар неопределено. Оно может быть любого типа Справочник. Поэтому, перед присвоением ему значения, необходимо указать его тип. Для этого используется метод SetType. Соответствует методу Документов: Счет-Фактура. Назначить Тип («Товар», «Справочник. Номенклатура»).

Для удобства использования и поддержи пользователя, разработана «Справка» (Рис. 20) содержащая в себе информацию о программе, разработчики и помощь по функциям программы. Стрелкой указана кнопка на панели инструментов.

Рис. 19 - Форма «Справка» АИС - О программе



Рис. 20 - Форма «Справка» - Разработчик

Рис. 21 - Форма «Справка» - Функции

В программе имеется возможность составления отчета по данным хранящимся в системе и вывод их на печать. Для того, чтобы получить отчет необходимо на панели выбрать раздел «Отчеты», после чего появиться отчет, (Рис. 22).

Рис. 22 - Вывод отчета

Кнопка «Отчет», описывается следующим образом:

{---------------По Договорам---------------}

procedure TForm3.N11Click(Sender: TObject);

var i,j:integer;

c:integer;

begin

Application.ProcessMessages;

Template := 'Normal';

OpenAsTemplate := false;

Form25.WordApplication1.Create(nil);

Form25.WordApplication1.Visible:=true;

Form25.WordApplication1. Documents. Addold (Template, OpenAsTemplate);

Form25.WordApplication1.Caption:='Сведения о договарах компании';

Form25.WordDocument1.ConnectKind:=ckAttachToInterface;

Form25.WordDocument1.ConnectTo(Form25.WordApplication1.ActiveDocument);

template:=Form25.WordDocument1.Range;

Form25.WordApplication1.ActiveDocument.Paragraphs.Add(Template);

Form25.WordApplication1.ActiveDocument.Paragraphs.Add(Template);

Form25.WordDocument1.PageSetup.LeftMargin:=55;

Form25.WordDocument1.PageSetup.RightMargin:=55;

Form25.WordDocument1.Paragraphs.Alignment:=wdAlignParagraphJustify;

Form25.WordDocument1.Paragraphs.Item(1).Range.Font.Size:=16;

Form25.WordDocument1.Paragraphs.Item(1).Range.Font.Bold:=1;

Form25.WordDocument1.Paragraphs.Item(1).Range.InsertBefore(Договора компании'); Form25.WordDocument1.Tables.Addold(Form25.WordDocument1.Paragraphs.Item(3).Range, 30,6);

//Form25.WordApplication1.ActiveWindow.SetFocus;

Form25.WordApplication1.Activate;

{--------заголовки столбцов полужирным-----}

for i:=1 to 6 do

Form25.WordDocument1.Paragraphs.Item(i+2).Range.Font.Bold := 1;

Form25.WordDocument1.Paragraphs.LineUnitAfter;

{--------ширина столбцов------}

for i:=1 to 8 do

Form25.WordDocument1.Paragraphs.Item(i).Alignment:=wdAlignParagraphCenter;

Form25.WordDocument1.Tables.Item(1).Borders.InsideLineStyle:=wdLineStyleSingle;

Form25.WordDocument1.Tables.Item(1).Borders.OutsideLineStyle:=wdLineStyleSingle;

Form25.WordDocument1.Tables.Item(1).Columns.Item(1).Width:=35;

Form25.WordDocument1.Tables.Item(1).Columns.Item(2).Width:=70;

Form25.WordDocument1.Tables.Item(1).Columns.Item(3).Width:=190;

Form25.WordDocument1.Tables.Item(1).Columns.Item(4).Width:=73;

Form25.WordDocument1.Tables.Item(1).Columns.Item(5).Width:=55;

Form25.WordDocument1.Tables.Item(1).Columns.Item(6).Width:=90;

{------------названия столбцов----------}

Form25.WordDocument1.Tables.Item(1).Cell(1, 1).Range.Text :='Номер договора';

Form25.WordDocument1.Tables.Item(1).Cell(1, 2).Range.Text :='Код клиента';

Form25.WordDocument1.Tables.Item(1).Cell(1, 3).Range.Text :='Тип договора';

Form25.WordDocument1.Tables.Item(1).Cell(1, 4).Range.Text :='Код поставщика';

Form25.WordDocument1.Tables.Item(1).Cell(1, 5).Range.Text :='Код услуги';

Form25.WordDocument1.Tables.Item(1).Cell(1, 6).Range.Text :='Дата заключения';

Form25.WordDocument1.Tables.Item(1).Cell(1, 7).Range.Text :='Дата окончания';

Form25.WordDocument1.Tables.Item(1).Cell(1, 8).Range.Text :='Сумма договора';

Form25.WordDocument1.Tables.Item(1).Cell(1, 9).Range.Text :='Код товара';

Form25.WordDocument1.Tables.Item(1).Cell(1, 10).Range.Text :='Код заказа';

Form25.WordDocument1.Tables.Item(1).Cell(1, 11).Range.Text :='Доставка';

{-------------добавление записей в таблицу-------------}

Form3.ADOTable2.Active:=true;

Form3.ADOTable2.Sort:='Dogovor';

Form3.ADOTable2.First;

c:=1;

For j:=1 to Form3.ADOTable2.RecordCount do

begin

if (j mod 30)=0 then // количество строк на 1 странице

begin

inc(c);

Form25.WordDocument1.Tables.AddOld(Form25.WordDocument1.Paragraphs.Last.Range, 30,6);

end;

Form25.WordDocument1.Tables.Item(1).Cell(j+1, 1).Range.Text := IntToStr(j);

if NOT (Form1.ADOTable2.Fields[1].Value=NULL) then

Form25.WordDocument1.Tables.Item(1).Cell(j+1, 3).Range.Text := Form3.ADOTable2.Fields[1].Value+' '+Form3.ADOTable2.Fields[2].Value+' '+Form3.ADOTable2.Fields[3].Value //добавление Номер договора

else

Form25.WordDocument1.Tables.Item(1).Cell(j+1, 3).Range.Text :='';

if NOT (Form3.ADOTable2.Fields[2].Value=NULL) then

Form25.WordDocument1.Tables.Item(1).Cell(j+1, 2).Range.Text := Form3.ADOTable2.Fields[2].Value //добавление Код клиента

else

Form25.WordDocument1.Tables.Item(1).Cell(j+1, 2).Range.Text :='';

if NOT (Form1.ADOTable2.Fields[7].Value=NULL) then

Form25.WordDocument1.Tables.Item(1).Cell(j+1, 4).Range.Text := Form1.ADOTable2.Fields[7].Value // добавление Тип договора

else

Form25.WordDocument1.Tables.Item(1).Cell(j+1, 4).Range.Text :='';

if NOT (Form1.ADOTable2.Fields[8].Value=NULL) then

Form25.WordDocument1.Tables.Item(1).Cell(j+1, 5).Range.Text := ' '+Form1.ADOTable2.Fields[8].AsString //добавление Код поставщика

else

Form7.WordDocument1.Tables.Item(1).Cell(j+1, 5).Range.Text :='';

if NOT (Form3.ADOTable2.Fields[9].Value=NULL) then

Form25.WordDocument1.Tables.Item(1).Cell(j+1, 2).Range.Text := Form3.ADOTable2.Fields[9].Value //добавление Код услуги

else

Form25.WordDocument1.Tables.Item(1).Cell(j+1, 2).Range.Text :='';

if NOT (Form3.ADOTable2.Fields[10].Value=NULL) then

Form25.WordDocument1.Tables.Item(1).Cell(j+1, 2).Range.Text := Form3.ADOTable2.Fields[10].Value //добавление Дата заключения

else

Form25.WordDocument1.Tables.Item(1).Cell(j+1, 2).Range.Text :='';

if NOT (Form3.ADOTable2.Fields[11].Value=NULL) then

Form25.WordDocument1.Tables.Item(1).Cell(j+1, 2).Range.Text := Form3.ADOTable2.Fields[11].Value //добавление Дата окончания

else

Form25.WordDocument1.Tables.Item(1).Cell(j+1, 2).Range.Text :='';

if NOT (Form3.ADOTable2.Fields[12].Value=NULL) then

Form25.WordDocument1.Tables.Item(1).Cell(j+1, 2).Range.Text := Form3.ADOTable2.Fields[12].Value //добавление Сумма договора

else

Form25.WordDocument1.Tables.Item(1).Cell(j+1, 2).Range.Text :='';

if NOT (Form3.ADOTable2.Fields[13].Value=NULL) then

Form25.WordDocument1.Tables.Item(1).Cell(j+1, 2).Range.Text := Form3.ADOTable2.Fields[13].Value //добавление Код товара

else

Form25.WordDocument1.Tables.Item(1).Cell(j+1, 2).Range.Text :='';

if NOT (Form3.ADOTable2.Fields[14].Value=NULL) then

Form25.WordDocument1.Tables.Item(1).Cell(j+1, 2).Range.Text := Form3.ADOTable2.Fields[14].Value //добавление Код заказа

else

Form25.WordDocument1.Tables.Item(1).Cell(j+1, 2).Range.Text :='';

if NOT (Form3.ADOTable2.Fields[15].Value=NULL) then

Form25.WordDocument1.Tables.Item(1).Cell(j+1, 2).Range.Text := Form3.ADOTable2.Fields[15].Value //добавление Доставка

else

Form25.WordDocument1.Tables.Item(1).Cell(j+1, 2).Range.Text :='';

if NOT (Form1.ADOTable2.Fields[16].Value=NULL) then

Form25.WordDocument1.Tables.Item(1).Cell(j+1, 6).Range.Text := Form3.ADOTable2.Fields[16].Value //Код услуги

else

Form25.WordDocument1.Tables.Item(1).Cell(j+1, 6).Range.Text :='';

Form3.ADOTable2.Next;

end;

Form3.ADOTable2.Last;

Form25.WordApplication1.Disconnect; form25.Close;

end;

После завершения работы в системе на форме «Вход», необходимо нажать кнопку «Выход» (Рис. 23).

Рис. 23 - Выход из системы

В данном запросе описывает связь и выборки из таблиц по сущностям:

SELECT Client.Код_клиента, Dogovor.Код_клиента, Zakaz.[Код заказа]

FROM Dostavka INNER JOIN (Tovar INNER JOIN (Yslygi INNER JOIN (Zakaz INNER JOIN (Postavshik INNER JOIN (Client INNER JOIN Dogovor ON Client.Код_клиента = Dogovor.Код_клиента) ON Postavshik.[Код поставщика] = Dogovor.Код_поставщика) ON Zakaz.[Код заказа] = Dogovor.Код_заказа) ON Yslygi.[Код услуги] = Dogovor.Код_услуги) ON Tovar.[Код товара] = Dogovor.Код_товара) ON Dostavka.Транспорт = Dogovor.Доставка.

2.3 Руководство пользователя

О программе

Автоматизированная информационная система БУ «Редакция газеты «К новым рубежам», предназначена для ведения документооборота компании, учета продукции и надежности хранения данных.

Основные функции

К основным функциям приложения относят:

выборка и редактирование записей об клиентах, договорах, поставщиках и оборудовании;

добавление записей;

поиск записей по указанным полям;

справочная система.

Все данные функции могут быть выбраны в главном меню.

При запуске программы необходимо пройти процедуру проверки «Имя пользователь» и «Пароль», что является необходимым действием для обеспечения безопасности доступа к данным.

После этого открывается основное окно программы (оно же форма «Договора») приложения.

Для добавления новой записи в базу данных выполняются следующие шаги:

- Необходимо нажать кнопку, расположенную на кнопочной панели

- Заполнить поля ввода нажать кнопку Добавить.

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

Для поиска записи в базе данных:

- на панели инструментов нажать на и выбрать критерии поиска. Для отмены поиска нажать кнопку Отмена.

Для вывода документа на печать необходимой нажать кнопку

Для вызова помощи нужно:

- Нажать кнопку на панели инструментов. Появится окно, в котором отражена справочная система о программе.

Разработчик

Разработчиком Автоматизированной информационной системы БУ «Редакция газеты «К новым рубежам» является Гомула Екатерина Валерьевна студентка группы 71-ПЗУ ОГИС.

ЗАКЛЮЧЕНИЕ

В процессе дипломного проектирования были решены следующие задачи:

1. Проведен анализ теоретических основ разработки АИС.

Анализ позволил выявить компоненты автоматизированной информационной системы БУ «Редакция газеты «К новым рубежам».

2. Проведен анализ деятельности предприятия БУ «Редакция газеты «К новым рубежам», построены функционально-ориентированные модели «Как есть» (as-is) и «Как должно быть» (to-be), выявлен объект автоматизации, определен набор требований.

3. Разработано приложение АИС БУ «Редакция газеты «К новым рубежам».

Для создания АИС использовались программное обеспечение:

- ОС Windows XP;

- Borland Delphi 7;

- MS Access.

В процессе проектирования база данных системы определили её структуру (состав таблиц, их структура и логические связи).

Структура таблицы определяется составом столбцов, типом данных и размерами столбцов, ключами таблицы.

Так же были выявленные основные сущности и атрибуты, т.е. базовые типы информации, которые хранятся в БД.

При разработке автоматизированной информационной системы для предприятия БУ «Редакция газеты «К новым рубежам», основным нормативным документом для выполнения задачи является техническое задание на разработку программного продукта.

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

4. Разработанное приложение включает в себя 5 основных форм, и 15 вспомогательных форм. БД соответствует 3 NF.

БИБЛИОГРАФИЧЕСКИЙ СПИСОК

1. Алексенцев А.И. Автоматизация делопроизводства. - М.: ЗАО Бизнес-школа «Интел-синтез», 2004.

2. Баженова И.Ю. Delphi 7. Самоучитель программиста, Москва - 2003.

3. Бобровский С.И. Delphi 7. Учебный курс, Петербург - 2004.

4. Вендров А.М. Проектирование программного обеспечения экономических информационных систем: Учебник. - М.: Финансы и статистика, 2000. - 352 с.

5. Гагарина Л.Г. Разработка и эксплуатация автоматизированных информационных систем/ Л.Г. Гагарина, Е.А. Федотова, Д.В. Киселев ? Инфра-М, 2009 ? 384 с.

6. Гвоздева Т.В. Проектирование информационных систем/ Гвоздева Т.В. ? Феникс, 2009 ? 508 с.

7. Герасименко В.А. Защита информации в автоматизированных системах обработки данных (книга 1), Энергоатомиздат - 1994.

8. Грекул В.И. Проектирование информационных систем/ В.И. Грекул, Г.Н. Денищенко, Н.Л. Коровкина ? Интернет-университет информационных технологий, 2008 - 304 с.

9. Григорьев С.В. Автоматизация документооборота. / Под ред. В.А. Федоовой и др. - М.: Технология, 2004.

10. А. Гультяев Help. Разработка справочных систем, Петербург - 2004.

11. Калянов Г. Н. CASE-технологии. Консалтинг в автоматизации бизнес-процессов. - 3-е изд. - М.: Горячая линия - Телеком, 2002. - 320 с.

12. Кирсанова М.В. Курс делопроизводства: Документационное обеспечение управления. Учебное пособие - 2- е изд. - М.: ИНФРА-М, 2005.

13. Корняков В.Н. Программирование документов и приложений MS Office в Delphi, БХВ- Петербург 2005.

14. Максименков А.В. Основы проектирования информационных систем. - М., 2005.

15. Малков О.Б., Белимова Е.В. Проектирование баз данных с использованием CASE-технологии: Методические указания. - Омск, 2003. - 48 с.

16. Маклаков С.В. BPwin и ERwin. CASE-средства разработки информационных систем. - М.: Диалог-МИФИ, 2001. - 304 с.

17. Маклаков С.В. Моделирование бизнес-процессов с BPwin 4.0. - М.: Диалог-МИФИ, 2002. - 224 с.

18. Петров В.Н. Информационные системы - СПб.: Питер, 2003. - 688 с.

19. Петров В.Н. Информационные системы.- СПб.: Питер, 2007.

20. Петров Ю.А., Шлимович Е.Л., Ирюпин Ю.В. Комплексная автоматизация управления предприятием, Петербург - 2001.

21. Проектирование экономических информационных систем: Учебник / Г. Н. Смирнова, А. А. Сорокин, Ю. Ф. Тельнов; Под ред. Ю. Ф. Тельнова. - М.: Финансы и статистика, 2001. - 512 с.

22. Род Стивенс Delphi. Готовые алгоритмы, ДМК - Пресс, 2004.

23. Экономическая информатика. Учебник для вузов / Под ред. проф. В.В. Евдо-кимова. - СПб: Питер, 1997. - 594 с.

24. Экономическая информатика: Учебник / Под ред. П.В. Конюховского и Д.Н. Колесова. - СПб: Питер, 2001. - 560 с.

25. Т. Тиори Проектирование структур баз данных, 1990.

ПРИЛОЖЕНИЕ 1

Счет-фактура

Наименование товара (описание выполненных работ, оказанных услуг)	Единица измерения	Количество	Цена (тариф) за единицу измерения	Стоимость товаров (работ, услуг) всего без налога	В том числе акциз	Налоговая ставка	Сумма налога	Стоимость товаров (работ, услуг) всего с учетом налога	Страна происхождения	Номер грузовой таможенной декларации
1	2	3	4	5	6	7	8	9	10	11
Всего к оплате

ПРИЛОЖЕНИЕ 2

Заказ

автоматизированный информационный база данных

№ п/п	Код товара	Наименование товара	Кол-во	Необходимый срок поставки	Примечание

* Примечание:

При покупке со склада указать - «Склад».

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

Дополнительные сведения.

ПРИЛОЖЕНИЕ 3

Платежное поручение

Сумма прописью
Плательщик	Сумма
	Сч. №
Банк плательщика	БИК
	Сч. №
Банк получателя	БИК
	Сч. №
Получатель	Сч. №
	Вид оп.		Срок плат.
	Наз. пл		Очер. Плат.
	Код		Рез. поле

Размещено на Allbest.ru