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

     Pos(dialog.term - 1).Caption = "Отключен"

     aktion(dialog.term - 1).Caption = "Ожидание подключения"

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

     termcount = termcount - 1

     If termcount = 0 Then

     Dim shell As Object

     'Set shell = CreateObject("WScript.Shell")

     'shell.Run "Rundll32.exe User.exe,ExitWindows" 

     MsgBox "отключение сервера"

     End

     End If

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

     wrt 

     Case Is = "connect" 

     termcount = termcount + 1

     dialog.term = termcount

     Sleep 100

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

     dialog.were_connecded = "ans"

     dialog.ans_command = "ready  "

     Pos(dialog.term - 1).Caption = "Подключен"

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

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

     wrt

     End Select 

     Put #1, 1, dialog

     Close #1 

     End Sub 

     Sub wrt()--------------Ком.4

     With jurnal

         .Rows = .Rows + 1

         .Row = .Row + 1

         .Col = 0

         .Text = dialog.term

         .Col = 1

         .Text = dialog.command

         .Col = 2

         .Text = Now

     End With

     End Sub 

     Sub read()--------------Ком.5

     Open depname & ".mdb" For Random As #1 Len = Len(DATA)

     Get #1, 1, DATA

     combo1.Text = DATA.пол(LAST)

     Label24.Caption = "Дата заполнения" & Date

     Label22.Caption = DATA.номер(LAST) & "\" & dep

      Text11.Text = DATA.когдавыдан(LAST)

     If DATA.копияаттестата(LAST) = False Then

     Check1.Value = 0

     Else

     Check1.Value = 1

     End If

     Combo3.Text = DATA.Наличиеприглашения(LAST)

     Text17.Text = DATA.РезЦТ(LAST)

     Text10.Text = DATA.серияиномерпаспорта(LAST)

     Close #1

     Dim HL As Double

     HL = LAST

     Open depname & ".1.mdb" For Random As #2 Len = Len(DATA1)

     Get #2, 2, DATA1

     Text2.Text = DATA1.имя(LAST)

     Text3.Text = DATA1.отчество(LAST)

     Text9.Text = DATA1.контактныйтелефон(LAST)

     Text1.Text = DATA1.фамилия(LAST)

     Text16.Text = DATA1.номершколы(LAST)

     Text15.Text = DATA1.Алгебра(LAST)

     Text7.Text = DATA1.дом(LAST)

     combo2.Text = DATA1.качестводокумента(LAST)

     Text8.Text = DATA1.квартира(LAST)

     Text12.Text = DATA1.кемвыдан(LAST)

     Text6.Text = DATA1.населенныйпункт(LAST)

     Text4.Text = DATA1.регион(LAST)

     Text13.Text = DATA1.сери№аттестата(LAST)

     Text5.Text = DATA1.улица(LAST)

     Text14.Text = DATA1.Физика(LAST)

     Close #2

     End Sub 

     Sub writ()--------------Ком.6

     Open depname & ".mdb" For Random As #1 Len = Len(DATA)

     Get #1, 1, DATA

     DATA.пол(LAST) = dialog.пол

     INFO.counter = INFO.counter + 1

     DATA.номер(LAST) = INFO.counter

     DATA.когдавыдан(LAST) = dialog.когдавыдан

     DATA.копияаттестата(LAST) = dialog.копияаттестата

     DATA.Наличиеприглашения(LAST) = dialog.Наличиеприглашения

     DATA.РезЦТ(LAST) = dialog.РезЦТ

     DATA.серияиномерпаспорта(LAST) = dialog.серияиномерпаспорта

     Close #1

     Dim HL As Double

     HL = LAST

     Open depname & ".1.mdb" For Random As #2 Len = Len(DATA1)

     Get #2, 2, DATA1

     Text2.Text = DATA1.имя(LAST)

     Text3.Text = DATA1.отчество(LAST)

     Text9.Text = DATA1.контактныйтелефон(LAST)

     Text1.Text = DATA1.фамилия(LAST)

     Text16.Text = DATA1.номершколы(LAST)

     Text15.Text = DATA1.Алгебра(LAST)

     Text7.Text = DATA1.дом(LAST)

     combo2.Text = DATA1.качестводокумента(LAST)

     Text8.Text = DATA1.квартира(LAST)

     Text12.Text = DATA1.кемвыдан(LAST)

     Text6.Text = DATA1.населенныйпункт(LAST)

     Text4.Text = DATA1.регион(LAST)

     Text13.Text = DATA1.сери№аттестата(LAST)

     Text5.Text = DATA1.улица(LAST)

     Text14.Text = DATA1.Физика(LAST)

     Close #2

     End Sub 

     Клиент 

     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 

     Public dialog As dialog_dll 

     Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 

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

     mainfrm.Show

     End Sub 

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

     Me.PrintForm

     Command1.Visible = False

     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 

     If OpenType = "add" Then

     dialog.command = "add"

     Else

     dialog.command = "edit"

     End If

     dialog.argument = "continue"

     dialog.term = MyNo

     dialog.were_connecded = "yes"

     Put #1, 1, dialog

     Close #1 

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

     Get #1, 1, dialod

     dialod.пол(Last) = combo1.Text

     dialod.датаподачи(Last) = Date

     dialod.когдавыдан(Last) = Text12.Text

     dialod.копияаттестата(Last) = Check1.Value

     dialod.Наличиеприглашения(Last) = Combo3.Text

     dialod.номер(Last) = INFO.Counter

     dialod.РезЦТ(Last) = Text17.Text

     dialod.серияиномерпаспорта(Last) = Text10.Text

     If Text6.Text = "СПБ" Then

     dialod.петербуржец(Last) = True

     Else

     dialod.петербуржец(Last) = False

     End If

     dialod.имя(Last) = Text2.Text

     dialod.отчество(Last) = Text3.Text

     dialod.фамилия(Last) = Text1.Text

     dialod.номершколы(Last) = Text16.Text

     dialod.контактныйтелефон(Last) = Text9.Text

     dialod.Алгебра(Last) = Text15.Text

     dialod.дом(Last) = Text7.Text

     dialod.качестводокумента(Last) = combo2.Text

     dialod.квартира(Last) = Text8.Text

     dialod.кемвыдан(Last) = Text11.Text

     dialod.населенныйпункт(Last) = Text6.Text

     dialod.регион(Last) = Text4.Text

     dialod.сери№аттестата(Last) = Text13.Text

     dialod.улица(Last) = Text5.Text

     dialod.Физика(Last) = Text14.Text

     Put #1, 1, dialog

     Close #1

     Unload Me

     End Sub 

     Public MyNo As Double

     Public OpenType As String 

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

     add_adit.Show

     OpenType = "add"

     End Sub 

     Private Sub Command2_Click()--------------Ком.4