5
Объектно-ориентированное программирование на access. Создание базы данных
Курсовая
Информатика, кибернетика и программирование
Углубление теоретических и практических знаний в области методологии программирования и разработки программных комплексов, получение дополнительных навыков в работе с базами данных Access. создание структуры таблицы с помощью утилиты DataBase Desktop.
Русский
2012-11-14
1.04 MB
237 чел.
МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ УКРАИНЫ
СУМСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ
КАФЕДРА ИНФОРМАЦИОННЫХ ТЕХНОЛОГИЙ
ПРОЕКТИРОВАНИЯ
ПОЯСНИТЕЛЬНАЯ ЗАПИСКА
к курсовой работе
Объектно-ориентированное программирование
Выполнил: студент группы ИТ-01 Богачёв А.С.
Вариант: 6
Проверила: Ващенко С.М.
2012
1 Введение 3
2 Постановка задачи 4
3 Описание программы 6
4 Руководство пользователя 9
5 Блок-схема программы 10
6 Текст программы {DataBaseByTolanuch} 19
7 Контрольный пример 34
Будущие специалисты должны иметь четкое представление обо всех этапах создания и эксплуатации информационных технологий, уметь осуществлять выбор из широкого арсенала современных средств и методов проектирования и программирования.
Поэтому причины актуальности данной программы могут быть следующие:
- закрепление практических навыков программирования, полученных на занятиях по дисциплине «Объектно-ориентированное программирование»;
- углубление теоретических и практических знаний в области методологии программирования и разработки программных комплексов;
- получение дополнительных навыков в работе с базами данных Access.
Взяв за основу свой вариант структуры записи, реализовать работу с базой данных. Структуру таблицы создать с помощью утилиты DataBase Desktop.
В программе реализовать следующие возможности:
- просмотр всей таблицы;
- навигация по таблице;
- добавление новой записи;
- просмотр конкретной записи;
- редактирование конкретной записи по выбору пользователя с возможностью варьировать редактируемое поле;
- поиск конкретной записи по ключу (задание 1);
- обработку информации по заданию 2;
- удаление конкретной записи из таблицы.
Исходные данные должны вводиться с проверкой на область допустимых значений. Все действия пользователя должны контролироваться и снабжаться осмысленными сообщениями.
В программе должна быть предусмотрена возможность вывода на экран данных о разработчике.
Для оценки «3» структуру таблицы можно создать с помощью утилиты DataBase Desktop.
Для получения оценок «4» и «5» необходимо создать пользовательский объект по схеме записи и организовать работу с ним; результаты заданий вывести в виде отчетов в Word и Excel; нельзя использовать стандартные средства для навигации по таблицам. Структуру таблицы создать с помощью Access.
Задания выбрать по номеру варианта из таблицы, приведенной ниже. Схемы записей приведены в приложении Б. Количесчтво записей в базе данных не менее 10.
Хозяйственная деятельность
Объем продаж
товар
Себестоимость реализованного товара
фирма
Типа деятельности
наименование
чистая прибыль
издержки
наименование
Рисунок 1 Схема записи «Хозяйственная деятельность»
Таблица 1 Задание варианта №6
№ вар. |
Схема записи |
Задание 1 - Вывести информацию |
Задание 2 |
6 |
Рисунок 1 |
По наименованию товара |
Определить фирму, у которой издержки превышают чистую прибыль |
В программе присутствуют 4 модуля: Work - основное окно программы, QuaryName - окно первого запроса, Cover-экран загрузки программы и MyClass модуль, где описан мой класс TDataBase.
Модуль MyClass:
Таблица 2 Символьные имена класса TDataBase.
Обозначение в программе |
Объяснение |
FF1 |
Наименование товара |
FF2 |
Издержки |
FF3 |
Чистая прибыль |
FF4 |
Объем продаж |
FF5 |
Себестоимость реализованного товара |
FF6 |
Наименование фирмы |
FF7 |
Тип деятельности фирмы |
x |
Глобальная переменная класса TDataBase |
Модуль QuaryName:
Таблица 2 Символьные имена procedure TForm2.Button1Click
Обозначение в программе |
Объяснение |
w |
Переменная для вывода результата в документ MS Word |
i |
Счетчик |
Модуль Cover:
Модуль Work:
Таблица 3 Символьные имена procedure TForm1.Button3Click
Обозначение в программе |
Объяснение |
e |
Переменная для вывода результата в документ MS Excel |
i,j |
Счетчики |
В основном окне присутствует множество кнопок для использования данной программы. Для навигации используются соответствующие кнопки на панели «Navigation». Для добавления нужно нажать кнопку «New record», заполнить появившиеся поля и нажать «Apply». Для редактирования записи следует кликнуть по «Edit record», провести нужные изменения в записи и так же нажать «Apply». Данные изменения сразу же сохраняются в таблице без возможности возврата в предыдущее состояние таблицы (так что будьте внимательны при заполнении полей). Для выхода из режима добавления/редактирования записи следует кликнуть по кнопке «Cancel». Чтобы удалить текущую запись нужно кликнуть по «Delete current record».
Для запросов в окне программы присутствует отдельная панель. Для поиска по наименованию товара нажмите кнопку «Find name product» и в появившемся окне введите наименование товара, которое хотите найти. При желании поставьте галочку для сохранения результата в MS Word. Чтобы определить, какие продукты имеют издержки, превышающие чистую прибыль, следует кликнуть по «Show costs>clear profit». Для сохранения результата данного запроса в документ MS Excel поставьте галочку возле «Save in MS Excel». Для возврата к таблице кликните по «Show all table».
Примечание: навигация работает исключительно в таблице. При просмотре результатов запроса, навигация не работает.
Модуль MyClass
Constructor TDataBase.Create(a,f,g:String;b,c,e:Real;d:Integer)
Вход
1
FF7:=g
FF4:=d
FF3:=c
FF2:=b
FF6:=f
inherited create
2
FF1:=a
3
4
5
6
7
8
Вход
9
FF5:=e
10
Возврат
procedure TDataBase.CreateRecord
2
2
Form1.Table.Append
Вход
1
11
10
9
8
7
6
5
4
3
Возврат
Form1.Table.Post
Form1.Table.FieldByName('Type_activity').AsString:=FF7
Form1.Table.FieldByName('Name_company').AsString:=FF6
Form1.Table.FieldByName('Cost_price').AsFloat:=FF5
Form1.Table.FieldByName('Sales_volume').AsInteger:=FF4
Form1.Table.FieldByName('Clear_profit').AsFloat:=FF3
Form1.Table.FieldByName('Costs').AsFloat:=FF2
Form1.Table.FieldByName('Name_product').AsString:=FF1
1
2
Form1.Table.Edit
Вход
1
Procedure TDataBase.EditRecord
2
7
6
Form1.Table.FieldByName('Cost_price').AsFloat:=FF5
Form1.Table.FieldByName('Sales_volume').AsInteger:=FF4
Form1.Table.FieldByName('Name_product').AsString:=FF1
Form1.Table.FieldByName('Costs').AsFloat:=FF2
Form1.Table.FieldByName('Clear_profit').AsFloat:=FF3
3
4
5
11
10
9
8
Возврат
Form1.Table.Post
Form1.Table.FieldByName('Type_activity').AsString:=FF7
Form1.Table.FieldByName('Name_company').AsString:=FF6
1
Модуль QuaryName
procedure TForm2.Button1Click
2
Form2.Visible:=False
Form1.Source.DataSet:=Form1.Query
False
27
exit
showmessage('Sorry,not found your query...')
True
Form1.Query.Fields[0].AsString=''
Form1.Query.Active:=True
Form1.Query.SQL.Add('SELECT * FROM Table1 WHERE Name_product="'+Edit1.Text+'"')
Form1.Query.SQL.Clear
Form1.Query.Active:=False
Вход
1
2
3
4
5
7
6
8
9
10
3
w.activedocument.saveas(extractfilepath(application.exename)+'Report.docx')
w.displayalerts:=false
w.activedocument.range.insertbefore('Name_product | Costs | Clear_profit | Sales_volume | Cost_price | Name_company | Type_activity')
21
16
Form1.Table. Next
w.activedocument.range.insertbefore(#13#10)
True
False
i=1
w.activedocument.range.insertbefore(Form1.Query.Fields[i-1].AsString+' | ')
i:=Form1.Query.FieldCount downto 1
not Form1.Query.Eof
27
False
Form1.Table.first
w.Documents.Add
True
w.visible:=true
w:=createoleobject('word.application')
1
checkbox1.Checked
11
12
13
14
15
16
17
21
18
20
19
22
23
24
8
11
27
26
25
Возврат
w:=unassigned
w.quit
2
Модуль Work
procedure TForm1.Button3Click
2
checkbox1.Checked
True
False
31
e:=createoleobject('excel.application')
10
11
9
8
7
6
Form1.Source.DataSet:=Form1.Query
31
exit
showmessage('Sorry,not found your query...')
Form1.Query.Fields[0].AsString=''
False
True
5
4
3
2
Form1.Query.Active:=True
Form1.Query.SQL.Add('SELECT * FROM Table1 WHERE Name_product="'+Edit1.Text+'"')
Form1.Query.SQL.Clear
Form1.Query.Active:=False
Вход
1
12
1
3
e.displayalerts:=false
j:=j+1 cells[1,7]:='Type_activity'
22
Form1.Table. Next
not Form1.Query.Eof
i:=Form1.Query.FieldCount downto 1
w.activedocument.range.insertbefore(Form1.Query.Fields[i-1].AsString+' | ')
26
e.workbooks.item[1].sheets.item[1].cells[1,7]:='Type_activity'
e.workbooks.item[1].sheets.item[1].cells[1,7]:='Type_activity'
e.workbooks.item[1].sheets.item[1].cells[1,6]:='Name_company'
e.workbooks.item[1].sheets.item[1].cells[1,5]:='Cost_price'
e.workbooks.item[1].sheets.item[1].cells[1,4]:='Sales_volume'
e.workbooks.item[1].sheets.item[1].cells[1,3]:='Clear_profit'
e.workbooks.item[1].sheets.item[1].cells[1,2]:='Costs'
e.workbooks.item[1].sheets.item[1].cells[1,1]:='Name_product'
j:=2
Form1.Table.first
13
14
15
16
17
18
19
20
21
22
23
25
26
24
27
31
30
29
28
8
11
Возврат
e:=unassigned
e.quit
e.workbooks.item[1].saveas(extractfilepath(application.exename)+'Report.xlsx')
2
procedure TForm1.ApplyClick
3
10
9
8
7
6
5
4
2
Возврат
x.CreateRecord
x:=TDataBase.create(edit1.Text, edit6.Text, edit7.Text, StrToFloat(Edit2.Text), StrToFloat(Edit3.Text), StrToFloat(Edit5.Text), StrToInt(Edit4.Text))
x.Free
Apply.Visible:=False
GroupBox4.Visible:=False
GroupBox3.Visible:=True
GroupBox2.Visible:=True
GroupBox1.Visible:=True
Вход
1
3
10
9
8
7
6
5
4
2
Возврат
x.EditRecord
x:=TDataBase.create(edit1.Text, edit6.Text, edit7.Text, StrToFloat(Edit2.Text), StrToFloat(Edit3.Text), StrToFloat(Edit5.Text), StrToInt(Edit4.Text))
x.Free
Apply_.Visible:=False
GroupBox4.Visible:=False
GroupBox3.Visible:=True
GroupBox2.Visible:=True
GroupBox1.Visible:=True
Вход
1
procedure TForm1.Apply_Click
Текст модуля {Cover}
unit Cover;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls, ComCtrls;
type
TForm3 = class(TForm)
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
ProgressBar1: TProgressBar;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Work;
{$R *.dfm}
procedure TForm3.Timer1Timer(Sender: TObject);
begin
ProgressBar1.min:=ProgressBar1.min+25;
if ProgressBar1.min=ProgressBar1.Max then
begin
Form1.Visible:=true;
Form3.Visible:=false;
timer1.Enabled:=false;
end;
end;
end.
Текст модуля {QuaryName}
unit QuaryName;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComObj;
type
TForm2 = class(TForm)
Button1: TButton;
Edit1: TEdit;
CheckBox1: TCheckBox;
procedure FormShow(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Work, MyClass;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
Var w:Variant;
i:integer;
begin
Form1.Query.Active:=False;
Form1.Query.SQL.Clear;
Form1.Query.SQL.Add('SELECT * FROM Table1 WHERE Name_product="'+Edit1.Text+'"');
Form1.Query.Active:=True;
if Form1.Query.Fields[0].AsString='' then
begin
showmessage('Sorry,not found your query...');
exit
end;
Form1.Source.DataSet:=Form1.Query;
Form2.Visible:=False;
if checkbox1.Checked then
begin
w:=createoleobject('word.application');
w.visible:=true;
w.Documents.Add;
Form1.Table.first;
while not Form1.Query.Eof do
begin
for i:=Form1.Query.FieldCount downto 1 do
begin
w.activedocument.range.insertbefore(Form1.Query.Fields[i-1].AsString+' | ');
if i=1 then w.activedocument.range.insertbefore(#13#10);
end;
Form1.Query.Next
end;
w.activedocument.range.insertbefore('Name_product | Costs | Clear_profit | Sales_volume | Cost_price | Name_company | Type_activity');
w.displayalerts:=false;
w.activedocument.saveas(extractfilepath(application.exename)+'Report.docx');
w.quit;
w:=unassigned;
end;
end;
procedure TForm2.FormShow(Sender: TObject);
begin
Edit1.SetFocus;
end;
end.
Текст модуля {MyClass}
unit MyClass;
interface
type TDataBase=class(TObject)
FF1,FF6,FF7:String;
FF2,FF3,FF5:Real;
FF4:Integer;
Constructor Create(a,f,g:String;b,c,e:Real;d:Integer);
procedure CreateRecord;
Procedure EditRecord;
end;
var x:TDataBase;
implementation
uses Work,QuaryName,SysUtils, Dialogs;
Constructor TDataBase.Create(a,f,g:String;b,c,e:Real;d:Integer) ;
begin
inherited create;
FF1:=a;
FF6:=f;
FF7:=g;
FF2:=b;
FF3:=c;
FF4:=d;
FF5:=e;
end;
procedure TDataBase.CreateRecord;
begin
Form1.Table.Append;
Form1.Table.FieldByName('Name_product').AsString:=FF1;
Form1.Table.FieldByName('Costs').AsFloat:=FF2;
Form1.Table.FieldByName('Clear_profit').AsFloat:=FF3;
Form1.Table.FieldByName('Sales_volume').AsInteger:=FF4;
Form1.Table.FieldByName('Cost_price').AsFloat:=FF5;
Form1.Table.FieldByName('Name_company').AsString:=FF6;
Form1.Table.FieldByName('Type_activity').AsString:=FF7;
Form1.Table.Post;
end;
Procedure TDataBase.EditRecord;
begin
Form1.Table.Edit;
Form1.Table.FieldByName('Name_product').AsString:=FF1;
Form1.Table.FieldByName('Costs').AsFloat:=FF2;
Form1.Table.FieldByName('Clear_profit').AsFloat:=FF3;
Form1.Table.FieldByName('Sales_volume').AsInteger:=FF4;
Form1.Table.FieldByName('Cost_price').AsFloat:=FF5;
Form1.Table.FieldByName('Name_company').AsString:=FF6;
Form1.Table.FieldByName('Type_activity').AsString:=FF7;
Form1.Table.Post
end;
end.
Текст модуля {Work}
unit Work;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ExtCtrls, DB, ADODB, XPMan, Grids, DBGrids, StdCtrls,
Mask, DBCtrls, jpeg, ComObj;
type
TForm1 = class(TForm)
XPManifest1: TXPManifest;
Source: TDataSource;
Connection: TADOConnection;
Table: TADOTable;
Query: TADOQuery;
DBGrid1: TDBGrid;
GroupBox1: TGroupBox;
Button1: TButton;
Button2: TButton;
GroupBox2: TGroupBox;
First: TButton;
Previous: TButton;
Next: TButton;
Last: TButton;
GroupBox3: TGroupBox;
NewRecord: TButton;
Delete: TButton;
GroupBox4: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Button3: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Apply: TButton;
EditRecord: TButton;
Apply_: TButton;
CheckBox1: TCheckBox;
Button4: TButton;
procedure FirstClick(Sender: TObject);
procedure PreviousClick(Sender: TObject);
procedure NextClick(Sender: TObject);
procedure LastClick(Sender: TObject);
procedure DeleteClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure EditRecordClick(Sender: TObject);
procedure NewRecordClick(Sender: TObject);
procedure ApplyClick(Sender: TObject);
procedure Apply_Click(Sender: TObject);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Edit4KeyPress(Sender: TObject; var Key: Char);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses QuaryName,MyClass;
{$R *.dfm}
procedure TForm1.ApplyClick(Sender: TObject);
begin
GroupBox1.Visible:=True;
GroupBox2.Visible:=True;
GroupBox3.Visible:=True;
GroupBox4.Visible:=False;
Apply.Visible:=False;
x.Free;
x:=TDataBase.create(edit1.Text, edit6.Text, edit7.Text, StrToFloat(Edit2.Text), StrToFloat(Edit3.Text), StrToFloat(Edit5.Text), StrToInt(Edit4.Text));
x.CreateRecord;
end;
procedure TForm1.Apply_Click(Sender: TObject);
begin
GroupBox1.Visible:=True;
GroupBox2.Visible:=True;
GroupBox3.Visible:=True;
GroupBox4.Visible:=False;
Apply_.Visible:=False;
x.Free;
x:=TDataBase.create(edit1.Text, edit6.Text, edit7.Text, StrToFloat(Edit2.Text), StrToFloat(Edit3.Text), StrToFloat(Edit5.Text), StrToInt(Edit4.Text));
x.EditRecord;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Visible:=True
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Table.Open;
Source.DataSet:=Table;
Query.SQL.Clear;
Query.Close
end;
procedure TForm1.Button3Click(Sender: TObject);
var e:Variant;
i,j:integer;
begin
Query.Active:=False;
Query.SQL.Clear;
Query.SQL.Add('SELECT * FROM Table1 WHERE Costs>Clear_profit');
Query.Active:=True;
if Form1.Query.Fields[0].AsString='' then
begin
showmessage('Sorry,not found your query...');
exit
end;
Source.DataSet:=Form1.Query;
if CheckBox1.Checked then
begin
e:=createoleobject('excel.application');
e.workbooks.add;
Form1.Table.first;
j:=2;
e.workbooks.item[1].sheets.item[1].cells[1,1]:='Name_product';
e.workbooks.item[1].sheets.item[1].cells[1,2]:='Costs';
e.workbooks.item[1].sheets.item[1].cells[1,3]:='Clear_profit';
e.workbooks.item[1].sheets.item[1].cells[1,4]:='Sales_volume';
e.workbooks.item[1].sheets.item[1].cells[1,5]:='Cost_price';
e.workbooks.item[1].sheets.item[1].cells[1,6]:='Name_company';
e.workbooks.item[1].sheets.item[1].cells[1,7]:='Type_activity';
while not Form1.Query.Eof do
begin
for i := 1 to Form1.Query.FieldCount do
e.workbooks.item[1].sheets.item[1].cells[j,i]:=Form1.Query.Fields[i-1].AsString;
j:=j+1;
Form1.Query.Next;
end;
e.displayalerts:=false;
e.workbooks.item[1].saveas(extractfilepath(application.exename)+'Report.xlsx');
e.quit;
e:=unassigned;
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
GroupBox1.Visible:=True;
GroupBox2.Visible:=True;
GroupBox3.Visible:=True;
GroupBox4.Visible:=False;
Apply_.Visible:=False;
Apply.Visible:=False;
end;
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9',',',#8,#46]) then Key:=#0;
end;
procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9',#8,#46]) then Key:=#0;
end;
procedure TForm1.EditRecordClick(Sender: TObject);
begin
Edit1.Text:= Table.FieldByName('Name_product').AsString;
Edit2.Text:=Table.FieldByName('Costs').AsString;
Edit3.Text:=Table.FieldByName('Clear_profit').AsString;
Edit4.Text:=Table.FieldByName('Sales_volume').AsString;
Edit5.Text:=Table.FieldByName('Cost_price').AsString;
Edit6.Text:=Table.FieldByName('Name_company').AsString;
Edit7.Text:=Table.FieldByName('Type_activity').AsString;
GroupBox1.Visible:=False;
GroupBox2.Visible:=False;
GroupBox3.Visible:=False;
GroupBox4.Visible:=True;
Apply_.Visible:=True;
end;
procedure TForm1.DeleteClick(Sender: TObject);
begin
Table.Delete
end;
procedure TForm1.FirstClick(Sender: TObject);
begin
Table.First
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Application.Terminate;
end;
procedure TForm1.LastClick(Sender: TObject);
begin
Table.Last
end;
procedure TForm1.NewRecordClick(Sender: TObject);
begin
GroupBox1.Visible:=False;
GroupBox2.Visible:=False;
GroupBox3.Visible:=False;
GroupBox4.Visible:=True;
Apply.Visible:=True;
end;
procedure TForm1.NextClick(Sender: TObject);
begin
Table.Next
end;
procedure TForm1.PreviousClick(Sender: TObject);
begin
Table.Prior
end;
end.
Рис. 2 Экран загрузки
Рис. 3 Основное окно программы
Рис. 4 Добавление новой записи
Рис. 5 Редактирование записи
Рис. 6 Запрос, где издержки превышают чистую прибыль
Рис. 7 Результат предыдущего запроса, сохраненного в документ
Рис. 8 Окно ввода запроса по наименованию товара
Рис. 9 Результат предыдущего запроса
Рис. 10 Результат последнего запроса, сохраненного в документ
А также другие работы, которые могут Вас заинтересовать | |||
17911. | Контроль в сфере имущественного налогообложения | 140 KB | |
Тема № 12 Контроль в сфере имущественного налогообложения План Налог на имущество юридических лиц Налог на недвижимое имущество физических лиц Налог на имущество переходящее в порядке наследования или дарения. Налог с владельцев транспортных сред | |||
17912. | Местные налоги и сборы | 42 KB | |
Тема № 13 Местные налоги и сборы Состав местных налогов и сборов порядок их установления. Коммунальный налог. Налог с рекламы. Местные сборы в Украине их характеристика. 1. Состав местных налогов и сборов порядок их установления Местн... | |||
17913. | Учет налоговых платежей | 123 KB | |
Лекция №3. Учет налоговых платежей. План. 1. Понятие оперативного учета налогов и сборов поступающих в бюджеты и в государственные целевые фонды 2.Документы на основании которых проводится учет платежей в бюджет. Порядок ведения лицевых счетов плател... | |||
17914. | Порядок погашения налогового долга | 102.5 KB | |
Лекция № 4. Порядок погашения налогового долга. План 1. Понятие налоговой обязанности 22.Возникновение изменение и прекращение налоговой обязанности 5 Исполнение налоговой обязанности 8 Понятие налогового долга 9 Порядок погашения налогового | |||
17915. | ВИДЫ ПРОВЕРОК НАЛОГОВЫХ ОРГАНОВ | 269.5 KB | |
ВИДЫ ПРОВЕРОК НАЛОГОВЫХ ОРГАНОВ План Виды налогового контроля. Программа проверки. Требования к документам проверяющих. Оформление результатов документальной проверки. Порядок изъятия документов. Обжалование действий налоговых органов. ... | |||
17916. | Упрощенная система налогообложения. Фиксированный налог с доходов вот предпринимательской деятельности | 173.5 KB | |
Упрощенная система налогообложения План Единый налог плательщики объект обложения. Условия перехода на упрощенную единую систему налогообложения. Ставки сроки уплаты и порядок учета единого налога СПД малого бизнеса Фиксированный налог... | |||
17917. | Таможенная пошлина, сбор | 66.5 KB | |
Тема № 14 Таможенная пошлина сбор. План Пошлина как источник доходов бюджета. Классификация пошлин их виды. Понятие единого таможенного тарифа. Элементы начисления и уплаты пошлины. Взимание пошлины и порядок перечисления в бюджет. Таможенный сбо... | |||
17918. | ПРЕДМЕТ, МЕТОДОЛОГІЯ І ЗАВДАННЯ КУРСУ РЕГІОНАЛЬНА ЕКОНОМІКА | 145 KB | |
Лекція 1 ТЕМА: ПРЕДМЕТ МЕТОДОЛОГІЯ І ЗАВДАННЯ КУРСУ План викладення і засвоєння матеріалу 1. Предмет і об'єкт регіональної економіки. 2. Метод і завдання регіональної економіки. 3. Регіональна економіка в системі наукових дисциплін. РЕКОМЕНДОВАНА | |||
17919. | ЗАКОНОМІРНОСТІ, ПРИНЦИПИ ТА ФАКТОРИ РОЗМІЩЕННЯ ПРОДУКТИВНИХ СИЛ | 207 KB | |
Лекція 2 ТЕМА: ЗАКОНОМІРНОСТІ ПРИНЦИПИ ТА ФАКТОРИ РОЗМІЩЕННЯ ПРОДУКТИВНИХ СИЛ План викладення і засвоєння матеріалу 1. Економічні закони і закономірності розміщення виробництва їх обєктивний характер. 2. Закономірності розміщення продуктивних сил. 3. Прин... | |||