Приложение. Исходный код системы (по модулям).

Edit2.Text:='';

Edit3.Text:='';

Edit4.Text:='';

Edit5.Text:='';

Edit6.Text:='';

Edit7.Text:='';

Edit8.Text:='';

Edit1.SetFocus;

Application.MessageBox(PChar('Добавлен участник: "'+Fio+'". Суммарный балл '+FloatToStr(snum)+'.'),'Сообщение',mb_Ok+mb_IconAsterisk);

except

Application.MessageBox('Ошибка записи участника в БД. Загрузите базу.','Ошибка',mb_Ok+mb_IconHand);

Edit1.SetFocus;

Exit;

end;

end;

end.

Модуль 3.

Данный модуль отвечает за удаление участника из базы данных.

unit Unit3;

interface

uses

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

Dialogs, ExtCtrls, StdCtrls, Buttons;

type

TForm3 = class(TForm)

Panel1: TPanel;

Label1: TLabel;

ComboBox1: TComboBox;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

ModalResult:=mrCancel;

end;

procedure TForm3.FormShow(Sender: TObject);

var i:integer;

begin

try

if Form1.Table1.RecordCount=0 then

begin

Application.MessageBox('В БД нет ни одной записи!','Ошибка',mb_Ok+mb_IconHand);

ComboBox1.Color:=clMenu;

ComboBox1.Enabled:=False;

BitBtn2.Enabled:=False;

end

else

begin

ComboBox1.Items.Clear;

ComboBox1.Color:=clWhite;

ComboBox1.Enabled:=True;

BitBtn2.Enabled:=True;

Form1.Table1.First;

for i:=0 to Form1.Table1.RecordCount-1 do

begin

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);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

Conf:TIniFile;

implementation

{$R *.dfm}

procedure TForm4.BitBtn1Click(Sender: TObject);

begin

ModalResult:=mrCancel;

end;

procedure TForm4.BitBtn2Click(Sender: TObject);

begin

try

Conf:=TIniFile.Create(GetCurrentDir+'\Config.ini');

Перейти на страницу: 1 2 3 4 5 6 7 8