Предыдущая страница реферата | 10  11  12  13  14  15  16  17  18  19  20 | Следующая страница реферата

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel; procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); private

{ Private declarations } public

{ Public declarations } end;

var
Form2: TForm2;

implementation

uses Unit1, DB, DBTables;

{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject); begin
ModalResult:=mrCancel; end;

procedure TForm2.BitBtn2Click(Sender: TObject); var
Fio,Sch:string; n1,n2,n3,n4,n5,n6,snum:double; begin
Fio:=Edit1.Text;
Sch:=Edit2.Text; if (Fio='') or (Sch='') then begin

Application.MessageBox('Не введено ФИО или
Школа!','Ошибка',mb_Ok+mb_IconHand);

Edit1.SetFocus;

Exit; end; try n1:=StrToFloat(Edit3.Text); n2:=StrToFloat(Edit4.Text); n3:=StrToFloat(Edit5.Text); n4:=StrToFloat(Edit6.Text); n5:=StrToFloat(Edit7.Text); n6:=StrToFloat(Edit8.Text); except

Application.MessageBox('Одно или несколько текстовых полей заполнены неверно!','Ошибка',mb_Ok+mb_IconHand);

Edit1.SetFocus;

Exit; end; snum:=n1+n2+n3+n4+n5+n6; try with Form1.Table1 do begin

Active:=True;

Append;

FieldValues['COUNTER']:=RecordCount+1;;

FieldValues['FIO']:=Fio;

Рекомендуем скачать другие рефераты по теме: реферат,, развитие россии реферат.



Предыдущая страница реферата | 10  11  12  13  14  15  16  17  18  19  20 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки