Автор: Пользователь скрыл имя, 04 Декабря 2010 в 14:55, дипломная работа
Пояснительная записка к дипломному проекту включает в себя введение, четыре раздела и ряд приложений.
Во введении дается краткая характеристика применения компьютерной техники в автоматизированных системах обработки информации и указана предпосылка создания рассматриваемой автоматизированной системы.
В разделе «Назначение и область применения» рассмотрены информационно-техническая структура приемной комиссии СПГЭТУ и технологический процесс обработки информации.
Раздел «Технические характеристики» включает несколько подразделов, в которых сформулированы требования, которым должна удовлетворять проектируемая автоматизированная система, описываются и конкретизируются данные, необходимые для функционирования системы или создаваемые ею, рассматриваются вопросы концептуального и логического проектирования и табличного представления данных, описана иерархическая схема автоматизированной системы и определено место в ней проектируемого модуля, описан и прокомментирован алгоритм функционирования модулей, ответственных за создание интерфейса автоматизированной системы и ведение базы данных, обосновывается выбор технических и программных средств, использованных при разработке данной автоматизированной системы, а также дается краткая характеристика применявшегося языка VBA, описаны этапы создания элементов интерфейса и даны комментарии к составленным подпрограммам, рассмотрены процедура и результаты отладки
ВВЕДЕНИЕ 5
1. Предпосылки для создания системы 6
1.1. Формы приема на дневное обучение 6
1.2. Информационно-техническая структура предприятия. 7
2. Технические характеристики 10
2.1. Постановка задачи 10
2.2. Входные и выходные данные 10
2.3. Иерархическая схема программы 11
2.4. Описание алгоритма работы модулей 13
2.5. Обоснование используемых средств 14
2.5.1. Обоснование выбора программных средств 15
2.5.2. Обоснование выбора и характеристика языков программирования 15
2.5.3. Общие сведения о языке Visual Basic 16
2.6. Разработка системы 18
2.7. Отладка и тестирование программы 20
3. Инструкция пользователю 21
Выводы 22
Список литературы 23
Приложение 1 Схема алгоритма 24
Приложение 2 Текст программы 33
Приложение 3 Результаты работы программы 50
If MsgBox("Прервать работу программы", vbYesNo) = vbYes Then
Open "F:\dialog.dll" For Random As #1 Len = Len(dialog)
Get
#1, 1, dialog
If dialog.were_connecded = "yes" Then
Close #1
MsgBox "Сейчас невозможно"
Exit Sub
End
If
If dialog.were_connecded = "ans" Then
Close #1
MsgBox "Сейчас невозможно"
Exit Sub
End
If
dialog.command = "end"
dialog.term = MyNo
dialog.were_connecded = "yes"
Put #1, 1, dialog
Close #1
repeat:
Sleep 3000
Open "F:\dialog.dll" For Random As #1 Len = Len(dialog)
Get
#1, 1, dialog
If dialog.ans_command = "ready " Then
dialog.were_connecded = "no "
Put #1, 1, dialog
Close #1
End
Else
Close #1
GoTo repeat
End If
End If
End
Sub
Private
Sub Command3_Click()--------------
Get
#1, 1, dialog
If dialog.were_connecded = "yes" Then
Close #1
MsgBox "Сейчас невозможно"
Exit Sub
End
If
If dialog.were_connecded = "ans" Then
Close #1
MsgBox "Сейчас невозможно"
Exit Sub
End
If
dialog.command = "edit"
dialog.term = MyNo
dialog.kod = InputBox("Введите код абитуриента")
dialog.were_connecded = "yes"
Put #1, 1, dialog
Close
#1
Sleep 4000
Open "f:\dialog.dll" For Random As #1 Len = Len(dialog)
Get #1, 1, dialod
With add_adit
.combo1.Text = dialod.пол
.Label24.Caption = "Дата заполнения" & Date
.Label22.Caption = dialod.номер & "\" & DEP
.Text11.Text = dialod.когдавыдан
If dialod.копияаттестата = False Then
.Check1.Value = 0
Else
.Check1.Value = 1
End If
.Combo3.Text = dialod.Наличиеприглашения
.Text17.Text = dialod.РезЦТ
.Text10.Text = dialod.серияиномерпаспорта
.Text2.Text = dialod.имя
.Text3.Text = dialod.отчество
.Text9.Text = dialod.контактныйтелефон
.Text1.Text = dialod.фамилия
.Text16.Text = dialod.номершколы
.Text15.Text = dialod.Алгебра
.Text7.Text = dialod.дом
.combo2.Text = dialod.качестводокумента
.Text8.Text = dialod.квартира
.Text12.Text = dialod.кемвыдан
.Text6.Text = dialod.населенныйпункт
.Text4.Text = dialod.регион
.Text13.Text = dialod.сери№аттестата
.Text5.Text = dialod.улица
.Text14.Text = dialod.Физика
Close #1
End
Sub
Private Sub Form_Load()--------------Ком.6
reset:
Open "F:\dialog.dll" For Random As #1 Len = Len(dialog)
Get
#1, 1, dialog
If dialog.were_connecded = "yes" Then
Close #1
GoTo reset
End
If
If dialog.were_connecded = "ans" Then
Close #1
GoTo reset
End
If
dialog.command = "connect"
dialog.were_connecded = "yes"
Put #1, 1, dialog
Close
#1
repeat:
Sleep 3000
Open "F:\dialog.dll" For Random As #1 Len = Len(dialog)
Get
#1, 1, dialog
If dialog.ans_command = "ready " Then
dialog.were_connecded = "no "
MyNo = dialog.term
Put #1, 1, dialog
Close #1
Else
Close #1
GoTo repeat
End If
Me.Caption = Me.Caption & MyNo
End
Sub
Private
Sub Command4_Click()--------------
Get
#1, 1, dialog
If dialog.were_connecded = "yes" Then
Close #1
MsgBox "Сейчас невозможно"
Exit Sub
End
If
If dialog.were_connecded = "ans" Then
Close #1
MsgBox "Сейчас невозможно"
Exit Sub
End
If
dialog.command = "del"
dialog.term = MyNo
dialog.kod = InputBox("Введите код абитуриента")
dialog.were_connecded = "yes"
Put #1, 1, dialog
Close
#1
reset:
Sleep 4000
Open
"f:\dialog.dll" For Random As #1 Len = Len(dialog)
Get #1, 1, dialod
If dialog.were_connecded = "yes" Then
Close #1
GoTo reset
End If
If MsgBox("Удалить абитуриента с номером " & dialog.kod, vbYesNo) = vbYes Then
dialog.command = "del"
dialog.argument = "cont_yes"
Else
dialog.command = "del"
dialog.argument = "cont_no"
End If
Put #1, 1, dialog
Close #1
End
Sub
Объединение
баз данных
Public
Declare Function GetServer Lib "NetWire.OCX" (servname As
String, SendString As String, ResivString As String)
Private Sub Command1_Click()
Command1.Visible = False
ProgressBar1.Visible = True
ProgressBar1.Max = 0
Open
GetServer(X, "open") & "C:\ИС_абитуриент\info.sys"
For Random As #1 Len = Len(INF)
For X = 1 To 7
Open GetServer(X, "open") & "C:\ИС_абитуриент\info.sys" For Random As #1 Len = Len(INF)
Get #1, 1, INF
Close #1
Open GetServer(X, "open") & "C:\ИС_абитуриент\" & INF.DepN(X) & ".dep" For Random As #1 Len = Len(INFO)
Get #1, 1, INFO
Close #1
ProgressBar1.Max = ProgressBar1.Max + INFO.LASTREC
Next
X
For X = 1 To 7
Open GetServer(X, "open") & "C:\ИС_абитуриент\" & INF.DepN(X) & ".dep" For Random As #1 Len = Len(INFO)
Get #1, 1, INFO
Close
#1
Open GetServer(X, "open") & "C:\ИС_абитуриент\" & INF.DepN(X) & ".mdb" For Random As #2 Len = Len(DATA)
Get #2, 2, DATA
Close
#2
Open GetServer(X, "open") & "C:\ИС_абитуриент\" & INF.DepN(X) & ".1.mdb" For Random As #1 Len = Len(DATA1)
Get #1, 1, DATA1
Close #1
For Y = 1 To INFO.LASTREC
Open "университет.mdb" For Random As #1
Print #1, DATA(Y), DATA1(Y)
ProgressBar1.Value = ProgressBar1.Value + 1
Next Y
Next X
End
Sub
ПРИЛОЖЕНИЕ
3
РЕЗУЛЬТАТЫ РАБОТЫ ПРОГРАММЫ