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

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


 

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

48647. Расчет структуры электромагнитных полей. Общее задание 210 KB
  Решение проводится в цилиндрической системе координат связанных с центром основания цилиндра где r радиусвектор точки наблюдения ось x направлена вдоль приложенного магнитного поля рис.1 методом разделения переменных в соответствии с которым решение  будем искать в виде произведения двух функций каждая из которых зависит только от одной координаты:...
48648. Расчет структуры электромагнитных полей 575 KB
  Метод исследования – метод разделения переменных при интегрировании дифференциальных уравнений для получения аналитических выражений потенциалов и напряженностей полей с последующим построением на ЭВМ структуры этих полей
48649. Расчет структуры электромагнитных полей 209.5 KB
  Параметры задачи Бесконечный проводящий цилиндр в магнитной среде R=8см=008м H0=20 і=5102 е=8 Координаты точки M: r=7см=007м =90 Решение Решение проводится в цилиндрических координатах связанных с центром основания цилиндра r радиусвектор точки наблюдения ось x направлена вдоль приложенного магнитного поля рис.1 в методом разделения переменных в соответствии с которым решение  будем искать в виде произведения двух функций каждая из которых зависит только от одной координаты:...
48650. Расчет структуры осесимметричных стационарных электромагнитных полей 203 KB
  Решение производится в цилиндрических координатах связанных с центром основания цилиндра r радиусвектор точки наблюдения ось x направлена вдоль приложенного магнитного поля рис.1 методом разделения переменных методом Фурьев соответствии с которым решение будем искать в виде произведения двух функций каждая из которых зависит только от одной координаты: 1.4 Этим самым решение уравнения 1.
48651. ПСИХОЛОГІЧНІ ВАЖЕЛІ ЗАБЕЗПЕЧЕННЯ БЕЗПЕКИ ЛЮДИНИ. МОДЕЛІ ФОРМУВАННЯ ЗДОРОВ’Я 278 KB
  Фактично люди мають дві нервові системи: центральну і вегетативну. Центральна нервова система керує відносинами людини із зовнішнім світом. Вона включає: спинний мозок, великі півкулі головного мозку, які зв’язані з проміжним мозком, середній мозок, задній мозок, довгастий мозок, мозочок. Вегетативна нервова система керує діяльністю внутрішніх органів.
48652. Расчет структуры электромагнитных полей 780 KB
  Задача настоящей работы – теоретическое исследование электромагнитного поля, основывающееся на классических представлениях о нём, и численное нахождение его характеристик.
48653. Перспективы и состояние разработок распределительных трансформаторов массовых серий 384.5 KB
  Распределительные трансформаторы мощностью 25 630 кВ А напряжением 6 10 кВ наиболее массовая серия ид производимых и эксплуатируемых трансформаторов в СССР. Производство и эксплуатация этих трансформаторов требует значительных материальных и трудовых затрат любое снижение затрат дает существенную экономию в народном хозяйстве. Снижение затрат на производство и эксплуатацию трансформаторов является основной задачей изготовителей для решения которой необходимо: снизить расход активных материалов при использовании...
48654. МЕХОВЫЕ ТОВАРЫ 13.31 MB
  Топография и химический состав шкурки стр. Меховые товары это пушно-меховые и овчинно-шубное сырье шкурки выделанные меховые и овчинно-шубные изделия. Меховые товары невыделанные шкурки пушно-меховое сырьё и выделанные шкурки пушно-меховой полуфабрикат объединяются в группу пушно-меховые товары. Ценность меховых товаров определяется четырьмя основными свойствами которыми обладают пушно-меховые шкурки: высокими теплозащитными...
48655. Робота з программами навчального призначення: іноземна мова, математика 341.5 KB
  Запустив програму MS Word 2007. Щоб запустити програмуперекладач треба натиснути на рецензированиеперевод і вставити текст.Скопіював переклад у буферізакрив програму перекладач і вставив переклад у свій документ.