|
p align="left">- создание web страницы; - обучение персонала; - устранение замечаний персонала; - разработка подробного руководства пользователя; - заключение. Приложение Б Программный код Программный код обработки нажатия кнопки «Восстановить дисциплину» на форме «Ввод дисциплины» Private Sub cboVosst_Click() If CboVosst.Caption <> "Отмена восстановления" Then cboydal_reg.Visible = True txtSpravka.Visible = True cmdok.Enabled = False CboVosst.Caption = "Отмена восстановления" Else cboydal_reg.Visible = False txtSpravka.Visible = False cmdok.Enabled = True CboVosst.Caption = "Восстановить удаленных" End If End Sub Программный код обработки нажатия кнопки «Восстановить из удаленных» на форме «Ввод студента» Private Sub CboVosst_Click() If CboVosst.Caption <> " Отмена восстановления " Then cboydal_reg.Visible = True txtSpravka.Visible = True cmdok.Enabled = False CboVosst.Caption = " Отмена восстановления " Else cboydal_reg.Visible = False txtSpravka.Visible = False cmdok.Enabled = True CboVosst.Caption = " Восстановить удаленных " End If End Sub Программный код обработки нажатия кнопки «Восстановить из удаленных» на форме «Ввод преподавателя» Private Sub CboVosst_Click() If CboVosst.Caption <> " Отмена восстановления " Then cboydal_reg.Visible = True txtSpravka.Visible = True Кнопка10.Enabled = False cboPerehod.Visible = False CboVosst.Caption = " Отмена восстановления " Else cboydal_reg.Visible = False txtSpravka.Visible = False Кнопка10.Enabled = True cboPerehod.Visible = True CboVosst.Caption = " Восстановить удаленных " End If End Sub Программный код обработки нажатия кнопки «Закончил курс обучения» на форме «Перевод на другой курс» Private Sub cmdzanos_Click() a = cbogruppa.Value d = txtdata.Value If IsNull(a) = True Then MsgBox "Вы не выбрали группу или она уже удалена!" Exit Sub End If ' Для закончивших курс strConnect = "Provider = Microsoft.jet.Oledb.4.0; " & _ "Data Source= " & CurrentProject.Connection Set cnn = New ADODB.Connection cnn.ConnectionString = strConnect cnn.Mode = adModeReadWrite Debug.Print a Debug.Print d f = a & " " & Date Debug.Print f cnn.Open 'обновление названия группы в таблице Группа strqryprx = "UPDATE gruppa SET gruppa.Shifr_gruppa = 'В_'& [o] " & _ "WHERE (((gruppa.Shifr_gruppa)=[u]));" Set cmd = New ADODB.Command cmd.ActiveConnection = cnn cmd.CommandText = strqryprx cmd.CommandType = adCmdText Set prm1 = cmd.CreateParameter("oper", adChar, adParamInput, 20, f) cmd.Parameters.Append prm1 Set prm2 = cmd.CreateParameter("oper", adChar, adParamInput, 20, a) cmd.Parameters.Append prm2 Set rst = cmd.Execute 'обновление названия группы в таблице Студент strqryprx = "UPDATE Student SET Student.Shifr_gruppa = a & Date() " & _ "WHERE (((Student.Shifr_gruppa)=[Forms]![frm_perevod]![cbogruppa].[Value]));" Set cmd = New ADODB.Command cmd.ActiveConnection = cnn cmd.CommandText = strqryprx cmd.CommandType = adCmdText Set prm1 = cmd.CreateParameter("oper", adChar, adParamInput, 10, Date) cmd.Parameters.Append prm1 Set prm2 = cmd.CreateParameter("oper", adChar, adParamInput, 10, a) cmd.Parameters.Append prm2 Set rst = cmd.Execute cboinfo.AddItem ("Группа " & cbogruppa.Value & " закончила курс. Контрольные занесены в архив!") End Sub Программный код обработки события нажатия кнопки «Весь список» на форме «Регистрация контрольных работ». Private Sub cmdspisok_Click() If cmdspisok.Caption = "Весь список" Then cboprepod.RowSource = "SELECT Prepodavatel.Tabel_nomer, [familiaPR] & ' ' & [imayPR] & ' ' & [otchestvoPR] AS Выражение1, Prepodavatel.[status prepodavatelya] " & _ "FROM Prepodavatel " & _ "WHERE (((Prepodavatel.[status prepodavatelya])=1));" cmdspisok.Caption = "По дисциплине" Else cboprepod.RowSource = "SELECT Prepodavatel.Tabel_nomer, [familiaPR] & ' ' & [imayPR] & ' ' & [otchestvoPR] AS Выражение1, Prepodavatel.[status prepodavatelya] " & _ "FROM Prepodavatel INNER JOIN peresechenie ON Prepodavatel.Tabel_nomer = peresechenie.Tabel_nomer " & _ "WHERE (((peresechenie.Shifr_disziplina)=[Forms]![frm_registrazia_rabot]![cbodisziplina].[Value]) AND ((Prepodavatel.[status prepodavatelya])=1));" cmdspisok.Caption = "Весь список" End If End Sub Программный код обработки события открытия формы «Журнал регистрации» Private Sub cbovubord_AfterUpdate() Dim stDocName As String Dim stLinkCriteria As String If cbovuborg.Value <> "" Then strConnect = "Provider = Microsoft.jet.Oledb.4.0; " & _ "Data Source= " & CurrentProject.Connection Set cnn = New ADODB.Connection cnn.ConnectionString = strConnect cnn.Mode = adModeReadWrite cnn.Open strqryprx = "INSERT INTO zhurnal ( nomer_kontr_raboty, data_registr, Выражение1, data_proverki, Выражение2, id_ozenki ) " & _ "SELECT Kontrolnay_rabota.nomer_kontr_raboty, Kontrolnay_rabota.data_registr, [familiaST] & ' ' & [imaySt] & ' ' & [OtchestvoST] AS Выражение1, Kontrolnay_rabota.data_proverki, [familiaPR] & ' ' & [imayPR] & ' ' & [otchestvoPR] AS Выражение2, Kontrolnay_rabota.id_ozenki " & _ "FROM ozenka INNER JOIN ((Gruppa INNER JOIN Student ON Gruppa.Shifr_gruppa = Student.Shifr_gruppa) INNER JOIN (Kontrolnay_rabota INNER JOIN Prepodavatel ON Kontrolnay_rabota.Tabel_nomer = Prepodavatel.Tabel_nomer) ON Student.Nomer_bileta = Kontrolnay_rabota.Nomer_bileta) ON ozenka.id_ozenki = Kontrolnay_rabota.id_ozenki " & _ "WHERE (((Gruppa.Shifr_gruppa) = [Forms]![Frm_zhurnal_nachalo]![cbovuborg].[Value]) And ((Kontrolnay_rabota.Shifr_disziplina) = [Forms]![Frm_zhurnal_nachalo]![cbovubord].[Value])) " & _ "ORDER BY Kontrolnay_rabota.nomer_kontr_raboty;" Set cmd = New ADODB.Command cmd.ActiveConnection = cnn cmd.CommandText = strqryprx cmd.CommandType = adCmdText Set prm = cmd.CreateParameter("oper", adChar, adParamInput, 10, [Forms]![Frm_zhurnal_nachalo]![cbovuborg].[Value]) cmd.Parameters.Append prm Set prm1 = cmd.CreateParameter("oper", adChar, adParamInput, 150, [Forms]![Frm_zhurnal_nachalo]![cbovubord].[Value]) cmd.Parameters.Append prm1 cmd.Execute cnn.Close stDocName = "frm_zhurnal_konez" DoCmd.OpenForm stDocName, acNormal,, stLinkCriteria Exit Sub www: MsgBox "В журнале нет зарегистрированных контрольных работ" Exit Sub End If End Sub Программный код обработки события «Проверка контрольной работы». Private Sub naimenovanie_ozenka_AfterUpdate() strConnect = "Provider = Microsoft.jet.Oledb.4.0; " & _ "Data Source= " & CurrentProject.Connection Set cnn = New ADODB.Connection cnn.ConnectionString = strConnect cnn.Mode = adModeReadWrite cnn.Open Debug.Print [Forms]![frm_zhurnal_konez]![raboty].[Value] n = [Forms]![frm_zhurnal_konez]![raboty].[Value] Debug.Print "n " & n dp1 = Forms![frm_zhurnal_konez]![data_proverki].[Value] oc1 = Forms![frm_zhurnal_konez]![naimenovanie_ozenka].[Value] Do strqryprx = "UPDATE Kontrolnay_rabota SET Kontrolnay_rabota.data_proverki = [dp], Kontrolnay_rabota.id_ozenki = [oc] " & _ "WHERE (((Kontrolnay_rabota.nomer_kontr_raboty)=[u]));" Set cmd = New ADODB.Command cmd.ActiveConnection = cnn cmd.CommandText = strqryprx cmd.CommandType = adCmdText Set prm = cmd.CreateParameter("oper", adChar, adParamInput, 10, dp1) cmd.Parameters.Append prm Set prm1 = cmd.CreateParameter("oper", adChar, adParamInput, 10, oc1) cmd.Parameters.Append prm1 Set prm2 = cmd.CreateParameter("oper", adChar, adParamInput, 10, n) cmd.Parameters.Append prm2 Debug.Print prm cmd.Execute Loop While dp1 <> Null cnn.Close End Sub Программный код обработки события нажатия кнопки «Весь список» на форме «Регистрация контрольный работ» Private Sub cmdspisok_Click() If cmdspisok.Caption = "Весь список" Then cboprepod.RowSource = "SELECT Prepodavatel.Tabel_nomer, [familiaPR] & ' ' & [imayPR] & ' ' & [otchestvoPR] AS Выражение1, Prepodavatel.[status prepodavatelya] " & _ "FROM Prepodavatel " & _ "WHERE (((Prepodavatel.[status prepodavatelya])=1));" cmdspisok.Caption = "По дисциплине" Else cboprepod.RowSource = "SELECT Prepodavatel.Tabel_nomer, [familiaPR] & ' ' & [imayPR] & ' ' & [otchestvoPR] AS Выражение1, Prepodavatel.[status prepodavatelya] " & _ "FROM Prepodavatel INNER JOIN peresechenie ON Prepodavatel.Tabel_nomer = peresechenie.Tabel_nomer " & _ "WHERE (((peresechenie.Shifr_disziplina)=[Forms]![frm_registrazia_rabot]![cbodisziplina].[Value]) AND ((Prepodavatel.[status prepodavatelya])=1));" cmdspisok.Caption = "Весь список" End If End Sub Программный код php-скрипта для обновления таблицы с контрольными работами в БД MySQL <?php echo "<TITLE>Обновление базы данных</TITLE>"; echo "<H1 align = center> Обновление базы данных </H1> <HR> <HR>"; $soed=mysql_connect('localhost:3306','root',''); if ($soed == true) { echo "Соединение установлено успешно! <br>";} else { echo "Соединение не установлено! <br>"; exit;} mysql_query("set names cp1251"); $bd=mysql_select_db(kr,$soed); if ($bd == truе) { echo "База данных выбрана! <br>";} else { echo "Соединение с базой невозможно! <br>";exit;} echo "<br>"; $udal = "truncate table kontrolnay_rabota"; $zapros = mysql_query($udal,$soed) or die (mysql_error()); $sql="load data local infile 'L:\\kontrolnay_rabota.txt' replace into table Kontrolnay_rabota fields terminated by ';' enclosed by '\"' lines terminated by '\r\n' ;"; $zapros1=mysql_query($sql,$soed) or die(mysql_error()) ; echo "Данные занесены!!! Можете закрыть это окно"; ?> Программный код php-скрипта для обновления таблицы со студентами в БД MySQL <?php echo "<TITLE>Обновление базы данных</TITLE>"; echo "<H1 align = center> Обновление базы данных </H1> <HR> <HR>"; $soed=mysql_connect('localhost:3306','root',''); if ($soed == true) { echo "Соединение установлено успешно! <br>";} else { echo "Соединение не установлено! <br>"; exit;} mysql_query("set names cp1251");
Страницы: 1, 2, 3, 4, 5
| 
