Пвивет как зделат так чтобы так чтобы в edit......

[vmilyoshin]

как зделать так чтобы так...... Короче говоря. Eсть база состоящая из 7-ми таблиц. Одна тадлица главная. Код типа счётчик. Он привянан к шести другим таблицам см. (рис. 1) в delphi создано приложение см. (рис. 2) главная таблица центральная ( фамилия, имя, отчество,дата рождения) главная adoquery шесть остальных adotable главный data source adoquery нужно создать два edita и кнопку button в первый edit вводишь дату С а во второй ПО и при нажатии кнопки butten где нибудь в третьем окошечке отображается общий доход компании за данный промежуток времени поиск нужно производить по таблице (страховой полис) в столбце (страховая премия) тип данных string тип даты тоже string в формате (ДД.ММ.ГГГГ.)
рис.1

рис.2

[Вадим Мошев]

ОФФТОП. А зачем спорили, если вы не уверены, что эту задачу "разжуёте"?

[MyLastHit]

У меня не получилось сосчитать количество ошибок, как и понять, что тут хотят. Если есть переводчики - переведите на человеческий язык...

[Alex11223]

Кто мне эту задачку разжуёт - тем я буду сугубо благадарен !!!!!

Что-то неравноценный обмен: разжевывающий рискует сойти с ума еще во время попыток понять, что же вы написали в этом сообщении, а ему только "благадарность". А вы за это получите телефон)

[Вадим Мошев]

Мне кажется немного понял. Есть БД, сделанная в MS Access. При помощи програмного интерфейса ADO и сделанного в делфи экзешника необходимо прочитать из бд информацию, проанализировать и произвести рассчёты.

А её я вот что понял. Автор разжевать задачу не может, а просит нас. Грубо говоря, слабо понять, что здесь требуется. А я, кажись, понял. Автор, с вас причитается.

ЗЫ. Прости НАС за злостный оффтоп в сей теме...

[vmilyoshin]

Сообщение от Вадим Мошев

Мне кажется немного понял. Есть БД, сделанная в MS Access. При помощи програмного интерфейса ADO и сделанного в делфи экзешника необходимо прочитать из бд информацию, проанализировать и произвести рассчёты.

Правильно понял!

[Rin]

Разбирайся.
otchet_Q: TADOQuery;
date_zakaza- столбец в таблице
date_ening - столбец в таблице

procedure TForm2.Button1Click(Sender: TObject);
var
i:integer;// счетчик
date1,date2:string;//date1- C такого,   date2- ПО такое
finder:extended;// finder - значение одной таблицы, которое надо найти в другой таблице
s:extended:// сумма
begin

date1:=Edit3.Text;// В едит 3 начало периода
for I := 1 to length(date1) do
if date1[i]='.' then date1[i]:='/';// корректировка даты для понимания 
//запроса Access`овской БД
date2:=Edit4.Text;// В едит 4 конец периода
for I := 1 to length(date2) do
if date2[i]='.' then date2[i]:='/';// корректировка даты для понимания 
//запроса Access`овской БД
with DataModule3 do
begin
  otchet_Q.SQL.clear;
  OTCHET_Q.SQL.Text:=
  'SELECT *  FROM 'Твоя таблица' WHERE '+
 'date_zakaza>=#'+date1+'# AND date_ening<=#'+date2+'#';
  otchet_Q.ExecSQL;
// А тут Ты сам уж посчитай всю сумму, ибо в OTCHET_Q будут лежать 
// все записи в заданный тобой период , и их нужно будет лишь //перебрать от начала до конца.

end;

Перебрать от начала до конца:

 
otchet_Q.First;
 while not otchet_Q.EOF do
  begin
//  Твои действия
otchet_Q.Next;
end;

Поиск по отчету производится так:

finder:=(otchet_Q.FieldByName('Твой столбец').Value);
s:=s+finder;

Тебе остальсь все это правильно соединить.

[vmilyoshin]

Сообщение от Rin

Разбирайся.
otchet_Q: TADOQuery;
date_zakaza- столбец в таблице
date_ening - столбец в таблице

procedure TForm2.Button1Click(Sender: TObject);
var
i:integer;// счетчик
date1,date2:string;//date1- C такого,   date2- ПО такое
finder:extended;// finder - значение одной таблицы, которое надо найти в другой таблице
s:extended:// сумма
begin

date1:=Edit3.Text;// В едит 3 начало периода
for I := 1 to length(date1) do
if date1[i]='.' then date1[i]:='/';// корректировка даты для понимания 
//запроса Access`овской БД
date2:=Edit4.Text;// В едит 4 конец периода
for I := 1 to length(date2) do
if date2[i]='.' then date2[i]:='/';// корректировка даты для понимания 
//запроса Access`овской БД
with DataModule3 do
begin
  otchet_Q.SQL.clear;
  OTCHET_Q.SQL.Text:=
  'SELECT *  FROM 'Твоя таблица' WHERE '+
 'date_zakaza>=#'+date1+'# AND date_ening<=#'+date2+'#';
  otchet_Q.ExecSQL;
// А тут Ты сам уж посчитай всю сумму, ибо в OTCHET_Q будут лежать 
// все записи в заданный тобой период , и их нужно будет лишь //перебрать от начала до конца.

end;

Перебрать от начала до конца:

 
otchet_Q.First;
 while not otchet_Q.EOF do
  begin
//  Твои действия
otchet_Q.Next;
end;

Поиск по отчету производится так:

finder:=(otchet_Q.FieldByName('Твой столбец').Value);
s:=s+finder;

Тебе остальсь все это правильно соединить.

procedure TForm1.BitBtn8Click(Sender: TObject);
var
I: integer;// счетчик
date1,date2: string;//date1- C такого, date2- ПО такое
finder: extended;// finder - значение одной таблицы, которое надо найти в другой таблице
s: extended;// сумма
begin
date1:= MaskEdit1.Text;// В начало периода
for I := 1 to length(date1) do
if date1[i]='.' then date1[i]:='/';// корректировка даты для понимания
date2:= MaskEdit2.Text;// В конец периода
for I := 1 to length(date2) do
if date2[i]='.' then date2[i]:='/';// корректировка даты для понимания
//запроса Access`овской БД
with DataModule1.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Text:=
'SELECT * FROM POLIS WHERE '+
'Начало >= #'+date1+'# AND Начало <= #'+date2+'#';
Open;
DataModule1.ADOQuery1.First;
while not EOF do
begin

Ругается на ADOQuery1.First.

[Rin]

with DataModule1.ADOQuery1 do
......
DataModule1.ADOQuery1.First;

Возможно так?

with DataModule1.ADOQuery1 do
......
First;

[vmilyoshin]

Всем спасибо!

Зделал так:

В базе Access поле установил в Дата-Время (00.00.0000;0;_)
В MaskEdit.EditMask (99.99.9999;9;_)

procedure TForm1.BitBtn8Click(Sender: TObject);
var
  I, J: integer;
  date1,date2: string;
  begin
  date1:= MaskEdit1.Text;
  date2:= MaskEdit2.Text;
  for I:= 1 to length(date1) do
  if date1[I] = '.' then
  date1[I]:= '/';
  for J:= 1 to length(date2) do
  if date2[J] = '.' then
  date2[J]:= '/';
  with DataModule1.ADOQuery2 do
  try
  if (MaskEdit1.Text = '   Начало') and (MaskEdit2.Text = '    Конец') then
  begin
  Close;
  SQL.Clear;
  SQL.Add('SELECT SUM([Страховая премия])  FROM POLIS;');
  Open;
  Panel4.Caption:= FieldByName('Expr1000').AsString;
  end
  else
  begin
  Close;
  SQL.Clear;
  SQL.Add('SELECT SUM([Страховая премия])  FROM POLIS WHERE [DateReg] BETWEEN #'+date1+'# AND #'+date2+'#');
  Open;
  Panel4.Caption:= FieldByName('Expr1000').AsString;
  end;
  except
  MessageDlg('Не корректно введена дата', mtError, [mbOK], 0);
  end;
end;

Может кому пригодится.