Сложение 2х таблиц

Тема в разделе "Delphi - Базы данных", создана пользователем -, 15 май 2008.

  1. Гость

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

    вот сам код:

    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;

    может кто-то найдет здесь ошибку или подскажет, что неправильно....
    Заранее спасибо за все дельные предложения!!!!
     
Загрузка...
Похожие Темы - Сложение 2х таблиц
  1. sanot
    Ответов:
    0
    Просмотров:
    1.413
  2. Vunderkind
    Ответов:
    2
    Просмотров:
    3.158
  3. susinmn
    Ответов:
    7
    Просмотров:
    3.620

Поделиться этой страницей