Помощь в написании студенческих работ
Антистрессовый сервис

Код программы для тестирования

Реферат: Код программы для тестирования
РефератПомощь в написанииУзнать стоимостьмоей работы

Var i, cavb: 0.255; begin if AlphaBlend=False then begin AlphaBlendValue:=255; AlphaBlend:=True; end; cavb:=AlphaBlendValue; for i := cavb downto 0 do begin AlphaBlendValue := i; Application. ProcessMessages; end end; If MessageDlg ('Тестирование не завершено, вы уверены, что хотите закрыть программу?', mtConfirmation, mbOKCancel, 0) = mrOk. N'''+ Ed_FIO.Text +''','+ IntToStr (bilet… Читать ещё >

Код программы для тестирования (реферат, курсовая, диплом, контрольная)

Код программы для тестирования:

unit MainFRM;

interface.

uses.

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

Dialogs, ComCtrls, StdCtrls, ExtCtrls, DB, ADODB, jpeg, Grids, DBGrids,.

DBCtrls, XPMan, sSkinManager, sEdit, sButton, sPageControl, sRadioButton,.

sMemo, ToolWin, acCoolBar, Mask, sDBEdit, sComboBox, sTrackBar, sLabel, GIFImg,.

acPNG, sBevel, sGauge, sToolBar, sTabControl, ImgList, acAlphaImageList,.

ActnList, XPStyleActnCtrls, ActnMan, ActnCtrls, ActnMenus, sPanel, sGroupBox,.

Menus, sDBText, Buttons, sBitBtn, OleCtrls, ShockwaveFlashObjects_TLB,.

ShockwaveEx, ShockwaveList, sStatusBar, sDBNavigator, sSkinProvider,.

RibbonLunaStyleActnCtrls, Ribbon, sHintManager;

type.

TForm1 = class (TForm).

PageControl1: TsPageControl;

sTabSheet1: TsTabSheet;

sTabSheet2: TsTabSheet;

Image1: TImage;

Memo1: TsMemo;

RadioButton1: TsRadioButton;

RadioButton2: TsRadioButton;

RadioButton3: TsRadioButton;

RadioButton4: TsRadioButton;

RadioButton5: TsRadioButton;

sTabSheet3: TsTabSheet;

DataSource1: TDataSource;

ADOQuery1: TADOQuery;

sSkinManager1: TsSkinManager;

DataSource2: TDataSource;

sGroupBox1: TsGroupBox;

sDBEdit5: TsDBEdit;

sLabelFX3: TsLabelFX;

sLabelFX4: TsLabelFX;

sDBEdit4: TsDBEdit;

sDBEdit3: TsDBEdit;

sLabelFX2: TsLabelFX;

sDBEdit2: TsDBEdit;

sDBEdit1: TsDBEdit;

sLabelFX5: TsLabelFX;

sLabelFX1: TsLabelFX;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

sPanel1: TsPanel;

sDBText2: TsDBText;

sDBText4: TsDBText;

sBitBtn1: TsBitBtn;

sLabelFX6: TsLabelFX;

sEdit1: TsEdit;

sEdit2: TsEdit;

Timer1: TTimer;

ShockwaveFlashList1: TShockwaveFlashList;

Ed_FIO: TsEdit;

sButton1: TsButton;

sComboBox1: TsComboBox;

sButton5: TsButton;

sButton4: TsButton;

sButton6: TsButton;

sButton3: TsButton;

sButton2: TsButton;

sStatusBar1: TsStatusBar;

sLabelFX7: TsLabelFX;

sLabel1: TsLabel;

sLabel2: TsLabel;

sLabelFX8: TsLabelFX;

ADOTable1: TADOTable;

ADOTable2: TADOTable;

N11: TMenuItem;

sDBNavigator1: TsDBNavigator;

sHintManager1: TsHintManager;

procedure Next ();

procedure FormCreate (Sender: TObject);

procedure RadioButton1Click (Sender: TObject);

procedure sButton1Click (Sender: TObject);

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

procedure sComboBox1Change (Sender: TObject);

procedure actExecExecute (Sender: TObject);

procedure FormActivate (Sender: TObject);

procedure N4Click (Sender: TObject);

procedure N2Click (Sender: TObject);

procedure N9Click (Sender: TObject);

procedure sButton3Click (Sender: TObject);

procedure sButton5Click (Sender: TObject);

procedure sButton4Click (Sender: TObject);

procedure sButton2Click (Sender: TObject);

procedure N8Click (Sender: TObject);

procedure N10Click (Sender: TObject);

procedure sButton6Click (Sender: TObject);

procedure sBitBtn1Click (Sender: TObject);

procedure Timer1Timer (Sender: TObject);

procedure Ed_FIOClick (Sender: TObject);

procedure N7Click (Sender: TObject);

procedure N11Click (Sender: TObject);

procedure sDBNavigator1Click (Sender: TObject; Button: TNavigateBtn);

procedure sBitBtn2Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form1: TForm1;

bilet, errcount: Integer;

errvopros, r: string;

implementation.

uses About, ComObj;

{$R *.dfm}.

var.

min: integer;

sec: integer;

procedure ShowTime;

var.

buf: string[20];

begin.

if min < 10 then.

buf := '0' + IntToStr (min) + ':'.

else.

buf := IntToStr (min) + ':';

if sec < 10 then.

buf := buf + '0' + IntToStr (sec).

else.

buf := buf + IntToStr (sec);

Form1.sLabelFX6.Caption := buf;

end;

procedure TForm1. actExecExecute (Sender: TObject);

begin.

close ();

end;

procedure TForm1. Ed_FIOClick (Sender: TObject);

begin.

Ed_FIO.Clear;

end;

procedure TForm1. FormActivate (Sender: TObject);

begin.

sDBEdit6.Text:=DateTimeToStr (date);

ADOTable1.Active:=true;

ADOTable2.Active:=true;

end;

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

var i, cavb: 0.255; begin if AlphaBlend=False then begin AlphaBlendValue:=255; AlphaBlend:=True; end; cavb:=AlphaBlendValue; for i := cavb downto 0 do begin AlphaBlendValue := i; Application. ProcessMessages; end end;

procedure TForm1. FormCreate (Sender: TObject);

begin.

PageControl1.TabIndex := 0;

sSkinManager1.GetSkinNames (sComboBox1.Items);

end;

procedure TForm1. N10Click (Sender: TObject);

begin.

N10.Visible:=false;

N2.Visible:=true;

Ed_FIO.Visible:=false;

sButton1.Visible:=false;

end;

procedure TForm1. N11Click (Sender: TObject);

begin.

Close ();

end;

procedure TForm1. N2Click (Sender: TObject);

begin.

Ed_FIO.Visible:=true;

sButton1.Visible:=true;

N10.Visible:=true;

N2.Visible:=false;

end;

procedure TForm1. N4Click (Sender: TObject);

begin.

close ();

end;

procedure TForm1. N7Click (Sender: TObject);

begin.

Form2.showmodal;

end;

procedure TForm1. N8Click (Sender: TObject);

begin.

sComboBox1.Visible:=true;

sButton5.Visible:=true;

sButton5.Visible:=false;

sButton4.Visible:=true;

sButton4.Visible:=false;

sButton2.Visible:=true;

sButton3.Visible:=true;

sButton6.Visible:=true;

end;

procedure TForm1. N9Click (Sender: TObject);

begin.

if MessageDlg ('Тестирование не завершено, вы уверены, что хотите закрыть программу?', mtConfirmation, mbOKCancel, 0) = mrOk.

then Close ();

end;

procedure TForm1. Next ();

begin.

if FileExists ('Img + IntToStr (bilet) + '_' + IntToStr (ADOTable1.RecNo) + '.jpg') then.

begin.

Image1.Picture.LoadFromFile ('Img + IntToStr (bilet) + '_' + IntToStr (ADOTable1.RecNo) + '.jpg');

end else begin.

Null;

end;

Memo1.Text := ADOTable1. FieldByName ('Caption').AsString;

RadioButton1.Caption := ADOTable1. FieldByName ('Otvet1').AsString;

RadioButton2.Caption := ADOTable1. FieldByName ('Otvet2').AsString;

if ADOTable1. FieldByName ('Otvet3').AsString '' then.

begin.

RadioButton3.Caption := ADOTable1. FieldByName ('Otvet3').AsString;

RadioButton3.Visible := True;

end;

if ADOTable1. FieldByName ('Otvet4').AsString '' then.

begin.

RadioButton4.Caption := ADOTable1. FieldByName ('Otvet4').AsString;

RadioButton4.Visible := True;

end;

if ADOTable1. FieldByName ('Otvet5').AsString '' then.

begin.

RadioButton5.Caption := ADOTable1. FieldByName ('Otvet5').AsString;

RadioButton5.Visible := True;

end;

end;

procedure TForm1. RadioButton1Click (Sender: TObject);

begin.

if MessageDlg ('Вы уверены в своём ответе?', mtConfirmation, mbOKCancel, 0) = mrCancel.

then abort;

if (Sender as TRadioButton).Caption ADOTable1. FieldByName ('Otvet_t').AsString then.

begin.

errcount := errcount + 1;

if errvopros = '' then.

begin.

errvopros := IntToStr (ADOTable1.RecNo);

end else begin.

errvopros := errvopros + ', ' + IntToStr (ADOTable1.RecNo);

end;

end;

if ADOTable1. RecNo = 20 then // Количество вопросов в билете.

begin.

if errcount < 3 then.

begin.

r := 'Сдали';

end else begin.

r := 'Не сдали';

end;

ADOQuery1.SQL.Text := 'INSERT INTO Results' +.

'([FIO],[Bilet],[ErrCounts],[ErrVopros],[Result]) VALUES' +.

'(N'''+ Ed_FIO.Text +''','+ IntToStr (bilet) +','+ IntToStr (errcount) +', N'''+ errvopros +''','+ 'N'''+ r +''')';

ADOQuery1.ExecSQL;

ADOTable2.Active:=false;

ADOTable2.Active:=true;

ADOTable2.Last;

PageControl1.TabIndex := 2;

N11.Visible:=true;

N9.Visible:=false;

Abort;

end;

ADOTable1.RecNo := ADOTable1. RecNo + 1;

RadioButton3.Visible := false;

RadioButton4.Visible := false;

RadioButton5.Visible := false;

Next;

(Sender as TRadioButton).Checked := false;

end;

procedure TForm1. sBitBtn1Click (Sender: TObject);

begin.

PageControl1.TabIndex := 0;

Ed_FIO.Clear;

Ed_FIO.Text:= 'Введите ФИО';

ADOTable1.Active:=false;

ADOTable1.Active:=true;

ADOTable2.Active:=false;

ADOTable2.Active:=true;

N1.Visible:=true;

N2.Visible:=true;

N10.Visible:=false;

N8.Visible:=true;

N9.Visible:=false;

N11.Visible:=false;

Timer1.Enabled := false;

end;

procedure TForm1. sButton1Click (Sender: TObject);

begin.

Ed_FIO.Visible:=false;

sButton1.Visible:=false;

N1.Visible:=false;

N9.Visible:=true;

N8.Visible:=false;

Randomize;

bilet := 1 + Random (5); // Количество выпадение случайного билета.

ADOTable1.Filter := 'Bilets = ' + IntToStr (bilet);

ADOTable1.Filtered := True;

ADOTable1.RecNo := 1;

Next;

PageControl1.TabIndex := 1;

if Form1. Timer1.Enabled then.

begin.

Timer1.Enabled := False;

end.

else.

begin.

min := StrToInt (sEdit1.Text);

sec := StrToInt (sEdit2.Text);

if (sec = 0) and (min = 0) then.

begin.

ShowMessage ('Надо задать интервал!');

exit;

end;

Timer1.Enabled := True;

sLabelFX6.Visible := True;

ShowTime;

end;

end;

procedure TForm1. sButton2Click (Sender: TObject);

begin.

sButton2.Visible:=false;

sButton5.Visible:=true;

sSkinManager1.ExtendedBorders:=false;

AlphaBlend:=false;

end;

procedure TForm1. sButton3Click (Sender: TObject);

begin.

sButton4.Visible:=true;

sButton3.Visible:=false;

sSkinManager1.Active:=false;

sComboBox1.Enabled:=false;

sButton2.Enabled:=false;

sButton5.Enabled:=false;

end;

procedure TForm1. sButton4Click (Sender: TObject);

begin.

sButton4.Visible:=false;

sButton3.Visible:=true;

sSkinManager1.Active:=true;

sComboBox1.Enabled:=true;

sButton2.Enabled:=true;

sButton5.Enabled:=true;

end;

procedure TForm1. sButton5Click (Sender: TObject);

begin.

sButton2.Visible:=true;

sButton5.Visible:=false;

sSkinManager1.ExtendedBorders:=true;

AlphaBlend:=true;

end;

procedure TForm1. sButton6Click (Sender: TObject);

begin.

sComboBox1.Visible:=false;

sButton5.Visible:=false;

sButton5.Visible:=false;

sButton4.Visible:=false;

sButton4.Visible:=false;

sButton2.Visible:=false;

sButton3.Visible:=false;

sButton6.Visible:=false;

end;

procedure TForm1. sComboBox1Change (Sender: TObject);

begin.

sSkinManager1.SkinName:=sComboBox1.Items[sComboBox1.ItemIndex];

end;

procedure TForm1. sDBNavigator1Click (Sender: TObject; Button: TNavigateBtn);

begin.

RadioButton3.Visible := false;

RadioButton4.Visible := false;

RadioButton5.Visible := false;

Next;

if FileExists ('Img + IntToStr (bilet) + '_' + IntToStr (ADOTable1.RecNo) + '.jpg') then.

begin.

Image1.Picture.LoadFromFile ('Img + IntToStr (bilet) + '_' + IntToStr (ADOTable1.RecNo) + '.jpg');

end else begin.

Null;

end;

Memo1.Text := ADOTable1. FieldByName ('Caption').AsString;

RadioButton1.Caption := ADOTable1. FieldByName ('Otvet1').AsString;

RadioButton2.Caption := ADOTable1. FieldByName ('Otvet2').AsString;

if ADOTable1. FieldByName ('Otvet3').AsString '' then.

begin.

RadioButton3.Caption := ADOTable1. FieldByName ('Otvet3').AsString;

RadioButton3.Visible := True;

end;

if ADOTable1. FieldByName ('Otvet4').AsString '' then.

begin.

RadioButton4.Caption := ADOTable1. FieldByName ('Otvet4').AsString;

RadioButton4.Visible := True;

end;

if ADOTable1. FieldByName ('Otvet5').AsString '' then.

begin.

RadioButton5.Caption := ADOTable1. FieldByName ('Otvet5').AsString;

RadioButton5.Visible := True;

end;

end;

procedure TForm1. Timer1Timer (Sender: TObject);

begin.

sec := sec — 1;

ShowTime; // показать, скока времени осталось.

if (min = 0) and (sec = 0) then.

begin.

Timer1.Enabled := False;

ShowMessage ('Время вышло!');

sLabelFX6.Visible := False;

form1.Close;

exit;

end;

if (sec = 0) and (min > 0) then.

begin.

sec := 60;

min := min — 1;

end;

end;

end.

Код программы для Административной части (Admin SQL):

unit Unit1;

interface.

uses.

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

Dialogs, StdCtrls, sLabel, ComCtrls, sStatusBar, sSkinManager, sPageControl,.

OleCtrls, ShockwaveFlashObjects_TLB, ShockwaveEx, ShockwaveList, ExtCtrls,.

sPanel, sDBNavigator, DB, ADODB, Mask, DBCtrls, sDBEdit, sGroupBox, ToolWin,.

sToolBar, ImgList, acAlphaImageList, sHintManager, acAlphaHints, sEdit,.

sButton, Grids, DBGrids, acDBGrid;

type.

TForm1 = class (TForm).

sPageControl1: TsPageControl;

sTabSheet1: TsTabSheet;

sTabSheet2: TsTabSheet;

sSkinManager1: TsSkinManager;

sStatusBar1: TsStatusBar;

sLabelFX1: TsLabelFX;

ShockwaveFlashList1: TShockwaveFlashList;

sGroupBox1: TsGroupBox;

sDBEdit1: TsDBEdit;

sDBEdit2: TsDBEdit;

sDBEdit3: TsDBEdit;

sDBEdit4: TsDBEdit;

sDBEdit5: TsDBEdit;

sDBEdit6: TsDBEdit;

DataSource1: TDataSource;

ADOTable1: TADOTable;

sDBEdit7: TsDBEdit;

sDBEdit8: TsDBEdit;

sDBEdit9: TsDBEdit;

sDBEdit10: TsDBEdit;

sDBNavigator1: TsDBNavigator;

sLabelFX2: TsLabelFX;

sLabelFX3: TsLabelFX;

sLabelFX4: TsLabelFX;

sLabelFX5: TsLabelFX;

sLabelFX6: TsLabelFX;

sLabelFX7: TsLabelFX;

sLabelFX8: TsLabelFX;

sLabelFX9: TsLabelFX;

sLabelFX10: TsLabelFX;

sLabelFX11: TsLabelFX;

sToolBar1: TsToolBar;

ToolButton1: TToolButton;

ToolButton2: TToolButton;

ToolButton3: TToolButton;

sAlphaImageList1: TsAlphaImageList;

sHintManager1: TsHintManager;

sEdit1: TsEdit;

sButton1: TsButton;

ToolButton4: TToolButton;

sButton2: TsButton;

ToolButton8: TToolButton;

ADOTable2: TADOTable;

DataSource2: TDataSource;

sGroupBox2: TsGroupBox;

sLabelFX12: TsLabelFX;

sLabelFX13: TsLabelFX;

sLabelFX14: TsLabelFX;

sLabelFX15: TsLabelFX;

sLabelFX16: TsLabelFX;

sDBEdit11: TsDBEdit;

sDBEdit12: TsDBEdit;

sDBEdit13: TsDBEdit;

sDBEdit14: TsDBEdit;

sDBEdit15: TsDBEdit;

sDBNavigator2: TsDBNavigator;

sToolBar2: TsToolBar;

ToolButton5: TToolButton;

ToolButton6: TToolButton;

ToolButton7: TToolButton;

sButton3: TsButton;

sDBEdit16: TsDBEdit;

sLabelFX17: TsLabelFX;

sGroupBox3: TsGroupBox;

sLabelFX18: TsLabelFX;

sLabelFX19: TsLabelFX;

sDBEdit17: TsDBEdit;

sDBNavigator3: TsDBNavigator;

sToolBar3: TsToolBar;

ToolButton9: TToolButton;

ToolButton10: TToolButton;

ToolButton11: TToolButton;

sButton4: TsButton;

sDBEdit18: TsDBEdit;

sDBGrid1: TsDBGrid;

sButton5: TsButton;

sButton6: TsButton;

ToolButton12: TToolButton;

procedure sEdit1Click (Sender: TObject);

procedure ToolButton1Click (Sender: TObject);

procedure ToolButton2Click (Sender: TObject);

procedure sButton1Click (Sender: TObject);

procedure ToolButton3Click (Sender: TObject);

procedure ToolButton4Click (Sender: TObject);

procedure ToolButton8Click (Sender: TObject);

procedure ToolButton7Click (Sender: TObject);

procedure ToolButton5Click (Sender: TObject);

procedure ToolButton6Click (Sender: TObject);

procedure ToolButton9Click (Sender: TObject);

procedure sButton5Click (Sender: TObject);

procedure sButton6Click (Sender: TObject);

procedure To…

Показать весь текст
Заполнить форму текущей работой

Сессия? Спокойно!