Автоматизация проверки знаний и навыков студентов в области прикладной математики и информатики
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
t;: TRichEditBullets;: TRichEditAlignLeft;: TRichEditAlignRight;: TRichEditAlignCenter;: TPageControl;: TTabSheet;: TSplitter;: TSplitter;: TPanel;: TSplitter;: TPanel;: TLabel;: TLabel;: TLabel;: TDBMemo;: TDBEdit;: TGroupBox;: TDBCheckBox;: TDBCheckBox;: TDBCheckBox;: TComboEdit;: TComboBox;: TBitBtn;: TBitBtn;: TBitBtn;: TBitBtn;: TBitBtn;: TPanel;: TGroupBox;: TRxDBLookupList;: TGroupBox;: TRxDBLookupCombo;: TPanel;: TSplitter;: TPanel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TDBCtrlGrid;: TDBCheckBox;: TDBMemo;: TDBEdit;: TDBEdit;: TDBMemo;: TDBNavigator;: TPanel;: TLabel;: TLabel;: TLabel;: TLabel;: TDBEdit;: TComboBox;: TDBEdit;: TToolBar;: TFontComboBox;: TToolButton;: TComboBox;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TBitBtn;: TBitBtn;: TRxDBRichEdit;: TRxDBComboEdit;: TPanel;: TDBGrid;: TDBNavigator;isTimeLimitCBClick(Sender: TObject);btnTestAcceptClick(Sender: TObject);btnNewSectionClick(Sender: TObject);btnNewTestClick(Sender: TObject);btnDelTestClick(Sender: TObject);answerNavigatorClick(Sender: TObject; Button: TNavigateBtn);fontsComboBoxChange(Sender: TObject);fontSizeComboBoxChange(Sender: TObject);ToolButton11Click(Sender: TObject);btnTestCancelClick(Sender: TObject);btnQuestAcceptClick(Sender: TObject);btnQuestCancelClick(Sender: TObject);questionTextEditEnter(Sender: TObject);tbBoldClick(Sender: TObject);tbItalicClick(Sender: TObject);tbUnderlineClick(Sender: TObject);questionTextEditSelectionChange(Sender: TObject);tbLeftClick(Sender: TObject);tbCenterClick(Sender: TObject);tbInsertObjectClick(Sender: TObject);questionNavigatorClick(Sender: TObject;: TNavigateBtn);FormActivate(Sender: TObject);CurrText: TRxTextAttributes;
{ Private declarations }
{ Public declarations };
= record: integer;: string;;
= record: integer;: integer;: string;: string;: string;: integer;: integer;: integer;: boolean;: boolean;: string;: boolean;;
= record: integer;: integer;: integer;: string;: integer;: integer;: integer;: string;: TMemoryStream;;
= record: integer;: integer;: integer;: string;: integer;: boolean;: array [1..10,1..10] of integer;: TMemoryStream;;
: TteacherForm;, newSection : TSection;, newTest : TTest;, newQuestion : TQuestion;, newAnswer : TAnswer;: string;
uEditorDataModule, DB, ADODB, Math, uEditorAutentification;
{$R *.dfm}
0then:=questionTextEdit.SelAttributes:=questionTextEdit.DefAttributes;;">TteacherForm.CurrText: TRxTextAttributes;questionTextEdit.SelLength > 0 then:= questionTextEdit.SelAttributes:= questionTextEdit.DefAttributes;;
TteacherForm.isTimeLimitCBClick(Sender: TObject);isTimeLimitCB.Checked = true then.Enabled := True.Enabled := False;;
TteacherForm.btnTestAcceptClick(Sender: TObject);DataModule1.tabelTests do;(Test_type).AsInteger := testTypeCB.ItemIndex;(Test_time_limit).AsString := timeLimitEdit.Text;;;;;;
TteacherForm.btnNewSectionClick(Sender: TObject);
begin.Name := InputBox(Создание нового раздела,Введите название раздела,);
then:=INSERTINTOSections(Section_name)+">if newSection.Name <> then:= INSERT INTO Sections (Section_name) +
VALUES ( + newSection.Name + );.universalQuery.SQL.Clear;.universalQuery.SQL.Text := sqlString;.universalQuery.ExecSQL;.tabelSections.Close;.tabelSections.Open;exception do(Handle, Ошибка создания раздела, Ошибка, MB_OK or MB_ICONERROR);;;
TteacherForm.btnNewTestClick(Sender: TObject);
begin.name := InputBox(Создание нового теста,Введите название теста,);
then:=INSERTINTOTests(Test_section_ID,Test_name)+">if newTest.name <> then:= INSERT INTO Tests (Test_section_ID,Test_name) +
VALUES ( + DataModule1.tabelSections.FieldByName(Section_ID).AsString +
, + newTest.name + );DataModule1.universalQuery do.Clear;.Text := sqlString;;;.tabelTests.Close;.tabelTests.Open;exception do(Handle, Ошибка создания теста, Ошибка, MB_OK or MB_ICONERROR);;;;
TteacherForm.btnDelTestClick(Sender: TObject);:= DELETE FROM Tests WHERE Test_ID = +.tabelTests.FieldByName(Test_ID).AsString;DataModule1.universalQuery do.Clear;.Text := sqlString;;;.tabelTests.Close;.tabelTests.Open;;
TteacherForm.answerNavigatorClick(Sender: TObject;: TNavigateBtn);Button = nbInsert then((teacherForm.questionTypeCB.ItemIndex = 4) and (DataModule1.tabelAnswers.RecordCount = 1)) then(teacherForm.Handle,На вопрос типа "Свободный ввод" разрешен только один ответ,Добавление ответа невозможно,MB_OK or MB_ICONASTERISK);.tabelAnswers.First;.Refresh;;;
.tabelAnswers.Append;questionTypeCB.ItemIndex in [2, 3, 4] then.DataSource.DataSet.FieldByName(Answer_is_right).AsBoolean := true;.Refresh;;;;
TteacherForm.fontsComboBoxChange(Sender: TObject);.Name := fontsComboBox.FontName;;
TteacherForm.fontSizeComboBoxChange(Sender: TObject);.Size := StrToInt(fontSizeComboBox.Text);;
TteacherForm.ToolButton11Click(Sender: TObject);ColorDialog1.Execute then.Color := ColorDialog1.Color;;
TteacherForm.btnTestCancelClick(Sender: TObject);.tabelTests.Cancel;;
TteacherForm.btnQuestAcceptClick(Sender: TObject);DataModule1.tabelQuestions do;(Question_Type).AsInteger := questionTypeCB.ItemIndex;(Question_time).AsString := questionTimLimitEdit.Text;;;;;;
TteacherForm.btnQuestCancelClick(Sender: TObject);.tabelQuestions.Cancel;;
TteacherForm.questionTextEditEnter(Sender: TObject);.tabelQuestions.Edit;
TteacherForm.tbBoldClick(Sender: TObject);fsBold in CurrText.Style then.Down := false;.Style := CurrText.Style - [fsBold].Down := true;.Style := CurrText.Style + [fsBold];;;
TteacherForm.tbItalicClick(Sender: TObject);fsItalic in CurrText.Style then.Down := false;.Style := CurrText.Style - [fsItalic].Down := true;.Style := CurrText.Style + [fsItalic];;;
TteacherForm.tbUnderlineClick(Sender: TObject);fsUnderline in CurrText.Style then.Down := false;.Style := CurrText.Style - [fsUnderline].Down := true;.Style := CurrText.Style + [fsUnderline];;;
TteacherForm.questionTextEditSelectionChange(Sender: TObject);fsBold in CurrText.Style then.Down := true.Down := false;
fsItalic in CurrText.Style then.Down := true.Down := false;
fsUnderline in CurrText.Style then.Down := true.Down := false;;
TteacherForm.tbLeftClick(Sender: TObject);
// questionTextEdit.Alignment;;
TteacherForm.tbCenterClick(Sender: TObject);.Alignment := taCenter;;
TteacherForm.tbInsertObjectClick(Sender: TObject);questionTextEdit.InsertObjectDialog = true then.tabelQuestions.Edit;;
TteacherForm.questionNavigatorClick(Sender: TObject;: TNavigateBtn);Button = nbInsert then.tabelQuestions.Append;;
TteacherForm.FormActivate(Sender: TObject);.ADOConnection.Close;.tabelSections.Close;.tabelTests.Close;.tabelQuestions.Close;.tabelAnswers.Close;.ShowModal;;
.
Модуль администрированияuEditorAutentification;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Buttons;
= class(TForm): TEdit;: TEdit;: TLabel;: TLabel;: TBitBtn;: TBitBtn;FormCloseQuery(Sender: TObject; var CanClose: Boolean);
{ Private declarations }
{ Public declarations };
: TautentificationForm;
uEditorDataModule, uEditorMain;
{$R *.dfm}
TautentificationForm.FormCloseQuery(Sender: TObject;CanClose: Boolean);: string;(Sender as TautentificationForm).ModalResult = mrOk then((loginEdit.Text = ) and (passwordEdit.Text = )) then(Handle,Введите имя учетной записи и пароль,Ошибка!!!,MB_OK or MB_ICONERROR);:= false;.ADOConnection.Open;:= SELECT * from Users Where (User_group_id=1 or User_group_id=2) +
and (User_name= + loginEdit.Text + and User_password= +.Text + );
//ShowMessage(sqlStr);.ADOConnection.Open;.groupQuery.Open;.userQuery.Close;.userQuery.SQL.Text := sqlStr;.userQuery.Open;;DataModule1.userQuery.RecordCount = 1 then.tabelSections.Open;.tabelTests.Open;.tabelQuestions.Open;.tabelAnswers.Open;(Handle,Доступ запрещен!!!,Ошибка!!!,MB_OK or MB_ICONERROR);.Close;;;.Close;;;
.
uDataModule;
, Classes, DB, ADODB;
= class(TDataModule): TADOConnection;: TADOTable;: TADOTable;: TADOTable;: TDataSource;: TDataSource;: TDataSource;: TADOTable;: TDataSource;: TADOQuery;groupsDSDataChange(Sender: TObject; Field: TField);
{ Private declarations }
{ Public declarations };: TDataModule1;
{$R *.dfm}TDataModule1.groupsDSDataChange(Sender: TObject; Field: TField);: string;:= Select * from Sections,Group_sections where Group_sections.Gs_group_id= +.FieldByName(Group_id).AsStr