Помощь в написании студенческих работ
Антистрессовый сервис

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

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

IsplayLabel:='№ ';end;procedure TMainClientsForm. N9Click (Sender:TObject);beginIsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');IsMDIChildOpen (MainClientsForm,'addForm');mainflag:=false; mainclientsform. DataSource1. DataSet:=mainclientsform.ADOTable4;mainclientsform.ADOTable4.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem ('приказы на командировку', mainclientsform… Читать ещё >

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

Содержание

  • Обозначения и сокращения
  • Введение
  • 1. Описание предметной области
    • 1. 1. Краткая характеристика предприятия
    • 1. 2. Организационная структура предприятия
    • 1. 3. Описание бизнес-процессов
  • 2. Выбор и краткая характеристика инструментального средства разработки
    • 2. 1. Анализ существующих программных средств
    • 2. 2. Обоснование выбора инструментального средства разработки
  • 3. Описание постановки задач системы
    • 3. 1. Характеристика комплекса задач
    • 3. 2. Выходная информация
    • 3. 3. Входная информация
    • 3. 4. Технологических процесс функционирования системы в автоматизированном режиме
  • 4. Описание информационного обеспечения системы
    • 4. 1. Структура базы данных системы
      • 4. 1. 1. Оперативная информация
      • 4. 1. 2. Нормативно — справочная информация
    • 4. 2. Информационная модель системы
    • 4. 3. Логическая модель представления данных
  • 5. Описание программно-математического обеспечения
    • 5. 1. Структура программного обеспечения
    • 5. 2. Описание алгоритмов

Диагностика системы должна обеспечивать обнаружение нарушений структуры базы данных и программных средств.А.

4.1. 9 Требования к защите от влияния внешних воздействий Специальные требования к защите от влияния внешних воздействий не предъявляются.А.

4.1. 10 Требования к патентной чистоте

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

Закон о правовой охране программ для электронных вычислительных машин и баз данных;

Закон Российской Федерации об авторском праве и смежных правах;

Закон об информации, информатизации и защите информации;

Указ Президента РФ № 334 от 03.

04.1994г.;Закон о лицензировании и сертификации отдельных видов деятельности;

Государственные стандарты РФ ГОСТ 34.201−89, ГОСТ 19.101, ГОСТ Р50 739−95, ГОСТ Р50 922−96;Руководящие документы Гостехкомиссии РФ и ФАПСИ в области защиты информации.А.

4.1. 11 Требования по стандартизации и унификации

Особых требований не предъявляется.А.

4.2 Требования к функциям системы

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

4.3 Требования к видам обеспечения

А.

4.3. 1 Математическое обеспечение

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

4.3. 2 Информационное обеспечение

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

4.3. 3 Лингвистическое обеспечение

Интерактивное взаимодействие пользователей с системой должно удовлетворять стандарту GUI. Язык системных сообщений — русский. Язык описания шаблонов документов — русский. Допускается использование пиктограмм с пояснениями на русском языке. Других специальных требований к лингвистическому обеспечению не предъявляется.А.

4.3. 4 Программное обеспечение

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

СУБД MS Access 2007;система программирования (предполагаетсяBorlanddevelopmentstudio 2006).Согласование разрабатываемых программных средств с фондом алгоритмов и программ не требуется.А.

4.3. 5 Техническое обеспечение

Эксплуатация разрабатываемой системы предполагается в среде WINDOWS 98/2000/XP/NT для персонального компьютера IBM PC/AT-486 (и выше) или совместимого стандартной конфигурации, установленного на рабочем месте пользователя. Дополнительные специальные требования к конфигурации ПК не устанавливаются.А.

4.3. 6 Организационное обеспечение

Обеспечивать функционирование ИС должен программист предприятия (после обучения) или разработчик.А.

4.3. 7 Методическое обеспечение

Требования к методическому обеспечению определяются руководящими материалами Российской Федерации.А.5 Состав и содержание работ по созданию системы

Состав и содержание работ по созданию системы определяются календарным планом.А.6 Порядок контроля и приемки системы

Работа считается выполненной после утверждения акта технической приемки.А.7 Требования к составу и содержанию работ по подготовке и вводу системы в действие

Разработчик производит установку компонентов контрольного варианта системы на рабочих станциях. Разработчик своевременно (до начала опытной эксплуатации) производит обучение выделенного персонала. Первичная актуализация базы данных производится разработчиком до начала опытной эксплуатации в объеме, необходимом для решения задач первой очереди.А.8 Требования к документированию

По результатам создания системы формируется следующий комплект документов:

Техническое задание на построение ИС;Документация технического проекта в составе: Пояснительной записки;

Описания и схемы организационной структуры;

Схемы функциональной структуры;

Описания информационного обеспечения системы;

Описания программного обеспечения;

Рабочую документацию в составе: Общего описания системы;

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

Руководства пользователей;

Руководство администратора;

Описания технологического процесса обработки данных;

Формуляра;Паспорта;

Допускается оформление документации на систему на магнитных и лазерных носителях.А.9 Принятые сокращения

ИС- информационная система

АРМ- автоматизированное рабочее место

НСД- несанкционированный доступ

НТД- нормативно-техническая документация

ПК- персональный компьютер

РФ- Российская Федерация

ТЗ- техническое задание

ФАПСИ- Федеральное агентство правительственной связи и информации ФОТ- фонд оплаты труда

ЧТЗ- частное техническое задание

Приложение БИнструкция пользователя

Б.1 Назначение системы

Автоматизированная информационная система поддержки действий бухгалтера по формированию командировочной отчетности предназначена для автоматизации и облегчения учета командировочных расходов сотрудников предприятия и формирования необходимых справочных данных и отчетов. Б.2 Общие сведения

Система построена по технологии клиент-сервер, где в качестве клиента выступает прикладной программный проект, разработанный в среде BorlandDevelopmentStudio 2006, а в качестве СУБД — MS Access. Особых требований к операционной системе, набору необходимого программного обеспечения клиентского рабочего места не предъявляется. Листинг главного модуля разработанного приложения приведен в приложении В. Администратор СУБД имеет полный доступ к информации, может просматривать и модифицировать информацию непосредственно в таблицах БД, не используя интерфейс информационной системы, может добавлять и удалять пользователей. Б.3 Описание работы пользователя с системой

Б.

3.1 Запуск системы

Для запуска системы необходимо запустить выполняемый файл komandir.exe. Для этого может быть использован стандартный диалог Windows XP. После запуска системы появляется главная форма приложения (рисунок Б.1) и система переходит в режим ожидания последующих действий пользователя. Рисунок Б.1 — Главная форма приложения

Б.

3.2 Главное меню

Главная форма разработанного приложения позволяет пользователю осуществлять ввод необходимых команд, используя главное меню приложения. Главное меню приложения содержит следующие альтернативы «Файл», «Справочники», «Добавить», «Поиск», «Проводка», «Документы». Пункт меню «Справочники» предназначен для просмотра всех справочников предусмотренных в системе (рис. Б.2), а так же просмотра связанных записей базы данных. Рисунок Б.2 — Пункт меню «Справочники"Пункт меню «Добавить» предназначен для создания информационных объектов системы (рис. Б.3).Рисунок Б.3 — Пункт меню «Добавить"Пункт меню «Поиск» предназначен для запуска информационных запросов на поиск информации в базе данных (рис. Б.4).Рисунок Б.4 — Пункт меню «Поиск"Пункт меню «Проводка» предназначен для запуска процедуры осуществления бухгалтерской проводки и внесения в базу данных информации л командировке и расчете соответствующих величин на корреспондентских счетах.Б.

3.4 Просмотр справочников

Для просмотра справочников необходимо использовать пункт главного меню «Справочники», а затем выбрать необходимый справочник по названию (рис.Б.2). В результате в окне главной формы создаться новое окно с данными справочника (рис.Б.5)Рисунок Б.5 — Просмотр справочника приказы на командировку

Б.

3.4 Добавление информационных объектов

Для добавления элемента необходимо выбрать пункт меню «Добавить» (рис.Б.3), а затем выбрать необходимый объект для создания (рис. Б.6).Для создания объекта необходимо заполнить необходимые формы, а затем использовать кнопочный элемент управления. Рисунок Б.6 — Создание авансового отчета

Б.

3.5 Поиск информационных объектов

Для поиска элемента данных необходимо выбрать пункт меню «Поиск» (рис.Б.3), а затем выбрать необходимый объект для поиска (рис. Б.7).Рисунок Б.7 — Задание параметров поиска

Запуск поиска осуществляется, используя кнопку «Выполнить поиск», в результате получаем данные о командировках сотрудника (рис.Б.8)Рисунок Б.8 — Результаты поиска

Б.

3.6 Бухгалтерская проводка

Для заполнения информационных полей базы данных, для отражения бухгалтерских проводок по счетам, необходимо использовать пункт главного меню «Проводка», после этого необходимо указать номер кода расчета (рис.Б.9)Рисунок Б.9 — Определение номера расчета

В результате будут сформированы записи базы данных отражающие изменения по счетам (рис.Б.10)Рисунок Б.10 — Формирование бухгалтерских проводок по счетам

Б.

3.7 Командировочное удостоверение

Для получения командировочного удостоверения необходимо использовать главное меню Документы — Командировочное удостоверение в результате в в среде Excel будет создан отчет по фамилии сотрудника (рис.Б.11-Б.12):Рис.Б.11 — Запрос командировочного удостоверения по фамилии

Рис.Б.12 — Запрос авансового отчета по номеру

Б.

3.8 Авансовый отчет

Для получения авансового отчета необходимо использовать главное меню Документы — Авансовый отчет, в результате в в среде Excel будет создан отчет по номеру отчета (рис.Б.13-Б.14).Рис.Б.13 — Полученный отчет

Б.

3.9Выход из системы

Выход из системы осуществляется с помощью пункта «Файл» — «Выйти» главного меню системы. Рис.Б.14 — Полученный отчет

ПриложениеВТекст программы главного модуляunitMainClients;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, DB, ADODB, IniFiles, Grids, DBGrids, DBDirectoryTemplate, addsorce, DateUtils, parampoisk, jpeg, ExtCtrls, ToolWin, ComCtrls, Buttons, RzSpnEdt;typeTMainClientsForm = class (TForm) ADOConnection1: TADOConnection; ADOTable1: TADOTable; MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; N9: TMenuItem; N11: TMenuItem; N12: TMenuItem; N13: TMenuItem; N14: TMenuItem; N16: TMenuItem; N17: TMenuItem; DataSource1: TDataSource; ADOTable2: TADOTable; ADOTable3: TADOTable; ADOTable4: TADOTable; ADOTable6: TADOTable; ADOTable7: TADOTable; N20: TMenuItem; N21: TMenuItem; N22: TMenuItem; ADOQuery1: TADOQuery; ADOQuery2: TADOQuery; N18: TMenuItem;procedure N24Click (Sender:TObject);procedure N23Click (Sender:TObject);procedure N18Click (Sender:TObject);procedure RzRapidFireButton1Click (Sender:TObject);procedure RzRapidFireButton2Click (Sender:TObject);procedure RzRapidFireButton5Click (Sender:TObject);procedure RzRapidFireButton4Click (Sender:TObject);procedure RzRapidFireButton6Click (Sender:TObject);procedure RzRapidFireButton7Click (Sender:TObject);procedure RzRapidFireButton3Click (Sender:TObject);procedure RzRapidFireButton8Click (Sender:TObject);procedure N12Click (Sender:TObject);functionIsMDIChildOpen (constAFormName:TForm; constAMDIChildName: string): Boolean;functionIsFormOpen (constFormName :string): Boolean;procedure N6Click (Sender:TObject);procedure N7Click (Sender:TObject);procedure N8Click (Sender:TObject);procedure N9Click (Sender:TObject);procedure N20Click (Sender:TObject);procedure N21Click (Sender:TObject);procedure N22Click (Sender:TObject);procedureFormCreate (Sender:TObject);procedure N3Click (Sender:TObject);procedure DataSource1DataChange (Sender:TObject; Field: TField);procedure N4Click (Sender:TObject);procedure N14Click (Sender:TObject);procedure N15Click (Sender:TObject);procedure N16Click (Sender:TObject);procedure N17Click (Sender:TObject);procedure N11Click (Sender:TObject);procedure N19Click (Sender:TObject);private { Privatedeclarations }procedureBuildGridDatabaseDirectoryItem (sCaption:String; ds: TDataSource);public { Publicdeclarations }end;varMainClientsForm: TMainClientsForm;nastr:tinifile;DirectoryForm :TDBDirectoryTemplateForm;prosmForm: Taddform;mainflag:boolean;nomer_poisk:word;idLocation, idAddional, idZapas, idPartiya: integer;model, modelavto: string;god:integer;implementation{$R *.dfm}functionTMainClientsForm.IsMDIChildOpen (constAFormName:TForm; constAMDIChildName: string): Boolean;var i: Integer;beginResult := False;fori := Pred (AFormName.MDIChildCount) DownTo 0 doif (AFormName.MDIChildren[i]. N ame = AMDIChildName) thenbeginResult := True;AFormName.MDIChildren[i]. F ree; // Break;end;end;functionTMainClientsForm.IsFormOpen (constFormName :string): Boolean;var i: Integer;beginResult := False;fori := Screen. FormCount — 1 DownTo 0 doif (Screen.Forms[i]. N ame = FormName) thenbeginResult := True;Break;end;end;procedureTMainClientsForm.BuildGridDatabaseDirectoryItem (sCaption:String; ds: TDataSource);begin //создаем формуDirectoryForm:=TDBDirectoryTemplateForm.Create (Owner);DirectoryForm.TableDBGrid.DataSource:=ds; DirectoryForm. Top:=0; DirectoryForm. Left:=0;DirectoryForm.Caption:=sCaption;end;procedure TMainClientsForm. N12Click (Sender:TObject);beginMainClientsForm.Close;end;procedure TMainClientsForm. N6Click (Sender:TObject);beginIsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable1;mainclientsform.ADOTable1.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem ('расчет командировочных', mainclientsform. DataSource1);DirectoryForm.TableDBGrid.Fields[0]. D

isplayLabel:='ИД.';{DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='Наименование';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='ид.размещения';DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='ид.дополн. информации&# 39;;DirectoryForm.TableDBGrid.Fields[4]. D isplayLabel:='ид.запасов';DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='ид.партии';}end;procedure TMainClientsForm. N7Click (Sender:TObject);beginIsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');IsMDIChildOpen (MainClientsForm,'addForm');mainflag:=false; mainclientsform. DataSource1.DataSet:=mainclientsform.ADOTable2;mainclientsform.ADOTable2.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem ('Полученные авансы', mainclientsform. DataSource1);DirectoryForm.TableDBGrid.Fields[0]. D isplayLabel:='№ ';end;procedure TMainClientsForm. N8Click (Sender:TObject);beginIsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');IsMDIChildOpen (MainClientsForm,'addForm');mainflag:=false; mainclientsform. DataSource1.DataSet:=mainclientsform.ADOTable3;mainclientsform.ADOTable3.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem ('Авансовые отчеты', mainclientsform. DataSource1);DirectoryForm.TableDBGrid.Fields[0]. D

isplayLabel:='№ ';end;procedure TMainClientsForm. N9Click (Sender:TObject);beginIsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');IsMDIChildOpen (MainClientsForm,'addForm');mainflag:=false; mainclientsform. DataSource1.DataSet:=mainclientsform.ADOTable4;mainclientsform.ADOTable4.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem ('приказы на командировку', mainclientsform. DataSource1);DirectoryForm.TableDBGrid.Fields[0]. D isplayLabel:='№ приказа';end;procedure TMainClientsForm. RzRapidFireButton1Click (Sender:TObject);begin MainClientsForm. N6Click (Sender);end;procedure TMainClientsForm. RzRapidFireButton2Click (Sender:TObject);begin MainClientsForm. N22Click (Sender);end;procedure TMainClientsForm. RzRapidFireButton3Click (Sender:TObject);beginMainClientsForm.N19Click (Sender);end;procedure TMainClientsForm. RzRapidFireButton4Click (Sender:TObject);begin MainClientsForm. N4Click (Sender);end;procedure TMainClientsForm. RzRapidFireButton5Click (Sender:TObject);begin MainClientsForm. N3Click (Sender);end;procedure TMainClientsForm. RzRapidFireButton6Click (Sender:TObject);beginMainClientsForm.N11Click (Sender);end;procedure TMainClientsForm. RzRapidFireButton7Click (Sender:TObject);begin MainClientsForm. N14Click (Sender);end;procedure TMainClientsForm. RzRapidFireButton8Click (Sender:TObject);beginMainClientsForm.Close;end;procedure TMainClientsForm. N20Click (Sender:TObject);beginIsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');IsMDIChildOpen (MainClientsForm,'addForm');mainflag:=false; mainclientsform. DataSource1.DataSet:=mainclientsform.ADOTable6;mainclientsform.ADOTable6.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem ('Расходы', mainclientsform. DataSource1);DirectoryForm.TableDBGrid.Fields[0]. D isplayLabel:='№ записи';end;procedure TMainClientsForm. N21Click (Sender:TObject);beginIsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');IsMDIChildOpen (MainClientsForm,'addForm');mainflag:=false; mainclientsform. DataSource1.DataSet:=mainclientsform.ADOTable7;mainclientsform.ADOTable7.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem ('Сведения о сотрудниках', mainclientsform. DataSource1);DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='№ записи';end;procedure TMainClientsForm. N22Click (Sender:TObject);beginIsMDIChildOpen (MainClientsForm,'addForm');IsMDIChildOpen (MainClientsForm,'addForm');mainflag:=false; MainClientsForm. N6Click (sender);prosmForm:=Taddform.Create (Owner); prosmForm. Top:=230; prosmForm. Left:=0; prosmForm. Width:=500; prosmForm. Height:=200;prosmForm.Caption:='просмотр записей'; prosmForm. DBNavigator1.Visible:=true;mainflag:=true;prosmForm.Show; prosmForm. GroupBox3.Visible:=false; prosmForm. GroupBox4.Visible:=false; MainClientsForm. DataSource1.DataSet.lastend;procedure TMainClientsForm. N23Click (Sender:TObject);varpoisk:Tparampoik;beginIsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');IsMDIChildOpen (MainClientsForm,'addform');IsMDIChildOpen (MainClientsForm,'parampoik');poisk:=Tparampoik.Create (Owner); poisk. Left:=530; poisk. Top:=3; poisk. Width:=300;poisk.Caption:='Создание отчета по товарам'; nomer_poisk:=6; poisk. Label1.Visible:=false; poisk. Label2.Visible:=false; poisk. Label3.Visible:=false; poisk. Label7.Visible:=false; poisk. Edit2.Visible:=false; poisk. Edit3.Visible:=false; poisk. Edit4.Visible:=false; poisk. Edit5.Visible:=false; poisk. Edit6.Visible:=false; poisk. Edit7.Visible:=false; poisk. Edit1.Visible:=false; poisk. UpDown1.Visible:=false; poisk. UpDown2.Visible:=false; poisk. UpDown3.Visible:=false; poisk. UpDown4.Visible:=false; poisk. Button1.Click;end;procedure TMainClientsForm. N24Click (Sender:TObject);varpoisk:Tparampoik;beginIsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');IsMDIChildOpen (MainClientsForm,'addform');IsMDIChildOpen (MainClientsForm,'parampoik');poisk:=Tparampoik.Create (Owner); poisk. Left:=530; poisk. Top:=3; poisk. Width:=300;poisk.Caption:='Повеременные отчеты'; nomer_poisk:=7; poisk. Label1.Visible:=false; poisk. Edit1.Visible:=false; poisk. Label7.Caption:='Движение товаров в период’end;procedureTMainClientsForm.FormCreate (Sender:TObject);varNewConnection: Widestring;beginADOConnection1.Close; // указываем файл .udl для ADOConnection1ADOConnection1. ConnectionString :='Provider=Microsoft.Jet.OLEDB.

4.0;User ID=Admin;Data Source='+GetCurrentDir+'komandir.mdb;'; ADOConnection1. Open;MainClientsForm.ADOTable1.Active:=true;MainClientsForm.ADOTable2.Active:=true;MainClientsForm.ADOTable3.Active:=true;MainClientsForm.ADOTable4.Active:=true;MainClientsForm.ADOTable6.Active:=true;MainClientsForm.ADOTable7.Active:=true;end;procedure TMainClientsForm. N3Click (Sender:TObject);vardobForm: Taddform;beginmainflag:=false;IsMDIChildOpen (MainClientsForm,'addForm');dobForm:=Taddform.Create (Owner); dobForm. Top:=240; dobForm. Left:=3;dobForm.Caption:='добавление приказа';dobForm.Show; dobForm. GroupBox2.Visible:=false; dobForm. GroupBox3.Visible:=false; dobForm. GroupBox1.Visible:=true; dobForm. GroupBox4.Visible:=false;end;procedure TMainClientsForm. DataSource1DataChange (Sender:TObject;Field: TField);varsql_str, rez: string; P11: Tparameter;rezdate:tdatetime;rezint:integer;rezfloat:real;Ayear, amonth, aday, ahour, aminute, asecond, amillisecond: word;data_prik, data_nach:tdatetime;gorod, predpr: string;avans, kod_sotr, srok, nomer, id_sotr:integer;id_prik, id_avans, id_otchet:integer;rezdata:tdatetime;rezin:integer; debet71, kredit71,kredit50,debet26, kredet71: integer;beginifmainflagthenbegin prosmForm. edit1.text:=''; prosmForm. edit2.text:=''; prosmForm. edit3.text:=''; prosmForm. edit4.text:=''; prosmForm. edit5.text:=''; prosmForm. edit6.text:=''; prosmForm. edit7.text:=''; prosmForm. edit9.text:=''; prosmForm. edit10.text:=''; prosmForm. edit8.text:=''; prosmForm. edit12.text:=''; prosmForm. edit13.text:=''; prosmForm. edit14.text:=''; prosmForm. edit15.text:=''; prosmForm. edit16.text:=''; prosmForm. edit17.text:=''; prosmForm. edit18.text:=''; prosmForm. edit19.text:=''; prosmForm. edit20.text:=''; prosmForm. edit21.text:=''; prosmForm. edit22.text:=''; prosmForm. edit23.text:=''; prosmForm. edit41.text:=''; prosmForm. edit43.text:=''; //из таблицыid_prik:= MainClientsForm. DataSource1.DataSet.FieldByName ('ид_приказ').AsInteger;id_sotr:= MainClientsForm. DataSource1.DataSet.FieldByName ('ид_сотрудник').AsInteger; id_avans:=MainClientsForm.DataSource1.DataSet.FieldByName ('ид_аванс').AsInteger; debet71:=MainClientsForm.DataSource1.DataSet.FieldByName ('дебет71').AsInteger; debet26:=MainClientsForm.DataSource1.DataSet.FieldByName ('кредит50').AsInteger; kredit71:=MainClientsForm.DataSource1.DataSet.FieldByName ('2дебет71').AsInteger; kredit50:=MainClientsForm.DataSource1.DataSet.FieldByName ('2кредит50').AsInteger; prosmForm. Edit7.Text:=inttostr (debet71); prosmForm. Edit8.Text:=inttostr (kredit71); prosmForm. Edit9.Text:=inttostr (kredit50); prosmForm. Edit10.Text:=inttostr (debet26); // размещение prosmForm. Edit2.Text:=inttostr (id_sotr);sql_str:='SELECT * from приказ whereидприказ= :P11'; MainClientsForm. ADOQuery1.Active:=false; MainClientsForm. ADOQuery1.SQL.Clear; P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter; P11.Name:='P11'; p11. DataType := ftinteger; P11. Value:=id_prik; P11. Size:=4; MainClientsForm. ADOQuery1.SQL.Add (sql_str); MainClientsForm. ADOQuery1.Active:=true; MainClientsForm. ADOQuery1.ExecSQL;rezdata:= MainClientsForm. ADOQuery1.FieldByName ('дата').AsDateTime; prosmForm. Edit17.Text:=datetostr (rezdata);rezdata:= MainClientsForm. ADOQuery1.FieldByName ('начало').AsDateTime; prosmForm. Edit43.Text:=datetostr (rezdata);rezin:= MainClientsForm. ADOQuery1.FieldByName ('номер').AsInteger; prosmForm. Edit1.Text:=inttostr (rezin); prosmForm. Edit41.Text:=inttostr (MainClientsForm.ADOQuery1.FieldByName ('срок').AsInteger);rez:=MainClientsForm.ADOQuery1.FieldByName ('город').AsString; prosmForm. Edit3.Text:=rez; rez:=MainClientsForm.ADOQuery1.FieldByName ('предприятие').AsString; prosmForm. Edit5.Text:=rez;sql_str:='SELECT * from сотрудник whereид_сотрудник= :P11'; MainClientsForm. ADOQuery1.Active:=false; MainClientsForm. ADOQuery1.SQL.Clear; P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter; P11.Name:='P11'; p11. DataType := ftinteger; P11. Value:=id_sotr; P11. Size:=4; MainClientsForm. ADOQuery1.SQL.Add (sql_str); MainClientsForm. ADOQuery1.Active:=true; MainClientsForm. ADOQuery1.ExecSQL; rez:=MainClientsForm.ADOQuery1.FieldByName ('фамилия').AsString; prosmForm. Edit12.Text:=rez; rez:=MainClientsForm.ADOQuery1.FieldByName ('имя').AsString; prosmForm. Edit14.Text:=rez; rez:=MainClientsForm.ADOQuery1.FieldByName ('отчество').AsString; prosmForm. Edit15.Text:=rez; rez:=MainClientsForm.ADOQuery1.FieldByName ('должность').AsString; prosmForm. Edit13.Text:=rez; rez:=MainClientsForm.ADOQuery1.FieldByName ('телефон').AsString; prosmForm. Edit6.Text:=rez; rez:=MainClientsForm.ADOQuery1.FieldByName ('отдел').AsString; prosmForm. Edit16.Text:=rez;sql_str:='SELECT * from аванс whereид_аванс= :P11'; MainClientsForm. ADOQuery1.Active:=false; MainClientsForm. ADOQuery1.SQL.Clear; P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter; P11.Name:='P11'; p11. DataType := ftinteger; P11. Value:=id_avans; P11. Size:=4; MainClientsForm. ADOQuery1.SQL.Add (sql_str); MainClientsForm. ADOQuery1.Active:=true; MainClientsForm. ADOQuery1.ExecSQL; rezin:=MainClientsForm.ADOQuery1.FieldByName ('сумма').AsInteger; prosmForm. Edit4.Text:=inttostr (rezin);{ rez:=MainClientsForm.ADOQuery1.FieldByName ('notes').AsString; prosmForm. Edit16.Text:=rez;end;end;procedure TMainClientsForm. N4Click (Sender:TObject);varzakForm: Taddform;beginmainflag:=false;IsMDIChildOpen (MainClientsForm,'zakForm');IsMDIChildOpen (MainClientsForm,'addForm');zakForm:=Taddform.Create (Owner); zakForm. Top:=240; zakForm. Left:=3;zakForm.Caption:='Добавление сотрудника';zakForm.Show; zakForm. GroupBox1.Visible:=false; zakForm. GroupBox2.Visible:=false; zakForm. GroupBox4.Visible:=false; zakForm. GroupBox3. Left:=2; zakForm. GroupBox3. Top:=2;end;procedure TMainClientsForm. N14Click (Sender:TObject);varpoisk:Tparampoik;beginIsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');IsMDIChildOpen (MainClientsForm,'addform');IsMDIChildOpen (MainClientsForm,'parampoik');poisk:=Tparampoik.Create (Owner); poisk. Left:=530; poisk. Top:=3; poisk. Width:=300;poisk.Caption:='поиск расчета сотрудника'; nomer_poisk:=1; poisk. Label1.Visible:=false; poisk. Label2.Visible:=false; poisk. Label3.Visible:=false; poisk. Label7.Visible:=false; poisk. Edit1.Visible:=false; poisk. Edit2.Visible:=false; poisk. Edit3.Visible:=false; poisk. Edit4.Visible:=false; poisk. Edit5.Visible:=false; poisk. Edit6.Visible:=false; poisk. Edit7.Visible:=false; poisk. UpDown1.Visible:=false; poisk. UpDown2.Visible:=false; poisk. UpDown3.Visible:=false; poisk. UpDown4.Visible:=false;end;procedure TMainClientsForm. N15Click (Sender:TObject);varpoisk:Tparampoik;beginIsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');IsMDIChildOpen (MainClientsForm,'addform');IsMDIChildOpen (MainClientsForm,'parampoik');poisk:=Tparampoik.Create (Owner); poisk. Left:=530; poisk. Top:=3; poisk. Width:=300;poisk.Caption:='проверка ср. годности расх. материала'; nomer_poisk:=2; poisk. Edit1.Visible:=false; poisk. Label1.Visible:=false;poisk.Label3.Visible:=false; poisk. Label2.Visible:=false;{ poisk. Label7.Visible:=false; poisk. Edit2.Visible:=false; poisk. Edit3.Visible:=false;poisk.Edit4.Visible:=false;}poisk.Edit5.Visible:=false; poisk. Edit6.Visible:=false; poisk. Edit7.Visible:=false; poisk. UpDown3.Visible:=false; poisk. UpDown4.Visible:=false;end;procedure TMainClientsForm. N16Click (Sender:TObject);varpoisk:Tparampoik;beginIsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');IsMDIChildOpen (MainClientsForm,'addform');IsMDIChildOpen (MainClientsForm,'parampoik');poisk:=Tparampoik.Create (Owner); poisk. Left:=530; poisk. Top:=3; poisk. Width:=300;poisk.Caption:='поиск размещения автозапчасти'; nomer_poisk:=3; poisk. Label2.Visible:=false; poisk. Label3.Visible:=false; poisk. Label7.Visible:=false; poisk. Edit2.Visible:=false; poisk. Edit3.Visible:=false; poisk. Edit4.Visible:=false; poisk. Edit5.Visible:=false; poisk. Edit6.Visible:=false; poisk. Edit7.Visible:=false; poisk. UpDown1.Visible:=false; poisk. UpDown2.Visible:=false; poisk. UpDown3.Visible:=false; poisk. UpDown4.Visible:=false;end;procedure TMainClientsForm. N17Click (Sender:TObject);varpoisk:Tparampoik;beginIsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');IsMDIChildOpen (MainClientsForm,'addform');IsMDIChildOpen (MainClientsForm,'parampoik');poisk:=Tparampoik.Create (Owner); poisk. Left:=530; poisk. Top:=3; poisk. Width:=300;nomer_poisk:=4; poisk. Label1.Visible:=false; poisk. Edit1.Visible:=false;end;procedure TMainClientsForm. N18Click (Sender:TObject);begin MainClientsForm. N19Click (Sender);end;procedure TMainClientsForm. N11Click (Sender:TObject);varnaklForm: Taddform;beginmainflag:=false;IsMDIChildOpen (MainClientsForm,'naklForm');IsMDIChildOpen (MainClientsForm,'addForm');naklForm:=Taddform.Create (Owner); naklForm. Top:=240; naklForm. Left:=3;naklForm.Show; // zakForm. Button1.Visible:=true; naklForm. GroupBox1.Visible:=false; naklForm. GroupBox2.Visible:=false; naklForm. GroupBox3.Visible:=false; naklForm. GroupBox4. Left:=2; naklForm. GroupBox4. Top:=2; naklForm. GroupBox4.Width:=600; naklForm. GroupBox4.Height:=250;end;procedure TMainClientsForm. N19Click (Sender:TObject);varpoisk:Tparampoik;beginIsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');IsMDIChildOpen (MainClientsForm,'addform');IsMDIChildOpen (MainClientsForm,'parampoik');poisk:=Tparampoik.Create (Owner); poisk. Left:=530; poisk. Top:=3; poisk. Width:=300;poisk.Caption:='Бухгалтерская Проводка '; nomer_poisk:=5; poisk. Label2.Visible:=false; poisk. Label3.Visible:=false; poisk. Label7.Visible:=false; // poisk. Label2.Caption:='Код расчета'; poisk. Label3.Caption:='Модель'; poisk. Edit2.text:=''; poisk. Edit5.text:=''; poisk. Edit2.Visible:=false; poisk. Edit3.Visible:=false; poisk. Edit4.Visible:=false; poisk. Edit5.Visible:=false; poisk. Edit6.Visible:=false; poisk. Edit7.Visible:=false; poisk. UpDown1.Visible:=false; poisk. UpDown2.Visible:=false; poisk. UpDown3.Visible:=false; poisk. UpDown4.Visible:=false; poisk. Label1.Caption:='Код расчета'; poisk. Button1.Caption:='Выполнить проводку 'end;end.Приложение ВПриказ о направлении работника в командировку

КодФорма по ОКУД301 022по ОКПО (наименование организации) Номер документа

Дата составления

ПРИКАЗ (распоряжение)

о направлении работника в командировку

Направить в командировку:

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

сроком накалендарных днейс ««20г. по ««20г.

с целью

Командировка за счет средств (указать источник финансирования) Основание (документ, номер, дата):(служебное задание, другое основание, указать) Руководитель организации (должность)(личная подпись)(расшифровка подписи) С приказом (распоряжением) работник ознакомлен""20г.(личная подпись) Унифицированная форма № Т-10Утверждена Постановлением Госкомстата Россииот 05.

01.2004 № 1Код

Форма по ОКУД301 024по ОКПО (наименование организации) Номер документа

Дата составления

КОМАНДИРОВОЧНОЕ УДОСТОВЕРЕНИЕТабельный номер

Работник (фамилия, имя, отчество)(структурного подразделения)(должность (специальность, профессия))

командируется в (место назначения (страна, город, организация))

для (цель командировки)

накалендарных дней (не считая времени нахождения в пути)

с""20г. по ««20г.Действительно по предъявлении паспорта или заменяющего его документа (наименование)(номер)Руководитель (должность)(личная подпись)(расшифровка подписи)

Показать весь текст

Список литературы

  1. ГОСТ 19.701−90 (ИСО 5807−85). Схемы алгоритмов программ, данных и систем. Условные обозначения и правила выполнения. — Введ. 01.01.92. — М.: Госстандартиздат, 1990. — 20 с.
  2. ГОСТ 19.701−90 (ИСО 5807−85). Схемы алгоритмов программ, данных и систем. Условные обозначения и правила выполнения. — Введ. 01.01.92. — М.: Госстандартиздат, 1990. — 20 с.
  3. Принципы комплексной оценки напряженности труда и рабочего напряжения при умственных видах деятельности, М., НИИ Медицины труда РФ, 1986. — М.: Госстандартиздат, 1986.
  4. Р 2.2.2006−05 Руководство по гигиенической оценке факторов рабочей среды и трудового процесса. критерии и классификация условий труда
  5. М. М. Проектирование систем автоматизированного управления: Учеб. пособие / Новосиб. электротехн. ин-т. — Новосибирск, 1989 г.
  6. М. М. Функциональная обработка информации: В 2 частях. Ч.1. Проектирование и реализация алгоритмов на языке Турбо Си: Учеб. пособие / Новосиб. гос. техн. ун-т. — Новосибирск, 1994 г. — 130 с.
  7. СанПиН 2.2.2/2.4.1340−03 Гигиенические требования к персональным электронно-вычислительным машинам и организации работы., утвержденные Главным государственным санитарным врачом Российской Федерации 30 мая 2003 года.
  8. СанПиН 2.2.4.548−96 «Гигиенические требования к микроклимату производственных помещений»
  9. Г. Н. Проектирование экономических информационных систем: учебник / Г. Н. Смирнова, А. А. Сорокин, Ю. Ф. Тельнов — М.: Финансы и Статистика. — 2002. 512 с.
  10. СНиП 23−05−95. Естественное и искусственное освещение/М.: Информ. реклам. издат., 1995.-35с.
  11. Delphi 7 в подлиннике. А. Хомоненко. СПб: BHV, 2003 — 1216 стр.
  12. Delphi 7 на примерах/Под ред. Ю. С. Ковтанюка — К.: Издательство Юниор, 2003. — 384 с., ил.
  13. Архангельский А.Я. Delphi 6. Справочное пособие. — М.: Бином, 2001. — 1024с.
  14. А.Я. Программирование в Delphi 6. — М.: Бином, 2001. — 564с.
  15. А.Я. Язык SQL в Delphi 5. — М.: Бином, 2000. — 205с.
  16. Базы данных: модели, разработка, реализация / Карпова Т.- СПб.: Питер, 2001. -304с.
  17. А.Н. Бухгалтерский учет в учреждениях непроизводственной сферы. — М.: Финансы и статистика, 1995. — 240с.
  18. Буч Г. Объектно-ориентированное проектирование с примерами применения. М., 1992. — 654с.
  19. А.М. Проектирование программного обеспечения экономических информационных систем. М.: «Финансы и статистика», 2002.
  20. В. Ф. Экономика предприятия. — М.: Вита-Пресс, 1998. — 380с.
  21. С.В., Ломотько Д. В. Базы данных .- Х.: Фолио, 2002. — 504 с.
  22. В.Э. Хомоненко А.Д. Delphi 5. — СПб.: — Санки-Петербург, 2000. -800с.
  23. Конноли Томас, Бегг Каролин. Базы данных. Проектирование, реализация и сопровождение. Теория и практика. — М.: Вильямс, 2000. — 1111 с.
  24. Культин Н.Б. Delphi 6: Программирование на OBJECT PASCAL. — М.: Бином, 2001. — 526 с.
  25. Культин Н.Б. Delphi 7: Программирование на OBJECT PASCAL. — М.: Бином, 2003. — 535 с.
  26. Культин Н.Б. Delphi 7: Программирование на OBJECT PASCAL. — М.: Бином, 2003. — 535 с.
  27. Маклаков С.В. BPwin и ERwin. CASE-средства разработки информационных систем. — М.: Диалог-Мифи, 2001. — 304 с.
  28. Нестандартные приемы программирования на Delphi. — СПб.: БХВ-Петербург, 2005. — 560 с: ил.
  29. Принципы проектирования и разработки программного обеспечения. Учебный курс MCSD: Скотт Ф. Уилсон, Брюс Мэйплс, Тим Лэндгрейв. — М: Русская редакция, 2002. — 736стр.
  30. Проектирование экономических информационных систем: Учебник/Г.Н.Смирнова, А. А. Сорокин, Ю. Ф. Тельнов. — М: Финансы и статистика, 2003. — 512стр.
  31. С. Обзор АСУП для малого бизнеса. Функциональные особенности // Компьютерное обозрение № 17 (286), 2001. с.22−27. // www. ITC-UA.COM
  32. Р., Шафер Д. Шафер Л. Управление программными проектами: достижение оптимального качества при минимуме затрат. М.: «Вильямс», 2003. — 1128с.
  33. П.В., Фаронов В.В. Delphi 5. Руководство разработчика баз данных. — М.: Нолидж, 2000. — 635 с
  34. Д.Э., Семенов Ю. Д., Чижик К.Н. CASE — технологии. Москва, Горячая линия — Телеком, 2003 г.
  35. Д.Э. Типы и структуры данных в современных языках программирования. / Учебное пособие. Москва, 1981 г.
  36. Д.Э. Особенности архитектуры вычислительных систем и функциональная структура операционных систем. / Текст лекций. Москва, 1987 г.
  37. Д.Э. Технология разработки и отладки программ: Учебн. пособие / МИРЭА.-М., 1987.-80с.
  38. E.Г., Колесников Г. С., Сыромятников В. П. Структуры и алгоритмы обработки данных — часть 1. / Учебное пособие дли студентов специальности 220 400. — МИРЭА, Москва, 2004 г.
  39. E.Г., Колесников Г. С., Сыромятников В. П. Структуры и алгоритмы обработки данных — часть 2. / Лабораторный практикум. МИРЭА, Москва, 2004 г.
  40. Обеспечение безопасных и комфортных условий работы на ПЭВМ: учеб. пособие / Е. Г. Андрианова, Г. В. Зикеева, Д. Э. Федотова. — М.: 1995. — 76 с.
  41. Л.Г.Гагарина, Д. В. Киселев и др. Разработка и эксплуатация автоматизированных информационных систем: учеб. пособие/под ред.проф.Л. Г. Гагариной.-М:ИД"Форум": ИНФРА-М, 2007. — 384 с.
  42. Д. Ульман, Дженнифер Уидом. Основы реляционных баз данных, Лори, М, 2006 г.
  43. А.В. Разработка баз данных, Питер, Сп-б, 2005 г.
  44. К. Введение в системы баз данных. М., 1998.
  45. Питер Роб, Карлос Коронел. Системы баз данных: проектирование, реализация и управление, БХВ-Петербург, Сп-б, 2004 г.
  46. В. В., Огородникова И. А., Перепеча И. Ф. и др. К концепции построения внутривузовской системы обеспечения качества образовательного процесса в ОмГУ. // Университетское управление: практика и анализ. — 2003. — N 2(25). — С. 96−100.
  47. Методические указания по разделу дипломного проекта «Экологичность и безопасность проекта», Москва 2009, МИРЭА. В. К. Монаков, В. С. Розанов, А. В. Трубицын.
  48. Безопасность жизнедеятельности: Электробезопасность: учеб. пособие / В. С. Розанов. — М.: 1999 г.
  49. Экономика предприятия (фирмы):/ Учебник/ под ред.проф. О. И. Волкова и доц. О. В. Девяткина.- 3-е изд., перераб. и доп. ._М.: ИНФРА, М.-2004 г.
  50. РД 50−34.698−90. Автоматизированные системы требования к содержанию документов. Москва, 1992 г.
  51. Единая система программной документации. http://www.nist.ru/hr/doc/gost/gost19.htm
  52. СНиП 23−05−95. Естественное и искусственное освещение. Введен в действие с 02.08.95. М.: Изд. стандартов, 1996. — 29 с.
  53. Производственное освещение. Методические указания к практическим занятиям и лабораторным работам по курсу «Безопасность жизнедеятельности». Сост.: Н. В. Горшенина, Л. Г. Стишенко. — Омск: ОмГТУ, 2001. — 28 с.
  54. А.Г. Проектирование АСУ. — М.: Высшая школа, 1987. — 304с.
Заполнить форму текущей работой
Купить готовую работу

ИЛИ
↓


Сессия? Спокойно!