Автоматизированная система учёта и управления спирографического обследования

Налоговые ставки приведены в таблице 4.9

Таблица 4.9 - Налоговые ставки

Наименование	Значение
ЕСН	0,26
Подоходный налог	0,13
Налог на прибыль	0,2

4.10 Амортизация

Основные средства подлежат амортизации.

Согласно закону предприниматель вправе выбрать один из двух способов начисления амортизации (линейный или нелинейный). Я выбрала линейный способ. При применении линейного метода сумма начисленной за один месяц амортизации в отношении объекта амортизируемого имущества определяется как произведение его первоначальной (восстановительной) стоимости и нормы амортизации, определенной для данного объекта.

При применении линейного метода норма амортизации по каждому объекту амортизируемого имущества определяется по формуле:

	(4.11)

где - норма амортизации в процентах к первоначальной (восстановительной) стоимости объекта амортизируемого имущества; n - срок полезного использования данного объекта амортизируемого имущества, выраженный в месяцах.

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

Таким образом, получилось что стул, стол, принтер и корзина для мусора относятся:

ко второй группе (3 года) - монитор и системный блок;

к третьей группе (срок использования 4 года и 5 лет);

к четвертой группе (7 лет) - телефон и журнальный столик.

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

Согласно ст. 258 НК РФ определение срока полезного использования объекта нематериальных активов производится исходя из срока действия патента, свидетельства и (или) из других ограничений сроков использования объектов интеллектуальной собственности в соответствии с законодательством Российской Федерации или применимым законодательством иностранного государства, а также исходя из полезного срока использования нематериальных активов, обусловленного соответствующими договорами.

По нематериальным активам, по которым невозможно определить срок полезного использования объекта нематериальных активов, нормы амортизации устанавливаются в расчете на десять лет (но не более срока деятельности налогоплательщика). Поскольку срок полезного использования регистрации программы, организационных расходов и прочих установить невозможно, то для всех вышеперечисленных объектов амортизации устанавливается срок использования 10 лет.

4.11 Расчет заработной платы

Расчет заработной платы приведен в таблице 4.10.

Таблица 4.10 - Расчет заработной платы

№ п/п	Наименование	Кол-во, шт.	Заработная плата с вычетом налогов, руб.	Сумма, руб.
1	Программист	4	4370	17480
2	Подоходный налог			2272,4
	Итого			19752,4

Рассчитывать затраты на разработку программы программист будет исходя из собственной прибыли. Именно поэтому никаких премиальных не начисляется и не приводится тарифная сетка. Доход программиста должен обеспечивать жизнь семьи из четырех человек. Прожиточный уровень в городе Магнитогорске составляет 4370 руб./мес. на человека. Отсюда программист получит заработную плату в размере 19752,4 рублей. Подоходный налог составляет 13% от суммы заработной платы и составляет 2272,4 рублей.

4.12 Расчет продажной стоимости

Для расчета продажной стоимости программы была использована программа «Инфо-Бухгалтер 8.1». Результаты представлены в таблице 4.11

Таблица 4.11 - Результаты расчета продажной стоимости

Операция	Сумма, руб.
Начисление дохода исполнителю	14247
Налоги ИСП : Уплата налога на прибыль исполнителя	2849
Начисление процентов заказчику	35619
Продажная стоимость с НДС	227964
Денежный доход исполнителя	40630

По результатам расчетов продажной стоимости программы составит 227 964 руб.

Заключение

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

C помощью MS Access разработана база данных, содержащая 11 связных таблиц. Программным средством для создания программы «СпирографОтдел» является среда разработки Borland Delphi 7.0. Разработана схема данных, схема функционирования программного продукта, описано проектирование пользовательского интерфейса и квантификация, приведены результаты работы программного продукта.

Рассмотрены опасные и вредные производственные факторы на рабочем месте оператора ЭВМ и проведен анализ технико-экономических показателей и обоснование экономической целесообразности принятых в проекте решений.

Библиографический список

Архангельский А. Я. Программирование в Delphi 7. - М.: Бином, 2003. - 1152 с.

Кэнту М. Delphi 7. Для профессионалов. - СПб.: Питер, 2004. - 1101 с: ил.

Парфенов Ю. П., Иноземцев А. В. Разработка приложений для обработки баз данных на основе технологии ADO: Конспект лекций и методические указания по курсу «Промышленные СУБД». - Екатеринбург: Издательство УМЦ УПИ, 2003. - 43 с.

Фаронов В. В. Программирование баз данных в Delphi 7 - СПб.: Питер, 2003. - 459 с.

Ширяева И.С. Методические рекомендации для врачей кабинетов функциональной диагностики и для врачей-педиатров детских больниц и поликлиник - М., 1997.

Приложение A

Листинг модуля Cartochka.pas

unit Cartochka;

interface

uses

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

Dialogs, StdCtrls, Grids, DBGrids, Menus;

type

TCartaForm = class(TForm)

DBGrid1: TDBGrid;

FindEdit: TEdit;

Label1: TLabel;

MainMenu1: TMainMenu;

N1: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

PopupMenu1: TPopupMenu;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

procedure FormActivate(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

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

procedure N11Click(Sender: TObject);

procedure N12Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

CartaForm: TCartaForm;

implementation

uses DModule, MainForm, Pacient;

{$R *.dfm}

procedure TCartaForm.FormActivate(Sender: TObject);

begin

// Datamodule1.CartaTable.IndexFieldNames:='Фамилия';

end;

procedure TCartaForm.N3Click(Sender: TObject);

begin

PForm.ShowModal;

end;

procedure TCartaForm.N4Click(Sender: TObject);

begin

if Application.MessageBox(PChar('Вы действительно хотете удалить?'+

Datamodule1.CartaTableDSDesigner.AsString),'Внимание!!!',

MB_OKCANCEL)=id_OK then

Datamodule1.CartaTable.Delete;

end;

procedure TCartaForm.N6Click(Sender: TObject);

begin

Datamodule1.CartaTable.sort:='Фамилия';

end;

procedure TCartaForm.N7Click(Sender: TObject);

begin

Datamodule1.CartaTable.Sort:='Дата рождения';

end;

procedure TCartaForm.FindEditKeyPress(Sender: TObject; var Key: Char);

begin

if Length(FindEdit.Text)>0 then

Datamodule1.CartaTable.Filtered:=true

else

Datamodule1.CartaTable.Filtered:=false;

Datamodule1.CartaTable.Filter:='Фамилия>'''+FindEdit.Text+'''';

end;

procedure TCartaForm.N11Click(Sender: TObject);

begin

Close();

end;

procedure TCartaForm.N12Click(Sender: TObject);

begin

Datamodule1.CartaTable.Insert;

PForm.ShowModal;

end;

end.

Листинг модуля UserUnit.pas

unit UserUnit;

interface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls, Grids, DBGrids, DB, ADODB;

type

TUserForm = class(TForm)

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Button2: TButton;

LoginEdit: TEdit;

PasswordEdit: TEdit;

UserQuery: TADOQuery;

Button3: TButton;

ADOConnection1: TADOConnection;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

UserForm: TUserForm;

Login:string;

Dostup:boolean;

implementation

uses DModule, MainForm;

{$R *.dfm}

procedure TUserForm.Button2Click(Sender: TObject);

begin

Application.Terminate;

end;

procedure TUserForm.Button1Click(Sender: TObject);

begin

If (LoginEdit.Text<>'') and (PasswordEdit.Text<>'') then //поля не пустые

begin

UserQuery.Active:=false;

UserQuery.Parameters.ParamByName('log').Value:=LoginEdit.Text;

UserQuery.Active:=true;

If UserQuery.RecordCount<>0 then

begin

If UserQuery.FieldByName('Пароль').AsString=PasswordEdit.Text then begin

login:=LowerCase(LoginEdit.Text);

If UserQuery.FieldByName('Доступ').AsString='True' then Dostup:=true//есть доступ

else Dostup:=false;

Close;

end

else Showmessage('Неправильный логин или пароль!');

end else ShowMessage('Неправильный логин или пароль!');

end

else ShowMessage('Введите имя пользователя и пароль!');//пустые поля

end;

procedure TUserForm.Button3Click(Sender: TObject);

begin

Messagedlg('Введите Ваши имя пользователя и пароль!',mtinformation,[mbOk],0);

end;

end.

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