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

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


 

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

39129. Методические рекомендации по подготовке и защите магистерских диссертаций по магистерским программам «Инновационный менеджмент» «Проектный менеджмент» 316.5 KB
  Методические рекомендации по подготовке и защите магистерских диссертаций по магистерским программам Инновационный менеджмент Проектный менеджмент Москва 2012 [1] 1 Общие положения [2] 2 Подготовка к написанию магистерской диссертации [3] 3 Требования предъявляемые к оформлению и содержанию магистерской диссертации [3.1 Общие требования к оформлению магистерской диссертации [3.2 Особенности оформления отдельных структурных частей магистерской диссертации [3.5 Основная часть диссертации [3.
39130. АНАЛІЗ ІСНУЮЧИХ СПОСОБІВ ПРЕДСТАВЛЕННЯ СХЕМ МІКРОПРОГРАМ ТА ІСНУЮЧИХ МЕТОДІВ ДЕКОМПОЗИЦІЇ ЦИХ СХЕМ 469.5 KB
  Використання програмованих інтегральних логічних схем дає велику гнучкість при реалізації алгоритму мікропрограми проте у зв'язку з ускладненням мікропрограм використовуваних раніше ресурсів стає недостатньо і розробники вимушені збільшувати необхідну кількість пристроїв. Декомпозиція алгоритму мікропрограми дозволяє розділити початковий автомат на підавтомати кожен з яких можна реалізувати на заданому наборі програмованих логічних інтегральних схем що зменшує витрати при реалізації алгоритму.1 Аналіз існуючих способів представлення схем...
39131. Методы воздействия на ПЗС. Процессы в призабойной зоне пласта 67 KB
  Извлечение нефти из пласта и любое воздействие на него осуществляются через скважины. Призабойная зона скважины (ПЗС) - область, в которой все процессы протекают наиболее интенсивно. Здесь как в единый узел сходятся линии токов при извлечении жидкости или расходятся - при закачке. Здесь скорости движения жидкости, градиенты давления, потери энергии, фильтрационные сопротивления максимальны.
39132. ПЕРВИЧНОЕ ВСКРЫТИЕ ПРОДУКТИВНЫХ ПЛАСТОВ 259 KB
  Физикомеханическое воздействие на продуктивный горизонт при его вскрытии оказывают следующие факторы: разгрузка горного массива в результате разбуривания пласта; изменяющееся противодавление столба бурового раствора впоследст вии изменяющееся активное давление столба цементного раствора ; фильтрация фильтрата бурового и цементного при цементирова нии раствора; изменяющийся температурный режим в скважине; гидродинамическое и механическое воздействие на породы в разбуриваемом пласте движущимся инструментом; гидродинамические эффекты...
39133. Формирование призабойной зоны скважины при репрессии на забое 170 KB
  Формирование ПЗС при репрессии на забое предполагает неизбежное проникновение в ПЗП, негативные последствия которого предупреждаются за счёт использования «незагрязняющих промывочных флюидов» или преодоления загрязнённых участков ПЗП при вторичном вскрытии (перфорации) или очистку этих участков при вызове притока.
39134. Гравийная набивка 265.5 KB
  Фракционный состав гравия выбирают в зависимости от степени неоднородности и базового размера зерен песка а также скорости щ протекания пластовой жидкости через щели корпуса гравийного фильтра при наибольшем ожидаемом дебите скважины. Расчетный оптимальный размер зерен гравия находят из соотношения dopt =6 dб Если гранулометрический состав песка по толщине продуктивного объекта существенно изменяется то оптимальный размер зерен гравия рассчитывают по наименьшему значению dб. Это условие будет выполнено при следующих значениях d60 и...
39135. Ограничения проникновения цементного раствора и его фильтрата в продуктивный пласт 784 KB
  Используются гравийные набивки создаваемые путем предварительного расширения ствола скважины против продуктивного пласта спуска в скважину перфорированного хвостовикафильтра и заполнения кольцевого пространства отсортированным гравием. Одним из главных факторов определяющих эти характеристики является диаметр ствола поэтому часто применяют устройства расширяющие ствол скважины до необходимых размеров. Гравийножидкостная смесь закачивается с устья скважины по межтрубному пространству между эксплуатационной колонной и колонной рабочих...
39136. Обработка данных гранулометрического анализа фракции, выносимой из пласта 91 KB
  Пласты с трещинным типом пористости чаще всего приурочены к плотным карбонатным отложениям, известнякам и доломитам. Проницаемость пластов с трещинным типом пористости зависит от геометрических характеристик отдельных трещин (раскрытости, протяженности, шероховатости стенок трещины), ориентации трещин в пространстве и от их количества и способности образовывать связанную проницаемую систему трещин. Трещиноватые коллектора склонны к пластическим деформациям.
39137. Основные типы конструкции забоя 939 KB
  Выбор конструкции призабойной зоны в продуктовной зоны Выбор конструкции забоя скважины производится поэтопно.Выбрать тип конструкции забоя с учетом прочности пород ПЗП и способов эксплуатации По результатам анализа различных типов конструкции забоя установили что средняя удельная продуктивность скважины с открытым забоем больше чем у скважин с закрытым забоем в 15 раза при прочих равных условиях . Вне зависимости от способа изоляции эксплуатируемого интервала от остальной части ствола определяется предельно допустимая депрессия на...