Диплом - Разработка системы компьютерного контроля знаний по дисциплинам кафедры

Подождите немного. Документ загружается.

Predmet_ID:=Form1.ClientDataSetPredmet['PREDMET_ID'];

Tema_ID:=Form1.ClientDataSetTema['TEMA_ID'];

if RzStringGrid1.RowCount>=1 then

begin

Sql:='INSERT INTO VARIANT

(VOPROS_ID,PREDMET_ID,TEMA_ID,OTVET,VERNO) ';

if RzStringGrid1.RowCount=1 then RowCount:=1

else RowCount:=RzStringGrid1.RowCount-1;

for i:=1 to RowCount do

begin

Sql1:=' VALUES( '+IntToStr(Vopros_ID)+','+

IntToStr(Predmet_ID)+','+

IntToStr(Tema_ID)+','+''''+

RzStringGrid1.Cells[0,i]+''',';

if RowVerno=i then Sql2:='true)'

else Sql2:='false)';

Form1.ClientDataSetQuery.CommandText:=sql+sql1+Sql2;

Form1.ClientDataSetQuery.Execute;

Form1.ClientDataSetVariant.Refresh;

end;

if Form1.ClientDataSetVariant.ApplyUpdates(-1)<>0 then

Form1.ClientDataSetVariant.Refresh;

end;

procedure TDlgFrmAddVopros.Button2Click(Sender: TObject);

begin

end;

end.

Модуль Excel. Предназначен для вывода результатов тестирования

студентов в формате MS Excel.

unit Excel;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics,Forms, Controls,Dialogs,Variants;

Type

TSetBordertype=(btMedium,btThin);

type

TSetTypeCell =(tcGeneral,tcNum,tcCurrency,tcFinans,tcData,tcTime,

tcProc,tcExpo,tcText);

type

TSetExcelAlign=(exCenter,exLeft,exRight,exBottom,exTop,exGeneral,exJustify);

//xlGeneral xlJustify xlTop

procedure NewWorkShet(aVisible:Boolean);

procedure CloseWorkShet;

// function GetCellValue(Vr,Hr:OleVariant):OleVariant;

142

procedure SetCellValue(Vi,Hi,Value:OleVariant);

procedure SetCellRangeValue(Vr,Hr,Value:OleVariant);

procedure VisibleWorkShet(aVisible:Boolean);

procedure OpenWorkShet;

procedure FormatCell(Vr,Hr:OleVariant;HorAlign,VerAlign:TSetExcelAlign;

Wrap,Merg,Boldd,NamFont,SizeFont:OleVariant);

procedure TypeCell(Vr,Hr:OleVariant;typ:TSetTypeCell);

procedure BorderCell(Vr,Hr:OleVariant;Typ:OleVariant);

procedure SetCellRangeWidth(Vr,Hr,Value:OleVariant);

procedure SetCellWidth(Vi,Hi,Value:OleVariant);

procedure SetCellRangeHeight(Vr,Hr,Value:OleVariant);

procedure SetCellHeight(Vi,Hi,Value:OleVariant);

procedure SaveAsWorkShet;

procedure Save(FileName:String);

procedure PrintWorkShet(PrinterName,PageNumer:OleVariant);

procedure Preview;

procedure CloseExcel;

procedure RunExcel;

var Visible:Boolean;

FileName:String;

AppProgID:String;

ServerIsRunning:Boolean;

ExcelApp:Variant;

Result:HResult;

Unknown:IUnknown;

implementation

uses ExcelXP,Printers,ComObj,ActiveX;

procedure Preview;

begin

ExcelApp.ActiveWorkbook.PrintPreview(True,0);

end;

procedure PrintWorkShet(PrinterName,PageNumer:OleVariant);

begin

ExcelApp.ActiveWorkbook.PrintOut(NULL,NULL,PageNumer,False,PrinterName,False,NULL

,NULL,0);

end;

procedure Save(FileName:String);

begin

ExcelApp.ActiveWorkbook.SaveAs(FileName);

end;

procedure SaveAsWorkShet;

var FSave:TSaveDialog;

begin

//if Not NewOrOpen then Exit;

try

FSave:=TSaveDialog.Create(Nil);

FSave.Title:='Сохранить файл Microsoft Excel';

FSave.DefaultExt:='xls';

143

FSave.Filter:='Excel files|*.XLS';

if FSave.Execute then

begin

ExcelApp.ActiveWorkbook.SaveAs(FSave.FileName,xlNormal,Null,Null,False,False,

XlNoChange,XlUserResolution,False,False,False,False,0);

end;

finally

FSave.Free;

FSave:=Nil;

end;

procedure SetCellRangeWidth(Vr,Hr,Value:OleVariant);

begin

ExcelApp.Workbooks[1].WorkSheets[1].

Range[Vr+':'+Hr].ColumnWidth:=Value;

end;//new

procedure SetCellWidth(Vi,Hi,Value:OleVariant);

begin

ExcelApp.Workbooks[1].WorkSheets[1].

Cells[Vi,Hi].ColumnWidth:=Value;

end;

procedure SetCellRangeHeight(Vr,Hr,Value:OleVariant);

begin

ExcelApp.Workbooks[1].WorkSheets[1].

Range[Vr+':'+Hr].RowHeight:=Value;

end;

procedure SetCellHeight(Vi,Hi,Value:OleVariant);

begin

ExcelApp.Workbooks[1].WorkSheets[1].

Cells[Vi,Hi].RowHeight:=Value;

end;

procedure TypeCell(Vr,Hr:OleVariant;typ:TSetTypeCell);

begin

case Typ of

tcGeneral :

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].

NumberFormat:='General';

tcNum :

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].

NumberFormat:='0,00';

tcCurrency:

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].

// NumberFormat:='#,##0,00$';

NumberFormat:='0,00руб.';

tcFinans :

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].

NumberFormat:='_($* 0,00_);_($* (0,00);_($* ""-""??_);_(@_)';

tcData :

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].

144

NumberFormat:='dd/mm/yyyy';

tcTime :

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].

NumberFormat:='[$-F400]h:mm:ss AM/PM';

tcProc :

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].

NumberFormat:='0,00%';

tcExpo :

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].

NumberFormat:='0,00E+00';

tcText :

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].

NumberFormat:='@';

end;

procedure FormatCell(Vr,Hr:OleVariant;HorAlign,VerAlign:TSetExcelAlign;

Wrap,Merg,Boldd,NamFont,SizeFont:OleVariant);

begin

Case HorAlign of

exCenter:

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].

HorizontalAlignment:=xlCenter;

exLeft:

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].

HorizontalAlignment:=xlLeft;

exRight:

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].

HorizontalAlignment:=xlRight;

exJustify:

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].

HorizontalAlignment:=xlJustify;

exGeneral:

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].

HorizontalAlignment:=xlGeneral;

end;

Case VerAlign of

exCenter:

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].

VerticalAlignment:=xlCenter;

exBottom:

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].

VerticalAlignment:=xlBottom;

exTop:

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].

VerticalAlignment:=xlTop;

exJustify:

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].

VerticalAlignment:=xlJustify;

exGeneral:

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].

VerticalAlignment:=xlGeneral;

145

end;

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].WrapText:=Wrap;

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].Orientation:=0;

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].AddIndent:=False;

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].IndentLevel:=0;

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].ShrinkToFit:=False;

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].ReadingOrder:=xlContext;

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].MergeCells:=Merg;

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].Font.Name:=NamFont;

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].Font.Size:=SizeFont;

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].Font.Bold:=Boldd;

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].Font.Strikethrough:=False;

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].Font.Superscript:=False;

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].Font.Subscript:=False;

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].Font.OutlineFont:=False;

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].Font.Shadow:=False;

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].Font.Underline:=xlUnderlineStyleNo

ne;

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].Font.ColorIndex:= xlAutomatic;

end;

procedure OpenWorkShet;

var FileOpen:TOpenDialog;

begin

try

FileOpen:=TOpenDialog.Create(Nil);

FileOpen.Title:='Открыть файл Microsoft Excel';

FileOpen.Filter:='Excel files|*.XLS';

if FileOpen.Execute then

begin

FileName:=FileOpen.FileName;

ExcelApp.WorkBooks.Open(FileName,False,False,Null,Null,Null,False,Null,

Null,Null,Null,Null,Null,Null,Null,0);

// NewOrOpen:=True;

end;

finally

FileOpen.Free;

FileOpen:=nil

end

end;

procedure BorderCell(Vr,Hr:OleVariant;Typ:OleVariant);

begin

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].Select;

ExcelApp.Selection.Borders[xlDiagonalDown].LineStyle:=xlNone;

ExcelApp.Selection.Borders[xlDiagonalUp].LineStyle:=xlNone;

ExcelApp.Selection.Borders.LineStyle:=xlContinuous;

ExcelApp.Selection.Borders.Weight:=xlMedium;

ExcelApp.Selection.Borders.ColorIndex:=xlAutomatic;

ExcelApp.Selection.Borders[xlInsideVertical].LineStyle:=xlNone;

ExcelApp.Selection.Borders[xlInsideHorizontal].LineStyle:=xlNone;

146

end;//new

procedure VisibleWorkShet(aVisible:Boolean);

begin

if Visible and not aVisible then

begin

ExcelApp.Visible:=false;

visible:=False

end;

if Not Visible and aVisible then

begin

ExcelApp.Visible:=True;

Visible:=True;

end;

end;//new

procedure NewWorkShet(aVisible:Boolean);

begin

ExcelApp.workbooks.Add;

if aVisible then

begin

ExcelApp.Visible:=aVisible;

Visible:=aVisible;

end;

procedure CloseWorkShet;

begin

VisibleWorkShet(False);

ExcelApp.Workbooks.Close;

end;

procedure SetCellRangeValue(Vr,Hr,Value:OleVariant);

begin

ExcelApp.Workbooks[1].WorkSheets[1].Range[Vr+':'+Hr].Value:=Value;

end;

procedure SetCellValue(Vi,Hi,Value:OleVariant);

begin

ExcelApp.Workbooks[1].WorkSheets[1].Cells[Vi,Hi].Value:=Value;

end;

function GetCellValue(Vr,Hr:OleVariant):OleVariant;

begin

// RangeE:=FExcelApp.Range[Vr,Hr];

// RangeE:=RangeE.Range[Vr,Hr];

// result:=RangeE.Value[RangeE];

end;

procedure CloseExcel;

begin

if not ServerIsRunning then ExcelApp.Quit;

ExcelApp:=Unassigned;

147

// ExcelApp.Quit;

end;

procedure RunExcel;

begin

AppProgID:='Excel.Application';

ServerIsRunning:=False;

ExcelApp:=CreateOleObject(AppProgID);

ExcelApp.Visible:=False;

ExcelApp.DisplayAlerts:=False;

end;

end.

Исходный код клиентской части программного комплекса.

program Ekzamen;

uses

Forms,

main in 'main.pas' {Form1},

DataMod in 'DataMod.pas' {DM1: TDataModule},

Nastr_Connect in 'Nastr_Connect.pas' {Form2},

Find_Komp in 'Find_Komp.pas' {Form7},

UserLogin in 'UserLogin.pas' {Form3},

Vibor_testa in 'Vibor_testa.pas' {Form4},

Otvet_test in 'Otvet_test.pas' {Form5};

{$R *.res}

begin

Application.Initialize;

Application.Title := 'Тестирование';

Application.CreateForm(TDM1, DM1);

Application.CreateForm(TForm1, Form1);

Application.Run;

end.

Главный модуль клиентской части программного комплекса.

unit main;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ToolWin, ComCtrls, Menus, Sockets, jpeg, ExtCtrls, RzGroupBar,

RzPanel, RzStatus, ImgList, XPMan, RzBHints, RzButton;

type

TForm1 = class(TForm)

TcpServer1: TTcpServer;

RzGroupBar1: TRzGroupBar;

148

RzGroup1: TRzGroup;

RzGroup2: TRzGroup;

RzStatusBar1: TRzStatusBar;

RzToolbar1: TRzToolbar;

ImageList1: TImageList;

RzBalloonHints1: TRzBalloonHints;

Image1: TImage;

RzToolButton1: TRzToolButton;

RzStatusPane1: TRzStatusPane;

RzClockStatus1: TRzClockStatus;

RzToolButton2: TRzToolButton;

RzSpacer1: TRzSpacer;

RzToolButton3: TRzToolButton;

procedure FormCreate(Sender: TObject);

procedure Nasr_PodklClick(Sender: TObject);

procedure PodklClick(Sender: TObject);

procedure Test_VoprosClick(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses DataMod,IniFiles, Nastr_Connect, UserLogin, Vibor_testa;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var Ini:TiniFile;

PC:String;

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);

ShowMessage('Не найден файл настроек. Необходимо заново настроить поключение');

finally

Ini.Free

end;

end else

begin

try

ini:=TiniFile.Create(ChangeFileExt( Application.ExeName, '.INI'));

PC:=Ini.ReadString('CONNECT', 'PCName','PC');

149

DM1.DCOMConnection1.ComputerName:=PC;

DM1.SocketConnection1.Host:=PC;

case Ini.ReadInteger('CONNECT','TYPE',0) of

0: DM1.ConnectionBroker1.Connection:=DM1.DCOMConnection1;

1: DM1.ConnectionBroker1.Connection:=DM1.SocketConnection1;

2: DM1.ConnectionBroker1.Connection:=DM1.WebConnection1;

end;

finally

Ini.Free

end;

procedure TForm1.Nasr_PodklClick(Sender: TObject);

begin

Form2:=TForm2.Create(self);

Form2.ShowModal;

Form2.Free;

end;

procedure TForm1.PodklClick(Sender: TObject);

var S1,S2,S3:string;

procedure MenuEnable;

begin

RzGroup1.Items.Items[0].Enabled:=not RzGroup1.Items.Items[0].Enabled;

RzGroup2.Items.Items[1].Enabled:=not RzGroup2.Items.Items[1].Enabled;

RzToolButton3.Enabled:=not RzToolButton3.Enabled;

RzToolButton2.Enabled:=not RzToolButton2.Enabled;

end;

begin

//подключение\отключение к серверу

if DM1.ConnectionBroker1.Connected then

begin

DM1.ConnectionBroker1.Connected:=False;

RzGroup2.Items.Items[0].Caption:='Подключение';

RzStatusPane1.Caption:='Статус: Отключен от сервера';

MenuEnable;

TcpServer1.Close;

end else

begin

Form3:=TForm3.Create(Self);

Form3.ShowModal;

if Form3.ModalResult=mrOK then

begin

try

DM1.ConnectionBroker1.Connected:=True;

except

on E:Exception do

begin

150

MessageDLG(Format('Ошибка подключения к серверу: %S',[E.Message]),

mtError,[mbOK],0);

exit;

end;

end;//except

if DM1.ConnectionBroker1.AppServer.Login(Form3.Edit1.Text,Form3.Edit2.Text) then

begin

RzGroup2.Items.Items[0].Caption:='Отключение';

RzStatusPane1.Caption:='Статус: Подключен к серверу';

MenuEnable;

TcpServer1.Open;

S1:=TcpServer1.LookupHostAddr(TcpServer1.LookupHostName(''));

S2:=TcpServer1.LocalHostAddr;

S3:=TcpServer1.LocalHostName;

DM1.ConnectionBroker1.AppServer.IPAdress(S1,S2,S3);

end else

begin

DM1.ConnectionBroker1.Connected:=False;

ShowMessage('Имя пользователя или пароль не опознаны сервером');

end;

form3.Free

end;

procedure TForm1.Test_VoprosClick(Sender: TObject);

begin

DM1.ClientDataSetPredmet.Open;

DM1.ClientDataSetTema.Open;

Form4:=TForm4.Create(Self);

Form4.ShowModal;

Form4.Free;

DM1.ClientDataSetTema.Close;

DM1.ClientDataSetPredmet.Close;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

if DM1.ConnectionBroker1.Connected then DM1.ConnectionBroker1.Connected:=False;

if TcpServer1.Active then TcpServer1.Close;

DM1.ConnectionBroker1.Connection:=nil;

Action:=caFree;

end;

end.

Модуль DataMod. Модуль данных.

unit DataMod;

151