Создание отчётов из (Oracle/SQL)

[LIBRA]

Есть БД, из неё надо вытянуть отчёт о колличестве платёжных карточек, с указанием Города, Филиала, Наименованием Организации, Кол-во действующих карточек, Кол-во активных карточек и Кол-во транзакций по ним. Где лучше (проще) это сделать? Нужна клиентская часть! Кто знает, пишите...заранее спасибо! )

[Stilet]

Возьми Fast Report и наслаждайся красивыми отчетами.

[LIBRA]

А знание языка программирования нужно?

[Stilet]

Ну если не знаеш ЯВУ то пробуй открыть базу в Экзеле

[2face]

начни с sql-запроса.

[Pitbull]

Знание языка Вам нужно в любом случае....
Создать отчет Вам можно , используя QReport, FastReport, CrestalReport ило просто в Excell вігружать данніе.... Если будете использовать Report ,то знать особо программирование не нужно, а вот с Єксел....
Информации на форуме куча... не ленитесь ищите...

вот Вам кусок кода, для отчета в Єксел

procedure PrintRepEx();
  var
  XLApp,Sheet,Colum:Variant;
  index,i:Integer;
begin
 XLApp:= CreateOleObject('Excel.Application');
 XLApp.Visible:=true;
 XLApp.DisplayAlerts:=false;
 XLApp.Workbooks.Add(-4167);
 XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';
 Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Columns;
 Colum.Columns[1].ColumnWidth:=5;
 Colum.Columns[2].ColumnWidth:=10;
 Colum.Columns[3].ColumnWidth:=10;
 Colum.Columns[4].ColumnWidth:=10;
 Colum.Columns[5].ColumnWidth:=10;
 Colum.Columns[6].ColumnWidth:=10;
 Colum.Columns[7].ColumnWidth:=10;
 Colum.Columns[8].ColumnWidth:=10;
 Colum.Columns[8].ColumnWidth:=10;

 Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Rows;
 Colum.Rows[3].Font.Bold:=true;
 Colum.Rows[1].Font.Bold:=true;
 Colum.Rows[1].Font.Color:=clBlue;
 Colum.Rows[1].Font.Size:=14;

 Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт'];
 Sheet.Cells[1,2]:='Учет перевозки грузов автомобильным транспортом';
 Sheet.Cells[3,1]:='№ проезда';
 Sheet.Cells[3,2]:='Марка авто';
 Sheet.Cells[3,3]:='Гос.номер';
 Sheet.Cells[3,4]:='Кто регистрировал';
 Sheet.Cells[3,5]:='Откуда';
 Sheet.Cells[3,6]:= 'Куда';
 Sheet.Cells[3,7]:= 'Дата';
 Sheet.Cells[3,8]:= 'Время';

 index:=4;
 DataModule1.proezd_main .First;
 for i:=0 to DataModule1.proezd_main .RecordCount-1 do
  begin
   Sheet.Cells[index,1]:=DataModule1.proezd_main.Fields.Fields[0].AsString;
   Sheet.Cells[index,2]:=DataModule1.proezd_main .Fields.Fields[1].AsString;
   Sheet.Cells[index,3]:=DataModule1.proezd_main .Fields.Fields[2].AsString;
   Sheet.Cells[index,4]:=DataModule1.proezd_main .Fields.Fields[3].AsString;
   Sheet.Cells[index,5]:=DataModule1.proezd_main.Fields.Fields[4].AsString;
   Sheet.Cells[index,6]:=DataModule1.proezd_main .Fields.Fields[5].AsString;
   Sheet.Cells[index,7]:=DataModule1.proezd_main .Fields.Fields[6].AsString;
   Sheet.Cells[index,8]:=DataModule1.proezd_main .Fields.Fields[7].AsString;
   Inc(index);
   DataModule1.proezd_main.Next;
   end;

end;

Если нужно могу обїяснить ,что и где....
тут вся таблица заливается в Єксел, а ві можите использовать запрос по какому-то условию....
uses Base
select [dbo].[xxx1], [dbo].[xxxx2] from Table
where условие....

[LIBRA]

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

Ну если не знаеш ЯВУ то пробуй открыть базу в Экзеле

Вообще мне нужно отчёт в Exel выводить. Точнее не мне (мне програмку написать, чтоб ей другой чел пользоваться мог), он в них ничего не понимает, тупо нажал на кнопку...данные в Эксель выгрузились...не больше. ) SQL скрипты на вывод данных есть.
А БД в Оракле. И мне посоветовали написать клиент-сервера на Дельфях, типо лекго ) но за 1 месяц нереально изучить Дельфи. Я так думаю. )
FastReport сегодня посмотрю...есть ещё какие-нибудь предложения?

[LIBRA]

Сообщение от 2face

начни с sql-запроса.

SQL запрос есть уже (в плане скрипты на вывод этих данных есть)...надо клиент-сервера сделать, а отчёт в Эксель...вот и парюсь как это сделать, сроки маленькие (

[LIBRA]

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

Знание языка Вам нужно в любом случае....
Создать отчет Вам можно , используя QReport, FastReport, CrestalReport ило просто в Excell вігружать данніе.... Если будете использовать Report ,то знать особо программирование не нужно, а вот с Єксел....
Информации на форуме куча... не ленитесь ищите...

вот Вам кусок кода, для отчета в Єксел

procedure PrintRepEx();
  var
  XLApp,Sheet,Colum:Variant;
  index,i:Integer;
begin
 XLApp:= CreateOleObject('Excel.Application');
 XLApp.Visible:=true;
 XLApp.DisplayAlerts:=false;
 XLApp.Workbooks.Add(-4167);
 XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';
 Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Columns;
 Colum.Columns[1].ColumnWidth:=5;
 Colum.Columns[2].ColumnWidth:=10;
 Colum.Columns[3].ColumnWidth:=10;
 Colum.Columns[4].ColumnWidth:=10;
 Colum.Columns[5].ColumnWidth:=10;
 Colum.Columns[6].ColumnWidth:=10;
 Colum.Columns[7].ColumnWidth:=10;
 Colum.Columns[8].ColumnWidth:=10;
 Colum.Columns[8].ColumnWidth:=10;

 Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Rows;
 Colum.Rows[3].Font.Bold:=true;
 Colum.Rows[1].Font.Bold:=true;
 Colum.Rows[1].Font.Color:=clBlue;
 Colum.Rows[1].Font.Size:=14;

 Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт'];
 Sheet.Cells[1,2]:='Учет перевозки грузов автомобильным транспортом';
 Sheet.Cells[3,1]:='№ проезда';
 Sheet.Cells[3,2]:='Марка авто';
 Sheet.Cells[3,3]:='Гос.номер';
 Sheet.Cells[3,4]:='Кто регистрировал';
 Sheet.Cells[3,5]:='Откуда';
 Sheet.Cells[3,6]:= 'Куда';
 Sheet.Cells[3,7]:= 'Дата';
 Sheet.Cells[3,8]:= 'Время';

 index:=4;
 DataModule1.proezd_main .First;
 for i:=0 to DataModule1.proezd_main .RecordCount-1 do
  begin
   Sheet.Cells[index,1]:=DataModule1.proezd_main.Fields.Fields[0].AsString;
   Sheet.Cells[index,2]:=DataModule1.proezd_main .Fields.Fields[1].AsString;
   Sheet.Cells[index,3]:=DataModule1.proezd_main .Fields.Fields[2].AsString;
   Sheet.Cells[index,4]:=DataModule1.proezd_main .Fields.Fields[3].AsString;
   Sheet.Cells[index,5]:=DataModule1.proezd_main.Fields.Fields[4].AsString;
   Sheet.Cells[index,6]:=DataModule1.proezd_main .Fields.Fields[5].AsString;
   Sheet.Cells[index,7]:=DataModule1.proezd_main .Fields.Fields[6].AsString;
   Sheet.Cells[index,8]:=DataModule1.proezd_main .Fields.Fields[7].AsString;
   Inc(index);
   DataModule1.proezd_main.Next;
   end;

end;

Если нужно могу обїяснить ,что и где....
тут вся таблица заливается в Єксел, а ві можите использовать запрос по какому-то условию....
uses Base
select [dbo].[xxx1], [dbo].[xxxx2] from Table
where условие....

Язык в процессе изучения, кстати то, что я выбрал Дельфи, правильно или С лучше?
Просто очень короткие сроки!
QReport, FastReport, CrestalReport я сегодня посмотрю...пока даже не знаю что спрашивать ) но в любом случае человеческое спасибо! )

[Pitbull]

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

Язык в процессе изучения, кстати то, что я выбрал Дельфи, правильно или С лучше?
Просто очень короткие сроки!
QReport, FastReport, CrestalReport я сегодня посмотрю...пока даже не знаю что спрашивать ) но в любом случае человеческое спасибо! )

Ну, я и на Си могу... Но мне как-то Делфи роднее.Возможности у них теже Если знаете Паскаль,то никаких вопросов не будет...
Я считаю, что нужно один язык знать на отлично, но об остальных иметь представление....
Если Вам нужно просто распечатать ваш отчет, то используйте Reports... А если выводимые данные будут потом корректироваться, передаваться куда-то, то Эксел...