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( )

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


 

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

37394. Восстановление документов компании ОАО «ИКАР» 40.64 KB
  Посчитать убытки от не заключения или несвоевременного заключения договора. Работа должна содержать: Актуальность проблемы практическую значимость решения проблемы объект предмет исследования цели и задачи работы и состоять из 4 глав Оглавление Введение6 Договоры Письма Предложениямероприятия 8 Расчеты10...
37395. Технологический проект овощного цеха общедоступной столовой на 78 мест 1.35 MB
  Расчёт количества блюд. Расчет количества блюд в ассортимент12 3. Расчет реализации блюд по часам работы зала19 3. Столовая предназначена для обслуживания горячими и холодными напитками кисломолочными продуктами мучными кондитерскими изделиями холодными и горячими блюдами несложного приготовления сладкими блюдами.
37396. Экономическая эффективность совершенствование организации перевозок контейнеров на маршруте Симферополь-Джанкой 9.22 MB
  Сдельная заработная плата водителя Где коэффициент учитывающий класс перевозимого груза грн. Учитывающий размер премии грн. грн. Доплата за руководство бригадой Где размер доплаты за руководство бригадой грн.
37399. Моделирование движения заряженных частиц в электрических и магнитных полях 690 KB
  В дерева dd physics выберите Mthemtics Mthemticl Prticle Trcing pt. В дереве выберите Preset Studies Time Dependent. Построение геометрической модели Задание области в корой движутся частицы В окне Model Builder щелкните ПКМ Model 1 Geometry 1 и выберите Cylinder Перейдите к окну Settings для Cylinder. Выберите размер и форму сечения.
37400. Габаритний розрахунок монокуляра з вибором оптичної схеми об’єктива і окуляра 1.43 MB
  Наявність в трьох лінзових обєктивах великої кількості вільних параметрів марки стекол радіуси товщини і повітряні проміжки дозволяє істотно поліпшити їх абераційних корекцію в порівнянні з двох лінзовими. Окуляр Гюйгенса В цих окулярах компонентами є плосковипуклі або випуклоплоскі лінзи виготовлені із оптичного скла однієї марки. Показник заломлення Марка скла 4878 125 16475 К8 2599 29265 25 15163 ТФ1 Вибраний об’єктив має фокусну відстань f ’об = 100 мм. Показник заломлення Марка скла 14634...
37401. Расчет электромагнитных переходных процессов. Методические указания к курсовому и дипломному проектированию 16.74 MB
  Составим схему замещения прямой последовательности Определим параметры схемы замещения прямой последовательности: Система Линия 1 Линия 2 Трансформатор Трансформатор Т1 Реактор Автотрансформатор Нагрузка 1 Нагрузка 2 Асинхронный двигатель Генератор 1 Генератор 2 Все параметры элемента генератор 2 точно такие же как и у элемента генератор 1 Найдем и для этого свернем схему Составим схему замещения обратной последовательности Определим параметры схемы замещения обратной...
37402. Исследование автоматических выключателей 928.5 KB
  Предмет исследования: В работе исследуется поведение автоматических выключателей при испытаниях по ГОСТ. Основные параметры автоматических выключателей: Номинальное рабочее напряжение Ue номинальное напряжение –действующее значение напряжения при котором обеспечивается работоспособность выключателя особенно в момент короткого замыкания. Стандартные кривые отключения: Существует несколько типов характеристик автоматических выключателей.