Заключение. 
Разработка автоматизированного рабочего места оператора по приему платежей АО "Казпочта"

В настоящее время крупные предприятия уже не могут обойтись без использования систем автоматизации, позволяющих эффективно хранить, извлекать и анализировать информацию и управлять большими объемами данных.

При выполнение курсовой работы были решены следующие поставленные задачи, а именно:

• 1) обоснована необходимость применения компьютерной техники;
• 2) создна базданных для хранения информации;
• 3) разработано автоматизированное рабочее место оператора по приему платежей в среде VB.

Для решения задачи переносимости на рабочие станции и для того, чтобы не устанавливать дополнительное программное обеспечение на рабочие станции, было принято производить разработку через интерфейс на основе платформы Microsoft Windows XP Professional. Для хранения и обработки информации решено использовать систему управления базами данных Microsoft Office Access 2003. В качестве интерфейса доступа со стороны пользователей и администраторов системы используется приложение, разработанное в среде Visual Basic для среды Windows.

Список литературы

• 1. Microsoft Corporation, Проектирование и реализация баз данных Microsoft SQL Server 2000. Учебный курс MCAD/MCSE, MCDBA, М. Издательско-торговый дом «Русская Редакция», 2003
• 2. Уильям Р. Станек Internet Information Services 5.0. Справочник администратора. М.: Издательско-торговый дом «Русская Редакция», 2002
• 5. Типовые нормы времени на программирование задач для ЭВМ. — М.: Экономика, 2002.
• 6. Укрупненные нормы времени на разработку программных средств вычислительной техники. Укрупненные нормы времени на изготовление и сопровождение программных средств вычислительной техники — М.: Экономика, 2002.
• 7. Active Server Pages 3.0 для профессионалов Т.1. М. Издательство «Лори», 2002
• 8. Диго С. М. «Проектирование и использование баз данных» — М.: Финансы и статистика, 1995
• 9. Дик В. В. «Информационные системы в экономике» — М.: Финансы и статистика, 1996
• 10. Пятибратов А. П., Гудыно Л. П., Кириченко А. А. Вычислительные системы, сети и телекоммуникации — М.: Финансы и статистика, 1998
• 11. Смирнова Г. Н. Проектирование экономических информационных систем — М.: Финансы и статистика, 2001

Приложение А

Программный код основных модулей программы.

Private Sub Command2_Click ().

Frame1.Visible = False.

cmdDelete_Click.

End Sub.

Private Sub Create_Click ().

Unload Me.

Form2.Show.

End Sub.

Private Sub DataCombo1_Change ().

cmdAdd_Click.

Frame1.Caption = «Платеж за «& DataCombo1.Text.

Adodc1.Recordset.MoveFirst.

Do Until Adodc1.Recordset.EOF.

If Text6. Text = DataCombo1. Text Then.

Exit Do.

End If.

Adodc1.Recordset.MoveNext.

Loop.

txtFields (13).Text = Text5.Text.

txtFields (0).Text = Number.

txtFields (2).Text = Text2.Text.

txtFields (3).Text = Date.

txtFields (1).Text = Data1.Recordset.RecordCount & «/» & CVar (Date).

Text3.Text = Text7.Text.

Adodc2.Recordset.MoveFirst.

Do Until Adodc2.Recordset.EOF.

If Text3. Text = Text8. Text Then.

Exit Do.

End If.

Adodc2.Recordset.MoveNext.

Loop.

txtFields (4).Text = Text9.Text.

Frame1.Visible = True.

End Sub.

Private Sub Form_Activate ().

Adodc1.ConnectionString = «» .

Adodc1.ConnectionString = «Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Pohta.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False» .

Adodc1.RecordSource = «Tarif» .

txtFields (3) = Date.

txtFields (0).Text = Number.

Text4.Text = NameOperator.

Data2.Recordset.MoveFirst.

Do Until Data2.Recordset.EOF.

If Text4. Text = Text1. Text Then.

Exit Do.

End If.

Data2.Recordset.MoveNext.

Loop.

txtFields (2).Text = Text2.Text.

End Sub.

Private Sub Klient_Click ().

Unload Me.

frmKlient.Show.

End Sub.

Private Sub LoadUser_Click ().

Unload Me.

FRMLOAD.Show.

End Sub.

Private Sub Platej_Click ().

Unload Me.

frmSpravohnikPlateley.Show.

End Sub.

Private Sub PLPeriod_Click ().

Zn = 2.

Form1.Show.

End Sub.

Private Sub PlSegodnya_Click ().

Zn = 1.

Form1.Show.

End Sub.

Private Sub PlVse_Click ().

Zn = 3.

Form1.Show.

End Sub.

Private Sub Tarif_Click ().

Unload Me.

frmFormTarif.Show.

End Sub.

Private Sub txtFields_GotFocus (Index As Integer).

On Error Resume Next.

txtFields (12).Text = ((CSng (txtFields (8)) — CSng (txtFields (9)))) * CSng (txtFields (13)).

txtFields (14).Text = CSng (txtFields (12).Text) + CSng (Text12.Text).

End Sub.

Private Sub txtFields_KeyPress (Index As Integer, KeyAscii As Integer).

Dim k As Byte.

k = 0.

If KeyAscii = 13 Then.

Adodc3.Recordset.MoveFirst.

Do Until Adodc3.Recordset.EOF.

If txtFields (5).Text = Text10. Text Then.

k = 1.

Exit Do.

Else.

k = 0.

End If.

Adodc3.Recordset.MoveNext.

Loop.

If k = 0 Then.

MsgBox «Введенный лицевой счет не найден !», vbInformation, «Сообщение» .

txtFields (5).Text = «» .

txtFields (5).SetFocus.

End If.

txtFields (6).Text = Text11.Text.

txtFields (7).Text = Text13.Text.

txtFields (10).Text = Text14.Text.

txtFields (11).Text = Text15.Text.

MaskEdBox6.Text = Text16.Text.

End If.

End Sub.

Private Sub Ustanovki_Click ().

Unload Me.

frmProperties.Show.

End Sub.

Private Sub Vyxod_Click ().

End.

End Sub.

Private Sub cmdAdd_Click ().

Data1.Recordset.AddNew.

End Sub.

Private Sub cmdDelete_Click ().

If Data1.Recordset.EOF = False And Data1.Recordset.BOF = False Then.

'this may produce an error if you delete the last.

'record or the only record in the recordset.

Data1.Recordset.Delete.

Data1.Recordset.MoveNext.

End If.

End Sub.

Private Sub cmdRefresh_Click ().

'this is really only needed for multi user apps.

Data1.Refresh.

End Sub.

Private Sub cmdUpdate_Click ().

Data1.UpdateRecord.

Data1.Recordset.Bookmark = Data1.Recordset.LastModified.

End Sub.

Private Sub Data1_Error (DataErr As Integer, Response As Integer).

'This is where you would put error handling code.

'If you want to ignore errors, comment out the next line.

'If you want to trap them, add code here to handle them.

MsgBox «Data error event hit err:» & Error$(DataErr).

Response = 0 'throw away the error.

End Sub.

Private Sub Data1_Reposition ().

Screen.MousePointer = vbDefault.

On Error Resume Next.

'This will display the current record position.

'for dynasets and snapshots.

Data1.Caption = «Record: «& (Data1.Recordset.AbsolutePosition + 1).

'for the table object you must set the index property when.

'the recordset gets created and use the following line.

'Data1.Caption = «Record: «& (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01)) + 1.

End Sub.

Private Sub Data1_Validate (Action As Integer, Save As Integer).

'This is where you put validation code.

'This event gets called when the following actions occur.

Select Case Action.

Case vbDataActionMoveFirst.

Case vbDataActionMovePrevious.

Case vbDataActionMoveNext.

Case vbDataActionMoveLast.

Case vbDataActionAddNew.

Case vbDataActionUpdate.

Case vbDataActionDelete.

Case vbDataActionFind.

Case vbDataActionBookmark.

Case vbDataActionClose.

End Select.

Screen.MousePointer = vbHourglass.

End Sub.

VERSION 5.00.

Object = «{831FDD16−0C5C-11D2-A9FC-0000F8754DA1}#2.0#0»; «MSCOMCTL.OCX» .

Begin VB. Form Form2.

BorderStyle = 1 'Fixed Single.

ClientHeight = 1455.

ClientLeft = 45.

ClientTop = 330.

ClientWidth = 5385.

LinkTopic = «Form2» .

MaxButton = 0 'False.

MinButton = 0 'False.

ScaleHeight = 1455.

ScaleWidth = 5385.

StartUpPosition = 2 'CenterScreen.

Begin VB. Timer Timer1.

Interval = 100.

Left = 240.

Top = 720.

End.

Begin MSComctlLib. ProgressBar ProgressBar1.

Height = 375.

Left = 240.

TabIndex = 0.

Top = 240.

Width = 5055.

_ExtentX = 8916.

_ExtentY = 661.

_Version = 393 216.

Appearance = 1.

End.

Begin VB. Label Label1.

BackStyle = 0 'Transparent.

BorderStyle = 1 'Fixed Single.

BeginProperty Font.

Name = «MS Sans Serif» .

Size = 13.5.

Charset = 204.

Weight = 700.

Underline = 0 'False.

Italic = 0 'False.

Strikethrough = 0 'False.

EndProperty.

ForeColor = &H00FF0000&.

Height = 375.

Left = 240.

TabIndex = 1.

Top = 840.

Visible = 0 'False.

Width = 5055.

End.

End.

Attribute VB_Name = «Form2» .

Attribute VB_GlobalNameSpace = False.

Attribute VB_Creatable = False.

Attribute VB_PredeclaredId = True.

Attribute VB_Exposed = False.

Dim i As Integer.

Dim s1 As String.

Dim s2 As String.

Dim k As String.

Dim m As String.

Private Sub Form_Activate ().

Dither Me.

s1 = FileSystem. CurDir$ & «Pohta.mdb» .

s2 = FileSystem. CurDir$ & «ezerv» & Date & «.mdb» .

Print s2.

Select Case (MsgBox («Вы действительно хотите создать резервную копию базы данных», vbYesNo, «Запрос»)).

Case vbYes.

FileCopy s1, s2.

Timer1_Timer.

Case vbNo.

Unload Me.

FRMPLATEJ.Show.

End Select.

End Sub.

Private Sub Timer1_Timer ().

On Error Resume Next.

Label1.Visible = True.

Label1.Caption = s2.

i = 0.

i = i + 1.

ProgressBar1.Value = ProgressBar1. Value + i.

If ProgressBar1. Value >= 95 Then.

Timer1.Enabled = False.

MsgBox «Резервная копия БД создана успешно», vbOKOnly, «Сообщение» .

Unload Me.

FRMLOAD.Show.

End If.

End Sub.

Private Sub Form_Unload (Cancel As _.

Integer).

Win95Shrivel Me.

End Sub.

Sub Dither (vForm As Form).

Dim intLoop As Integer.

vForm.DrawStyle = vbInsideSolid.

vForm.DrawMode = vbCopyPen.

vForm.ScaleMode = vbPixels.

vForm.DrawWidth = 2.

vForm.ScaleHeight = 256.

For intLoop = 0 To 255.

vForm.Line (0, intLoop)-(Screen.Width, intLoop — 1), _.

RGB (500 — intLoop, 500 — intLoop, 0), B.

Next intLoop.

End Sub.

Public Sub Win95Shrivel (xForm As Form).

минимизирует окно.

xForm.WindowState = 1.

End Sub.

VERSION 5.00.

Object = «{831FDD16−0C5C-11D2-A9FC-0000F8754DA1}#2.0#0»; «mscomctl.ocx» .

Begin VB. Form Form3.

BackColor = &H0000FFFF&.

BorderStyle = 0 'None.

Caption = «Form3» .

ClientHeight = 2820.

ClientLeft = 0.

ClientTop = 0.

ClientWidth = 9015.

LinkTopic = «Form3» .

ScaleHeight = 2820.

ScaleWidth = 9015.

ShowInTaskbar = 0 'False.

StartUpPosition = 2 'CenterScreen.

Begin VB. PictureBox Picture1.

Height = 1455.

Left = 240.

Picture = «Form3.frx» :0000.

ScaleHeight = 1395.

ScaleWidth = 8475.

TabIndex = 1.

Top = 360.

Width = 8535.

End.

Begin VB. Timer Timer1.

Interval = 50.

Left = 240.

Top = 2040.

End.

Begin MSComctlLib. ProgressBar ProgressBar1.

Height = 255.

Left = 840.

TabIndex = 0.

Top = 2040.

Width = 7575.

_ExtentX = 13 361.

_ExtentY = 450.

_Version = 393 216.

Appearance = 1.

End.

End.

Attribute VB_Name = «Form3» .

Attribute VB_GlobalNameSpace = False.

Attribute VB_Creatable = False.

Attribute VB_PredeclaredId = True.

Attribute VB_Exposed = False.

Dim i As Integer.

Private Sub Timer1_Timer ().

i = i + 1.

ProgressBar1.Value = ProgressBar1. Value + 1.

If ProgressBar1. Value >= 98 Then.

Unload Me.

FRMLOAD.Show.

End If.

End Sub.

VERSION 5.00.

Begin VB. Form frmAbout.

BorderStyle = 3 'Fixed Dialog.

Caption = «О программе» .

ClientHeight = 3555.

ClientLeft = 2340.

ClientTop = 1935.

ClientWidth = 5730.

ClipControls = 0 'False.

LinkTopic = «Form2» .

MaxButton = 0 'False.

MinButton = 0 'False.

ScaleHeight = 2453.724.

ScaleMode = 0 'User.

ScaleWidth = 5380.766.

ShowInTaskbar = 0 'False.

StartUpPosition = 2 'CenterScreen.

Begin VB. PictureBox picIcon.

AutoSize = -1 'True.

ClipControls = 0 'False.

Height = 540.

Left = 240.

Picture = «frmAbout.frx» :0000.

ScaleHeight = 337.12.

ScaleMode = 0 'User.

ScaleWidth = 337.12.

TabIndex = 1.

Top = 240.

Visible = 0 'False.

Width = 540.

End.

Begin VB. CommandButton cmdOK.

Cancel = -1 'True.

Caption = «OK» .

Default = -1 'True.

Height = 345.

Left = 4245.

TabIndex = 0.

Top = 2625.

Visible = 0 'False.

Width = 1260.

End.

Begin VB. CommandButton cmdSysInfo.

Caption = «&System Info…» .

Height = 345.

Left = 4260.

TabIndex = 2.

Top = 3075.

Visible = 0 'False.

Width = 1245.

End.

Begin VB. Label lblDisclaimer.

BackColor = &H0000FFFF&.

Caption = «Внимание данная программа предназначенна для некомерческого использования.» .

ForeColor = &H00FF0000&.

Height = 825.

Left = 120.

TabIndex = 6.

Top = 2505.

Visible = 0 'False.

Width = 3870.

End.

Begin VB. Label lblVersion.

BackColor = &H0000FFFF&.

Caption = «Версия: 1.0.3» .

BeginProperty Font.

Name = «MS Sans Serif» .

Size = 8.25.

Charset = 204.

Weight = 700.

Underline = 0 'False.

Italic = 0 'False.

Strikethrough = 0 'False.

EndProperty.

ForeColor = &H00FF0000&.

Height = 225.

Left = 915.

TabIndex = 5.

Top = 660.

Visible = 0 'False.

Width = 3885.

End.

Begin VB. Label lblTitle.

BackColor = &H0000FFFF&.

Caption = «ПРОГРАММА ПРИЕМА ПЛАТЕЖЕЙ» .

BeginProperty Font.

Name = «MS Sans Serif» .

Size = 8.25.

Charset = 204.

Weight = 700.

Underline = 0 'False.

Italic = 0 'False.

Strikethrough = 0 'False.

EndProperty.

ForeColor = &H00FF0000&.

Height = 480.

Left = 915.

TabIndex = 4.

Top = 120.

Visible = 0 'False.

Width = 3885.

End.

Begin VB. Label lblDescription.

BackColor = &H0000FFFF&.

Caption = «Разработчик: Саргалинов Ернес @mail: Этот адрес e-mail защищен от спам-ботов. Чтобы увидеть его, у Вас должен быть включен Java-Script «.

BeginProperty Font.

Name = «MS Sans Serif» .

Size = 8.25.

Charset = 204.

Weight = 700.

Underline = 0 'False.

Italic = 0 'False.

Strikethrough = 0 'False.

EndProperty.

ForeColor = &H00FF0000&.

Height = 1170.

Left = 915.

TabIndex = 3.

Top = 1005.

Visible = 0 'False.

Width = 3885.

End.

Begin VB. Line Line1.

BorderColor = &H00808080&.

BorderStyle = 6 'Inside Solid.

Index = 1.

X1 = 84.515.

X2 = 5309.398.

Y1 = 1687.583.

Y2 = 1687.583.

End.

Begin VB. Line Line1.

BorderColor = &H00FFFFFF&.

BorderWidth = 2.

Index = 0.

Visible = 0 'False.

X1 = 98.6.

X2 = 5309.398.

Y1 = 1697.936.

Y2 = 1697.936.

End.

End.

Attribute VB_Name = «frmAbout» .

Attribute VB_GlobalNameSpace = False.

Attribute VB_Creatable = False.

Attribute VB_PredeclaredId = True.

Attribute VB_Exposed = False.

Option Explicit.

Reg Key Security Options…

Const READ_CONTROL = &H20000.

Const KEY_QUERY_VALUE = &H1.

Const KEY_SET_VALUE = &H2.

Const KEY_CREATE_SUB_KEY = &H4.

Const KEY_ENUMERATE_SUB_KEYS = &H8.

Const KEY_NOTIFY = &H10.

Const KEY_CREATE_LINK = &H20.

Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL.

Reg Key ROOT Types…

Const HKEY_LOCAL_MACHINE = &H80000002.

Const ERROR_SUCCESS = 0.

Const REG_SZ = 1 ' Unicode nul terminated string.

Const REG_DWORD = 4 ' 32-bit number.

Const gREGKEYSYSINFOLOC = «SOFTWAREMicrosoftShared Tools Location» .

Const gREGVALSYSINFOLOC = «MSINFO» .

Const gREGKEYSYSINFO = «SOFTWAREMicrosoftShared ToolsMSINFO» .

Const gREGVALSYSINFO = «PATH» .

Private Declare Function RegOpenKeyEx Lib «advapi32» Alias «RegOpenKeyExA» (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long.

Private Declare Function RegQueryValueEx Lib «advapi32» Alias «RegQueryValueExA» (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As Long) As Long.

Private Declare Function RegCloseKey Lib «advapi32» (ByVal hKey As Long) As Long.

Private Sub cmdSysInfo_Click ().

Call StartSysInfo.

End Sub.

Private Sub cmdOK_Click ().

Unload Me.

End Sub.