База данных для хранения информации о перевозках пассажиров и грузов

Для удобства заполнения нормативной базы данных с помощью мастера форм создаем для каждого из созданных отношений соответствующую форму. Отношения «ТехДанные» и «Характеристики_Водителя» создаем в виде табличного и ленточного типа подчиненных форм к отношению «Водители», для удобства добавления, изменения технических данных автомобилей, а также характеристик водителя. Для изменения или добавления диспетчера, характеристик диспетчера создаём форму «Диспетчер», и подчиненную «Характеристики диспетчера». Отношение «Тариф» создаём для добавления заявок в отношение «Заявка» через кнопку перехода по формам. Все формы снабжаем необходимыми кнопками для перехода на другие формы для добавления, удаления или изменения введенных данных.

В Access отчет представляет собой форму специального типа, предназначенную для вывода на печать. Отчеты созданы для удобства работы пользователей. Они позволяют в графическом виде представить информацию, формируемую программой, и при необходимости вывести ее на печать.

Для запуска приложения необходимо запустить файл «Служба такси.mdb». При запуске приложения перед пользователем сразу появляется главная кнопочная форма, которая полностью обеспечивает работу с базой данных. Также при открытии базы данных происходит проверка на разрядку раций. В случае, если есть разряженные рации, то открывается форма «Рации, которые подлежат зарядке».

Литература

1)Гончаров А. Ю. - Access 2003. Самоучитель с примерами - М.: КУДИЦ-ОБРАЗ, 2010.

2)Т.А.Павловская - С# Программирование на языке высокого уровня. Учебник для вузов. -СПб.:Питер,2011.

3)Нильсен Пол.,SQL Server 2005. Библия пользователя. “И.Д.Вильямс”,2008

4)Браст Эндрю Дж., Форте С Разработка приложений на основе Microsoft SQL Server 2005.,Microsoft Press, 2009

5)Т.А.Павловская - С# Программирование на языке высокого уровня. Учебник для вузов. -СПб.:Питер,2007

ПРИЛОЖЕНИЕ

Option Compare Database

Private Sub Form_Open(Cancel As Integer)

' Minimize the database window and initialize the form.

' Move to the switchboard page that is marked as the default.

Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'По умолчанию' "

Me.FilterOn = True

End Sub

Private Sub Form_Current()

' Update the caption and fill in the list of options.

Me.Caption = Nz(Me![ItemText], "")

FillOptions

End Sub

Private Sub FillOptions()

' Fill in the options for this switchboard page.

' The number of buttons on the form.

Const conNumButtons = 8

Dim con As Object

Dim rs As Object

Dim stSql As String

Dim intOption As Integer

' Set the focus to the first button on the form,

' and then hide all of the buttons on the form

' but the first. You can't hide the field with the focus.

Me![Option1].SetFocus

For intOption = 2 To conNumButtons

Me("Option" & intOption).Visible = False

Me("OptionLabel" & intOption).Visible = False

Next intOption

' Open the table of Switchboard Items, and find

' the first item for this Switchboard Page.

Set con = Application.CurrentProject.Connection

stSql = "SELECT * FROM [Switchboard Items]"

stSql = stSql & " WHERE [ItemNumber] > 0 AND [SwitchboardID]=" & Me![SwitchboardID]

stSql = stSql & " ORDER BY [ItemNumber];"

Set rs = CreateObject("ADODB.Recordset")

rs.Open stSql, con, 1 ' 1 = adOpenKeyset

' If there are no options for this Switchboard Page,

' display a message. Otherwise, fill the page with the items.

If (rs.EOF) Then

Me![OptionLabel1].Caption = "На странице кнопочной формы нет элементов"

Else

While (Not (rs.EOF))

Me("Option" & rs![ItemNumber]).Visible = True

Me("OptionLabel" & rs![ItemNumber]).Visible = True

Me("OptionLabel" & rs![ItemNumber]).Caption = rs![ItemText]

rs.MoveNext

Wend

End If

' Close the recordset and the database.

rs.Close

Set rs = Nothing

Set con = Nothing

End Sub

Private Function HandleButtonClick(intBtn As Integer)

' This function is called when a button is clicked.

' intBtn indicates which button was clicked.

' Constants for the commands that can be executed.

Const conCmdGotoSwitchboard = 1

Const conCmdOpenFormAdd = 2

Const conCmdOpenFormBrowse = 3

Const conCmdOpenReport = 4

Const conCmdCustomizeSwitchboard = 5

Const conCmdExitApplication = 6

Const conCmdRunMacro = 7

Const conCmdRunCode = 8

Const conCmdOpenPage = 9

' An error that is special cased.

Const conErrDoCmdCancelled = 2501

Dim con As Object

Dim rs As Object

Dim stSql As String

On Error GoTo HandleButtonClick_Err

' Find the item in the Switchboard Items table

' that corresponds to the button that was clicked.

Set con = Application.CurrentProject.Connection

Set rs = CreateObject("ADODB.Recordset")

stSql = "SELECT * FROM [Switchboard Items] "

stSql = stSql & "WHERE [SwitchboardID]=" & Me![SwitchboardID] & " AND [ItemNumber]=" & intBtn

rs.Open stSql, con, 1 ' 1 = adOpenKeyset

' If no item matches, report the error and exit the function.

If (rs.EOF) Then

MsgBox "Ошибка при чтении таблицы Switchboard Items."

rs.Close

Set rs = Nothing

Set con = Nothing

Exit Function

End If

Select Case rs![Command]

' Go to another switchboard.

Case conCmdGotoSwitchboard

Me.Filter = "[ItemNumber] = 0 AND [SwitchboardID]=" & rs![Argument]

' Open a form in Add mode.

Case conCmdOpenFormAdd

DoCmd.OpenForm rs![Argument], , , , acAdd

' Open a form.

Case conCmdOpenFormBrowse

DoCmd.OpenForm rs![Argument]

' Open a report.

Case conCmdOpenReport

DoCmd.OpenReport rs![Argument], acPreview

' Customize the Switchboard.

Case conCmdCustomizeSwitchboard

' Handle the case where the Switchboard Manager

' is not installed (e.g. Minimal Install).

On Error Resume Next

Application.Run "ACWZMAIN.sbm_Entry"

If (Err <> 0) Then MsgBox "Команда недоступна."

On Error GoTo 0

' Update the form.

Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'По умолчанию' "

Me.Caption = Nz(Me![ItemText], "")

FillOptions

' Exit the application.

Case conCmdExitApplication

CloseCurrentDatabase

' Run a macro.

Case conCmdRunMacro

DoCmd.RunMacro rs![Argument]

' Run code.

Case conCmdRunCode

Application.Run rs![Argument]

' Open a Data Access Page

Case conCmdOpenPage

DoCmd.OpenDataAccessPage rs![Argument]

' Any other command is unrecognized.

Case Else

MsgBox "Неизвестная команда."

End Select

' Close the recordset and the database.

rs.Close

HandleButtonClick_Exit:

On Error Resume Next

Set rs = Nothing

Set con = Nothing

Exit Function

HandleButtonClick_Err:

' If the action was cancelled by the user for

' some reason, don't display an error message.

' Instead, resume on the next line.

If (Err = conErrDoCmdCancelled) Then

Resume Next

Else

MsgBox "Ошибка при выполнении команды.", vbCritical

Resume HandleButtonClick_Exit

End If

End Function

Private Sub Кнопка22_Click()

On Error GoTo Err_Кнопка22_Click

DoCmd.Close

Exit_Кнопка22_Click:

Exit Sub

Err_Кнопка22_Click:

MsgBox Err.Description

Resume Exit_Кнопка22_Click

End Sub

Private Sub ОбластьДанных_Click()

End Sub

Оption Compare Database

'------------------------------------------------------------

' AutoExec

'------------------------------------------------------------

Function AutoExec()

On Error GoTo AutoExec_Err

DoCmd.OpenForm "Кнопочная форма", acNormal, "", "", , acNormal

DoCmd.OpenForm "Рации, которые нужно зарядить", acNormal, "", "", acEdit, acIcon

AutoExec_Exit:

Exit Function

AutoExec_Err:

MsgBox Error$

Resume AutoExec_Exit

End Function

'------------------------------------------------------------

' AutoExec_Проверка

'------------------------------------------------------------

Function AutoExec_Проверка()

On Error GoTo AutoExec_Проверка_Err

DoCmd.SelectObject acForm, "Рации, которые нужно зарядить", False

DoCmd.GoToControl "№Рац"

If (IsNull ( Forms![Рации, которые нужно зарядить]!№Рац))

Then

DoCmd.RunMacro "AutoExec.ЗакрытьПроверка", , ""

End If

If (Not IsNull ( Forms![Рации, которые нужно зарядить]!№Рац))

Then

Beep

MsgBox "Некоторые рации необходимо зарядить. Предостовляется список таких раций.", vbExclamation, "Срочная замена"

End If

DoCmd.Restore

Exit Function

AutoExec_Проверка_Exit:

Exit Function

AutoExec_Проверка_Err:

MsgBox Error$

Resume AutoExec_Проверка_Exit

End Function

'------------------------------------------------------------

' AutoExec_ЗакрытьПроверка

'------------------------------------------------------------

Function AutoExec_ЗакрытьПроверка()

On Error GoTo AutoExec_ЗакрытьПроверка_Err

DoCmd.SelectObject acForm, "Рации, которые нужно зарядить", False

DoCmd.Close acForm, "Рации, которые нужно зарядить"

End

AutoExec_ЗакрытьПроверка_Exit:

Exit Function

AutoExec_ЗакрытьПроверка_Err:

MsgBox Error$

Resume AutoExec_ЗакрытьПроверка_Exit

End Function

Переходы_по_формам_ОткрРация

'

'------------------------------------------------------------

Function Переходы_по_формам_ОткрРация()

On Error GoTo Переходы_по_формам_ОткрРация_Err

DoCmd.OpenForm "Добавить_Рация", acNormal, "", "", , acNormal

Переходы_по_формам_ОткрРация_Exit:

Exit Function

Переходы_по_формам_ОткрРация_Err:

MsgBox Error$

Resume Переходы_по_формам_ОткрРация_Exit

End Function

'------------------------------------------------------------

' Переходы_по_формам_ОткрТехДанАвт

'------------------------------------------------------------

Function Переходы_по_формам_ОткрТехДанАвт()

On Error GoTo Переходы_по_формам_ОткрТехДанАвт_Err

DoCmd.OpenForm "Добавить_ТехДанные", acNormal, "", "", , acNormal

Переходы_по_формам_ОткрТехДанАвт_Exit:

Exit Function

Переходы_по_формам_ОткрТехДанАвт_Err:

MsgBox Error$

Resume Переходы_по_формам_ОткрТехДанАвт_Exit

End Function

'------------------------------------------------------------

' Переходы_по_формам_ОткрХарВод

'------------------------------------------------------------

Function Переходы_по_формам_ОткрХарВод()

On Error GoTo Переходы_по_формам_ОткрХарВод_Err

DoCmd.OpenForm "Добавить_ХарВод", acNormal, "", "", , acNormal

Переходы_по_формам_ОткрХарВод_Exit:

Exit Function

Переходы_по_формам_ОткрХарВод_Err:

MsgBox Error$

Resume Переходы_по_формам_ОткрХарВод_Exit

End Function

'------------------------------------------------------------

' Переходы_по_формам_ОткрМарку

'------------------------------------------------------------

Function Переходы_по_формам_ОткрМарку()

On Error GoTo Переходы_по_формам_ОткрМарку_Err

DoCmd.OpenForm "Добавить_Марка", acNormal, "", "", , acNormal

Переходы_по_формам_ОткрМарку_Exit:

Exit Function

Переходы_по_формам_ОткрМарку_Err:

MsgBox Error$

Resume Переходы_по_формам_ОткрМарку_Exit

End Function

'------------------------------------------------------------

' Переходы_по_формам_ОткрХарДисп

'------------------------------------------------------------

Function Переходы_по_формам_ОткрХарДисп()

On Error GoTo Переходы_по_формам_ОткрХарДисп_Err

DoCmd.OpenForm "Добавить_ХарДисп", acNormal, "", "", , acNormal

Переходы_по_формам_ОткрХарДисп_Exit:

Exit Function

Переходы_по_формам_ОткрХарДисп_Err:

MsgBox Error$

Resume Переходы_по_формам_ОткрХарДисп_Exit

End Function

------------------------------------------------------------

' Переходы_по_формам_ОткрТариф

'------------------------------------------------------------

Function Переходы_по_формам_ОткрТариф()

On Error GoTo Переходы_по_формам_ОткрТариф_Err

DoCmd.OpenForm "Добавить_Тариф", acNormal, "", "", , acNormal

Переходы_по_формам_ОткрТариф_Exit:

Exit Function Переходы_по_формам_ОткрТариф_Err:

MsgBox Error$

Resume Переходы_по_формам_ОткрТариф_Exit

End Function

------------------------------------------------------------

' Переходы_по_формам_ОткрЗаявка

'------------------------------------------------------------

Function Переходы_по_формам_ОткрЗаявка()

On Error GoTo Переходы_по_формам_ОткрЗаявка_Err

DoCmd.OpenForm "Заявка", acNormal, "", "", , acNormal

Переходы_по_формам_ОткрЗаявка_Exit:

Exit Function

Переходы_по_формам_ОткрЗаявка_Err: MsgBox Error$

Resume Переходы_по_формам_ОткрЗаявка_Exit

End Function

Размещено на Allbest.ru