Войти Зарегистрироваться Войти через
Главная › Все вопросы › Компьютеры › Программирование › Delphi
Anonymous 21 апреля 2017 года  

Нужна помощь с Delphi.Ошибки с кодом.Первый раз пишу,мало что понимаю

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls;

type
TForm1 = class(TForm)
DataSource1: TDataSource;
ADOQuery1: TADOQuery;
DBGrid1: TDBGrid;
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Edit2Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);

var i:integer; //Переменная для цикла

sumOKLAD, sumZARP:real; //Счётчики сумм

begin

ADOQuery1.Active:=false; //Разрываем связь с таблицей

ADOQuery1.SQL.Text:= //Формируем запрос

'Select Name,Oklad,Prem,Oklad+Oklad*Prem as [Zarp] from MyTable';

ADOQuery1.Active:=true; //Снова устанавливаем связь с таблицей

sumOKLAD:=0; //Сброс счётчиков в ноль

sumZARP:=0;

ADOQuery1.First; //Установка курсора на первую запись в таблице

//Начало цикла подсчёта суммы

for i:=1 to ADOQuery1.RecordCount do

begin

//Инкриментирование суммарного оклада

sumOKLAD:=sumOKLAD+ADOQuery1.FieldValues['OKLAD'];

//Инкриментирование суммарной зарплаты

sumZARP:=sumZARP+ADOQuery1.FieldValues['ZARP'];

ADOQuery1.Next; //Переход к следующей записи

end;

Edit1.Text:=FloatToStr(sumOKLAD); //Отображение результатов в полях Edit

Edit2.Text:=FloatToStr(sumZARP);

ADOQuery1.First; //Возвращение курсора на первую запись

end;

end.











Ошибки:[Ошибка] Unit1.pas(18): Unsatisfied forward or external declaration: 'TForm1.Edit1Change'
[Ошибка] Unit1.pas(19): Unsatisfied forward or external declaration: 'TForm1.Edit2Change'
[Фатальная ошибка] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
Загрузка...