Главная Коллекция "Otherreferats" Программирование, компьютеры и кибернетика Разработка комплекса задач складского учета в генподрядной строительной организации

Разработка комплекса задач складского учета в генподрядной строительной организации

Характеристика предприятия, анализ его деятельности и организации управления. Проектирование комплекса задач автоматизации складского учета в генподрядной строительной организации. Реализация комплекса задач предприятия и технико-экономические расчеты.

Рубрика Программирование, компьютеры и кибернетика
Вид дипломная работа
Язык русский
Дата добавления 27.02.2013
Размер файла 1,5 M

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Страница:

Расход

План по смете

Фактически потрачено

Сумма

Разборка грунта экскаваторами

1000

1000 м3

0,0

11348

Обратная засыпка вручную

100

100 м3

0,0

21540

Перевозка грунта на расстояние до 35 км

222

222 т

0,0

11543

Устройство ленточных фундаментов: железобетонны х (цокольная часть)

2,90

2,89 т

0,01

14827

Арматура А-III диам. 10 мм

16755

16755 т

0,0

288413

Бетон М200

295

295 т

0,0

491872

Двутавр №1с

8

8 т

0,0

100467

Сталь полосовая 20х4 мм

3,6

3,6 т

0,0

50940

Сталь квадрат 20х20 мм

25,5

25,5 т

0,0

335913

Спецпрофиль ЭП 12029-1745

8,5

8,5 т

0,0

155526

Сталь квадрат 30х30 мм

0,5

0,5 т

0,0

96092

Сталь полосовая 10х4 мм

3

3 т

0,0

106182

Сталь полосовая 20х10 мм

3,4

3,4 т

0,0

41452

Сталь полосовая 25х4

0,3

0,3 т

0,0

15507

Проволка сварочная

0,4

0,4 т

0,0

22840

Заклепка 5х57

0,5

0,5 т

0,0

13650

Труба бесшовная (оснастка)

0,021

0,021 т

0,0

21403

Укладка накрывочного камня

100

100 шт

0,0

5648

Накрывочный камень (1мп)

660

650 шт

10

600334

Установка металлических оград по железобетонным столбам с цоколем

1

1 т конструкций

0,0

102420

Окраска металлических решеток

100

100 м2

0,0

38525

Лак

0,61000

0,61008 т

0,00008

106013

Итого:

2742005

НДС:

548401

Всего:

3290406

Трудозатраты:

8046

Заработная плата:

212235

Приложение 2. Листинг программы

Option Compare Database

Private Sub Добавление_Click()

Dim db As Database

Dim f As Recordset

Dim i As Integer

Set db = CurrentDb

Set f = db.OpenRecordset("Поставщики")

If Наименование.Value <> "" And Адрес.Value <> "" And Телефон.Value <> "" And ИНН.Value <> "" And [Расчетный счет].Value <> "" And [Номер договора].Value <> "" And Примечания.Value <> "" Then

Else

MsgBox ("Обязательно должны быть внесены наименование поставщика и его телефон")

Exit Sub

End If

i = 0

f.MoveFirst

Do Until f.EOF

If Наименование.Value = f!Наименование.Value And Телефон.Value = f!Телефон.Value Then

i = 1

End If

f.MoveNext

Loop

If i = 0 Then

f.AddNew

f!Наименование.Value = Наименование.Value

f!Адрес.Value = Адрес.Value

f!Телефон.Value = Телефон.Value

f!Инн.Value = ИНН.Value

f![Расчетный счет].Value = [Расчетный счет].Value

f![Номер договора].Value = [Номер договора].Value

f!Примечания.Value = Примечания.Value

f.Update

End If

Наименование.Value = Null

Адрес.Value = Null

Телефон.Value = Null

ИНН.Value = Null

[Расчетный счет].Value = Null

[Номер договора].Value = Null

Примечания.Value = Null

End Sub

Private Sub Удаление_Click()

Dim db As Database

Dim f As Recordset

Dim i As Integer

Set db = CurrentDb

Set f = db.OpenRecordset("Поставщики")

If Наименование.Value <> "" Then

Else

MsgBox ("Введите название фирмы, которую необходимо удалить")

Exit Sub

End If

i = MsgBox("Вы уверены?", vbOKCancel)

If i = 2 Then Exit Sub

i = MsgBox("Удалить?", vbOKCancel)

If i = 2 Then Exit Sub

f.MoveFirst

Do Until f.EOF

If Наименование.Value = f!Наименование.Value Then

f.Delete

End If

f.MoveNext

Loop

Наименование.Value = Null

Наименование.Requery

End Sub

Private Sub Закрытие_Click()

On Error GoTo Err_Кнопка2_Click

DoCmd.Close

Exit_Кнопка2_Click:

Exit Sub

Err_Кнопка2_Click:

MsgBox Err.Description

Resume Exit_Кнопка2_Click

End Sub

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

Страница:


Подобные документы

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.

© 2000 — 2023, ООО «Олбест» Все права защищены