Экспертные системы тестирования
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ComCtrls, ExtCtrls, Menus, StdCtrls, Buttons,, OleCtrls, DBOleCtl, RichTextLib_TLB, jpeg, Grids,, ToolWin, Registry, Spin, IniFiles, DB, DBTables, ImgList,, Mask,ExcelXP,COMObj, FileCtrl;= class (TForm): TStatusBar;: TPanel;: TBitBtn;: TBitBtn;: TBitBtn;: TMainMenu;: TMenuItem;: TMenuItem;: TNotebook;: TGroupBox;: TLabeledEdit;: TLabeledEdit;: TBitBtn;: TGroupBox;: TGroupBox;: TFileListBox;: TPanel;: TPanel;: TPanel;: TGroupBox;: TBitBtn;: TBitBtn;: TBitBtn;: TBitBtn;: TGroupBox;: TRadioButton;: TRadioButton;: TRadioButton;: TRadioButton;: TRadioButton;: TBevel;: TBevel;: TBevel;: TBitBtn;: TBitBtn;: TBevel;: TBevel;: TBevel;: TGroupBox;: TLabel;: TDBGrid;: TGroupBox;: TLabel;: TEdit;: TEdit;: TTimer;: TListBox;: TListBox;: TListBox;: TListBox;: TListBox;: TListBox;: TSpinEdit;: TSpinEdit;: TCheckBox;: TCheckBox;: TCheckBox;: TCheckBox;: TCheckBox;: TProgressBar;: TEdit;: TGroupBox;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TBitBtn;: TBitBtn;: TPanel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TEdit;: TButton;: TEdit;: TTable;: TDataSource;: TImageList;: TPanel;: TBitBtn;: TBitBtn;: TBitBtn;: TDBMemo;: TDBMemo;: TDBMemo;: TGroupBox;: TDBNavigator;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TPopupMenu;: TMenuItem;: TProgressBar;: TPanel;: TMenuItem;: TPanel;: TBitBtn;: TLabel;: TEdit;BitBtn1Click (Sender: TObject);BitBtn3Click (Sender: TObject);BitBtn4Click (Sender: TObject);FileListBox1Click (Sender: TObject);BitBtn9Click (Sender: TObject);BitBtn11Click (Sender: TObject);FormCreate (Sender: TObject);BitBtn5Click (Sender: TObject);BitBtn6Click (Sender: TObject);BitBtn7Click (Sender: TObject);BitBtn8Click (Sender: TObject);RadioButton1Click (Sender: TObject);RadioButton2Click (Sender: TObject);RadioButton3Click (Sender: TObject);RadioButton4Click (Sender: TObject);RadioButton5Click (Sender: TObject);Timer1Timer (Sender: TObject);BitBtn10Click (Sender: TObject);N2Click (Sender: TObject);Button1Click (Sender: TObject);BitBtn14Click (Sender: TObject);BitBtn13Click (Sender: TObject);BitBtn2Click (Sender: TObject);N3Click (Sender: TObject);BitBtn15Click (Sender: TObject);N4Click (Sender: TObject);BitBtn16Click (Sender: TObject);BitBtn12Click (Sender: TObject);
{ Private declarations }
{ Public declarations };zagruzka1;vigruzka1;Erste;RandomChisla (rez: integer): string;Sluchai;Nex;prew;FirstTest;start;First;prowerka;soedenenie;AddRecord;ShowTime;ocenka;
// procedure SendtoExcel (ShFile: String);: TForm1;,sec: integer;: TRegIniFile;: TIniFile;: string;: string = Software\TestingS;Unit2;
{$R *. dfm}
// Процедура создания отчетаSendtoExcel (ShFile: String);, Workbook: Variant;: integer;,s2,s3,s4,s5,s6,s7: string;
// Создание Excel: = CreateOleObject (Excel. Application);Exception. Create (Не могу запустить Excel);;: = CreateOleObject (Excel. Application);
// Отключаем реакцию Excel на события, чтобы ускорить вывод информации. Application. EnableEvents: = false;
// Создаем Книгу (Workbook)
// Если заполняем шаблон, то: = ExcelApp. WorkBooks. Add (ShFile);
// Выбираем первую WorkBook: = ExcelApp. WorkBooks. Item [1];
// переходим на последшюю запись в таблицы. Table1. Last;
// делаем прогрес видимым. ProgressBar2. Visible: =true;. ProgressBar2. Max: =form1. Table1. RecordCount-1;
// создаем цикл перемещения по базеi: =form1. Table1. RecordCount-1 downto 0 do. ProgressBar2. Position: =i;
// ячейки excel присваиваем поле базы данных: =form1. Table1. FieldByName (Fam). AsString;. WorkBooks [1]. WorkSheets [1]. Cells [i+3,1]: =s1;: =form1. Table1. FieldByName (Group). AsString;. WorkBooks [1]. WorkSheets [1]. Cells [i+3,2]: =s2;: =form1. Table1. FieldByName (Data). AsString;. WorkBooks [1]. WorkSheets [1]. Cells [i+3,3]: =s3;: =form1. Table1. FieldByName (All). AsString;. WorkBooks [1]. WorkSheets [1]. Cells [i+3,4]: =s4;: =form1. Table1. FieldByName (Pr). AsString;. WorkBooks [1]. WorkSheets [1]. Cells [i+3,5]: =s5;: =form1. Table1. FieldByName (Nep). AsString;. WorkBooks [1]. WorkSheets [1]. Cells [i+3,6]: =s6;: =form1. Table1. FieldByName (Oc). AsString;. WorkBooks [1]. WorkSheets [1]. Cells [i+3,7]: =s7;. WorkSheets [1]. Cells [i+3,1]. Borders. LineStyle: = xlContinuous;. WorkSheets [1]. Cells [i+3,2]. Borders. LineStyle: = xlContinuous;. WorkSheets [1]. Cells [i+3,3]. Borders. LineStyle: = xlContinuous;. WorkSheets [1]. Cells [i+3,4]. Borders. LineStyle: = xlContinuous;. WorkSheets [1]. Cells [i+3,5]. Borders. LineStyle: = xlContinuous;. WorkSheets [1]. Cells [i+3,6]. Borders. LineStyle: = xlContinuous;. WorkSheets [1]. Cells [i+3,7]. Borders. LineStyle: = xlContinuous;. Table1. Prior;;. ProgressBar2. Visible: =false;
// Делаем Excel видимым. Visible: = True;;
// Процедура сохранения настроек программыSaveAs;: Tinifile; // необходимо создать объект, чтоб потом с ним работать
// создали файл в директории программы: =TiniFile. Create (extractfilepath (paramstr (0)) +SaveAS. ini);. WriteString (Nom,Time,form1. SpinEdit1. Text);. WriteString (Nom,Wopr,form1. SpinEdit2. Text);. WriteString (Nom,Pass,form1. Edit6. Text);. Free;;ReadAS;: Tinifile;
// открываем файл: =TiniFile. Create (extractfilepath (paramstr (0)) +SaveAs. ini);. SpinEdit1. Text: =Ini. ReadString (Nom,Time,0);. SpinEdit2. Text: =Ini. ReadString (Nom,Wopr,0);. Label11. Caption: =Ini. ReadString (Nom,Time,0) + мин;. Label12. Caption: =Ini. ReadString (Nom,Wopr,0);. Edit6. Text: =Ini. ReadString (Nom,Pass,0);. Free;;
// Процедура формирования оценкиocenka;,j,k,l,m,n: integer;: real;: =strtoint (form1. StatusBar1. Panels. Items [1]. Text); // всего тестов: =form1. ListBox6. Count; // колличество правельных: =round (j*100/i);k: =0 to 35 dooc = k then. Label14. Caption: =2;;l: =36 to 69 dooc = l then. Label14. Caption: =3;;m: =70 to 89 dooc = m then. Label14. Caption: =4;;n: =90 to 100 dooc = n then. Label14. Caption: =5;;;
// Процедура подщета времени тестированияShowTime;: string [20];
// минуты и секунды выводим двумя цифрамиmin < 10 then: = 0 + IntToStr (min) + : : = IntToStr (min) + : ;sec < 10 then: = buf + 0 + IntToStr (sec): = buf + IntToStr (sec);. StatusBar1. Panels. Items [5]. Text: =buf;;
// Процедура забивания базы данныхAddRecord;. Table1. Cancel;. Table1. Insert;. Table1. Append;. Table1. FieldByName (Fam). AsString: =Form1. LabeledEdit1. Text;. Table1. FieldByName (Group). AsString: =Form1. LabeledEdit2. Text;. Table1. FieldByName (Data). AsString: =DateToStr (now);. Table1. FieldByName (Pr). AsInteger: =form1. ListBox6. Items. Count;
// form5. Label3. Caption: =;. Table1. FieldByName (All). AsInteger: =strtoint (form1. SpinEdit2. Text);. Table1. FieldByName (Nep). AsInteger: =strtoint (form1. SpinEdit2. Text) - form1. ListBox6. Items. Count;. Table1. FieldByName (File). AsString: =form1. ListBox5. Items. Text;. Table1. FieldByName (Prav). AsString: =form1. ListBox6. Items. Text;. Table1. FieldByName (File2). AsString: =form1. ListBox2. Items. Text;. Table1. FieldByName (Oc). AsInteger: =strtoint (form1. Label14. Caption);. Table1. Post;;
// Процедура соеденения ответовsoedenenie;, i: integer;: string;: =form1. listBox3. Count-1;i: =1 to raz do: =form1. listbox1. Items. Strings [strtoint (form1. listbox3. Items. Strings [i])] +
(form1. listbox4. Items. Strings [i]);. listBox5. Items. Add (obsh);;. ListBox5. Items. Insert (0,тесты);;
// Процедура проверки тестовprowerka;,j: integer;,s2: string;i: =1 to form1. listbox5. Items. Count-1 do: =form1. listbox5. Items. Strings [i];j: =0 to form1. listbox2. Items. Count-1 do: =form1. listbox2. Items. Strings [j];s1=s2 then. ListBox6. Items. Add (s1);;;;form1. ListBox6. Items. Count<>0 then. Label16. Caption: =IntToStr (form1. ListBox6. Items. Count); // praw otw;. Label16. Caption: =0;;;;First;. richtextbox1. textRTF: =;. richtextbox2. SetFocus;. edit2. Text: =inttostr (form1. richtextbox2. Find
(form1. ListBox1. Items. Strings [strtoint (form1. ListBox3. Items. Strings [strtoint (form1. Edit1. Text)])]));. richtextbox2. SelRTF: =;. richtextbox2. SelStart: =0;. richtextbox2. SelLength: =strtoint (form1. edit2. Text);. richtextbox2. SelRTF: =;. edit2. Text: =inttostr (form1. richtextbox2. Find
(form1. ListBox1. Items. Strings [strtoint (form1. ListBox3. Items. Strings [strtoint (form1. Edit1. Text)]) +1]));. richtextbox2. SelStart: =0;. richtextbox2. SelLength: =strtoint (form1. edit2. Text);. richtextbox1. SelRTF: =form1. richtextbox2. SelRTF;. RichTextBox2. LoadFile (form1. Edit3. Text);;start;. edit1. text: =