Диплом - Разработка системы компьютерного контроля знаний по дисциплинам кафедры
Подождите немного. Документ загружается.
interface
uses
SysUtils, Classes, SConnect, DB, DBClient, MConnect;
type
TDM1 = class(TDataModule)
DCOMConnection1: TDCOMConnection;
SocketConnection1: TSocketConnection;
ConnectionBroker1: TConnectionBroker;
ClientDataSetCommand: TClientDataSet;
ClientDataSetPredmet: TClientDataSet;
ClientDataSetTema: TClientDataSet;
DataSource1: TDataSource;
DataSource2: TDataSource;
ClientDataSetVopros: TClientDataSet;
ClientDataSetVariant: TClientDataSet;
DataSource3: TDataSource;
DataSource4: TDataSource;
WebConnection1: TWebConnection;
private
{ Private declarations }
public
{ Public declarations }
end;
var
DM1: TDM1;
ID_PREDMET:LongInt;
ID_TEMA:LongInt;
Vopros_Count,KolvoVopros:Integer;
VernoOtv,NeVernoOtv:Integer;
RecNom : Array of integer;
implementation
{$R *.dfm}
end.
Модуль Nastr_Connect. Настройки содинения с серверной частью.
unit Nastr_Connect;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Buttons;
type
152
TForm2 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
RadioGroup1: TRadioGroup;
SpeedButton1: TSpeedButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure RadioGroup1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses IniFiles, Find_Komp, DataMod;
{$R *.dfm}
procedure TForm2.FormCreate(Sender: TObject);
var Ini:TiniFile;
begin
if not FileExists(ChangeFileExt( Application.ExeName, '.INI')) then
begin
try
ini:=TiniFile.Create(ChangeFileExt( Application.ExeName, '.INI'));
Ini.WriteString('CONNECT', 'PCName','PC');
Ini.WriteInteger('CONNECT', 'TYPE',0);
Edit1.Text:='PC';
RadioGroup1.ItemIndex:=0;
finally
Ini.Free
end;
end else
begin
try
ini:=TiniFile.Create(ChangeFileExt( Application.ExeName, '.INI'));
Edit1.Text:=Ini.ReadString('CONNECT', 'PCName','PC');
RadioGroup1.ItemIndex:=Ini.ReadInteger('CONNECT', 'TYPE',0);
RadioGroup1Click(Sender);
finally
Ini.Free
end;
end;
153
end;
procedure TForm2.Button1Click(Sender: TObject);
var Ini:TiniFile;
begin
if Edit1.Text='' then exit;
try
ini:=TiniFile.Create(ChangeFileExt( Application.ExeName, '.INI'));
Ini.WriteString('CONNECT', 'PCName',Edit1.Text);
DM1.DCOMConnection1.ComputerName:=Edit1.Text;
DM1.SocketConnection1.Host:=Edit1.Text;
Ini.WriteInteger('CONNECT', 'TYPE',RadioGroup1.ItemIndex);
case RadioGroup1.ItemIndex of
0: DM1.ConnectionBroker1.Connection:=DM1.DCOMConnection1;
1: DM1.ConnectionBroker1.Connection:=DM1.SocketConnection1;
2: DM1.ConnectionBroker1.Connection:=DM1.WebConnection1;
end
finally
Ini.Free
end;
close
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
Close
end;
procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
Form7:=TForm7.Create(Self);
Form7.ShowModal;
if Form7.ModalResult=mrOK then
Edit1.Text:=Form7.ShellTreeView1.Path;
Form7.Free
end;
procedure TForm2.RadioGroup1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex=2 then
begin
Label1.Caption:='URL адрес';
SpeedButton1.Enabled:=False;
Edit1.Text:='http://PC/';//Scripts/
end
else begin
Label1.Caption:='Имя компьютера';
SpeedButton1.Enabled:=True;
end;
end;
end.
154
Вспомогательный модуль Find_Komp. Поиск компьютеров в
локальной сети, для настройки соединения с сервером.
unit Find_Komp;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ShellCtrls, StdCtrls;
type
TForm7 = class(TForm)
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
Button1: TButton;
Button2: TButton;
ShellTreeView1: TShellTreeView;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form7: TForm7;
implementation
{$R *.dfm}
end.
Модуль Vibor_testa. Диалоговое окно, в котором студент выбирает
предмет и тему по которым он хочет проверить свои знания.
unit Vibor_testa;
interface
155
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DBCtrls;
type
TForm4 = class(TForm)
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox2: TDBLookupComboBox;
GroupBox3: TGroupBox;
Button1: TButton;
Button2: TButton;
procedure DBLookupComboBox1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses DataMod, Otvet_test;
{$R *.dfm}
procedure TForm4.DBLookupComboBox1Click(Sender: TObject);
begin
if DBLookupComboBox2.text<>'' then
begin
DBLookupComboBox2.ListField:='';
DBLookupComboBox2.ListField:='TEMA';
end;
end;
procedure TForm4.Button2Click(Sender: TObject);
begin
Close
end;
procedure TForm4.Button1Click(Sender: TObject);
{ Procedure Podgotovka;
var I:Integer;
begin
Randomize;
For i:=1 to Vopros_Count do
156
begin
Random
end;
end;}
begin
if (DBLookupComboBox1.text='')or
(DBLookupComboBox2.text='') then exit;
ID_PREDMET:=DM1.ClientDataSetPredmet.FieldValues['PREDMET_ID'];
ID_TEMA:=DM1.ClientDataSetTema.FieldValues['TEMA_ID'];
Vopros_Count:=DM1.ClientDataSetTema.FieldValues['VOPROS_COUNT'];
DM1.ClientDataSetVopros.Open;
DM1.ClientDataSetVariant.Open;
DM1.ClientDataSetVopros.Filter:='PREDMET_ID='+IntToStr(ID_PREDMET)+
' AND TEMA_ID='+IntToStr(ID_TEMA);
DM1.ClientDataSetVopros.Filtered:=True;
DM1.ClientDataSetVopros.First;
if DM1.ClientDataSetVopros.RecordCount<Vopros_Count then
Vopros_Count:=DM1.ClientDataSetVopros.RecordCount;
SetLength(RecNom,DM1.ClientDataSetVopros.RecordCount+1);
Form5:=TForm5.Create(self);
Form5.ShowModal;
Form5.Free;
DM1.ClientDataSetVopros.Filter:='';
DM1.ClientDataSetVopros.Filtered:=False;
DM1.ClientDataSetVariant.Close;
DM1.ClientDataSetVopros.Close;
DM1.ClientDataSetTema.Close;
DM1.ClientDataSetPredmet.Close;
close;
end;
end.
Модуль Otvet_test. Диалоговое окно в котором студент отвечает на
предложенные ему вопросы.
unit Otvet_test;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, CheckLst, DBCtrls, ExtCtrls;
type
TForm5 = class(TForm)
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
CheckListBox1: TCheckListBox;
157
GroupBox3: TGroupBox;
Button1: TButton;
DBMemo1: TDBMemo;
Label1: TLabel;
Label2: TLabel;
Timer1: TTimer;
Timer2: TTimer;
Label3: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Timer1Timer(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
private
{ Private declarations }
public
Procedure NewVopros;
Procedure RandomVopros;
Procedure Time_Out;
{ Public declarations }
end;
var
Form5: TForm5;
times:LongInt;
implementation
uses DataMod;
{$R *.dfm}
procedure TForm5.NewVopros;
begin
CheckListBox1.Items.Clear;
DM1.ClientDataSetVariant.First;
While Not DM1.ClientDataSetVariant.Eof do
begin
CheckListBox1.Items.Add(DM1.ClientDataSetVariant.FieldValues['OTVET']);
DM1.ClientDataSetVariant.Next;
end;
inc(KolvoVopros);
end;
Procedure TForm5.Time_Out;
begin
if DM1.ClientDataSetVopros.FieldValues['TIME_OUT']<>0 then
begin
Times:=60*DM1.ClientDataSetVopros.FieldValues['TIME_OUT'];
Timer1.Interval:=60*DM1.ClientDataSetVopros.FieldValues['TIME_OUT']*1000;
Timer2.Interval:=1000;
Label3.Caption:='Осталось времени: '
+IntToStr(Times)
+' секунд';
Timer1.Enabled:=True;
Timer2.Enabled:=True;
158
end else
begin
Timer1.Interval:=0;
Timer2.Interval:=0;
end;
end;
Procedure TForm5.RandomVopros;
var NomVopros:Integer;
begin
Randomize;
repeat
NomVopros:=Random(DM1.ClientDataSetVopros.RecordCount)+1;
DM1.ClientDataSetVopros.RecNo:=NomVopros;
until RecNom[DM1.ClientDataSetVopros.RecNo]=0;
RecNom[DM1.ClientDataSetVopros.RecNo]:=DM1.ClientDataSetVopros.RecNo;
end;
procedure TForm5.FormCreate(Sender: TObject);
begin
RandomVopros;
NewVopros;
Time_Out;
NeVernoOtv:=0;
VernoOtv:=0;
end;
procedure TForm5.Button1Click(Sender: TObject);
var i:integer;
Est:Integer;
begin
Timer1.Enabled:=False;
Timer2.Enabled:=False;
for i:=0 to CheckListBox1.Items.Count-1 do
begin
if CheckListBox1.Checked[i] then
begin
DM1.ClientDataSetVariant.RecNo:=i+1;
if Boolean(DM1.ClientDataSetVariant.FieldValues['VERNO']) then inc(VernoOtv)
else inc(NeVernoOtv);
end;
Label1.Caption:=IntToStr(VernoOtv)+'\'+IntToStr(NeVernoOtv);
end;
if KolvoVopros<>Vopros_Count then
begin
RandomVopros;
NewVopros;
Time_Out;
end
else begin
try
159
DM1.ConnectionBroker1.AppServer.Ocenka(ID_PREDMET,
ID_TEMA,Vopros_Count,VernoOtv,NeVernoOtv,Est);
except
on E:Exception do
begin
MessageDLG(Format('Ошибка, нет связи с сервером: %S',[E.Message]),
mtError,[mbOK],0);
exit;
end;
end;
ShowMessage('Вопросов больше нет! Ваша оценка '+IntToStr(Est));
Close;
end;
end;
procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if KolvoVopros<>Vopros_Count then Action:=caNone
else Action:=caFree;
end;
procedure TForm5.Timer1Timer(Sender: TObject);
begin
ShowMessage('Время истекло');
if KolvoVopros<>Vopros_Count then
begin
RandomVopros;
NewVopros;
Time_Out;
end
end;
procedure TForm5.Timer2Timer(Sender: TObject);
begin
dec(Times);
Label3.Caption:='Осталось времени: '
+IntToStr(Times)
+' секунд';
if (Times>0) AND (Times<=10) then MessageBeep(MB_ICONHAND);
end;
end.
160
Список литературы
1. «Delphi и технология COM». Н. Елманова, С. Трепалин, А. Тенцер.
«Питер», 2003 год.
2. «Язык SQL: учебный курс». Л. Шкарина. «Питер», 2001 год.
3. «Телекоммуникационные системы и вычислительные сети». Б.В.
Костров. «Десс», 2005 год.
4. «Delphi 5 Руководство разработчика». Том 1. С. Тейксейра, К. Пачеко.
«Вильямс», 2001 год.
5. «Delphi 5 Руководство разработчика». Том 2. С. Тейксейра, К. Пачеко.
«Вильямс», 2001 год.
6. «Delphi Разработка баз данных». А. Сорокин. «Питер», 2005 год.
7. «Internet information Services 5.0. Справочник администратора». У.
Станек. «Русская редакция», 2002 год.
8. «Windows Server 2003. Практическое руководство по настройке сети».
П. Шетка. «Наука и техника», 2006 год.
9. «Безопасность Windows Server 2003». Д. Скембрей, С. Мак-Клар.
«Вильямс», 2004 год.
10. Электронная справочная система «Delphi Word» Версия 6.0.
11. Электронный справочник по функциям Windows API.
12. «COM и ActiveX в Delphi». Пономарев В. «BHV-Петербург», 2001 год.
13. «Microsoft SQL Server 2000». Е. Мамаев. «BHV-Петербург», 2004 год.
14. Технологии распределенных баз данных http://ami.nstu.ru/~vms/lecture/
lecture10/ lecture10.html.
15. InterBase 6 Embedded SQLGuide, Borland.
16. «Компьютерные сети, принципы, технологии, протоколы». В. Г.
Олифер, Н.А. Олифер. «Питер», 2001 год.
17. «Протоколы Internet». С. Золотов. «BHV-Петербург», 1998 год.
18. «Основы построения сетей. Учебное руководство для специалистов
MCSE». Д. Челлис, Ч. Перкинс, М. Стриб. «Лори», 1997 год.
161