Автоматизированная система распределения мест и оценок качества олимпиадных заданий
Категория реферата: Рефераты по педагогике
Теги реферата: реферат на тему биография, налоги реферат
Добавил(а) на сайт: Sapaljov.
Предыдущая страница реферата | 13 14 15 16 17 18 19 20 21 22 23 | Следующая страница реферата
ComboBox1.Items.Add(Form1.Table1.FieldValues['FIO']);
Form1.Table1.Next; end; end;
ComboBox1.ItemIndex:=0;
Form1.Table1.First; except
Application.MessageBox('Ошибка БД. Возможно база не
открыта!','Ошибка',mb_Ok+MB_ICONHAND);
ComboBox1.Color:=clMenu;
ComboBox1.Enabled:=False;
BitBtn2.Enabled:=False; end;
end;
procedure TForm3.BitBtn2Click(Sender: TObject); var i:integer;
begin try
Form1.Table1.First;
For i:=0 to Form1.Table1.RecordCount-1 do begin if ComboBox1.Text=Form1.Table1.FieldValues['FIO'] then begin
Form1.Table1.Delete;
Application.MessageBox(PChar('Запись участника "'+ComboBox1.Text+'" успешно удалена'),'Удаление',mb_Ok+mb_IconAsterisk);
ModalResult:=mrCancel;
Exit; end;
Form1.Table1.Next; end; except
Application.MessageBox('Ошибка удаления
записи!','Ошибка',mb_Ok+mb_IconHand);
Exit; end;
end;
end.
Модуль 4.
Код этого модуля отвечает за формирование окна конфигурации программы, а
также за запись настроек этой конфигурации.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons, INIFiles;
type
TForm4 = class(TForm)
Panel1: TPanel;
Label1: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
GroupBox1: TGroupBox;
RadioGroup1: TRadioGroup;
GroupBox2: TGroupBox;
Label2: TLabel;
Edit1: TEdit;
RadioGroup2: TRadioGroup; procedure BitBtn1Click(Sender: TObject);
Рекомендуем скачать другие рефераты по теме: реферат,, развитие россии реферат.
Предыдущая страница реферата | 13 14 15 16 17 18 19 20 21 22 23 | Следующая страница реферата