VPF::Сложение 2-х таблиц - Форум программистов

Олюшечка

Дата 15.5.2008, 20:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 15.5.2008

Репутация: нет
Всего: нет

Люди!!!! У меня такая проблема.... мне необходимо сложить 2е таблицы....Одна у меня создается при выполнении программы и имеет название "Фамилия работника" (6 форма), эту таблицу мне надо свести с остальными(т.е. из нескольких сделать одну сводную)...Сводная таблица имеет название "месяц_год" (форма 7), которое берет из ComboBox1 и DateTimePicker1...
Папку для сохранения таблицы выбирает пользователь с помощью диалога...
Я делаю условие: если в данной папке существует файл с выбранным именем, то я открываю эту таблицу и складываю ее с той, что на форме 6 (тут то у меня и проблема).Если такого файла нет - я создаю новую пустую таблицу и в нее копирую таблицу с формы 6 (здесь проблем нет)...
В итоге - если я создаю таблицу впервые, то программа работает и все выполняет...
Если пытаюсь создать вторую таблицу с тем же месяцем и годом - он у меня не складывает данные из таблиц (просто копирует таблицу из формы 6 в форму 7)

вот сам код: smile

Код


procedure TForm7.Button1Click(Sender: TObject);
var sDir,sName:string; i,a,b:integer;
begin
if SelectDirectory('Выберете папку, в которую необходимо произвести запись отчета(папка должна существовать)', '', sDir) then
begin
if not(sDir[Length(sDir)] in ['\','/']) then sDir := sDir+'\'; //добавили \ если его не было
i := MonthIndex(Form2.ComboBox1.Text);
sName := IntToStr(i)+'_'+ IntToStr(YearOf(Form2.DateTimePicker1.Date))+'.DB' ;
if FileExists(sDir + sName) then {файл есть}
begin
Table1.DatabaseName:= sDir;
Table1.TableName:=sName;
Table1.TableType:=ttParadox;
Table1.Open;
Sk:=false;
InsertRec1;
Sk:=true;
end

else {файла нет};
begin
Table1.Active:=false;
Table1.DatabaseName:= sDir;
Table1.TableName:=sName;
Table1.TableType:=ttParadox;

Table1.FieldDefs.Clear;

Table1.FieldDefs.Add('Naimenovanie',ftString,80,Tr ue);
Table1.FieldDefs.Add('Vsego',ftInteger,0,False);
Table1.FieldDefs.Add('Pens',ftInteger,0,False);
Table1.FieldDefs.Add('OdinPens',ftInteger,0,False) ;
Table1.FieldDefs.Add('Inval',ftInteger,0,False);
Table1.FieldDefs.Add('OdinInval',ftInteger,0,False );
Table1.FieldDefs.Add('SemInval',ftInteger,0,False) ;
Table1.FieldDefs.Add('SemPens',ftInteger,0,False);

Table1.CreateTable;
Table1.Active:=true;
DBGrid1.ReadOnly := True;
DBGrid1.Options := DBGrid1.Options - [dgEditing];

Table1.FieldByName('Naimenovanie').DisplayLabel:=' Наименование';
Table1.FieldByName('Vsego').DisplayLabel:=' Всего';
Table1.FieldByName('Pens').DisplayLabel:='Пенсионе ры';
Table1.FieldByName('OdinPens').DisplayLabel:='Один окие пенсионеры';
Table1.FieldByName('Inval').DisplayLabel:='Инвалид ы';
Table1.FieldByName('OdinInval').DisplayLabel:='Оди нокие инвалиды';
Table1.FieldByName('SemInval').DisplayLabel:='Семе йные пары(инвалиды)';
Table1.FieldByName('SemPens').DisplayLabel:='Семей ные пары(пенсионеры)';

Table1.BatchMove(Form6.Table1, batAppend);
end;
end;
end;

Procedure TForm7.InsertRec1;
var a,b,c,d,s1,s2:integer;
begin
Form7.Table1.Edit;
Form7.Table1.FieldByName('Naimenovanie').Value:='С остоит на обслуживании на конец предыдущего месяца';

a:= Form7.Table1.FieldByName('Vsego').AsInteger;
b:= Form6.Table1.FieldByName('Vsego').AsInteger;
s1:=a+b;
Form7.Table1.FieldByName('Vsego').Value:=s1;

c:=Form7.Table1.FieldByName('Pens').AsInteger;
d:=Form6.Table1.FieldByName('Pens').AsInteger;
s2:=c+d;
Form7.Table1.FieldByName('Pens').Value:=s2;

Form7.Table1.Post;
end;

может кто-то найдет здесь ошибку или подскажет, что неправильно....
Заранее спасибо за все дельные предложения!!!! smile

M
Alexeis

Модератор: используйте подсветку кода.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »