30054

Создать базу данных с полями

Книга

Информатика, кибернетика и программирование

Заполняем базу данных: номер лицевого счёта номер документа текущий остаток d346123 R67 186 d346123 R67 86 d346123 R678 186 d346123 R678 186 d346123 R678 186 d346123 R678 186 ttyujh78 D47 87 При работе с интерфейсом создаём кнопку Работа с лицевыми счетами Разработчик Вставка Элементы управления формы Кнопка которая будет вызывать макрос для работы с базой данных C помощью Visial Basic for Excel организовываем запрос очередной записи подсчет документов одного лицевого счёта в базе данных исключение записей и их редактирование Коды...

Русский

2013-08-22

94 KB

0 чел.

Постановка задачи

  1.  Создать базу данных с полями:
  •  N документа,
  •  N лицевого счёта,
  •  текущий остаток.
  1.  Создать интерфейс для работы с базой данных.

Ход  решения задачи

  1.  Создаём в Excel базу данных с полями:
  •  N документа,
  •  N лицевого счёта,
  •  текущий остаток.
  1.  Заполняем базу данных:

номер лицевого счёта

номер документа

текущий остаток

d346123

R67

186

d346123

R67

86

d346123

R678

186

d346123

R678

186

d346123

R678

186

d346123

R678

186

ttyujh78

D47

87

  1.  При работе с интерфейсом создаём  кнопку «Работа с лицевыми счетами»

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

C помощью Visial Basic for Excel организовываем запрос очередной записи, подсчет документов одного лицевого счёта в базе данных, исключение записей и их редактирование

Коды программы:

Dim i

Private Sub ComboBox1_Change()

k1 = ComboBox1.ListIndex + 2

TextBox1.Value = Cells(k1, 1).Value

TextBox2.Value = Cells(k1, 2).Value

TextBox3.Value = Cells(k1, 3).Value

CommandButton2.Enabled = True

CommandButton3.Enabled = True

CommandButton4.Enabled = True

CommandButton5.Enabled = True

Редактировать.Enabled = True

End Sub

Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

End Sub

Private Sub CommandButton1_Click()

k1 = ComboBox1.ListIndex + 2

TextBox1.Value = Cells(k1, 1).Value

TextBox2.Value = Cells(k1, 2).Value

TextBox3.Value = Cells(k1, 3).Value

End Sub

Private Sub CommandButton2_Click()

'редактировать

k1 = ComboBox1.ListIndex + 2

Cells(k1, 1).Value = TextBox1.Value

Cells(k1, 2).Value = TextBox2.Value

Cells(k1, 3).Value = TextBox3.Value

End Sub

Private Sub CommandButton3_Click()

'исключение

'Rows("4:4").Select

   'Selection.Delete Shift:=x1Up

k1 = ComboBox1.ListIndex + 2

 

 'MsgBox Str(k1)

 Rows(Str(k1)).Select

 Selection.Delete Shift:=x1Up

End Sub

Private Sub CommandButton4_Click()

'подсчёт

n$ = TextBox2.Value

k = 0

For t = 2 To i

If n$ = Cells(t, 2).Value Then k = k + 1

Next

MsgBox "в вашей базе данных " & Str(k) & " записи", vbOKOnly, "номер документа " & TextBox2.Value

End Sub

Private Sub CommandButton5_Click()

'сортировка зиписей по полю "номер документа"

a$ = Str(i) 'перевод в строчку номера последней строки

a$ = Right(a$, Len(a$) - 1) 'выделение подстроки без первого символа

'MsgBox "A1:C" & a$

'Exit Sub

Range("B1").Select 'выделение диапазона

 ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Clear

   ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("A2:A8"), _

       SortOn:=x1SortOnValues, Order:=x1Ascending, DataOption:=x1SortNormal

   With ActiveWorkbook.Worksheets("Лист1").Sort

       .SetRange Range("A1:C" & a$) 'выделение диапазона для результата

       .Header = x1Yes

       .MatchCase = False

       .Orientation = x1TopToBottom

       .SortMethod = x1PinYin

       .Apply

   End With

End Sub

Private Sub CommandButton6_Click()

For i = 2 To Len(TextBox2.Text)

a$ = Mid(TextBox2.Text, i, 1)

Select Case a$     ' Evaluate Number.

Case 0 To 9   ' Number between 1 and 5, inclusive.

Label4.Caption = " "

Case Else    ' Other values.

   MsgBox "!!!!"

End Select

Next

End Sub

Private Sub Label3_Click()

End Sub

Private Sub Label5_Click()

End Sub

Private Sub TextBox2_Change()

1$ = Left(TextBox2, 1)

If 1$ = "R" Or 1$ = "H" Or 1$ = "S" Then

Else

MsgBox "не верно задан номер!"

Exit Sub

End If

For i = 2 To Len(TextBox2.Text)

a$ = Mid(TextBox2.Text, i, 1)

Select Case a$     ' Evaluate Number.

Case 0 To 9   ' Number between 1 and 5, inclusive.

Label4.Caption = " "

Case Else    ' Other values.

   MsgBox "!!!!"

End Select

Next

End Sub

Private Sub UserForm_Activate()

i = 2

Do While Cells(i, 1).Value <> 0

i = i + 1

Loop

'MsgBox Str(i)

i = i - 1

For k = 2 To i

ComboBox1.AddItem Cells(k, 1).Value

Next

End Sub

Private Sub UserForm_Click()

End Sub

Private Sub Редактировать_Click()

'вычисляем номер текущей строки в базе данных

i = i + 1

'исправляем текущую строчку

Cells(i, 1).Value = TextBox1.Value

Cells(i, 2).Value = TextBox2.Value

Cells(i, 3).Value = TextBox3.Value

End Sub

 Схема работы кнопки Private Sub CommandButton2_Click( )

'редактировать


 

А также другие работы, которые могут Вас заинтересовать

79741. Бухгалтерский учет МБП и инвентаризация производственных запасов 34 KB
  Бухгалтерский учет МБП и инвентаризация производственных запасов Первичные документы по учету МБПУчет МБП в бухгалтерии предприятия Инвентаризация производственных запасов Первичные документы по учету МБП Форма МБ1 Ведомость на пополнение изъятие постоянного запаса инструментов приспособлений применяется для учета изменения запасов инструментов в раздаточных кладовых на тех предприятиях где учет ведется по принципу формирования постоянного оборотного фонда. Форма МБ–2 Карточка учета МБП Служит для регистрации различных МБП...
79742. Учет нематериальных активов 104.5 KB
  Учет нематериальных активов. Учет нематериальных активов. Поступление нематериальных активов А Приобретение нематериальных активов за плату Б Создание нематериальных активов собственными силами Амортизация нематериальных активов А Амортизируемые нематериальные активы Б Неамортизируемые нематериальные активы В Амортизация деловой репутации организации. Выбытие нематериальных активов 1. Учет нематериальных активов Планом счетов для учета нематериальных активов предусмотрен счет 04 Нематериальные активы а для обобщения информации о...
79743. Бухгалтерский учет скидок в организации оптовой торговли 36.5 KB
  Бухгалтерский учет скидок в организации оптовой торговли Порядок отражения в бухгалтерском учете скидки при приобретении товаров в определенном количестве либо на установленную суммуПорядок отражения в бухгалтерском учете скидки за скорейшую оплату проданных товаров Порядок отражения в бухгалтерском учете скидки при приобретении товаров в определенном количестве либо на установленную сумму Торговая скидка – это сумма на которую снижается проданная цена товаров реализуемых покупателю исполнившему условие необходимое для ее получения....
79744. Командировочные расходы: учет и налогообложение 62.5 KB
  Командировочные расходы: учет и налогообложение Состав расходов возмещаемых командировочному лицу Документальное оформление командировочных расходов. Включение командировочных расходов в себестоимость продукции Налоговые отношения возникающие при наличии командировочных расходов...
79745. Операции по оплате труда 98.5 KB
  Все работы на предприятии выполняют члены трудового коллектива, разрешено принимать на работу лиц договором гражданско-правового характера (подряд). На предприятии применяются различные формы оплаты труда: повременная, сдельная, аккордная.
79746. Организация учета производственных запасов 76 KB
  Организация учета производственных запасов Задачи и виды учета производственных запасов Первичные документы по учету материалов Договоры поставки Учет материалов на складе. Предприятие при выборе учетной политики на предстоящий год может предусмотреть один из следующих методов оценки материалов списываемых в производство: по средней себестоимости по учетным ценам с обособленным учетом отклонений от учетной стоимости по себестоимости первых по времени закупок методом ФИФО первая партия на приход первая на расход по...
79747. Учет основных средств 282 KB
  Учет основных средств. Классификация и оценка основных средств ОС. Классификация и оценка основных средств ОС Основные средства это средства труда которые участвуют во многих производственных циклах не меняя своего натурально-вещественного содержания и переносят свою стоимость на готовый продукт частями по мере износа. объект ОС характеризуется следующими качествами: является материальной частью имущества организации; используется в качестве средства труда при производстве продукции выполнении работ и оказании услуг либо для...
79748. Отчетность предприятия 94 KB
  В разделе Капитал и резервы содержаться следующие группы статей: Уставный капитал Добавочный капитал Резервный капитал Нераспределенная прибыль прошлых лет Прибыль отчетного года. Отчет о финансовых результатах Отчет о финансовых результатах характеризует финансовые результаты организации за отчетный период и в развернутом виде показывает: по хозяйственной деятельности: выручку нетто от реализации продукции работ услуг за минусом НДС и акцизов; себестоимость реализации товаров продукции работ услуг; коммерческие...
79749. Поступление товаров на предприятие оптовой торговли 57.5 KB
  Поступление товаров на предприятие оптовой торговли Поступление товаров на склад поставщика Синтетический учет поступления товаров Аналитический учет поступления товаров Учет приобретения товаров у физических лиц Поступление товаров на склад поставщика Приемка товара на склад поставщика железнодорожной станции пристани в аэропорту осуществляется материально-ответственным лицом по доверенности с предъявлением паспорта. Первый и второй остаются у поставщика в бухгалтерии и на складе тритий и четвертый передаются покупателю в...