Информационная система «Абитуриент»

      2. модуль объединения БД по сети:

• модуль должен проводить объединение автоматически, без запуска каких либо программ на факультетском сервере;
• программа должна быть спроектирована под MS Access 2000 и Windows 98.

     В результате проведения дипломного проектирования был обоснован выбор языка  программирования Visual Basic. Выбор этого языка программирования позволяет максимально упростить пользование системой и сократить количество ошибок при работе с ней. По составленному на практике по профилю специальности алгоритму функционирования системы сетевой работы и объединения баз данных информационной системы «Абитуриент», формируемых на отдельных факультетах, в единую базу данных университета, была разработана программа, проведена ее отладка и исправлены обнаруженные ошибки. Составлена инструкция пользователю разработанной системы сетевой работы.

     СПИСОК  ЛИТЕРАТУРЫ 

     

1. Хомоненко А.Д., Цыганков В.М., Мальцев М.Г. Базы данных: Учебник для высших учебных заведений / Под ред. проф. А.Д. Хомоненко / СПб.: КОРОНА принт. – 2002.
2. Гарнаев А.Ю. Самоучитель VBA / СПб.: БХВ-Петербург. – 2003.
3. Э. Каллахан. Microsoft Access 2002 Visual Basic для приложений. Шаг за шагом: Практ. пособ. / Пер. с англ. / М.: Изд-во ЭКОМ. – 2003.
4. Бекаревич Ю., Пушкина Н. Самоучитель Microsoft Access 2000 / СПб.: БХВ-Петербург. – 1999.
5. ГОСТ 19106-78. «Требования к программным документам, выполненным печатным способом»
6. ГОСТ 19.701 – 90 «Схемы алгоритмов, программ и систем»

 
 

ПРИЛОЖЕНИЕ 1 
 
 
 
 
 
 
 
 
 
 
 
 

СХЕМА АЛГОРИТМА

 

     

     

       

       

 

       
 
 

       
 

       
 

       
 

       

ПРИЛОЖЕНИЕ 2 
 
 
 
 
 
 
 
 
 
 
 
 

ТЕКСТ ПРОГРАММЫ

 

      Сервер 

     Type dialog_dll

     номер  As String

     пол  As String * 1

     серияиномерпаспорта  As String

     когдавыдан  As Date

     Наличиеприглашения  As String

     РезЦТ  As Integer

     копияаттестата  As Boolean

     датаподачи  As Date

     алг  As Integer

     физ  As Integer

     рус  As Integer

     признакзачисления  As String

     напечатано  As String 

     имя  As String

     отчество  As String

     фамилия  As String

     петербуржец  As Boolean

     контактныйтелефон  As String

     номершколы  As Integer

     регион  As Integer

     населенныйпункт  As String

     улица  As String

     дом  As Integer

     квартира  As Integer

     кемвыдан  As String

     сери№аттестата  As Long

     качестводокумента  As String 

     were_connecded As String * 3

     command As String * 7

     argument As String * 8

     kod As Double

     ans_command As String * 7

     term As String * 1

     End Type 
 

     Type data_mdb

     номер(1 To 600) As String

     пол(1 To 600) As String * 1

     серияиномерпаспорта(1 To 600) As String

     когдавыдан(1 To 600) As Date

     Наличиеприглашения(1 To 600) As String

     РезЦТ(1 To 600) As Integer

     копияаттестата(1 To 600) As Boolean

     датаподачи(1 To 600) As Date

     номерпотока(1 To 600) As Integer

     номергруппы(1 To 600) As Integer

     алг(1 To 600) As Integer

     физ(1 To 600) As Integer

     рус(1 To 600) As Integer

     признакзачисления(1 To 600) As String

     напечатано(1 To 600) As String

     группа(1 To 600) As Byte

     End Type 

     Type data1_mdb

     имя(1 To 600) As String

     отчество(1 To 600) As String

     петербуржец(1 To 600) As Boolean

     фамилия(1 To 600) As String

     контактныйтелефон(1 To 600) As String

     номершколы(1 To 600) As Integer

     регион(1 To 600) As Integer

     населенныйпункт(1 To 600) As String

     улица(1 To 600) As String

     дом(1 To 600) As Integer

     квартира(1 To 600) As Integer

     кемвыдан(1 To 600) As String

     сери№аттестата(1 To 600) As Long

     качестводокумента(1 To 600) As String

     Физика(1 To 600) As Integer

     Алгебра(1 To 600) As Integer

     End Type 
 

     Type info_dep

     counter As Double

     LASTREC As Double

     End Type 

     Type info_sys

     depcount As Double

     DepN(1 To 6) As String * 50

     DepshN(1 To 6) As String * 15

     PP(1 To 6) As Double

     ext(1 To 6) As Boolean

     Math As Date

     rus As Date

     PHISIC As Date

     begtake As Date

     endteke As Date

     End Type 

     Public DATA As data_mdb

     Public DATA1 As data1_mdb

     Public dep As Integer

     Public DepN As String

     Public INF As info_sys

     Public INFO As info_dep

     Public LAST As Double

     Public dialog As dialog_dll

     Public sett As settings_dat 

     Sub main()--------------Ком.1

     mainfrm.Show

     End Sub 

     Dim termcount As Double

     Dim adds, dels, edits As Double

     Public depname As String

     Dim LAST As Double 

     Private Sub Form_Load()--------------Ком.2

     With jurnal

         .Row = 0

         .ColWidth(0) = 3000

         .ColWidth(1) = 4000

         .ColWidth(2) = 2500

         .Col = 0

         .Text = "Номер терминала"

         .Col = 2

         .Text = "Время"

         .Col = 1

         .Text = "Команда"

     End With

     Open "settings.dat" For Random As #1 Len = Len(sett)

     Get #1, 1, sett

     If sett.dep = 0 Then

     sett.dep = InputBox("введите номер вашего факультета")

     Put #1, 1, sett

     End If

     Close #1

     Open "info.sys" For Random As #1 Len = Len(INF)

     Get #1, 1, INF

     Close #1 

     End Sub 

     Private Sub Timer1_Timer()--------------Ком.3

     Open "C:\dialog.dll" For Random As #1 Len = Len(dialog)

     Get #1, 1, dialog 

     If dialog.were_connecded = "no " Then

     Close #1

     Exit Sub

     End If 

     If dialog.were_connecded = "ans" Then

     Close #1

     Exit Sub

     End If 

     Select Case (dialog.command) 

     Case Is = "add    " 

     If dialog.argument = "continue" Then

     station(dialog.term - 1).BackColor = vbGreen

     dialog.were_connecded = "ans"

     dialog.ans_command = "ready  "

     dialog.argument = "        "

     aktion(dialog.term - 1).Caption = "Ожидание команды"

     writ

     wrt

     Else 

     station(dialog.term - 1).BackColor = vbRed

     aktion(dialog.term - 1).Caption = "Добавлеие данных"

     dialog.were_connecded = "ans"

     dialog.ans_command = "ready  " 

     wrt

     End If

     Case Is = "edit   " 

     station(dialog.term - 1).BackColor = vbRed

     Sleep 100

     dialog.were_connecded = "ans" 

     station(dialog.term - 1).BackColor = vbGreen

     wrt 

     Case Is = "del    " 

     station(dialog.term - 1).BackColor = vbRed

     Sleep 100

     mainfrm.Show

     dialog.were_connecded = "ans" 

     station(dialog.term - 1).BackColor = vbGreen

     wrt 

     Case Is = "end    " 

     station(dialog.term - 1).BackColor = vbRed

     Sleep 1000

     dialog.were_connecded = "ans"

     dialog.ans_command = "ready  "