Экспертные системы тестирования
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
: =true;h [1] =B then. CheckBox2. Visible: =true;h [1] =C then. CheckBox3. Visible: =true;h [1] =D then. CheckBox4. Visible: =true;h [1] =E then. CheckBox5. Visible: =true;;. Label2. Caption: = Вопрос № +inttostr (strtoint (form1. Edit1. Text));. StatusBar1. Panels. Items [7]. Text: = +inttostr (strtoint (form1. Edit1. Text));;TForm1. BitBtn6Click (Sender: TObject);: string;form1. Edit1. Text0 thenMessageDlg (Программа тестирование
+#13+#10+#13+#10+
Вы действительно хотите удалить+#13+#10+#13+#10+
эту запись из базы?
,mtInformation, [mbOk,mbCancel],0) = mrOk then. Table1. delete;;;;TForm1. BitBtn13Click (Sender: TObject);. Notebook1. ActivePage: =6;;TForm1. BitBtn2Click (Sender: TObject);Form1. Edit6. Text= then. Notebook1. ActivePage: =2;: =2;. ShowModal;;;TForm1. N3Click (Sender: TObject);form1. table1. RecordCount<>0 thenMessageDlg (Программа тестирование
+#13+#10+#13+#10+
Вы действительно хотите удалить+#13+#10+#13+#10+
эту запись из базы?
,mtInformation, [mbOk,mbCancel],0) = mrOk then. Table1. delete;;;;TForm1. BitBtn15Click (Sender: TObject);: string;: =ExtractFilePath (ParamStr (0)) +Отчет по программе тестирования. xls;(s);;TForm1. N4Click (Sender: TObject);MessageDlg (Testing"S"+#13+#10+#13+#10+
Подтверждение+#13+#10+#13+#10+
Вы действительно хотите удалить+#13+#10+#13+#10+
все записи в базе данных?
,mtInformation, [mbOk,mbCancel],0) = mrOk thennot form1. table1. eof do. table1. first;. table1. Delete;. table1. next;;. table1. Delete;. table1. Cancel;;;TForm1. BitBtn16Click (Sender: TObject);. Notebook1. ActivePage: =2;;TForm1. BitBtn12Click (Sender: TObject);. Notebook1. ActivePage: =1;;.