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

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


 

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

39315. Синтез кулачкового механизма контргрейфера 55.6 KB
  Опираясь на этот график строим график поперечного перемещения зуба контргрейфера и определяем фазовые углы и углы и : ФП 101 = 1768 рад ФД 116 = 2028 рад ФО 101 = 1768 рад ФБ 360 ФП ФД ФО = 42 42= 0728 рад 280= 4888 рад ОПРЕДЕЛЕНИЕ ЗАКОНА ПЕРЕМЕЩЕНИЯ ТОЛКАТЕЛЯ Изображаем примерный закон перемещения толкателя S=S отсчитывая угол от начала фазы подъема. Закон перемещения толкателя на фазах подъема и опускания определяется путем двукратного интегрирования заданных законов изменения ускорения толкателя. Фаза подъема...
39316. Вплив антропогенних факторів на здоров’я людини 27.55 KB
  Основні антропогенні фактори. Негативний вплив людини на своє власне здоров’я величезний. Різноманітність засобів, якими вона руйнує своє здоров’я й генофонд, не може не вражати: отрутохімікати й побутова хімія, важкі метали й пластмаси, наркотики й тютюн, шум та електромагнітні поля радіація й кислотні дощі,
39317. Устройство сбора данных (УСД) 270.5 KB
  АЦП: имеет один аналоговый вход и восемь выходов по которым в двоичном параллельном коде выдаётся число соответствующее уровню поданного на вход АЦП отсчёта аналогового сигнала. Перед началом работы АЦП на него должен быть подан сигнал запуска. После окончания преобразования АЦП выдаёт сигнал ОК окончание преобразования на устройство управления. Сигнал ОК флаг обозначается как Тфл должен быть зафиксирован с помощью триггера до момента окончания записи данных опрашиваемого канала в ячейку памяти ОЗУ.
39318. Язва. Пептическая язва желудка. Язва двенадцатиперстной кишки 28.7 KB
  Пептическая язва желудка и/или двенадцатиперстной кишки — хроническое заболевание, в основе которого лежит образование изъязвления со стороны слизистого слоя стенки органа. Часто для определения заболевания пользуются также устаревшим термином «язвенная болезнь желудка и/или двенадцатиперстной кишки».
39319. Проектирование устройства сбора данных 485.5 KB
  Разработка блока выработки адресов каналов коммутатора. В радиотехнических системах и в технике связи УСД используются для обработки сигналов функционального контроля каналов связи диагностирования состояния аппаратуры. Имеется F аналоговых каналов. Необходимо опрашивая их согласно заданной последовательности получаемые из каналов аналоговые величины с помощью АЦП преобразовывать в цифровую форму двоичные слова стандартной длины 1 байт = 8 бит и помещать в последовательные ячейки некоторой области ЗУ начиная с ячейки имеющей...
39321. Цифровые системы передачи. Расчет помехозащищенности цифровой линии передачи 346.5 KB
  Целью данной курсовой работы является формирование начальных умений и навыков самостоятельного проектирования междугородной цифровой линии передачи. В ней рассмотрен основной круг вопросов, решаемых в процессе проектирования...
39322. Формирование начальных умений и навыков самостоятельного проектирования междугородной циф 325 KB
  2 Расчёт длин регенерационных участков Размещение необслуживаемых регенерационных пунктов НРП вдоль кабельной линии передачи осуществляется в соответствии с номинальной длиной регенерационного участка РУ для проектируемой ЦСП. При необходимости допускается проектирование укороченных относительно номинального значения РУ которые следует располагать прилегающими в ОП или ПВ так как блоки линейных регенераторов в НРП не содержат искусственных линий ИЛ. Количество НРП на секциях ОП1 ПВ и ОП2 ПВ определяется из выражений: N1 = n1 1;...
39323. Проектирование цифровой линии передачи 231.5 KB
  В состав аппаратуры входят: оборудование вторичного временного группообразования ВВГ конечное оборудование линейного тракта ОЛТ необслуживаемые регенерационные пункты НРП а также комплект контрольноизмерительных приборов КИП. Сформированный в оборудовании ВВГ цифровой сигнал в коде МЧПИ или ЧПИ HDB3 или AMI поступает в оконечное оборудование линейного тракта которое осуществляет согласование выхода оборудование ВВГ с линейным трактом дистанционное питание НРП телеконтроль и сигнализацию о состоянии оборудования линейного тракта...