Предыдущая страница реферата | 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 | Следующая страница реферата